通达信算八字未加密选股指标公式源码

通达信算八字未加密选股指标公式源码

源码正文：

高低开收:=4{XG51};
DRAwrECTREL(0,900,356,1000,RGB(80,80,80)){XG51};
DA:=YEAR AND MONTH AND DAY{XG51};
AAA:=stRCAT(CON2STR(YEAR,0),'年'){XG51};
AAB:=STRCAT(CON2STR(MONTH,0),'月'){XG51};
AA33:=STRCAT(CON2STR(DAY,0),'日'){XG51};
AA4:=STRCAT('【',IF(WEEkdAY=1,'星期一',IF(WEEKDAY=2,'星期二',IF(WEEKDAY=3,'星期三',IF(WEEKDAY=4,'星期四',IF(WEEKDAY=5,'星期五',IF(WEEKDAY=6,'六','日'))))))){XG51};
AA:=STRCAT(STRCAT(STRCAT(AAA,AAB),STRCAT(AA33,AA4)),'】'){XG51};
DRAWTEXT_FIX(DA,0.21,0.97,0,AA),COLORWHITE{XG51};
K1:=MOD(DATETODAY(DATE),10){XG51};
K2:=MOD(DATETODAY(DATE),12){XG51};
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,'丁','')))))))))){XG51};
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,'巳日','')))))))))))){XG51};
距日:=DATETODAY(DATE)+33225-0.375+1,NODRAW{XG51};
流年:=INTPART(DATE/10000),NODRAW{XG51};
流月:=(MOD(INTPART(DATE/100),100)-1)*2,NODRAW{XG51};
积日:=365.242*流年+6.15+15.2226*流月-1.9*SIN(0.262*流月),NODRAW{XG51};
立春:=365.242*流年+6.15+15.2226*2-1.9*SIN(0.262*2),NODRAW{XG51};
年干:MOD(流年-(距日<立春)+6,10)+1,NODRAW{XG51};
年支:MOD(流年-(距日<立春)+12,12)+1,NODRAW{XG51};
月干:MOD(流年*12+MOD(INTPART(DATE/100),100)-(距日<积日)+2,10)+1,NODRAW{XG51};
月支:MOD(流年*12+MOD(INTPART(DATE/100),100)-(距日<积日),12)+1,NODRAW{XG51};
TXT3:=IF(月干=5,'戊',IF(月干=6,'己',IF(月干=7,'庚',IF(月干=8,'辛',IF(月干=9,'壬',IF(月干=10,'癸',IF(月干=1,'甲',IF(月干=2,'乙',IF(月干=3,'丙',IF(月干=4,'丁','')))))))))){XG51};
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,'巳月','')))))))))))){XG51};
TXT5:=IF(年干=5,'戊',IF(年干=6,'己',IF(年干=7,'庚',IF(年干=8,'辛',IF(年干=9,'壬',IF(年干=10,'癸',IF(年干=1,'甲',IF(年干=2,'乙',IF(年干=3,'丙',IF(年干=4,'丁','')))))))))){XG51};
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,'巳年','')))))))))))){XG51};
KK:=MOD(DATETODAY(DATE)-6,60){XG51};
X:=INTPART(KK/10){XG51};
旬空:=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{XG51};
TXT7:=IF(X=0,'戌亥空',IF(X=1,'申酉空',IF(X=2,'午未空',IF(X=3,'辰巳空',IF(X=4,'寅卯空',IF(X=5,'子丑空','')))))){XG51};
BZ:=STRCAT(STRCAT(STRCAT(STRCAT(TXT5,TXT6),', '),STRCAT(STRCAT(STRCAT(TXT3,TXT4),'; '),STRCAT(STRCAT(TXT1,TXT2),', '))),TXT7){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.03,0.97,0,BZ),COLORBLUE{XG51};
JG:=IF(高低开收=1,H,IF(高低开收=2,L,IF(高低开收=3,O,IF(高低开收=4,C,DRAWNULL)))){XG51};
位数上:=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)))))){XG51};
位数下:=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))))){XG51};
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)))){XG51};
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)))){XG51};
上卦:IF(MOD(W1,8)=0,8,MOD(W1,8))COLORRED,NODRAW{XG51};
下卦:IF(MOD(W2,8)=0,8,MOD(W2,8))COLORRED,NODRAW{XG51};
动爻:IF(MOD(W1+W2,6)=0,6,MOD(W1+W2,6)),COLORGREEN,NODRAW{XG51};
{XG51};
DRAWGBK(ISLASTBAR,0,0,0,CON2STR(INTPART(上卦*100+下卦*10+动爻),0),0){XG51};

