飞狐付图田氏六爻原码供大家研易.梅花易数起卦法

lee8611

飞狐付图田氏六爻原码供大家研易.梅花易数起卦法

来自：MACD论坛(bbs.macd.cn) 作者：lee8611 浏览：8803 回复：8

//今天收盘价大于零，a=1;否则，a=0;
a:=条件函数(收盘价>开盘价,1,条件函数(收盘价<开盘价,-1,0));
//今天收盘价大于昨天收盘价，a1=1;否则，a1=0;
a1:=条件函数(收盘价>向前引用(收盘价,1),1,条件函数(收盘价<向前引用(收盘价,1),-1,0));
//今天成交量大于昨天成交量，a2=1,否则，a2=0;
a2:=条件函数(成交量>向前引用(成交量,1),1,条件函数(成交量<=向前引用(成交量,1),-1,0));
//当今天收盘价为零时，b=1或b=0;否则，b=1;
b:=条件函数(a=0,a1,a);
cgc:=条件函数(b=0,a2,b);
x1:=条件函数(向前引用(cgc,2)>0 and 向前引用(cgc,1)>0 and cgc>0,1,0);
x2:=条件函数(向前引用(cgc,2)<0 and 向前引用(cgc,1)>0 and cgc>0,2,0);
x3:=条件函数(向前引用(cgc,2)>0 and 向前引用(cgc,1)<0 and cgc>0,3,0);
x4:=条件函数(向前引用(cgc,2)<0 and 向前引用(cgc,1)<0 and cgc>0,4,0);
x5:=条件函数(向前引用(cgc,2)>0 and 向前引用(cgc,1)>0 and cgc<0,5,0);
x6:=条件函数(向前引用(cgc,2)<0 and 向前引用(cgc,1)>0 and cgc<0,6,0);
x7:=条件函数(向前引用(cgc,2)>0 and 向前引用(cgc,1)<0 and cgc<0,7,0);
x8:=条件函数(向前引用(cgc,2)<0 and 向前引用(cgc,1)<0 and cgc<0,8,0);
ss:=x1+x2+x3+x4+x5+x6+x7+x8;
yy:=求模运算(各位数字之和(收盘价,2),9);xg1:=条件函数(yy=0,9,yy);
aa1:=条件函数(xg1=7,2,条件函数(xg1=3,4,0));bb1:=条件函数(xg1=5,8,条件函数(xg1=1,6,0));
cc1:=条件函数(xg1=6,1,条件函数(xg1=2,8,0));dd1:=条件函数(xg1=4,5,条件函数(xg1=8,7,0));
ee1:=条件函数(xg1=9,3,0);xx:=aa1+bb1+cc1+dd1+ee1;
dd1:=求模运算((ss+xx+各位数字之和(收盘价,2)),6);dd:=条件函数(dd1=0,6,dd1);
no:=条件函数(ss=5,2,条件函数(ss=6,2,0))+条件函数(ss<=2,2,条件函数(ss>=7,0,0));
nk:=条件函数(xx=5,2,条件函数(xx=6,2,0))+条件函数(xx<=2,2,条件函数(xx>=7,0,0));
ni:=(ss-(取整((ss)/2))*2)*4;np:=条件函数(ss>4,0,1);
nl:=(xx-(取整((xx)/2))*2)*4;nj:=条件函数(xx>4,0,1);
xxx:=条件函数(nk=no,2,0)+条件函数(nj=np,1,0)+条件函数(nl=ni,4,0);
l6:=条件函数(dd=6,条件函数(dd=6 AND ni=0,4,0),ni);l5:=条件函数(dd=5,条件函数(dd=5 AND no=0,2,0),no);
l2:=条件函数(dd=2,条件函数(dd=2 AND nk=0,2,0),nk);l4:=条件函数(dd=4,条件函数(dd=4 AND np=0,1,0),np);
l3:=条件函数(dd=3,条件函数(dd=3 AND nl=0,4,0),nl);l1:=条件函数(dd=1,条件函数(dd=1 AND nj=0,1,0),nj);
la:=l6+l5+l4;  lb:=l3+l2+l1;dl1:=条件函数(la=4,7,条件函数(la=0,8,0));
bl1:=条件函数(la=5,3,条件函数(la=1,4,0));al1:=条件函数(la=7,1,条件函数(la=3,2,0));
cl:=条件函数(lb=6,5,条件函数(lb=2,6,0));dl:=条件函数(lb=4,7,条件函数(lb=0,8,0));
cl1:=条件函数(la=6,5,条件函数(la=2,6,0));al:=条件函数(lb=7,1,条件函数(lb=3,2,0));
bl:=条件函数(lb=5,3,条件函数(lb=1,4,0));xxs:=al+bl+cl+dl;ssx:=al1+bl1+cl1+dl1;
po:=系统参数(1)=数据位置;  
0.75  点状线  COLORBLACK;
显示文字((xx=1 OR xx=4 )>0  AND po,(xx=1 OR xx=4),'子　                               '),COLORGRAY,ALIGN2;
shul:=条件函数(ss=7,5,条件函数(ss=6,6,0));
hul:=条件函数(xx=1,2,条件函数(xx=4,2,0))+条件函数(xx=6,1,0);
显示文字(shul>0  AND po,shul,'子　                               '),COLORGRAY,ALIGN2;
显示文字(hul>0  AND po,hul,'寅　                               '),COLORCYAN,ALIGN2;
hl9:=条件函数(ss=7,6,0);lwu:=条件函数(ss=1,4,条件函数(ss=4,4,0));lk:=条件函数(xx=6,3,条件函数(xx=7,2,0));
显示文字(hl9>0  AND po,hl9,'寅　                               '),COLORCYAN,ALIGN2;
cln:=条件函数(xx=1,3,条件函数(xx=4,3,0))+条件函数(xx=6,2,条件函数(xx=7,1,0));en2:=条件函数(xx=7,3,0);
显示文字(cln>0  AND po,cln,'辰　                               '),COLORYELLOW,ALIGN2;
显示文字(lwu>0  AND po,lwu,'午　                               '),COLORRED,ALIGN2;
显示文字(lk>0  AND po,lk,'午　                               '),COLORRED,ALIGN2;
len:=条件函数(ss=1,5,条件函数(ss=4,5,0))+条件函数(ss=6,4,0);su2:=条件函数(ss=8,4,0);wi2:=条件函数(xx=8,1,0);
显示文字(len>0  AND po,len,'申　                               '),COLORWHITE,ALIGN2;
显示文字(en2>0  AND po,en2,'申　                               '),COLORWHITE,ALIGN2;
qv:=条件函数(ss=1,6,条件函数(ss=4,6,0))+条件函数(ss=6,5,条件函数(ss=7,4,0));lau2:=条件函数(ss=5,6,0);
显示文字(qv>0  AND po,qv,'戌　                               '),COLORYELLOW,ALIGN2;
lhiu:=条件函数(xx=2,3,条件函数(xx=5,1,0))+条件函数(xx=3,2,0);llo:=条件函数(xx=8,3,条件函数(XX=3,1,0))+条件函数(xx=2,2,0);
显示文字(lhiu>0  AND po,lhiu,'丑　                               '),COLORYELLOW,ALIGN2;
显示文字(su2>0  AND po,su2,'丑　                               '),COLORYELLOW,ALIGN2;
显示文字(llo>0  AND po,llo,'卯　                               '),COLORCYAN,ALIGN2;
显示文字(lau2>0  AND po,lau2,'卯　                               '),COLORCYAN,ALIGN2;
pi:=条件函数(xx=8,2,条件函数(xx=2,1,0));si2:=条件函数(ss=3,6,条件函数(ss=5,5,0));
显示文字(pi>0  AND po,pi,'巳　                               '),COLORRED,ALIGN2;
显示文字(si2>0  AND po,si2,'巳　                               '),COLORRED,ALIGN2;
ppi:=条件函数(ss=5,4,条件函数(ss=3,5,0))+条件函数(ss=2,6,0);oou:=条件函数(ss=8,6,条件函数(ss=3,4,0))+条件函数(ss=2,5,0);
显示文字(ppi>0  AND po,ppi,'未　                               '),COLORYELLOW,ALIGN2;
显示文字(wi2>0  AND po,wi2,'未　                               '),COLORYELLOW,ALIGN2;
显示文字(oou>0  AND po,oou,'酉　                               '),COLORWHITE,ALIGN2;
ju2:=条件函数(xx=5,3,0);hl:=条件函数(ss=8,5,条件函数(ss=2,4,0));i2:=条件函数(xx=5,2,条件函数(xx=3,3,0));
显示文字(ju2>0  AND po,ju2,'酉　                               '),COLORWHITE,ALIGN2;
显示文字(hl>0  AND po,hl,'亥　                               '),COLORGRAY,ALIGN2;
显示文字(i2>0  AND po,i2,'亥　                               '),COLORGRAY,ALIGN2;
w:=(条件函数(ss=1,4,0)+条件函数(ss=4,4,0)+条件函数(ss=5,5,0)+条件函数(ss=3,6,0));
q2:=(条件函数(ss=6,6,0)+条件函数(ss=7,5,0)+条件函数(ss=8,5,0)+条件函数(ss=2,4,0));
q:=(条件函数(xx=1,1,0)+条件函数(xx=4,1,0)+条件函数(xx=5,2,0)+条件函数(xx=3,3,0));
j:=(条件函数(xx=1,2,0)+条件函数(xx=4,2,0)+条件函数(xx=6,1,0)+条件函数(xx=8,3,0)+条件函数(xx=3,1,0)+条件函数(xx=2,2,0));
j2:=(条件函数(ss=5,6,0)+条件函数(ss=7,6,0));m2:=(条件函数(xx=7,3,0)+条件函数(xx=5,3,0));
m:=(条件函数(ss=1,5,0)+条件函数(ss=6,4,0)+条件函数(ss=8,6,0)+条件函数(ss=4,5,0)+条件函数(ss=3,4,0)+条件函数(ss=2,5,0));
ov:=(条件函数(xxx=0,3,条件函数(xxx=7,6,0))+条件函数(xxx=4,2,条件函数(xxx=1,4,0))+条件函数(xxx=6,1,条件函数(xxx=5,3,0))+条件函数(xxx=2,4,条件函数(xxx=3,5,0)));
vo:=条件函数(ov=1,4,条件函数(ov=2,5,0))+条件函数(ov=3,6,条件函数(ov=4,1,0))+条件函数(ov=5,2,条件函数(ov=6,3,0));
ooo:=条件函数(xx=1,8,条件函数(xx=2,7,0))+条件函数(xx=3,6,条件函数(xx=4,5,0))+条件函数(xx=5,4,条件函数(xx=6,3,0))+条件函数(xx=7,8,条件函数(xx=8,1,0));
g1:=条件函数(ov<3,ss,0)+条件函数(ov=6,ss,0)+条件函数(ov=4,ooo,0)+条件函数(ov=5,ooo,0);
g:=条件函数(条件函数(g1>8,xx,g1)=0,ss,条件函数(g1>8,xx,g1));
gwx:=(g=1 OR g=2)+条件函数(g>=7,5,0)+条件函数(g=3,4,0)+条件函数(g=4,3,0)+条件函数(g=5,3,0)+条件函数(g=6,2,0);
e:=(条件函数(ss=1,6,0)+条件函数(ss=4,6,0)+条件函数(ss=7,4,0)+条件函数(ss=6,5,0)+条件函数(ss=8,4,0)+条件函数(ss=5,4,0)+条件函数(ss=2,6,0)+条件函数(ss=3,5,0));
e2:=(条件函数(xx=6,2,0)+条件函数(xx=7,1,0)+条件函数(xx=2,3,0)+条件函数(xx=1,3,0)+条件函数(xx=4,3,0)+条件函数(xx=8,1,0)+条件函数(xx=3,2,0)+条件函数(xx=5,1,0));
w2:=(条件函数(xx=6,3,0)+条件函数(xx=8,2,0)+条件函数(xx=2,1,0)+条件函数(xx=7,2,0));
so:=((m=3 OR m2=3)+条件函数(j=3,3,0)+条件函数(j2=3,3,0)+条件函数(w=3,4,0)+条件函数(w2=3,4,0)+
      条件函数(q=3,2,0)+条件函数(q2=3,2,0)+条件函数(e=3,5,0)+条件函数(e2=3,5,0))-gwx;
