|
?通達(dá)信算八字指標(biāo)公式 高低開收:=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日是戊午日，納甲序數(shù)55，再過6天就是甲子,減掉的數(shù)值越大，前面的盲區(qū)越遠(yuǎn)，如果不想留下盲區(qū)可以不減，只是從K=0開始，第一位就是戊午了} K2:=MOD(DATETODAY(DATE),12);{1990年12月19日是戊午日，納甲序數(shù)55，再過6天就是甲子,減掉的數(shù)值越大，前面的盲區(qū)越遠(yuǎn)，如果不想留下盲區(qū)可以不減，只是從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天數(shù)25567+1 ,通達(dá)信數(shù)據(jù)是從1990.12.19開始，到1900的天數(shù)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; {本指標(biāo)價(jià)格計(jì)算沒有解決大盤指數(shù)末尾為0的情況，還需要細(xì)化修正，并且引用的是即時(shí)行情數(shù)據(jù)而不是成交列表數(shù)值，一定要注意。比如：2017年5月11日收盤3061.50點(diǎn)應(yīng)該是天水訟卻變成天山遁，動(dòng)爻也不對。} JG:=IF(高低開收=1,H,IF(高低開收=2,L,IF(高低開收=3,O,IF(高低開收=4,C,DRAWNULL)))); 位數(shù)上:=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)))))); 位數(shù)下:=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(位數(shù)上>=1000,INTPART(位數(shù)上/1000)+(INTPART(位數(shù)上/100)-INTPART(位數(shù)上/1000)*10)+(INTPART(位數(shù)上/10)-INTPART(位數(shù)上/100)*10)+(位數(shù)上-INTPART(位數(shù)上/10)*10),IF(位數(shù)上>=100 AND 位數(shù)上<1000,INTPART(位數(shù)上/100)+(INTPART(位數(shù)上/10)-INTPART(位數(shù)上/100)*10)+(位數(shù)上-INTPART(位數(shù)上/10)*10),IF(位數(shù)上>=10 AND 位數(shù)上<100,INTPART(位數(shù)上/10)+(位數(shù)上-INTPART(位數(shù)上/10)*10),IF(位數(shù)上<10,位數(shù)上,DRAWNULL)))); W2:=IF(位數(shù)下>=1000,INTPART(位數(shù)下/1000)+(INTPART(位數(shù)下/100)-INTPART(位數(shù)下/1000)*10)+(INTPART(位數(shù)下/10)-INTPART(位數(shù)下/100)*10)+(位數(shù)下-INTPART(位數(shù)下/10)*10),IF(位數(shù)下>=100 AND 位數(shù)下<1000,INTPART(位數(shù)下/100)+(INTPART(位數(shù)下/10)-INTPART(位數(shù)下/100)*10)+(位數(shù)下-INTPART(位數(shù)下/10)*10),IF(位數(shù)下>=10 AND 位數(shù)下<100,INTPART(位數(shù)下/10)+(位數(shù)下-INTPART(位數(shù)下/10)*10),IF(位數(shù)下<10,位數(shù)下,DRAWNULL)))); 上卦:IF(MOD(W1,8)=0,8,MOD(W1,8))COLORWHITE,NODRAW; 下卦:IF(MOD(W2,8)=0,8,MOD(W2,8))COLORWHITE,NODRAW; 動(dòng)爻:IF(MOD(W1+W2,6)=0,6,MOD(W1+W2,6)),COLORCYAN,NODRAW;{指標(biāo)編寫重點(diǎn)在于把前面一位數(shù)乘以10，然后去掉。只有這種起卦方法才與傳統(tǒng)梅花易數(shù)的方法接近。本指標(biāo)適合萬點(diǎn)級別指數(shù)顯示。} {圖片保存的格式必須是：BMP或者PNG，單引號加圖片名稱是一種引用格式，如果是通過內(nèi)部計(jì)算得數(shù)的變量就要把單引號去掉。定點(diǎn)文字也是同樣的邏輯。但是他們的缺點(diǎn)就是只有最后一個(gè)數(shù)據(jù)有效}; DRAWGBK(ISLASTBAR,0,0,0,CON2STR(INTPART(上卦*100+下卦*10+動(dòng)爻),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同時(shí)出現(xiàn)才行}; 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同時(shí)出現(xiàn)才行}; 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同時(shí)出現(xiàn)才行}; 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同時(shí)出現(xiàn)才行}; 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同時(shí)出現(xiàn)才行}; 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同時(shí)出現(xiàn)才行}; {===表格豎線===} DRAWRECTREL(388,0,999,990,RGB(50,100,140));{充當(dāng)“表格底色”} {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; {因?yàn)榇笮?shù)據(jù)平鋪后所占的空間不同，所以區(qū)分為“高中低價(jià)與指數(shù)”4類}; 低價(jià)1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ; 低價(jià)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)) ; 低價(jià)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)) ; 低價(jià)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)) ; 低價(jià)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)) ; 低價(jià)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)) ; 低價(jià)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)) ; 低價(jià)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)) ; 低價(jià)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)) ; 中價(jià)1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')),STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ; 中價(jià)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)) ; 中價(jià)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)) ; 中價(jià)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)) ; 中價(jià)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)) ; 中價(jià)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)) ; 中價(jià)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)) ; 中價(jià)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)) ; 中價(jià)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)) ; 高價(jià)1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) ; 高價(jià)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)) ; 高價(jià)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)) ; 高價(jià)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)) ; 高價(jià)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)) ; 高價(jià)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)) ; 高價(jià)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)) ; 高價(jià)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)) ; 高價(jià)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)) ; 指數(shù)1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')), CON2STR(C,2)) ; 指數(shù)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)) ; 指數(shù)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)) ; 指數(shù)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)) ; 指數(shù)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)) ; 指數(shù)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)) ; 指數(shù)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)) ; 指數(shù)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)) ; 指數(shù)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,低價(jià)1,IF(CONST(H)<100,中價(jià)1,IF(CONST(H)<1000,高價(jià)1,指數(shù)1))); QQ2:=IF(CONST(REF(H,1))<10,低價(jià)2,IF(CONST(REF(H,1))<100,中價(jià)2,IF(CONST(REF(H,1))<1000,高價(jià)2,指數(shù)2))); QQ3:=IF(CONST(REF(H,2))<10,低價(jià)3,IF(CONST(REF(H,2))<100,中價(jià)3,IF(CONST(REF(H,2))<1000,高價(jià)3,指數(shù)3))); QQ4:=IF(CONST(REF(H,3))<10,低價(jià)4,IF(CONST(REF(H,3))<100,中價(jià)4,IF(CONST(REF(H,3))<1000,高價(jià)4,指數(shù)4))); QQ5:=IF(CONST(REF(H,4))<10,低價(jià)5,IF(CONST(REF(H,4))<100,中價(jià)5,IF(CONST(REF(H,4))<1000,高價(jià)5,指數(shù)5))); QQ6:=IF(CONST(REF(H,5))<10,低價(jià)6,IF(CONST(REF(H,5))<100,中價(jià)6,IF(CONST(REF(H,5))<1000,高價(jià)6,指數(shù)6))); QQ7:=IF(CONST(REF(H,6))<10,低價(jià)7,IF(CONST(REF(H,6))<100,中價(jià)7,IF(CONST(REF(H,6))<1000,高價(jià)7,指數(shù)7))); QQ8:=IF(CONST(REF(H,7))<10,低價(jià)8,IF(CONST(REF(H,7))<100,中價(jià)8,IF(CONST(REF(H,7))<1000,高價(jià)8,指數(shù)8))); QQ9:=IF(CONST(REF(H,8))<10,低價(jià)9,IF(CONST(REF(H,8))<100,中價(jià)9,IF(CONST(REF(H,8))<1000,高價(jià)9,指數(shù)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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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,'風(fēng)',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; 動(dòng)爻0:=IF(動(dòng)爻=1,'初',IF(動(dòng)爻=2,'二',IF(動(dòng)爻=3,'三',IF(動(dòng)爻=4,'四',IF(動(dòng)爻=5,'五',IF(動(dòng)爻=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.91,0,動(dòng)爻0),COLOR8000FF; 動(dòng)爻1:=IF(REF(動(dòng)爻,1)=1,'初',IF(REF(動(dòng)爻,1)=2,'二',IF(REF(動(dòng)爻,1)=3,'三',IF(REF(動(dòng)爻,1)=4,'四',IF(REF(動(dòng)爻,1)=5,'五',IF(REF(動(dòng)爻,1)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.81,0,動(dòng)爻1),COLOR8000FF; 動(dòng)爻2:=IF(REF(動(dòng)爻,2)=1,'初',IF(REF(動(dòng)爻,2)=2,'二',IF(REF(動(dòng)爻,2)=3,'三',IF(REF(動(dòng)爻,2)=4,'四',IF(REF(動(dòng)爻,2)=5,'五',IF(REF(動(dòng)爻,2)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.71,0,動(dòng)爻2),COLOR8000FF; 動(dòng)爻3:=IF(REF(動(dòng)爻,3)=1,'初',IF(REF(動(dòng)爻,3)=2,'二',IF(REF(動(dòng)爻,3)=3,'三',IF(REF(動(dòng)爻,3)=4,'四',IF(REF(動(dòng)爻,3)=5,'五',IF(REF(動(dòng)爻,3)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.61,0,動(dòng)爻3),COLOR8000FF; 動(dòng)爻4:=IF(REF(動(dòng)爻,4)=1,'初',IF(REF(動(dòng)爻,4)=2,'二',IF(REF(動(dòng)爻,4)=3,'三',IF(REF(動(dòng)爻,4)=4,'四',IF(REF(動(dòng)爻,4)=5,'五',IF(REF(動(dòng)爻,4)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.51,0,動(dòng)爻4),COLOR8000FF; 動(dòng)爻5:=IF(REF(動(dòng)爻,5)=1,'初',IF(REF(動(dòng)爻,5)=2,'二',IF(REF(動(dòng)爻,5)=3,'三',IF(REF(動(dòng)爻,5)=4,'四',IF(REF(動(dòng)爻,5)=5,'五',IF(REF(動(dòng)爻,5)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.41,0,動(dòng)爻5),COLOR8000FF; 動(dòng)爻6:=IF(REF(動(dòng)爻,6)=1,'初',IF(REF(動(dòng)爻,6)=2,'二',IF(REF(動(dòng)爻,6)=3,'三',IF(REF(動(dòng)爻,6)=4,'四',IF(REF(動(dòng)爻,6)=5,'五',IF(REF(動(dòng)爻,6)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.31,0,動(dòng)爻6),COLOR8000FF; 動(dòng)爻7:=IF(REF(動(dòng)爻,7)=1,'初',IF(REF(動(dòng)爻,7)=2,'二',IF(REF(動(dòng)爻,7)=3,'三',IF(REF(動(dòng)爻,7)=4,'四',IF(REF(動(dòng)爻,7)=5,'五',IF(REF(動(dòng)爻,7)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.21,0,動(dòng)爻7),COLOR8000FF; 動(dòng)爻8:=IF(REF(動(dòng)爻,8)=1,'初',IF(REF(動(dòng)爻,8)=2,'二',IF(REF(動(dòng)爻,8)=3,'三',IF(REF(動(dòng)爻,8)=4,'四',IF(REF(動(dòng)爻,8)=5,'五',IF(REF(動(dòng)爻,8)=6,'上','')))))); DRAWTEXT_FIX(ISLASTBAR,0.745,0.11,0,動(dòng)爻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; |
|
|