DRAWRECTREL(357,210,386,880,RGB(50,60,60)){XG51};
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,'朱雀','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.36,0.78,0,TXTA),COLORCYAN;{XG51};
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,'勾陈','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.36,0.67,0,TXTB),COLORmaGENTA;{XG51};
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,'腾蛇','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.36,0.56,0,TXTC),COLORBLUE;{XG51};
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,'白虎','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.36,0.45,0,TXTD),COLORGREEN;{XG51};
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,'玄武','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.36,0.34,0,TXTE),COLORRED;{XG51};
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,'青龙','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.36,0.23,0,TXTF),COLORYELLOW;{XG51};
DRAWRECTREL(388,0,999,990,RGB(50,100,140)){XG51};
DRAWRECTREL(388,0,471,990,RGB(50,50,50)){XG51};
DRAWRECTREL(471,0,529,990,RGB(50,78,250)){XG51};
DRAWRECTREL(587,0,645,990,RGB(250,78,50)){XG51};
DRAWRECTREL(703,0,761,990,RGB(50,78,50)){XG51};
DRAWRECTREL(817,0,867,990,RGB(250,100,140)){XG51};
DRAWRECTREL(916,0,960,990,RGB(50,100,250)){XG51};
{XG51};
DRAWRECTREL(388,90,999,90,RGB(250,250,250)){XG51};
DRAWRECTREL(388,190,999,190,RGB(250,250,250)){XG51};
DRAWRECTREL(388,290,999,290,RGB(250,250,250)){XG51};
DRAWRECTREL(388,390,999,390,RGB(250,250,250)){XG51};
DRAWRECTREL(388,490,999,490,RGB(250,250,250)){XG51};
DRAWRECTREL(388,590,999,590,RGB(250,250,250)){XG51};
DRAWRECTREL(388,690,999,690,RGB(250,250,250)){XG51};
DRAWRECTREL(388,790,999,790,RGB(250,250,250)){XG51};
DRAWRECTREL(388,890,999,890,RGB(250,250,250)){XG51};
AX1:=STRCAT(STRCAT(STRCAT(STRCAT('日 期' ,' 开') ,' 高') ,' 低') ,' 收'){XG51};
DRAWTEXT_FIX(C>0,0.4,0.015,0,AX1),COLORBLUE{XG51};
AA2:=STRCAT(CON2STR(DAY,0),'日'){XG51};
DRAWTEXT_FIX(C>0,0.425,0.91,0,AA2),COLORBLUE{XG51};
BB1:=STRCAT(CON2STR(REF(MONTH,1),0),'月'){XG51};
BB2:=STRCAT(CON2STR(REF(DAY,1),0),'日'){XG51};
BB3:=STRCAT(BB1,BB2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.81,0,BB3),COLORBLUE{XG51};
CC2:=STRCAT(CON2STR(REF(DAY,2),0),'日'){XG51};
CC3:=STRCAT(BB1,CC2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.71,0,CC3),COLORBLUE{XG51};
DD2:=STRCAT(CON2STR(REF(DAY,3),0),'日'){XG51};
DD3:=STRCAT(BB1,DD2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.61,0,DD3),COLORBLUE{XG51};
EE2:=STRCAT(CON2STR(REF(DAY,4),0),'日'){XG51};
EE3:=STRCAT(BB1,EE2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.51,0,EE3),COLORBLUE{XG51};
FF2:=STRCAT(CON2STR(REF(DAY,5),0),'日'){XG51};
FF3:=STRCAT(BB1,FF2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.41,0,FF3),COLORBLUE{XG51};
GG2:=STRCAT(CON2STR(REF(DAY,6),0),'日'){XG51};
GG3:=STRCAT(BB1,GG2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.31,0,GG3),COLORBLUE{XG51};
HH2:=STRCAT(CON2STR(REF(DAY,7),0),'日'){XG51};
HH3:=STRCAT(BB1,HH2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.21,0,HH3),COLORBLUE{XG51};
YY2:=STRCAT(CON2STR(REF(DAY,8),0),'日'){XG51};
YY3:=STRCAT(BB1,YY2){XG51};
DRAWTEXT_FIX(C>0,0.4,0.11,0,YY3),COLORBLUE{XG51};
DRAWTEXT_FIX(C>0,0.4,0.91,0,'今日'),COLORWHITE{XG51};
{XG51};
低价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
低价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)) {XG51};
中价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')),STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
中价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)) {XG51};
高价1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')),CON2STR(C,2)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
高价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)) {XG51};
指数1:=VARCAT(VARCAT(VARCAT(STRCAT(CON2STR(O,2),' '),STRCAT(CON2STR(H,2),' ')), STRCAT(CON2STR(L,2),' ')), CON2STR(C,2)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
指数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)) {XG51};
QQ1:=IF(CONST(H)<10,低价1,IF(CONST(H)<100,中价1,IF(CONST(H)<1000,高价1,指数1))){XG51};
QQ2:=IF(CONST(REF(H,1))<10,低价2,IF(CONST(REF(H,1))<100,中价2,IF(CONST(REF(H,1))<1000,高价2,指数2))){XG51};
QQ3:=IF(CONST(REF(H,2))<10,低价3,IF(CONST(REF(H,2))<100,中价3,IF(CONST(REF(H,2))<1000,高价3,指数3))){XG51};
QQ4:=IF(CONST(REF(H,3))<10,低价4,IF(CONST(REF(H,3))<100,中价4,IF(CONST(REF(H,3))<1000,高价4,指数4))){XG51};
QQ5:=IF(CONST(REF(H,4))<10,低价5,IF(CONST(REF(H,4))<100,中价5,IF(CONST(REF(H,4))<1000,高价5,指数5))){XG51};
QQ6:=IF(CONST(REF(H,5))<10,低价6,IF(CONST(REF(H,5))<100,中价6,IF(CONST(REF(H,5))<1000,高价6,指数6))){XG51};
QQ7:=IF(CONST(REF(H,6))<10,低价7,IF(CONST(REF(H,6))<100,中价7,IF(CONST(REF(H,6))<1000,高价7,指数7))){XG51};
QQ8:=IF(CONST(REF(H,7))<10,低价8,IF(CONST(REF(H,7))<100,中价8,IF(CONST(REF(H,7))<1000,高价8,指数8))){XG51};
QQ9:=IF(CONST(REF(H,8))<10,低价9,IF(CONST(REF(H,8))<100,中价9,IF(CONST(REF(H,8))<1000,高价9,指数9))){XG51};
DRAWTEXT_FIX(C>0,0.478,0.91,0,QQ1){XG51};
DRAWTEXT_FIX(C>0,0.478,0.81,0,QQ2){XG51};
DRAWTEXT_FIX(C>0,0.478,0.71,0,QQ3){XG51};
DRAWTEXT_FIX(C>0,0.478,0.61,0,QQ4){XG51};
DRAWTEXT_FIX(C>0,0.478,0.51,0,QQ5){XG51};
DRAWTEXT_FIX(C>0,0.478,0.41,0,QQ6){XG51};
DRAWTEXT_FIX(C>0,0.478,0.31,0,QQ7){XG51};
DRAWTEXT_FIX(C>0,0.478,0.21,0,QQ8){XG51};
DRAWTEXT_FIX(C>0,0.478,0.11,0,QQ9){XG51};
SGX:=IF(上卦=1,'天',IF(上卦=2,'泽',IF(上卦=3,'火',IF(上卦=4,'雷',IF(上卦=5,'风',IF(上卦=6,'水',IF(上卦=7,'山',IF(上卦=8,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.91,0,SGX),COLOR00FFFF{XG51};
XGX:=IF(下卦=1,'天',IF(下卦=2,'泽',IF(下卦=3,'火',IF(下卦=4,'雷',IF(下卦=5,'风',IF(下卦=6,'水',IF(下卦=7,'山',IF(下卦=8,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.91,0,XGX),COLOR00FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.81,0,SGX1),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.81,0,XGX1),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.71,0,SGX2),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.71,0,XGX2),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.61,0,SGX3),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.61,0,XGX3),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.51,0,SGX4),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.51,0,XGX4),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.41,0,SGX5),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.41,0,XGX5),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.31,0,SGX6),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.31,0,XGX6),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.21,0,SGX7),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.21,0,XGX7),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.11,0,SGX8),COLOR80FFFF{XG51};
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,'地','')))))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.73,0.11,0,XGX8),COLOR80FFFF{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.71,0.01,0,'上下卦爻'),COLORBLUE{XG51};
动爻0:=IF(动爻=1,'初',IF(动爻=2,'二',IF(动爻=3,'三',IF(动爻=4,'四',IF(动爻=5,'五',IF(动爻=6,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.91,0,动爻0),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.81,0,动爻1),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.71,0,动爻2),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.61,0,动爻3),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.51,0,动爻4),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.41,0,动爻5),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.31,0,动爻6),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.21,0,动爻7),COLOR8000FF{XG51};
动爻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,'上','')))))){XG51};
DRAWTEXT_FIX(ISLASTBAR,0.745,0.11,0,动爻8),COLOR8000FF{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.778,0.01,0,'日辰'),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.91,0,STRCAT(TXT1,TXT2)),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.81,0,STRCAT(REF(TXT1,1),REF(TXT2,1))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.71,0,STRCAT(REF(TXT1,2),REF(TXT2,2))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.61,0,STRCAT(REF(TXT1,3),REF(TXT2,3))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.51,0,STRCAT(REF(TXT1,4),REF(TXT2,4))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.41,0,STRCAT(REF(TXT1,5),REF(TXT2,5))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.31,0,STRCAT(REF(TXT1,6),REF(TXT2,6))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.21,0,STRCAT(REF(TXT1,7),REF(TXT2,7))),COLORBLUE{XG51};
DRAWTEXT_FIX(ISLASTBAR,0.77,0.11,0,STRCAT(REF(TXT1,8),REF(TXT2,8))),COLORBLUE{X~G-5!1~C~N~{};

通达信放量突破布林线中轨未加密选股指标公式源码

源码正文：

SHORT:=12;LONG:=26;MID:=9{XG51};
dif:=ema(CLOSE,SHORT)-Ema(CLOSE,LONG){XG51};
DEA:=EMA(DIF,MID){XG51};
vol/REF(VOL,1)>=1.8 AND LONGcrOSS(C,MA(CLOSE,20),3) AND LONGCROSS(DIF,DEA,3){X~G.5?1~C~N~{};