eo:=((m=2 OR m2=2)+条件函数(j=2,3,0)+条件函数(j2=2,3,0)+条件函数(w=2,4,0)+条件函数(w2=2,4,0)+
    条件函数(q=2,2,0)+条件函数(q2=2,2,0)+条件函数(e=2,5,0)+条件函数(e2=2,5,0))-gwx;
yo:=((m=1 OR m2=1)+条件函数(j=1,3,0)+条件函数(j2=1,3,0)+条件函数(w=1,4,0)+条件函数(w2=1,4,0)+
    条件函数(q=1,2,0)+条件函数(q2=1,2,0)+条件函数(e=1,5,0)+条件函数(e2=1,5,0))-gwx;
up:=(yo=-1 OR yo=4)+条件函数(eo=-1,2,0)+条件函数(eo=4,2,0)+条件函数(so=-1,3,0)+条件函数(so=4,3,0);
显示文字(up>0  AND po,up,'父母                            '),COLORMAGENTA,ALIGN2;
ui:=(yo=-3 OR yo=2)+条件函数(eo=-3,2,0)+条件函数(eo=2,2,0)+条件函数(so=-3,3,0)+条件函数(so=2,3,0);
显示文字(ui>0  AND po,ui,'妻财                            '),COLORMAGENTA,ALIGN2;
gu:=(yo=-2 OR yo=3)+条件函数(eo=-2,2,0)+条件函数(eo=3,2,0)+条件函数(so=-2,3,0)+条件函数(so=3,3,0);
显示文字(gu>0  AND po,gu,'官鬼                            '),COLORMAGENTA,ALIGN2;
iu:=(yo=-4 OR yo=1)+条件函数(eo=-4,2,0)+条件函数(eo=1,2,0)+条件函数(so=-4,3,0)+条件函数(so=1,3,0);
显示文字(iu>0  AND po,iu,'子孙                            '),COLORMAGENTA,ALIGN2;
ux:=条件函数(yo=0,1,0)+条件函数(eo=0,2,0)+条件函数(so=0,3,0);asdi:=(xx=1 OR xx=2 OR xx=3 OR xx=4 );
显示文字(ux>0  AND po,ux,'兄弟                            '),COLORMAGENTA,ALIGN2;
e2A:=(条件函数(xxS=6,2,0)+条件函数(xxS=7,1,0)+条件函数(xxS=2,3,0)+条件函数(xxS=1,3,0)+条件函数(xxS=4,3,0)+
      条件函数(xxS=8,1,0)+条件函数(xxS=3,2,0)+条件函数(xxS=5,1,0));sdfr:=(xx=1 OR xx=2 OR xx=5 OR xx=6 );
