QX-C-SL全息收盘价格数理法

QX-C-SL{全息收盘价格数理法}
X2:=CLOSE;
XA2:=INTPART(X2/10);
XB2:=INTPART(X2)-XA2*10;
XC2:=INTPART(X2*10)-XA2*100-XB2*10;
XD2:=INTPART(X2*100)-XA2*1000-XB2*100-XC2*10;
SGT2:=MOD(XA2+XB2+ZQDMSUM,8);
SG2:=IF(SGT2=0,8,SGT2);
XGT2:=MOD(XC2+XD2+ZQDMSUM,8);
XG2:=IF(XGT2=0,8,XGT2);
DY:=MOD(XA2+XB2+XC2+XD2,6);
DY1:=IF(DY=0,6,DY);
DY2:=MOD(XA2+XB2+XC2+XD2+ZQDMSUM,6);
DY3:=IF(DY2=0,6,DY2);
收盘数理:(SG2*1000+XG2*100+DY1*10+DY3)/100;