通达信算八字指标公式

高低开收:=4;
DRAwrECTREL(0,900,356,1000,RGB(80,80,80));
DA:=YEAR AND MONTH AND DAY;
AAA:=STRCAT(CON2STR(YEAR,0),'年');
AAB:=STRCAT(CON2STR(MONTH,0),'月');
AA33:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEkdAY=1,'星期一',IF(WEEKDAY=2,'星期二',IF(WEEKDAY=3,'星期三',IF(WEEKDAY=4,'星期四',IF(WEEKDAY=5,'星期五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AAA,AAB),STRCAT(AA33,AA4)),'】');
DRAWTEXT_FIX(DA,0.21,0.97,0,AA),COLORRED;
K1:=MOD(DATETODAY(DATE),10);{1990年12月19日是戊午日，纳甲序数55，再过6天就是甲子,减掉的数值越大，前面的盲区越远，如果不想留下盲区可以不减，只是从K=0开始，第一位就是戊午了}
K2:=MOD(DATETODAY(DATE),12);{1990年12月19日是戊午日，纳甲序数55，再过6天就是甲子,减掉的数值越大，前面的盲区越远，如果不想留下盲区可以不减，只是从K=0开始，第一位就是戊午了}
TXT1:=IF(K1=0,'戊',IF(K1=1,'己',IF(K1=2,'庚',IF(K1=3,'辛',IF(K1=4,'壬',IF(K1=5,'癸',IF(K1=6,'甲',IF(K1=7,'乙',IF(K1=8,'丙',IF(K1=9,'丁',''))))))))));
TXT2:=IF(K2=0,'午日',IF(K2=1,'未日',IF(K2=2,'申日',IF(K2=3,'酉日',IF(K2=4,'戌日',IF(K2=5,'亥日',IF(K2=6,'子日',IF(K2=7,'丑日',IF(K2=8,'寅日',IF(K2=9,'卯日',IF(K2=10,'辰日',IF(K2=11,'巳日',''))))))))))));
{算八字原理:干支从1开始,从1970到1900天数25567+1 ,通达信数据是从1990.12.19开始，到1900的天数33224+1,0.375是收盘修正}
距日:=DATETODAY(DATE)+33225-0.375+1,NODRAW;
流年:=INTPART(DATE/10000),NODRAW;
流月:=(MOD(INTPART(DATE/100),100)-1)*2,NODRAW;
积日:=365.242*流年+6.15+15.2226*流月-1.9*SIN(0.262*流月),NODRAW;
立春:=365.242*流年+6.15+15.2226*2-1.9*SIN(0.262*2),NODRAW;
年干:MOD(流年-(距日<立春)+6,10)+1,NODRAW;
年支:MOD(流年-(距日<立春)+12,12)+1,NODRAW;
月干:MOD(流年*12+MOD(INTPART(DATE/100),100)-(距日<积日)+2,10)+1,NODRAW;
月支:MOD(流年*12+MOD(INTPART(DATE/100),100)-(距日<积日),12)+1,NODRAW;
TXT3:=IF(月干=5,'戊',IF(月干=6,'己',IF(月干=7,'庚',IF(月干=8,'辛',IF(月干=9,'壬',IF(月干=10,'癸',IF(月干=1,'甲',IF(月干=2,'乙',IF(月干=3,'丙',IF(月干=4,'丁',''))))))))));
TXT4:=IF(月支=7,'午月',IF(月支=8,'未月',IF(月支=9,'申月',IF(月支=10,'酉月',IF(月支=11,'戌月',IF(月支=12,'亥月',IF(月支=1,'子月',IF(月支=2,'丑月',IF(月支=3,'寅月',IF(月支=4,'卯月',IF(月支=5,'辰月',IF(月支=6,'巳月',''))))))))))));
TXT5:=IF(年干=5,'戊',IF(年干=6,'己',IF(年干=7,'庚',IF(年干=8,'辛',IF(年干=9,'壬',IF(年干=10,'癸',IF(年干=1,'甲',IF(年干=2,'乙',IF(年干=3,'丙',IF(年干=4,'丁',''))))))))));
TXT6:=IF(年支=7,'午年',IF(年支=8,'未年',IF(年支=9,'申年',IF(年支=10,'酉年',IF(年支=11,'戌年',IF(年支=12,'亥年',IF(年支=1,'子年',IF(年支=2,'丑年',IF(年支=3,'寅年',IF(年支=4,'卯年',IF(年支=5,'辰年',IF(年支=6,'巳年',''))))))))))));
{旬空}
KK:=MOD(DATETODAY(DATE)-6,60);
X:=INTPART(KK/10);
旬空:=IF(X=0,11,IF(X=1,9,IF(X=2,7,IF(X=3,5,IF(X=4,3,IF(X=5,1,DRAWNULL)))))),NODRAW;
TXT7:=IF(X=0,'戌亥空',IF(X=1,'申酉空',IF(X=2,'午未空',IF(X=3,'辰巳空',IF(X=4,'寅卯空',IF(X=5,'子丑空',''))))));
BZ:=STRCAT(STRCAT(STRCAT(STRCAT(TXT5,TXT6),', '),STRCAT(STRCAT(STRCAT(TXT3,TXT4),'; '),STRCAT(STRCAT(TXT1,TXT2),', '))),TXT7);
DRAWTEXT_FIX(ISLASTBAR,0.03,0.97,0,BZ),COLORYELLOW;
{本指标价格计算没有解决大盘指数末尾为0的情况，还需要细化修正，并且引用的是即时行情数据而不是成交列表数值，一定要注意。比如：2017年5月11日收盘3061.50点应该是天水讼却变成天山遁，动爻也不对。}
JG:=IF(高低开收=1,H,IF(高低开收=2,L,IF(高低开收=3,O,IF(高低开收=4,C,DRAWNULL))));
位数上:=IF(JG>=10000,INTPART(JG/100),IF(JG>=1000 AND JG<10000,INTPART(JG/10),IF(JG>=100 AND JG<1000,INTPART(JG/10),IF(JG>=10 AND JG<100,INTPART(JG),IF(JG>=10 AND JG<100,INTPART(JG),IF(JG<10,INTPART(JG),DRAWNULL))))));
位数下:=IF(JG>=10000,FRACPART(JG/100)*10000,IF(JG>=1000 AND JG<10000,FRACPART(JG/10)*1000,IF(JG>=100 AND JG<1000,FRACPART(JG/10)*1000,IF(JG>=10 AND JG<100,FRACPART(JG)*100,IF(JG<10,FRACPART(JG)*100,DRAWNULL)))));
W1:=IF(位数上>=1000,INTPART(位数上/1000)+(INTPART(位数上/100)-INTPART(位数上/1000)*10)+(INTPART(位数上/10)-INTPART(位数上/100)*10)+(位数上-INTPART(位数上/10)*10),IF(位数上>=100 AND 位数上<1000,INTPART(位数上/100)+(INTPART(位数上/10)-INTPART(位数上/100)*10)+(位数上-INTPART(位数上/10)*10),IF(位数上>=10 AND 位数上<100,INTPART(位数上/10)+(位数上-INTPART(位数上/10)*10),IF(位数上<10,位数上,DRAWNULL))));
W2:=IF(位数下>=1000,INTPART(位数下/1000)+(INTPART(位数下/100)-INTPART(位数下/1000)*10)+(INTPART(位数下/10)-INTPART(位数下/100)*10)+(位数下-INTPART(位数下/10)*10),IF(位数下>=100 AND 位数下<1000,INTPART(位数下/100)+(INTPART(位数下/10)-INTPART(位数下/100)*10)+(位数下-INTPART(位数下/10)*10),IF(位数下>=10 AND 位数下<100,INTPART(位数下/10)+(位数下-INTPART(位数下/10)*10),IF(位数下<10,位数下,DRAWNULL))));
上卦:IF(MOD(W1,8)=0,8,MOD(W1,8))COLORWHITE,NODRAW;
下卦:IF(MOD(W2,8)=0,8,MOD(W2,8))COLORWHITE,NODRAW;
动爻:IF(MOD(W1+W2,6)=0,6,MOD(W1+W2,6)),COLORCYAN,NODRAW;{指标编写重点在于把前面一位数乘以10，然后去掉。只有这种起卦方法才与传统梅花易数的方法接近。本指标适合万点级别指数显示。}
{图片保存的格式必须是：BMP或者PNG，单引号加图片名称是一种引用格式，如果是通过内部计算得数的变量就要把单引号去掉。定点文字也是同样的逻辑。但是他们的缺点就是只有最后一个数据有效};
DRAWGBK(ISLASTBAR,0,0,0,CON2STR(INTPART(上卦*100+下卦*10+动爻),0),0);
{六神：青龙、白虎、朱雀、玄武、勾陈、腾蛇}
{DRAWTEXT_FIX(K1=0,0.39,0.90,0,'勾陈'),COLORYELLOW;}
DRAWRECTREL(357,210,386,880,RGB(50,60,60));
TXTA:=IF(K1=0,'勾陈',IF(K1=1,'腾蛇',IF(K1=2 OR K1=3,'白虎',IF(K1=4 OR K1=5,'玄武',IF(K1=6 OR K1=7,'青龙',IF(K1=8 OR K1=9,'朱雀',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.78,0,TXTA),COLORGREEN;{必须与TXTA同时出现才行};
TXTB:=IF(K1=0,'腾蛇',IF(K1=1,'白虎',IF(K1=2 OR K1=3,'玄武',IF(K1=4 OR K1=5,'青龙',IF(K1=6 OR K1=7,'朱雀',IF(K1=8 OR K1=9,'勾陈',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.67,0,TXTB),COLORMAGENTA;{必须与TXTB同时出现才行};
TXTC:=IF(K1=0,'白虎',IF(K1=1,'玄武',IF(K1=2 OR K1=3,'青龙',IF(K1=4 OR K1=5,'朱雀',IF(K1=6 OR K1=7,'勾陈',IF(K1=8 OR K1=9,'腾蛇',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.56,0,TXTC),COLORYELLOW;{必须与TXTC同时出现才行};
TXTD:=IF(K1=0,'玄武',IF(K1=1,'青龙',IF(K1=2 OR K1=3,'朱雀',IF(K1=4 OR K1=5,'勾陈',IF(K1=6 OR K1=7,'腾蛇',IF(K1=8 OR K1=9,'白虎',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.45,0,TXTD),COLORCYAN;{必须与TXTD同时出现才行};
TXTE:=IF(K1=0,'青龙',IF(K1=1,'朱雀',IF(K1=2 OR K1=3,'勾陈',IF(K1=4 OR K1=5,'腾蛇',IF(K1=6 OR K1=7,'白虎',IF(K1=8 OR K1=9,'玄武',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.34,0,TXTE),COLORWHITE;{必须与TXTE同时出现才行};
TXTF:=IF(K1=0,'朱雀',IF(K1=1,'勾陈',IF(K1=2 OR K1=3,'腾蛇',IF(K1=4 OR K1=5,'白虎',IF(K1=6 OR K1=7,'玄武',IF(K1=8 OR K1=9,'青龙',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.36,0.23,0,TXTF),COLORBLUE;{必须与TXTF同时出现才行};
{===表格竖线===}
DRAWRECTREL(388,0,999,990,RGB(50,100,140));{充当“表格底色”}
{DRAWRECTREL(73,0,131,990,RGB(50,50,50));
DRAWRECTREL(189,0,247,990,RGB(50,50,50));
DRAWRECTREL(305,0,388,990,RGB(50,50,50));}
DRAWRECTREL(388,0,471,990,RGB(50,50,50));
DRAWRECTREL(471,0,529,990,RGB(50,78,250));
DRAWRECTREL(587,0,645,990,RGB(250,78,50));
DRAWRECTREL(703,0,761,990,RGB(50,78,50));
DRAWRECTREL(817,0,867,990,RGB(250,100,140));
DRAWRECTREL(916,0,960,990,RGB(50,100,250));
{==表格横线==};
DRAWRECTREL(388,90,999,90,RGB(250,250,250));
DRAWRECTREL(388,190,999,190,RGB(250,250,250));
DRAWRECTREL(388,290,999,290,RGB(250,250,250));
DRAWRECTREL(388,390,999,390,RGB(250,250,250));
DRAWRECTREL(388,490,999,490,RGB(250,250,250));
DRAWRECTREL(388,590,999,590,RGB(250,250,250));
DRAWRECTREL(388,690,999,690,RGB(250,250,250));
DRAWRECTREL(388,790,999,790,RGB(250,250,250));
DRAWRECTREL(388,890,999,890,RGB(250,250,250));
AX1:=STRCAT(STRCAT(STRCAT(STRCAT('日 期' ,' 开') ,' 高') ,' 低') ,' 收');
DRAWTEXT_FIX(C>0,0.4,0.015,0,AX1),COLORYELLOW;
{AX2:=STRCAT(STRCAT('摇头 ',' 摆尾'),' 翻身');
DRAWTEXT_FIX(C>0,0.765,0.015,0,AX2),COLORWHITE;
AX3:=STRCAT(STRCAT('小差',' 中差'),' 大差');
DRAWTEXT_FIX(C>0,0.885,0.015,0,AX3),COLORRED;
{====}
AA2:=STRCAT(CON2STR(DAY,0),'日');
DRAWTEXT_FIX(C>0,0.425,0.91,0,AA2),COLORYELLOW;
BB1:=STRCAT(CON2STR(REF(MONTH,1),0),'月');
BB2:=STRCAT(CON2STR(REF(DAY,1),0),'日');
BB3:=STRCAT(BB1,BB2);
DRAWTEXT_FIX(C>0,0.4,0.81,0,BB3),COLORYELLOW;
CC2:=STRCAT(CON2STR(REF(DAY,2),0),'日');
CC3:=STRCAT(BB1,CC2);
DRAWTEXT_FIX(C>0,0.4,0.71,0,CC3),COLORYELLOW;
DD2:=STRCAT(CON2STR(REF(DAY,3),0),'日');
DD3:=STRCAT(BB1,DD2);
DRAWTEXT_FIX(C>0,0.4,0.61,0,DD3),COLORYELLOW;
EE2:=STRCAT(CON2STR(REF(DAY,4),0),'日');
EE3:=STRCAT(BB1,EE2);
DRAWTEXT_FIX(C>0,0.4,0.51,0,EE3),COLORYELLOW;
FF2:=STRCAT(CON2STR(REF(DAY,5),0),'日');
FF3:=STRCAT(BB1,FF2);
DRAWTEXT_FIX(C>0,0.4,0.41,0,FF3),COLORYELLOW;
GG2:=STRCAT(CON2STR(REF(DAY,6),0),'日');
GG3:=STRCAT(BB1,GG2);
DRAWTEXT_FIX(C>0,0.4,0.31,0,GG3),COLORYELLOW;
HH2:=STRCAT(CON2STR(REF(DAY,7),0),'日');
HH3:=STRCAT(BB1,HH2);
DRAWTEXT_FIX(C>0,0.4,0.21,0,HH3),COLORYELLOW;
YY2:=STRCAT(CON2STR(REF(DAY,8),0),'日');
YY3:=STRCAT(BB1,YY2);
DRAWTEXT_FIX(C>0,0.4,0.11,0,YY3),COLORYELLOW;
DRAWTEXT_FIX(C>0,0.4,0.91,0,'今日'),COLORRED;
{因为大小数据平铺后所占的空间不同，所以区分为“高中低价与指数”4类};
低价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
低价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
低价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
低价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
低价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
低价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
低价7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
低价8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
低价9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
中价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')),STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
中价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
中价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
中价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
中价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
中价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
中价7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
中价8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
中价9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
高价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ;
高价2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
高价3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
高价4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
高价5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
高价6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
高价7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
高价8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
高价9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
指数1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')), CON2STR(C,2)) ;
指数2:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,1),2),' '),STRCAT(CON2STR(REF(H,1),2),' ')),STRCAT(CON2STR(REF(L,1),2),' ')),CON2STR(REF(C,1),2)) ;
指数3:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,2),2),' '),STRCAT(CON2STR(REF(H,2),2),' ')),STRCAT(CON2STR(REF(L,2),2),' ')),CON2STR(REF(C,2),2)) ;
指数4:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,3),2),' '),STRCAT(CON2STR(REF(H,3),2),' ')),STRCAT(CON2STR(REF(L,3),2),' ')),CON2STR(REF(C,3),2)) ;
指数5:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,4),2),' '),STRCAT(CON2STR(REF(H,4),2),' ')),STRCAT(CON2STR(REF(L,4),2),' ')),CON2STR(REF(C,4),2)) ;
指数6:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,5),2),' '),STRCAT(CON2STR(REF(H,5),2),' ')),STRCAT(CON2STR(REF(L,5),2),' ')),CON2STR(REF(C,5),2)) ;
指数7:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,6),2),' '),STRCAT(CON2STR(REF(H,6),2),' ')),STRCAT(CON2STR(REF(L,6),2),' ')),CON2STR(REF(C,6),2)) ;
指数8:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,7),2),' '),STRCAT(CON2STR(REF(H,7),2),' ')),STRCAT(CON2STR(REF(L,7),2),' ')),CON2STR(REF(C,7),2)) ;
指数9:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(REF(O,8),2),' '),STRCAT(CON2STR(REF(H,8),2),' ')),STRCAT(CON2STR(REF(L,8),2),' ')),CON2STR(REF(C,8),2)) ;
QQ1:=IF(CONST(H)<10,低价1,IF(CONST(H)<100,中价1,IF(CONST(H)<1000,高价1,指数1)));
QQ2:=IF(CONST(REF(H,1))<10,低价2,IF(CONST(REF(H,1))<100,中价2,IF(CONST(REF(H,1))<1000,高价2,指数2)));
QQ3:=IF(CONST(REF(H,2))<10,低价3,IF(CONST(REF(H,2))<100,中价3,IF(CONST(REF(H,2))<1000,高价3,指数3)));
QQ4:=IF(CONST(REF(H,3))<10,低价4,IF(CONST(REF(H,3))<100,中价4,IF(CONST(REF(H,3))<1000,高价4,指数4)));
QQ5:=IF(CONST(REF(H,4))<10,低价5,IF(CONST(REF(H,4))<100,中价5,IF(CONST(REF(H,4))<1000,高价5,指数5)));
QQ6:=IF(CONST(REF(H,5))<10,低价6,IF(CONST(REF(H,5))<100,中价6,IF(CONST(REF(H,5))<1000,高价6,指数6)));
QQ7:=IF(CONST(REF(H,6))<10,低价7,IF(CONST(REF(H,6))<100,中价7,IF(CONST(REF(H,6))<1000,高价7,指数7)));
QQ8:=IF(CONST(REF(H,7))<10,低价8,IF(CONST(REF(H,7))<100,中价8,IF(CONST(REF(H,7))<1000,高价8,指数8)));
QQ9:=IF(CONST(REF(H,8))<10,低价9,IF(CONST(REF(H,8))<100,中价9,IF(CONST(REF(H,8))<1000,高价9,指数9)));
DRAWTEXT_FIX(C>0,0.478,0.91,0,QQ1);
DRAWTEXT_FIX(C>0,0.478,0.81,0,QQ2);
DRAWTEXT_FIX(C>0,0.478,0.71,0,QQ3);
DRAWTEXT_FIX(C>0,0.478,0.61,0,QQ4);
DRAWTEXT_FIX(C>0,0.478,0.51,0,QQ5);
DRAWTEXT_FIX(C>0,0.478,0.41,0,QQ6);
DRAWTEXT_FIX(C>0,0.478,0.31,0,QQ7);
DRAWTEXT_FIX(C>0,0.478,0.21,0,QQ8);
DRAWTEXT_FIX(C>0,0.478,0.11,0,QQ9);
SGX:=IF(上卦=1,'天',IF(上卦=2,'泽',IF(上卦=3,'火',IF(上卦=4,'雷',IF(上卦=5,'风',IF(上卦=6,'水',IF(上卦=7,'山',IF(上卦=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.91,0,SGX),COLOR00FFFF;
XGX:=IF(下卦=1,'天',IF(下卦=2,'泽',IF(下卦=3,'火',IF(下卦=4,'雷',IF(下卦=5,'风',IF(下卦=6,'水',IF(下卦=7,'山',IF(下卦=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.91,0,XGX),COLOR00FFFF;
SGX1:=IF(REF(上卦,1)=1,'天',IF(REF(上卦,1)=2,'泽',IF(REF(上卦,1)=3,'火',IF(REF(上卦,1)=4,'雷',IF(REF(上卦,1)=5,'风',IF(REF(上卦,1)=6,'水',IF(REF(上卦,1)=7,'山',IF(REF(上卦,1)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.81,0,SGX1),COLOR80FFFF;
XGX1:=IF(REF(下卦,1)=1,'天',IF(REF(下卦,1)=2,'泽',IF(REF(下卦,1)=3,'火',IF(REF(下卦,1)=4,'雷',IF(REF(下卦,1)=5,'风',IF(REF(下卦,1)=6,'水',IF(REF(下卦,1)=7,'山',IF(REF(下卦,1)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.81,0,XGX1),COLOR80FFFF;
SGX2:=IF(REF(上卦,2)=1,'天',IF(REF(上卦,2)=2,'泽',IF(REF(上卦,2)=3,'火',IF(REF(上卦,2)=4,'雷',IF(REF(上卦,2)=5,'风',IF(REF(上卦,2)=6,'水',IF(REF(上卦,2)=7,'山',IF(REF(上卦,2)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.71,0,SGX2),COLOR80FFFF;
XGX2:=IF(REF(下卦,2)=1,'天',IF(REF(下卦,2)=2,'泽',IF(REF(下卦,2)=3,'火',IF(REF(下卦,2)=4,'雷',IF(REF(下卦,2)=5,'风',IF(REF(下卦,2)=6,'水',IF(REF(下卦,2)=7,'山',IF(REF(下卦,2)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.71,0,XGX2),COLOR80FFFF;
SGX3:=IF(REF(上卦,3)=1,'天',IF(REF(上卦,3)=2,'泽',IF(REF(上卦,3)=3,'火',IF(REF(上卦,3)=4,'雷',IF(REF(上卦,3)=5,'风',IF(REF(上卦,3)=6,'水',IF(REF(上卦,3)=7,'山',IF(REF(上卦,3)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.61,0,SGX3),COLOR80FFFF;
XGX3:=IF(REF(下卦,3)=1,'天',IF(REF(下卦,3)=2,'泽',IF(REF(下卦,3)=3,'火',IF(REF(下卦,3)=4,'雷',IF(REF(下卦,3)=5,'风',IF(REF(下卦,3)=6,'水',IF(REF(下卦,3)=7,'山',IF(REF(下卦,3)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.61,0,XGX3),COLOR80FFFF;
SGX4:=IF(REF(上卦,4)=1,'天',IF(REF(上卦,4)=2,'泽',IF(REF(上卦,4)=3,'火',IF(REF(上卦,4)=4,'雷',IF(REF(上卦,4)=5,'风',IF(REF(上卦,4)=6,'水',IF(REF(上卦,4)=7,'山',IF(REF(上卦,4)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.51,0,SGX4),COLOR80FFFF;
XGX4:=IF(REF(下卦,4)=1,'天',IF(REF(下卦,4)=2,'泽',IF(REF(下卦,4)=3,'火',IF(REF(下卦,4)=4,'雷',IF(REF(下卦,4)=5,'风',IF(REF(下卦,4)=6,'水',IF(REF(下卦,4)=7,'山',IF(REF(下卦,4)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.51,0,XGX4),COLOR80FFFF;
SGX5:=IF(REF(上卦,5)=1,'天',IF(REF(上卦,5)=2,'泽',IF(REF(上卦,5)=3,'火',IF(REF(上卦,5)=4,'雷',IF(REF(上卦,5)=5,'风',IF(REF(上卦,5)=6,'水',IF(REF(上卦,5)=7,'山',IF(REF(上卦,5)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.41,0,SGX5),COLOR80FFFF;
XGX5:=IF(REF(下卦,5)=1,'天',IF(REF(下卦,5)=2,'泽',IF(REF(下卦,5)=3,'火',IF(REF(下卦,5)=4,'雷',IF(REF(下卦,5)=5,'风',IF(REF(下卦,5)=6,'水',IF(REF(下卦,5)=7,'山',IF(REF(下卦,5)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.41,0,XGX5),COLOR80FFFF;
SGX6:=IF(REF(上卦,6)=1,'天',IF(REF(上卦,6)=2,'泽',IF(REF(上卦,6)=3,'火',IF(REF(上卦,6)=4,'雷',IF(REF(上卦,6)=5,'风',IF(REF(上卦,6)=6,'水',IF(REF(上卦,6)=7,'山',IF(REF(上卦,6)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.31,0,SGX6),COLOR80FFFF;
XGX6:=IF(REF(下卦,6)=1,'天',IF(REF(下卦,6)=2,'泽',IF(REF(下卦,6)=3,'火',IF(REF(下卦,6)=4,'雷',IF(REF(下卦,6)=5,'风',IF(REF(下卦,6)=6,'水',IF(REF(下卦,6)=7,'山',IF(REF(下卦,6)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.31,0,XGX6),COLOR80FFFF;
SGX7:=IF(REF(上卦,7)=1,'天',IF(REF(上卦,7)=2,'泽',IF(REF(上卦,7)=3,'火',IF(REF(上卦,7)=4,'雷',IF(REF(上卦,7)=5,'风',IF(REF(上卦,7)=6,'水',IF(REF(上卦,7)=7,'山',IF(REF(上卦,7)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.21,0,SGX7),COLOR80FFFF;
XGX7:=IF(REF(下卦,7)=1,'天',IF(REF(下卦,7)=2,'泽',IF(REF(下卦,7)=3,'火',IF(REF(下卦,7)=4,'雷',IF(REF(下卦,7)=5,'风',IF(REF(下卦,7)=6,'水',IF(REF(下卦,7)=7,'山',IF(REF(下卦,7)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.21,0,XGX7),COLOR80FFFF;
SGX8:=IF(REF(上卦,8)=1,'天',IF(REF(上卦,8)=2,'泽',IF(REF(上卦,8)=3,'火',IF(REF(上卦,8)=4,'雷',IF(REF(上卦,8)=5,'风',IF(REF(上卦,8)=6,'水',IF(REF(上卦,8)=7,'山',IF(REF(上卦,8)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.71,0.11,0,SGX8),COLOR80FFFF;
XGX8:=IF(REF(下卦,8)=1,'天',IF(REF(下卦,8)=2,'泽',IF(REF(下卦,8)=3,'火',IF(REF(下卦,8)=4,'雷',IF(REF(下卦,8)=5,'风',IF(REF(下卦,8)=6,'水',IF(REF(下卦,8)=7,'山',IF(REF(下卦,8)=8,'地',''))))))));
DRAWTEXT_FIX(ISLASTBAR,0.73,0.11,0,XGX8),COLOR80FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.71,0.01,0,'上下卦爻'),COLORYELLOW;
动爻0:=IF(动爻=1,'初',IF(动爻=2,'二',IF(动爻=3,'三',IF(动爻=4,'四',IF(动爻=5,'五',IF(动爻=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.91,0,动爻0),COLOR8000FF;
动爻1:=IF(REF(动爻,1)=1,'初',IF(REF(动爻,1)=2,'二',IF(REF(动爻,1)=3,'三',IF(REF(动爻,1)=4,'四',IF(REF(动爻,1)=5,'五',IF(REF(动爻,1)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.81,0,动爻1),COLOR8000FF;
动爻2:=IF(REF(动爻,2)=1,'初',IF(REF(动爻,2)=2,'二',IF(REF(动爻,2)=3,'三',IF(REF(动爻,2)=4,'四',IF(REF(动爻,2)=5,'五',IF(REF(动爻,2)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.71,0,动爻2),COLOR8000FF;
动爻3:=IF(REF(动爻,3)=1,'初',IF(REF(动爻,3)=2,'二',IF(REF(动爻,3)=3,'三',IF(REF(动爻,3)=4,'四',IF(REF(动爻,3)=5,'五',IF(REF(动爻,3)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.61,0,动爻3),COLOR8000FF;
动爻4:=IF(REF(动爻,4)=1,'初',IF(REF(动爻,4)=2,'二',IF(REF(动爻,4)=3,'三',IF(REF(动爻,4)=4,'四',IF(REF(动爻,4)=5,'五',IF(REF(动爻,4)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.51,0,动爻4),COLOR8000FF;
动爻5:=IF(REF(动爻,5)=1,'初',IF(REF(动爻,5)=2,'二',IF(REF(动爻,5)=3,'三',IF(REF(动爻,5)=4,'四',IF(REF(动爻,5)=5,'五',IF(REF(动爻,5)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.41,0,动爻5),COLOR8000FF;
动爻6:=IF(REF(动爻,6)=1,'初',IF(REF(动爻,6)=2,'二',IF(REF(动爻,6)=3,'三',IF(REF(动爻,6)=4,'四',IF(REF(动爻,6)=5,'五',IF(REF(动爻,6)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.31,0,动爻6),COLOR8000FF;
动爻7:=IF(REF(动爻,7)=1,'初',IF(REF(动爻,7)=2,'二',IF(REF(动爻,7)=3,'三',IF(REF(动爻,7)=4,'四',IF(REF(动爻,7)=5,'五',IF(REF(动爻,7)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.21,0,动爻7),COLOR8000FF;
动爻8:=IF(REF(动爻,8)=1,'初',IF(REF(动爻,8)=2,'二',IF(REF(动爻,8)=3,'三',IF(REF(动爻,8)=4,'四',IF(REF(动爻,8)=5,'五',IF(REF(动爻,8)=6,'上',''))))));
DRAWTEXT_FIX(ISLASTBAR,0.745,0.11,0,动爻8),COLOR8000FF;
DRAWTEXT_FIX(ISLASTBAR,0.778,0.01,0,'日辰'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.91,0,STRCAT(TXT1,TXT2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.81,0,STRCAT(REF(TXT1,1),REF(TXT2,1))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.71,0,STRCAT(REF(TXT1,2),REF(TXT2,2))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.61,0,STRCAT(REF(TXT1,3),REF(TXT2,3))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.51,0,STRCAT(REF(TXT1,4),REF(TXT2,4))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.41,0,STRCAT(REF(TXT1,5),REF(TXT2,5))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.31,0,STRCAT(REF(TXT1,6),REF(TXT2,6))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.21,0,STRCAT(REF(TXT1,7),REF(TXT2,7))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.77,0.11,0,STRCAT(REF(TXT1,8),REF(TXT2,8))),COLORYELLOW;