eA:=(条件函数(ssX=1,6,0)+条件函数(ssX=4,6,0)+条件函数(ssX=7,4,0)+条件函数(ssX=6,5,0)+条件函数(ssX=8,4,0)+
     条件函数(ssX=5,4,0)+条件函数(ssX=2,6,0)+条件函数(ssX=3,5,0));giA:=(xxS=1 OR xxS=2 OR xxS=3 OR xxS=4 );
w2A:=(条件函数(xxS=6,3,0)+条件函数(xxS=8,2,0)+条件函数(xxS=2,1,0)+条件函数(xxS=7,2,0));
wA:=(条件函数(sSX=1,4,条件函数(sSX=4,4,0))+条件函数(ssX=5,5,0)+条件函数(ssX=3,6,0));
q2A:=(条件函数(ssX=6,6,0)+条件函数(ssX=7,5,0)+条件函数(ssX=8,5,0)+条件函数(ssX=2,4,0));
qA:=((xxS=1 OR xxS=4)+条件函数(xxS=5,2,0)+条件函数(xxS=3,3,0));
jA:=(条件函数(xxS=1,2,0)+条件函数(xxS=4,2,0)+条件函数(xxS=6,1,0)+条件函数(xxS=8,3,0)+条件函数(xxS=3,1,0)+条件函数(xxS=2,2,0));
m2h:=(条件函数(xxS=7,3,0)+条件函数(xxS=5,3,0));j2A:=(条件函数(ssX=5,6,0)+条件函数(ssX=7,6,0));
mAl:=(条件函数(ssX=1,5,0)+条件函数(ssX=6,4,0)+条件函数(ssX=8,6,0)+条件函数(ssX=4,5,0)+条件函数(ssX=3,4,0)+条件函数(ssX=2,5,0));
lo:=((m=6 OR m2=6)+条件函数(j=6,3,0)+条件函数(j2=6,3,0)+条件函数(w=6,4,0)+条件函数(w2=6,4,0)+
    条件函数(q=6,2,0)+条件函数(q2=6,2,0)+条件函数(e=6,5,0)+条件函数(e2=6,5,0))-gwx;
