周易指标
周易指标！送给喜欢周易的人！这几天研究写的有点不想写了！后面还有点喜好周易的人在完善！原本网上有人写出来！但加密码的不利于改良研究！所以特发出来供喜好的人研究！DRAWTEXTABS(2,2,'金水制做'),LINETHICK1,COLORRED;
{input:p1(1,0,1),p2(1,0,1);{//P1=0，按常规K线开收定阴阳爻，P1=1，按张东生-常秉义方法定阴阳爻；P2=0，按K线顺序排卦，左为初爻，右为上爻，P2=1，按K线逆序排卦}
p1:=1;p2:=1;
{按不同方法定阴阳爻}
aa:=AMOUNT/VOL/100;{//均价}
ai:=if(c=o,aa-ref(aa,1),c-o);{//P1=0，按常规K线开收定阴阳爻}
aj:=if(c=ref(c,1),aa-ref(aa,1),c-ref(c,1));{//P1=1，按张东生-常秉义方法定阴阳爻}
a:=if(p1=0,ai,aj);{//选定6爻，P2=0，按K线顺序排卦，P2=1，按K线逆序排卦}
a1:=if(p2=0,ref(a,5),a);
a2:=if(p2=0,ref(a,4),ref(a,1));
a3:=if(p2=0,ref(a,3),ref(a,2));
a4:=if(p2=0,ref(a,2),ref(a,3));
a5:=if(p2=0,ref(a,1),ref(a,4));
a6:=if(p2=0,a,ref(a,5));
{//上卦}
s1:=a4>0 and a5>0 and a6>0;{上卦乾-阳阳阳}
s11:=if(a4>0 and a5>0 and a6>0,1,0);
s2:=a4>0 and a5>0 and a6<0;{上卦兑-阳阳阴}
s22:=if(a4>0 and a5>0 and a6<0,2,0);
s3:=a4>0 and a5<0 and a6>0;{//上卦离-阳阴阳}
s33:=if(a4>0 and a5<0 and a6>0,3,0);
s4:=a4>0 and a5<0 and a6<0;{//上卦震-阳阴阴}
s44:=if(a4>0 and a5<0 and a6<0,4,0);
s5:=a4<0 and a5>0 and a6>0;{//上卦巽-阴阳阳}
s55:=if(a4<0 and a5>0 and a6>0,5,0);
s6:=a4<0 and a5>0 and a6<0;{//上卦坎-阴阳阴}
s66:=if(a4<0 and a5>0 and a6<0,6,0);
s7:=a4<0 and a5<0 and a6>0;{//上卦艮-阴阴阳}
s77:=if(a4<0 and a5<0 and a6>0,7,0);
s8:=a4<0 and a5<0 and a6<0;{//上卦坤-阴阴阴}
s88:=if(a4<0 and a5<0 and a6<0,8,0);
上卦:(s11+s22+s33+s44+s55+s66+s77+s88),LINETHICK0;
{//下卦}
x1:=a1>0 and a2>0 and a3>0;{//下卦乾-阳阳阳}
x11:=if(a1>0 and a2>0 and a3>0,1,0);
x2:=a1>0 and a2>0 and a3<0;{//下卦兑-阳阳阴}
x22:=if(a1>0 and a2>0 and a3<0,2,0);
x3:=a1>0 and a2<0 and a3>0;{//下卦离-阳阴阳}
x33:=if(a1>0 and a2<0 and a3>0,3,0);
x4:=a1>0 and a2<0 and a3<0;{//下卦震-阳阴阴}
x44:=if(a1>0 and a2<0 and a3<0,4,0);
x5:=a1<0 and a2>0 and a3>0;{//下卦巽-阴阳阳}
x55:=if(a1<0 and a2>0 and a3>0,5,0);
x6:=a1<0 and a2>0 and a3<0;{//下卦坎-阴阳阴}
x66:=if(a1<0 and a2>0 and a3<0,6,0);
x7:=a1<0 and a2<0 and a3>0;{//下卦艮-阴阴阳}
x77:=if(a1<0 and a2<0 and a3>0,7,0);
x8:=a1<0 and a2<0 and a3<0;{下卦坤-阴阴阴}
x88:=if(a1<0 and a2<0 and a3<0,8,0);
下卦:(x11+x22+x33+x44+x55+x66+x77+x88),LINETHICK0;
{动爻}
cc1:=(c-REF(C,1))/REF(C,1)*100;
cc2:=(REF(C,1)-REF(C,2))/REF(C,2)*100;
cc3:=(REF(C,2)-REF(C,3))/REF(C,3)*100;
cc4:=(REF(C,3)-REF(C,4))/REF(C,4)*100;
cc5:=(REF(C,4)-REF(C,5))/REF(C,5)*100;
cc6:=(REF(C,5)-REF(C,6))/REF(C,6)*100;
dd1:=max(abs(cc1),abs(cc2),abs(cc3),abs(cc4),abs(cc5),abs(cc6));{涨跌幅最大日作动爻}
d1:=if(abs(cc1)=dd1,1,0);
d2:=if(abs(cc2)=dd1,2,0);
d3:=if(abs(cc3)=dd1,3,0);
d4:=if(abs(cc4)=dd1,4,0);
d5:=if(abs(cc5)=dd1,5,0);
d6:=if(abs(cc6)=dd1,6,0);
动爻:d1+d2+d3+d4+d5+d6,LINETHICK0;
{//乾宫八卦，红色系}
乾:=s1;兑:=s2;离:=s3;震:=s4;巽:=s5;坎:=s6;艮:=s7;坤:=s8;
乾1:=x1;兑1:=x2;离1:=x3;震1:=x4;巽1:=x5;坎1:=x6;艮1:=x7;坤1:=x8;
DRAWTEXTABS(320,0,IFS(乾 or 离 or 巽 or 艮,' ━━━ ','')),LINETHICK0,Color00FF00;
DRAWTEXTABS(320,13,IFS(乾 or 兑 or 巽 or 坎,' ━━━ ','')),Color00FF00;
DRAWTEXTABS(320,26,IFS(乾 or 兑 or 离 or 震,' ━━━','')),Color00FF00;
DRAWTEXTABS(320,39,IFS(乾1 or 离1 or 巽1 or 艮1,' ━━━ ','')),Color00FF00;
DRAWTEXTABS(320,52,IFS(乾1 or 兑1 or 巽1 or 坎1,' ━━━ ','')),Color00FF00;
DRAWTEXTABS(320,65,IFS(乾1 or 兑1 or 离1 or 震1,' ━━━','')),Color00FF00;
DRAWTEXTABS(320,0,IFS(坤 or 兑 or 震 or 坎,' ━ ━ ','')),LINETHICK0,Color00FF00;
DRAWTEXTABS(320,13,IFS(坤 or 离 or 震 or 艮,' ━ ━ ','')),Color00FF00;
DRAWTEXTABS(320,26,IFS(坤 or 巽 or 坎 or 艮,' ━ ━','')),Color00FF00;
DRAWTEXTABS(320,39,IFS(坤1 or 兑1 or 震1 or 坎1,' ━ ━ ','')),Color00FF00;
DRAWTEXTABS(320,52,IFS(坤1 or 离1 or 震1 or 艮1,' ━ ━ ','')),Color00FF00;
DRAWTEXTABS(320,65,IFS(坤1 or 巽1 or 坎1 or 艮1,' ━ ━','')),Color00FF00;DRAWTEXTABS(320,0,IFS(乾,'戌 ',
IFS(震,'戌 ',
IFS(兑,'未 ',
IFS(离,'巳 ',
IFS(巽,'卯 ',
IFS(坎,'子',
IFS(艮,'寅',
IFS(坤,'酉',''))))))))),Color0080FF;
DRAWTEXTABS(320,13,IFS(乾,'申',
IFS(震,'申',
IFS(兑,'酉',
IFS(离,'未',
IFS(巽,'巳',
IFS(坎,'戌 ',
IFS(艮,'子',
IFS(坤,'亥',''))))))))),ColorFFFFFF;
DRAWTEXTABS(320,26,IFS(乾,'午',
IFS(震,'午',
IFS(兑,'亥',
IFS(离,'酉',
IFS(巽,'未',
IFS(坎,'申',
IFS(艮,'戌 ',
IFS(坤,'丑',''))))))))),Color0000FF;
DRAWTEXTABS(320,39,IFS(乾1,'辰',
IFS(震1,'辰',
IFS(兑1,'丑',
IFS(离1,'亥',
IFS(巽1,'酉',
IFS(坎1,'午',
IFS(艮1,'申',
IFS(坤1,'卯 ',''))))))))),Color0080FF;
DRAWTEXTABS(320,52,IFS(乾1,'寅',
IFS(震1,'寅',
IFS(兑1,'卯',
IFS(离1,'丑',
IFS(巽1,'亥',
IFS(坎1,'辰',
IFS(艮1,'午',
IFS(坤1,'巳',''))))))))),Color00FF00;
DRAWTEXTABS(320,65,IFS(乾1,'子',
IFS(震1,'子',
IFS(兑1,'巳',
IFS(离1,'卯',
IFS(巽1,'丑',
IFS(坎1,'寅',
IFS(艮1,'辰',
IFS(坤1,'未',''))))))))),ColorFFFF00;金:=(x1 and s1) or (x5 and s1) or (x7 and s1) or (x8 and s1) or (x1 and s3) or (x8 and s3) or (x8 and s7) or (x2 and s2) or (x6 and s2) or (x8 and s2) or (x7 and s2) or (x2 and s4) or (x8 and s5) or (x7 and s4) or (x7 and s8);
火:=(x3 and s3) or (x7 and s3) or (x5 and s3) or (x6 and s3) or (x3 and s1) or (x7 and s6) or (x6 and s1) or (x6 and s5);
木:=(x4 and s4) or (x5 and s5) or (x8 and s4) or (x1 and s5) or (x6 and s4) or (x3 and s5) or (x5 and s4) or (x4 and s5) or (x6 and s7) or (x5 and s8) or (x5 and s2) or (x4 and s7) or (x5 and s6) or (x4 and s3);
水:=(x6 and s6) or (x2 and s6) or (x4 and s6) or (x3 and s6) or (x4 and s2) or (x4 and s1) or (x3 and s4);
土:=(x7 and s7) or (x8 and s8) or (x3 and s7) or (x4 and s8) or (x1 and s7) or (x2 and s8) or (x2 and s7) or (x1 and s8) or (x5 and s7) or (x6 and s8) or (x7 and s5) or (x8 and s6) or (x3 and s2) or (x2 and s3) or (x1 and s4) or (x3 and s8) or (x2 and s5) or (x1 and s6) or (x2 and s1) or (x1 and s2);DRAWTEXTABS(335,0,IFS(金 ,'父',
IFS(金,'兄',
IFS(金,'官',
IFS(金,'财',
IFS(金,'子','')))))),Color00FFFF;
一世:=(x1 and s1) or (x2 and s2) or (x3 and s3) or (x4 and s4) or (x5 and s5) or (x6 and s6) or (x7 and s7) or (x8 and s8);
二世:=(x5 and s1) or (x6 and s2) or (x7 and s3) or (x8 and s4) or (x1 and s5) or (x2 and s6) or (x3 and s7) or (x4 and s8);
三世:=(x7 and s1) or (x8 and s2) or (x5 and s3) or (x6 and s4) or (x3 and s5) or (x4 and s6) or (x1 and s7) or (x2 and s8);
四世:=(x8 and s1) or (x7 and s2) or (x6 and s3) or (x5 and s4) or (x4 and s5) or (x3 and s6) or (x2 and s7) or (x1 and s8) or
(x1 and s3) or (x2 and s4) or (x3 and s1) or (x4 and s2) or (x5 and s7) or (x6 and s8) or (x7 and s5) or (x8 and s6);
五世:=(x8 and s5) or (x7 and s6) or (x6 and s7) or (x5 and s8) or (x4 and s1) or (x3 and s2) or (x2 and s3) or (x1 and s4) or
(x8 and s3) or (x7 and s4) or (x6 and s1) or (x5 and s2) or (x4 and s7) or (x3 and s8) or (x2 and s5) or (x1 and s6);
六世:=(x8 and s7) or (x7 and s8) or (x6 and s5) or (x5 and s6) or (x4 and s3) or (x3 and s4) or (x2 and s1) or (x1 and s2);
DRAWTEXTABS(410,0,IFS(一世,' 世 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,39,IFS(一世,' 应 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,65,IFS(二世,' 世 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,26,IFS(二世,' 应 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,52,IFS(三世,' 世 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,13,IFS(三世,' 应 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,39,IFS(四世,' 世 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,0,IFS(四世,' 应 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,26,IFS(五世,' 世 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,65,IFS(五世,' 应 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,13,IFS(六世,' 世 ','')),LINETHICK0,Color00FFFF;
DRAWTEXTABS(410,52,IFS(六世,' 应 ','')),LINETHICK0,Color00FFFF;DRAWTEXTABS(320,0,IFS(动爻=6 and (乾 or 离 or 巽 or 艮),' ━━━ 0 ','')),Color0000FF;
DRAWTEXTABS(320,13,IFS(动爻=5 and (乾 or 兑 or 巽 or 坎),' ━━━ 0 ','')),Color0000FF;
DRAWTEXTABS(320,26,IFS(动爻=4 and (乾 or 兑 or 离 or 震),' ━━━ 0 ','')),Color0000FF;
DRAWTEXTABS(320,39,IFS(动爻=3 and (乾1 or 离1 or 巽1 or 艮1),' ━━━ 0 ','')),Color0000FF;
DRAWTEXTABS(320,52,IFS(动爻=2 and (乾1 or 兑1 or 巽1 or 坎1),' ━━━ 0 ','')),Color0000FF;
DRAWTEXTABS(320,65,IFS(动爻=1 and (乾1 or 兑1 or 离1 or 震1),' ━━━ 0 ','')),Color0000FF;
DRAWTEXTABS(320,0,IFS(动爻=6 and (坤 or 兑 or 震 or 坎),' ━ ━ X','')),Color0000FF;
DRAWTEXTABS(320,13,IFS(动爻=5 and (坤 or 离 or 震 or 艮),' ━ ━ X ','')),Color0000FF;
DRAWTEXTABS(320,26,IFS(动爻=4 and (坤 or 巽 or 坎 or 艮),' ━ ━ X','')),Color0000FF;
DRAWTEXTABS(320,39,IFS(动爻=3 and (坤1 or 兑1 or 震1 or 坎1),' ━ ━ X ','')),Color0000FF;
DRAWTEXTABS(320,52,IFS(动爻=2 and (坤1 or 离1 or 震1 or 艮1),' ━ ━ X ','')),Color0000FF;
DRAWTEXTABS(320,65,IFS(动爻=1 and (坤1 or 巽1 or 坎1 or 艮1),' ━ ━ X','')),Color0000FF;
----------下面是另外一个公式------------
DRAWTEXTABS(2,2,'金水制做'),LINETHICK1,COLORRED;
{input:p1(1,0,1),p2(1,0,1);{//P1=0，按常规K线开收定阴阳爻，P1=1，按张东生-常秉义方法定阴阳爻；P2=0，按K线顺序排卦，左为初爻，右为上爻，P2=1，按K线逆序排卦}
p1:=1;p2:=1;
{按不同方法定阴阳爻}
aa:=AMOUNT/VOL/100;{//均价}
ai:=if(c=o,aa-ref(aa,1),c-o);{//P1=0，按常规K线开收定阴阳爻}
aj:=if(c=ref(c,1),aa-ref(aa,1),c-ref(c,1));{//P1=1，按张东生-常秉义方法定阴阳爻}
a:=if(p1=0,ai,aj);{//选定6爻，P2=0，按K线顺序排卦，P2=1，按K线逆序排卦}
a1:=if(p2=0,ref(a,5),a);
a2:=if(p2=0,ref(a,4),ref(a,1));
a3:=if(p2=0,ref(a,3),ref(a,2));
a4:=if(p2=0,ref(a,2),ref(a,3));
a5:=if(p2=0,ref(a,1),ref(a,4));
a6:=if(p2=0,a,ref(a,5));
{//上卦}
s1:=a4>0 and a5>0 and a6>0;{上卦乾-阳阳阳}
s11:=if(a4>0 and a5>0 and a6>0,1,0);
s2:=a4>0 and a5>0 and a6<0;{上卦兑-阳阳阴}
s22:=if(a4>0 and a5>0 and a6<0,2,0);
s3:=a4>0 and a5<0 and a6>0;{//上卦离-阳阴阳}
s33:=if(a4>0 and a5<0 and a6>0,3,0);
s4:=a4>0 and a5<0 and a6<0;{//上卦震-阳阴阴}
s44:=if(a4>0 and a5<0 and a6<0,4,0);
s5:=a4<0 and a5>0 and a6>0;{//上卦巽-阴阳阳}
s55:=if(a4<0 and a5>0 and a6>0,5,0);
s6:=a4<0 and a5>0 and a6<0;{//上卦坎-阴阳阴}
s66:=if(a4<0 and a5>0 and a6<0,6,0);
s7:=a4<0 and a5<0 and a6>0;{//上卦艮-阴阴阳}
s77:=if(a4<0 and a5<0 and a6>0,7,0);
s8:=a4<0 and a5<0 and a6<0;{//上卦坤-阴阴阴}
s88:=if(a4<0 and a5<0 and a6<0,8,0);
上卦:(s11+s22+s33+s44+s55+s66+s77+s88),LINETHICK0;
{//下卦}
x1:=a1>0 and a2>0 and a3>0;{//下卦乾-阳阳阳}
x11:=if(a1>0 and a2>0 and a3>0,1,0);
x2:=a1>0 and a2>0 and a3<0;{//下卦兑-阳阳阴}
x22:=if(a1>0 and a2>0 and a3<0,2,0);
x3:=a1>0 and a2<0 and a3>0;{//下卦离-阳阴阳}
x33:=if(a1>0 and a2<0 and a3>0,3,0);
x4:=a1>0 and a2<0 and a3<0;{//下卦震-阳阴阴}
x44:=if(a1>0 and a2<0 and a3<0,4,0);
x5:=a1<0 and a2>0 and a3>0;{//下卦巽-阴阳阳}
x55:=if(a1<0 and a2>0 and a3>0,5,0);
x6:=a1<0 and a2>0 and a3<0;{//下卦坎-阴阳阴}
x66:=if(a1<0 and a2>0 and a3<0,6,0);
x7:=a1<0 and a2<0 and a3>0;{//下卦艮-阴阴阳}
x77:=if(a1<0 and a2<0 and a3>0,7,0);
x8:=a1<0 and a2<0 and a3<0;{下卦坤-阴阴阴}
x88:=if(a1<0 and a2<0 and a3<0,8,0);
下卦:(x11+x22+x33+x44+x55+x66+x77+x88),LINETHICK0;
{动爻}
cc1:=(c-REF(C,1))/REF(C,1)*100;
cc2:=(REF(C,1)-REF(C,2))/REF(C,2)*100;
cc3:=(REF(C,2)-REF(C,3))/REF(C,3)*100;
cc4:=(REF(C,3)-REF(C,4))/REF(C,4)*100;
cc5:=(REF(C,4)-REF(C,5))/REF(C,5)*100;
cc6:=(REF(C,5)-REF(C,6))/REF(C,6)*100;
dd1:=max(abs(cc1),abs(cc2),abs(cc3),abs(cc4),abs(cc5),abs(cc6));{涨跌幅最大日作动爻}
d1:=if(abs(cc1)=dd1,1,0);
d2:=if(abs(cc2)=dd1,2,0);
d3:=if(abs(cc3)=dd1,3,0);
d4:=if(abs(cc4)=dd1,4,0);
d5:=if(abs(cc5)=dd1,5,0);
d6:=if(abs(cc6)=dd1,6,0);
动爻:d1+d2+d3+d4+d5+d6,LINETHICK0;
{//乾宫八卦，红色系}
乾为天:=x3 and s1;{11乾为天-阳阳阳阳阳阳}
DRAWTEXTABS(330,5,IFS(乾为天=1,' 乾为天 乾为天','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(320,20,IFS(乾为天=1,'六神 伏神 本卦 变卦','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(320,35,IFS(乾为天=1,'螣蛇 妻卯 ▅▅▅▅▅ 世 ▅▅ ▅▅ 应','')),LINETHICK0,Color00FFFF;
{//天干地支}
年:LYEAR,Linethick0;月:LMONTH,Linethick0;日:LDAY,Linethick0;
年干:MOD(FRACPART((if(年>2,年+10,年)-3)/10)*100,10),Linethick0;
年支:MOD(FRACPART(年/100)*100+5,12),Linethick0;
月干:MOD(年干*2+月,10),Linethick0;
月支:月,Linethick0;
奇月:=MOD(MONTH,2)=1;
i:=if(奇月,0,6);{奇数月i=0，偶数月i=6}
年份:=FLOOR(FRACPART(年/100)*100);{年后两位}
日干:MOD(4*20+(20/4)+5*年份+(年份/4)+(3*(MONTH+1)/5)+DAY-3,10),Linethick0;
日支:MOD(8*20+(20/4)+5*年份+(年份/4)+(3*(MONTH+1)/5)+DAY+7+i,12),Linethick0;
时支:8,Linethick0;
rr:=(年支+1+月+日);DRAWTEXTABS(130,2,IFS(年干=1,'甲','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=2,'乙','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=3,'丙','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=4,'丁','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=5,'戊','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=6,'已','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=7,'庚','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=8,'辛','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=9,'壬','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(130,2,IFS(年干=10,'癸','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=1,'子','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=2,'丑','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=3,'寅','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=4,'卯','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=5,'辰','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=6,'巳','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=7,'午','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=8,'未','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=9,'申','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=10,'酉','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=11,'戌','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(145,2,IFS(年支=12,'亥','')),LINETHICK2,Color00FFFF;DRAWTEXTABS(180,2,IFS(月干=1,'甲','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=2,'乙','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=3,'丙','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=4,'丁','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=5,'戊','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=6,'已','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=7,'庚','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=8,'辛','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=9,'壬','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(180,2,IFS(月干=10,'癸','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=11,'子','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=12,'丑','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=1,'寅','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=2,'卯','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=3,'辰','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=4,'巳','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=5,'午','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=6,'未','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=7,'申','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=8,'酉','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=9,'戌','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(195,2,IFS(月支=10,'亥','')),LINETHICK2,Color00FFFF;DRAWTEXTABS(230,2,IFS(日干=1,'甲','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=2,'乙','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=3,'丙','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=4,'丁','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=5,'戊','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=6,'已','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=7,'庚','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=8,'辛','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=9,'壬','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(230,2,IFS(日干=10,'癸','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=1,'子','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=2,'丑','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=3,'寅','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=4,'卯','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=5,'辰','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=6,'巳','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=7,'午','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=8,'未','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=9,'申','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=10,'酉','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=11,'戌','')),LINETHICK2,Color00FFFF;
DRAWTEXTABS(245,2,IFS(日支=12,'亥','')),LINETHICK2,Color00FFFF;DRAWTEXTABS(275,2,IFS(日干-日支=0,'(戌亥)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=-10,'(申酉)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=2,'(申酉)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=-8,'(午未)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=4,'(午未)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=-6,'(辰巳)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=6,'(辰巳)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=-4,'(寅卯)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=8,'(寅卯)','')),LINETHICK1,Color00FFFF;
DRAWTEXTABS(275,2,IFS(日干-日支=-2,'(子丑)','')),LINETHICK1,Color00FFFF;DRAWTEXTABS(160,2,'年'),LINETHICK2,COLORRED;
DRAWTEXTABS(210,2,'月'),LINETHICK2,COLORRED;
DRAWTEXTABS(260,2,'日'),LINETHICK2,COLORRED;
DRAWTEXTABS(310,2,'旬空'),LINETHICK2,COLORRED;
 |
