软件名称：[B]数理+正K卦[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2010-09-20 04:06:04
软件简介:

代码和:=ZQDMSUM;
B1:=INTPART(CLOSE/1000);
B2:=INTPART(CLOSE/100)-B1*10;
B3:=INTPART(CLOSE/10)-B2*10-B1*100;
B4:=INTPART(CLOSE)-B3*10-B2*10-B1*100;
价咯一和:=B1+B2+B3+B4;
CX:=1000*(CLOSE-INTPART(CLOSE));
CY:=INTPART(CX/10);
C3:=CX-10*CY;
CZ:=IF(C3>=5,CY+1,CY);
C1:=INTPART(CZ/10);
C2:=CZ-10*C1;
价咯二和:=C1+C2;
S1:=代码和+价咯一和;
S2:=S1-INTPART(S1/8)*8;
上卦:=IF(S2=0,8,S2);
S3:=代码和+价咯二和;
S4:=S3-INTPART(S3/8)*8;
下卦:=IF(S4=0,8,S4);
S5:=代码和+价咯一和+价咯二和;
S6:=S5-INTPART(S5/6)*6;
动爻:=IF(S6=0,6,S6);
一元卦:上卦*100+下卦*10+动爻,LINETHICK0,PRECISION254;
X1:=OPEN;
XA1:=INTPART(X1/10);
XB1:=INTPART(X1)-XA1*10;
XC1:=INTPART(X1*10)-XA1*100-XB1*10;
XD1:=INTPART(X1*100)-XA1*1000-XB1*100-XC1*10;
SGT1:=MOD(XA1+XB1+ZQDMSUM,8);
SG1:=IF(SGT1=0,8,SGT1);
XGT1:=MOD(XC1+XD1+ZQDMSUM,8);
XG1:=IF(XGT1=0,8,XGT1);
DYX:=MOD(XA1+XB1+XC1+XD1,6);
DYX1:=IF(DYX=0,6,DYX);
DYX2:=MOD(XA1+XB1+XC1+XD1+ZQDMSUM,6);
DYX3:=IF(DYX1=0,6,DYX1);
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);
DY4:=MOD(XA1+XB1+XC1+XD1+XA2+XB2+XC2+XD2,6);
DY5:=IF(DY4=0,6,DY4);
KP:=MOD(XA1+XB1+XC1+XD1,8);
KP1:=IF(KP=0,8,KP);
SP:=MOD(XA2+XB2+XC2+XD2,8);
SP1:=IF(SP=0,8,SP);
全息数:(KP1*10000+SP1*1000+DY5*100+DY3*10+DY1)/100,LINETHICK0,PRECISION254;
A:=KGUA(1,1);
乾宫寅财:DRAWYITEXT(A=11 OR A=15 OR A=17 OR A=18 OR A=58 OR A=78 OR A=38 OR A=31,750,KGUA(1,1),1),colorDDDDDD;
兑宫卯:DRAWYITEXT(A=22 OR A=26 OR A=28 OR A=27 OR A=67 OR A=87 OR A=47 OR A=42,700,KGUA(1,1),1),colorFFFFFF;
离宫酉:DRAWYITEXT(A=33 OR A=37 OR A=35 OR A=36 OR A=76 OR A=56 OR A=16 OR A=13,650,KGUA(1,1),1),colorFF;
震宫辰:DRAWYITEXT(A=44 OR A=48 OR A=46 OR A=45 OR A=85 OR A=65 OR A=25 OR A=24,600,KGUA(1,1),1),colorCC00;
巽宫未:DRAWYITEXT(A=55 OR A=51 OR A=53 OR A=54 OR A=14 OR A=34 OR A=74 OR A=75,550,KGUA(1,1),1),colorFF00;
坎宫午:DRAWYITEXT(A=66 OR A=62 OR A=64 OR A=63 OR A=23 OR A=43 OR A=83 OR A=86,500,KGUA(1,1),1),colorFFFF99;
艮宫子:DRAWYITEXT(A=77 OR A=73 OR A=71 OR A=72 OR A=32 OR A=12 OR A=52 OR A=57,450,KGUA(1,1),1),colorFFCC;
坤宫亥:DRAWYITEXT(A=88 OR A=84 OR A=82 OR A=81 OR A=41 OR A=21 OR A=61 OR A=68,400,KGUA(1,1),1),color99FFCC;
日:DRAWYITEXT(DATE,350,GANZHI(DATE,0,2),0);
月:DRAWYITEXT(DATE,300,GANZHI(DATE,0,1),0);
年:DRAWYITEXT(DATE,250,GANZHI(DATE,0,0),0);
地支旬空:DRAWYITEXT(LDAY,200,(5-INTPART(GANZHI(DATE,0,2)/10))*2,0);

[url=http://www.70822.com/soft/sort013/sort02/down-25384.html]数理+正K卦[/url]