wo:=((m=5 OR m2=5)+条件函数(j=5,3,0)+条件函数(j2=5,3,0)+条件函数(w=5,4,0)+条件函数(w2=5,4,0)+
   条件函数(q=5,2,0)+条件函数(q2=5,2,0)+条件函数(e=5,5,0)+条件函数(e2=5,5,0))-gwx;
ho:=((m=4 OR m2=4)+条件函数(j=4,3,0)+条件函数(j2=4,3,0)+条件函数(w=4,4,0)+条件函数(w2=4,4,0)+
   条件函数(q=4,2,0)+条件函数(q2=4,2,0)+条件函数(e=4,5,0)+条件函数(e2=4,5,0))-gwx;
jui:=条件函数(ho=-1,4,0)+条件函数(ho=4,4,0)+条件函数(wo=-1,5,0)+条件函数(wo=4,5,0)+条件函数(lo=-1,6,0)+条件函数(lo=4,6,0);
显示文字(jui>0  AND po,jui,'父母                            '),COLORMAGENTA,ALIGN2;
jhaii:=条件函数(ho=-3,4,0)+条件函数(ho=2,4,0)+条件函数(wo=-3,5,0)+条件函数(wo=2,5,0)+条件函数(lo=-3,6,0)+条件函数(lo=2,6,0);
显示文字(jhaii>0  AND po,jhaii,'妻财                            '),COLORMAGENTA,ALIGN2;
juani:=条件函数(ho=-2,4,0)+条件函数(ho=3,4,0)+条件函数(wo=-2,5,0)+条件函数(wo=3,5,0)+条件函数(lo=-2,6,0)+条件函数(lo=3,6,0);
显示文字(juani>0  AND po,juani,'官鬼                            '),COLORMAGENTA,ALIGN2;
jzii:=条件函数(ho=-4,4,0)+条件函数(ho=1,4,0)+条件函数(wo=-4,5,0)+条件函数(wo=1,5,0)+条件函数(lo=-4,6,0)+条件函数(lo=1,6,0);
显示文字(jzii>0  AND po,jzii,'子孙                            '),COLORMAGENTA,ALIGN2;
jxigi:=条件函数(ho=0,4,0)+条件函数(wo=0,5,0)+条件函数(lo=0,6,0);
显示文字(jxigi>0  AND po,jxigi,'兄弟                            '),COLORMAGENTA,ALIGN2;
iuya:=((mAl=6 OR m2h=6)+条件函数(jA=6,3,0)+条件函数(j2A=6,3,0)+条件函数(wA=6,4,0)+条件函数(w2A=6,4,0)+
   条件函数(qA=6,2,0)+条件函数(q2A=6,2,0)+条件函数(eA=6,5,0)+条件函数(e2A=6,5,0))-gwx;
uya:=((mAl=5 OR m2h=5)+条件函数(jA=5,3,0)+条件函数(j2A=5,3,0)+条件函数(wA=5,4,0)+条件函数(w2A=5,4,0)+
   条件函数(qA=5,2,0)+条件函数(q2A=5,2,0)+条件函数(eA=5,5,0)+条件函数(e2A=5,5,0))-gwx;
hiya:=((mAl=4 OR m2h=4)+条件函数(jA=4,3,0)+条件函数(j2A=4,3,0)+条件函数(wA=4,4,0)+条件函数(w2A=4,4,0)+
   条件函数(qA=4,2,0)+条件函数(q2A=4,2,0)+条件函数(eA=4,5,0)+条件函数(e2A=4,5,0))-gwx;
显示文字(po,ov,'世                  '),COLORMAGENTA,ALIGN2;xx1:=条件函数(nj=np,1,0);
显示文字(po,vo,'应                  '),COLORMAGENTA,ALIGN2;xx2:=条件函数(nk=no,2,0);
xx3:=条件函数(ni=nl,4,0);xxx:=xx2+xx1+xx3;yh:=xxx=2;gh:=xxx=5;xxss:=ss*10+xx;
显示文字(yh=1  AND po,7,'游魂 卦                        '),Color5659FF,ALIGN2;
显示文字(gh=1  AND po,7,'归魂 卦                        '),Color5659FF,ALIGN2;
xsxs:=条件函数(xxss=12,5,0)+条件函数(xxss=15,2,0)+条件函数(xxss=17,2,0)+条件函数(xxss=23,3,0)+条件函数(xxss=27,2,0)+
      条件函数(xxss=32,5,0)+条件函数(xxss=47,2,0)+条件函数(xxss=52,5,0)+条件函数(xxss=56,4,0)+条件函数(xxss=57,5,0)+条件函数(xxss=63,3,0)+
      条件函数(xxss=64,3,0)+条件函数(xxss=67,2,0)+条件函数(xxss=76,4,0)+条件函数(xxss=83,3,0)+条件函数(xxss=87,2,0);
显示文字(xsxs>0  AND po,xsxs,'妻财伏    　                               '),COLORMAGENTA,ALIGN2;
sxio:=条件函数(xsxs=5,1,0)+条件函数(xsxs=3,7,0)+条件函数(xsxs=4,10,0)+条件函数(xsxs=2,4,0)+条件函数(xxss=15,-1,0)+条件函数(xxss=17,-1,0);
显示文字(sxio=1  AND po,xsxs,'子         　                                 '),COLORRED,ALIGN2;
显示文字(sxio=3  AND po,xsxs,'寅         　                                 '),COLORCYAN,ALIGN2;
显示文字(sxio=4  AND po,xsxs,'卯         　                                 '),COLORCYAN,ALIGN2;
显示文字(sxio=7  AND po,xsxs,'午         　                                 '),COLORRED,ALIGN2;
显示文字(sxio=10  AND po,xsxs,'酉         　                                 '),COLORWHITE,ALIGN2;
显示文字(asdi>0  AND po,1,'▄▄▄                     '),COLORGREEN,ALIGN2;
显示文字(asdi=0  AND po,1,'▄  ▄                     '),COLORGREEN,ALIGN2;
显示文字(sdfr>0  AND po,2,' ▄▄▄                     '),COLORGREEN,ALIGN2;
显示文字(sdfr=0  AND po,2,'▄  ▄                     '),COLORGREEN,ALIGN2;
dfgn:=(xx=1 OR xx=3 OR xx=5 OR xx=7 );
显示文字(dfgn>0  AND po,3,'▄▄▄                     '),COLORGREEN,ALIGN2;
显示文字(dfgn=0  AND po,3,' ▄  ▄                     '),COLORGREEN,ALIGN2;
fgh:=(ss=1 OR ss=2 OR ss=3 OR ss=4 );
显示文字(fgh>0  AND po,4,'▄▄▄                     '),COLORGREEN,ALIGN2;
显示文字(fgh=0  AND po,4,' ▄  ▄                     '),COLORGREEN,ALIGN2;
ghj:=(ss=1 OR ss=2 OR ss=5 OR ss=6 );
显示文字(ghj>0  AND po,5,'▄▄▄                     '),COLORGREEN,ALIGN2;
显示文字(ghj=0  AND po,5,'▄  ▄                     '),COLORGREEN,ALIGN2;
hjk:=(ss=1 OR ss=3 OR ss=5 OR ss=7 );
显示文字(hjk>0  AND po,6,'▄▄▄                     '),COLORGREEN,ALIGN2;
显示文字(hjk=0  AND po,6,'▄  ▄                     '),COLORGREEN,ALIGN2;
ddd:=条件函数(dd=1,asdi,0)+条件函数(dd=2,sdfr,0)+条件函数(dd=3,dfgn,0)+条件函数(dd=4,fgh,0)+条件函数(dd=5,ghj,0)+条件函数(dd=6,hjk,0);
显示文字(ddd+dd>dd  AND po,dd,'o                '),COLORRED,ALIGN2;
显示文字(ddd+dd=dd  AND po,dd,'×               '),colorffff00,ALIGN2;
shuA:=条件函数(dd>3,条件函数(ssx=7,5,条件函数(ssx=6,6,0)),条件函数(xxs=1,1,条件函数(xxs=4,1,0)));
huA:=条件函数(dd>3,条件函数(ssx=7,6,0),条件函数(xxs=1,2,条件函数(xxs=4,2,0))+条件函数(xxs=6,1,0));
chenA:=条件函数(xxs=1,3,条件函数(xxs=6,2,条件函数(xxs=7,1,0)+条件函数(xxs=4,3,0)));
wuA:=条件函数(dd>3,条件函数(ssx=1,4,条件函数(ssx=4,4,0)),条件函数(xxs=6,3,条件函数(xxs=7,2,0)));
shenA:=条件函数(dd>3,条件函数(ssx=1,5,条件函数(ssx=4,5,0))+条件函数(ssx=6,4,0),条件函数(xxs=7,3,0));
qvA:=条件函数(ssx=1,6,条件函数(ssx=4,6,0))+条件函数(ssx=6,5,条件函数(ssx=7,4,0));
chouA:=条件函数(dd>3,条件函数(ssx=8,4,0),条件函数(xxs=2,3,条件函数(xxs=5,1,0))+条件函数(xxs=3,2,0));
maoA:=条件函数(dd>3,条件函数(ssx=5,6,0),条件函数(xxs=8,3,条件函数(XXs=3,1,0))+条件函数(xxs=2,2,0));
siA:=条件函数(dd>3,条件函数(ssx=3,6,条件函数(ssx=5,5,0)),条件函数(xxs=8,2,条件函数(xxs=2,1,0)));
weiA:=条件函数(dd>3,条件函数(ssx=5,4,条件函数(ssx=3,5,0))+条件函数(ssx=2,6,0),条件函数(xxs=8,1,0));
youA:=条件函数(dd>3,条件函数(ssx=8,6,条件函数(ssx=3,4,0))+条件函数(ssx=2,5,0),条件函数(xxs=5,3,0));
haiA:=条件函数(dd>3,条件函数(ssx=8,5,条件函数(ssx=2,4,0)),条件函数(xxs=5,2,条件函数(xxs=3,3,0)));
显示文字(shuA=dd  AND po,dd,'子            '),COLORGRAY,ALIGN2;
显示文字(huA=dd  AND po,dd,'寅            '),COLORCYAN,ALIGN2;
显示文字(chenA=dd  AND po,dd,'辰            '),COLORYELLOW,ALIGN2;
显示文字(wuA=dd  AND po,dd,'午            '),COLORRED,ALIGN2;
显示文字(shenA=dd  AND po,dd,'申            '),COLORWHITE,ALIGN2;
显示文字(qvA=dd  AND po,dd,'戌            '),COLORYELLOW,ALIGN2;
显示文字(chouA=dd  AND po,dd,'丑            '),COLORYELLOW,ALIGN2;
显示文字(maoA=dd  AND po,dd,'卯            '),COLORCYAN,ALIGN2;
显示文字(siA=dd  AND po,dd,'巳            '),COLORRED,ALIGN2;
显示文字(weiA=dd  AND po,dd,'未            '),COLORYELLOW,ALIGN2;
显示文字(youA=dd  AND po,dd,'酉            '),COLORWHITE,ALIGN2;
显示文字(haiA=dd  AND po,dd,'亥            '),COLORGRAY,ALIGN2;
wuxen:=条件函数(shuA=dd,2,0)+条件函数(huA=dd,3,0)+条件函数(chenA=dd,5,0)+条件函数(wuA=dd,4,0)+条件函数(shenA=dd,1,0)+条件函数(qvA=dd,5,0)+
条件函数(chouA=dd,5,0)+条件函数(maoA=dd,3,0)+条件函数(siA=dd,4,0)+条件函数(weiA=dd,5,0)+条件函数(youA=dd,1,0)+条件函数(haiA=dd,2,0);
显示文字((gwx-wuxen=1 or gwx-wuxen=-4)  AND po,dd,'父母       '),COLORMAGENTA,ALIGN2;
显示文字((gwx-wuxen=3 or gwx-wuxen=-2)  AND po,dd,'妻财       '),COLORMAGENTA,ALIGN2;
显示文字((gwx-wuxen=2 or gwx-wuxen=-3)  AND po,dd,'官鬼       '),COLORMAGENTA,ALIGN2;
显示文字((gwx-wuxen=4 or gwx-wuxen=-1)  AND po,dd,'子孙       '),COLORMAGENTA,ALIGN2;
显示文字(gwx-wuxen=0 AND po,dd,'兄弟       '),COLORMAGENTA,ALIGN2;

显示文字(po,8,'月     日  (    )空           '),COLORFFFFCC,ALIGN2;
lc:=条件函数(年月日>节气日期(3),1,0);a:=lc+条件函数(年月日>节气日期(5),1,0)+条件函数(年月日>节气日期(7),1,0);   
a3:=条件函数(年月日>节气日期(9),1,0)+条件函数(年月日>节气日期(11),1,0)+条件函数(年月日>节气日期(13),1,0);
a6:=条件函数(年月日>节气日期(15),1,0)+条件函数(年月日>节气日期(17),1,0)+条件函数(年月日>节气日期(19),1,0);
a9:=条件函数(年月日>节气日期(21),1,0)+条件函数(年月日>节气日期(23),1,0)+条件函数(lc=0,12,0);
yl:=a3+a6+a9+a;qq:=干支(年月日, 时分秒, 2)+1;xy3:=求模运算(qq,10);tg:=条件函数(xy3=0,10,xy3);
显示文字(yl=11  AND po,8,'子                              '),COLORRED,ALIGN2;
显示文字(yl=12  AND po,8,'丑                              '),COLORRED,ALIGN2;
显示文字(yl=1  AND po,8,'寅                              '),COLORRED,ALIGN2;
显示文字(yl=2  AND po,8,'卯                              '),COLORRED,ALIGN2;
显示文字(yl=3  AND po,8,'辰                              '),COLORRED,ALIGN2;
显示文字(yl=4  AND po,8,'巳                              '),COLORRED,ALIGN2;
显示文字(yl=5  AND po,8,'午                              '),COLORRED,ALIGN2;
显示文字(yl=6  AND po,8,'未                              '),COLORRED,ALIGN2;
显示文字(yl=7  AND po,8,'申                              '),COLORRED,ALIGN2;
显示文字(yl=8  AND po,8,'酉                              '),COLORRED,ALIGN2;
显示文字(yl=9  AND po,8,'戌                              '),COLORRED,ALIGN2;
显示文字(yl=10  AND po,8,'亥                              '),COLORRED,ALIGN2;
显示文字(tg=1  AND po,8,'甲                         '),COLORRED,ALIGN2;
显示文字(tg=2  AND po,8,'乙                         '),COLORRED,ALIGN2;
显示文字(tg=3  AND po,8,'丙                         '),COLORRED,ALIGN2;
显示文字(tg=4  AND po,8,'丁                         '),COLORRED,ALIGN2;
显示文字(tg=5  AND po,8,'戊                         '),COLORRED,ALIGN2;
显示文字(tg=6  AND po,8,'己                         '),COLORRED,ALIGN2;
显示文字(tg=7  AND po,8,' 庚                         '),COLORRED,ALIGN2;
显示文字(tg=8  AND po,8,'辛                         '),COLORRED,ALIGN2;
显示文字(tg=9  AND po,8,'壬                         '),COLORRED,ALIGN2;
显示文字(tg=10 AND po,8,'癸                         '),COLORRED,ALIGN2;
i3:=求模运算(qq,12);dz:=条件函数(i3=0,12,i3);
显示文字(dz=1  AND po,8,'子                       '),COLORRED,ALIGN2;
显示文字(dz=2  AND po,8,'丑                       '),COLORRED,ALIGN2;
显示文字(dz=3  AND po,8,'寅                       '),COLORRED,ALIGN2;
显示文字(dz=4  AND po,8,'卯                       '),COLORRED,ALIGN2;
显示文字(dz=5  AND po,8,'辰                       '),COLORRED,ALIGN2;
显示文字(dz=6  AND po,8,'巳                       '),COLORRED,ALIGN2;
显示文字(dz=7  AND po,8,'午                       '),COLORRED,ALIGN2;
显示文字(dz=8  AND po,8,'未                       '),COLORRED,ALIGN2;
显示文字(dz=9  AND po,8,'申                       '),COLORRED,ALIGN2;
显示文字(dz=10 AND po,8,'酉                       '),COLORRED,ALIGN2;
显示文字(dz=11 AND po,8,'戌                       '),COLORRED,ALIGN2;
显示文字(dz=12 AND po,8,'亥                       '),COLORRED,ALIGN2;
km:=条件函数(qq>10,1,0)+条件函数(qq>20,1,0)+条件函数(qq>30,1,0)+条件函数(qq>40,1,0)+条件函数(qq>50,1,0)+1;
显示文字(km=6  AND po,8,'子丑              '),COLORRED,ALIGN2;
显示文字(km=5  AND po,8,'寅卯              '),COLORRED,ALIGN2;
显示文字(km=4  AND po,8,'辰巳              '),COLORRED,ALIGN2;
显示文字(km=3  AND po,8,'午未              '),COLORRED,ALIGN2;
显示文字(km=2 AND po,8,'申酉              '),COLORRED,ALIGN2;
显示文字(km=1  AND po,8,'戌亥              '),COLORRED,ALIGN2;
ql:=(条件函数(tg<=2,1,0)+条件函数(tg=3,6,0)+条件函数(tg=4,6,0)+条件函数(tg=5,5,0)+条件函数(tg=6,4,0)+条件函数(tg=7,3,0)+条件函数(tg=8,3,0)+条件函数(tg>=9,2,0));
显示文字(po,ql,'青龙'),COLORCYAN,ALIGN2;
显示文字(po,条件函数(ql+1<7,ql+1,条件函数(ql+1>6,ql-5,0)),'朱雀'),COLORRED,ALIGN2;
显示文字(po,条件函数(ql+2<7,ql+2,条件函数(ql+2>6,ql-4,0)),'勾陈'),COLORYELLOW,ALIGN2;
显示文字(po,条件函数(ql+3<7,ql+3,条件函数(ql+3>6,ql-3,0)),'螣蛇'),COLORYELLOW,ALIGN2;
显示文字(po,条件函数(ql+4<7,ql+4,条件函数(ql+4>6,ql-2,0)),'白虎'),COLORWHITE,ALIGN2;
显示文字(po,条件函数(ql+5<7,ql+5,条件函数(ql+5>6,ql-1,0)),'玄武'),COLORGRAY,ALIGN2;

cgf9999

多谢了,估计这样也要累死人,电脑也被累坏的.#*29*#

海海

收藏学习#*d1*# #*d1*#

fdrezujytf10

支持一下楼主！
             顶顶顶顶顶顶顶顶顶顶顶。。。。。。。。。!!!!!!!!!!!!!!!!!!!!











-----------------------------------------------------------------------------------------
Early to bed, early to rise, make a man healthy, wealthy, and wise. ugg cardy ugg Tall ugg short ugg Mini UGG Bailey Button Triplet

红树林园

呵呵！太复杂喇！还有高效简单的。请看图：

lxg2607

六亲错误#mad#

lee8611

六亲用处不大.一爻动受到卦数的限制准确度是有问题.只有用才能全面的展示全部信息.田氏六爻的公式编写的很有水平.如果写不好4096卦在一个付图公式里是装不下的

lee8611

六亲用处不大.一爻动受到卦数的限制准确度是有问题.只有用4096卦才能全面的展示全部信息.田氏六爻的公式编写的很有水平.如果写不好4096卦在一个付图公式里是装不下的

LETT

可否请楼主发一个非中文公式。谢谢