通达信九转趋势主图选股指标公式源码

通达信九转趋势主图选股指标公式源码

源码正文：

Z1:=stRCAT(HYBLOCK,' '){XG51};
Z2:=STRCAT(Z1,DYBLOCK){XG51};
Z3:=STRCAT(Z2,' '){XG51};
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORWHITE{XG51};
ZK1:(xma(Xma(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORYELLOW{XG51};
ZD1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK3,COLORWHITE{XG51};
ZD2:ema(ZD1,25),LINETHICK3,COLORCYAN{XG51};
DRAWBAND(ZD1,RGB(55,0,0),ZD2,RGB(0,91,0)){XG51};
DRAWKLINE(H,O,L,C){XG51};
STICKLINE(ZD1>LOW AND ZD1<HIGH,ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORBLUE{XG51};
STICKLINE(ZD1>MIN(C,O) AND ZD1<MAX(C,O),ZD1,MIN(OPEN,CLOSE),2,0),COLORBLUE{XG51};
STICKLINE(ZD1>HIGH,OPEN,CLOSE,2,0),COLORBLUE{XG51};
STICKLINE(ZD1>HIGH,HIGH,LOW,0,0),COLORBLUE{XG51};
VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(Abs((C-REF(C,1))),6),6){XG51};
回调买:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND crOSS(VAR23,MA(VAR23,2)){XG51};
XG:=ZD1>HIGH AND 回调买 AND L<=ZD1{XG51};
DRAWTEXT(XG,L,'▲买入'),COLORWHITE{XG51};
JJ:=(HIGH+LOW+CLOSE)/3{XG51};
QJ0:=vol/IF(HIGH=LOW,4,HIGH-LOW){XG51};
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))){XG51};
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN)))){XG51};
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))){XG51};
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ))){XG51};
ddx:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK{XG51};
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1){XG51};
V5:=SMA(V2*120/FROMOPEN*5,2,1){XG51};
V10:=SMA(V5,5,1){XG51};
V20:=SMA(V10,5,1){XG51};
DY:=CURRBARSCOUNT=1 AND C<REF(C,1){XG51};
DY2:=REF(V2,1)-DY{XG51};
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<ZK1{XG51};
DRAWTEXT(XG2 AND L<ZD1,L,'↖黑马暴涨'),COLORWHITE{XG51};
高1:=REF(HHV(3,80),3){XG51};
低1:=REF(LLV(L,3),3){XG51};
H1:=高1-(高1-低1)*0.191{XG51};
H2:=高1-(高1-低1)*0.382{XG51};
H3:=高1-(高1-低1)*0.5{XG51};
H4:=高1-(高1-低1)*0.618{XG51};
H5:=高1-(高1-低1)*0.809{XG51};
高:REFDATE(高1,DATE){XG51};
低:REFDATE(低1,DATE){XG51};
一:REFDATE(H1,DATE){XG51};
二:REFDATE(H2,DATE){XG51};
三:REFDATE(H3,DATE){XG51};
四:REFDATE(H4,DATE),COLORWHITE{XG51};
五:REFDATE(H5,DATE){XG51};
日:=150;昨前:=3{XG51};
Z高1:=REF(HHV(H,日),昨前){XG51};
Z低1:=REF(LLV(L,日),昨前){XG51};
ZH1:=Z高1-(Z高1-Z低1)*0.191{XG51};
ZH2:=Z高1-(Z高1-Z低1)*0.382{XG51};
ZH3:=Z高1-(Z高1-Z低1)*0.5{XG51};
ZH4:=Z高1-(Z高1-Z低1)*0.618{XG51};
ZH5:=Z高1-(Z高1-Z低1)*0.809{XG51};
顶:REFDATE(Z高1,DATE),DOTLINE,COLORWHITE{XG51};
Z一:REFDATE(ZH1,DATE),DOTLINE,COLORBLUE{XG51};
Z二:REFDATE(ZH2,DATE),DOTLINE,COLORLIMAGENTA{XG51};
Z三:REFDATE(ZH3,DATE),DOTLINE,COLORRED{XG51};
Z四:REFDATE(ZH4,DATE),DOTLINE,COLORCYAN{XG51};
Z五:REFDATE(ZH5,DATE),DOTLINE,COLORBLUE{XG51};
Z低:REFDATE(Z低1,DATE),DOTLINE,COLORWHITE{XG51};
VAR1P:=zig(3,13){XG51};
STICKLINE((REF(VAR1P,2) < REF(VAR1P,1)) AND (VAR1P < REF(VAR1P,1)),CLOSE,OPEN,5,0),COLORYELLOW{XG51};
DRAWICON(CROSS(REF(ZIG(3,12),1),ZIG(3,12)),HIGH*1.02,15){XG51};
DRAWTEXT(CROSS(REF(ZIG(3,12),1),ZIG(3,12)),LOW-0.05,'绝对清'),COLOR00FF00{XG51};
STICKLINE((REF(VAR1P,2) > REF(VAR1P,1)) AND (VAR1P >REF(VAR1P,1)),CLOSE,OPEN,5,0),COLORWHITE{XG51};
A1:=C>=REF(C,4){XG51};
A:=C<REF(C,4){XG51};
AA:=C<REF(C,4) AND REF(A1,1){XG51};
T:=BArslAST(AA)NODRAW{XG51};
M:=(T=0 AND REFX(T=1 AND NOT(A),1)) OR (REFX(T=2 AND NOT(A),2)) OR (REFX(T=3 AND NOT(A),3)) OR (REFX(T=4 AND NOT(A),4)) OR (REFX(T=5 AND NOT(A),5))
OR (REFX(T=6 AND NOT(A),6)) OR (REFX(T=7 AND NOT(A),7)) OR (REFX(T=8 AND NOT(A),8)){XG51};
M1:=T=1 AND REFX(T=2 AND NOT(A),1) OR (REFX(T=3 AND NOT(A),2)) OR (REFX(T=4 AND NOT(A),3)) OR (REFX(T=5 AND NOT(A),4)) OR (REFX(T=6 AND NOT(A),5))
OR (REFX(T=7 AND NOT(A),6)) OR (REFX(T=8 AND NOT(A),7)){XG51};
M2:=T=2 AND REFX(T=3 AND NOT(A),1) OR (REFX(T=4 AND NOT(A),2)) OR (REFX(T=5 AND NOT(A),3)) OR (REFX(T=6 AND NOT(A),4)) OR (REFX(T=7 AND NOT(A),5)) OR (REFX(T=8 AND NOT(A),6)){XG51};
M3:=T=3 AND REFX(T=4 AND NOT(A),1)OR (REFX(T=5 AND NOT(A),2)) OR (REFX(T=6 AND NOT(A),3)) OR (REFX(T=7 AND NOT(A),4)) OR (REFX(T=8 AND NOT(A),5)){XG51};
M4:=T=4 AND REFX(T=5 AND NOT(A),1) OR (REFX(T=6 AND NOT(A),2)) OR (REFX(T=7 AND NOT(A),3)) OR (REFX(T=8 AND NOT(A),4)){XG51};
M5:=T=5 AND REFX(T=6 AND NOT(A),1) OR (REFX(T=7 AND NOT(A),2)) OR (REFX(T=8 AND NOT(A),3)){XG51};
M6:=T=6 AND REFX(T=7 AND NOT(A),1) OR (REFX(T=8 AND NOT(A),2)){XG51};
M7:=T=7 AND REFX(T=8 AND NOT(A),1){XG51};
N:=T=1 AND REF(T=0 AND AA,1) AND A{XG51};
N1:=T=2 AND REF(N,1) AND A{XG51};
N2:=T=3 AND REF(N1,1) AND A{XG51};
N3:=T=4 AND REF(N2,1) AND A{XG51};
N4:=T=5 AND REF(N3,1) AND A{XG51};
N5:=T=6 AND REF(N4,1) AND A{XG51};
N6:=T=7 AND REF(N5,1) AND A{XG51};
N7:=T=8 AND REF(N6,1) AND A{XG51};
DRAWTEXT(T=0,H*1.008,'1')COLORCYAN{XG51};
DRAWTEXT(N,H*1.008,'2')COLORCYAN{XG51};
DRAWTEXT(N1,H*1.008,'3')COLORCYAN{XG51};
DRAWTEXT(N2,H*1.008,'4')COLORCYAN{XG51};
DRAWTEXT(N3,H*1.008,'5')COLORCYAN{XG51};
DRAWTEXT(N4,H*1.008,'6')COLORCYAN{XG51};
DRAWTEXT(N5,H*1.008,'7')COLORCYAN{XG51};
DRAWTEXT(N6,H*1.008,'8')COLORCYAN{XG51};
DRAWTEXT(N7,H*1.008,'9')COLORCYAN{XG51};
DRAWICON(N7,H*1.01,1)COLORCYAN{XG51};
DRAWTEXT(M,H*1.008,'1')COLORBLacK{XG51};
DRAWTEXT(M1,H*1.008,'2')COLORLIGRAY{XG51};
DRAWTEXT(M2,H*1.002,'3')COLORLIGRAY{XG51};
DRAWTEXT(M3,H*1.002,'4')COLORLIGRAY{XG51};
DRAWTEXT(M4,H*1.002,'5')COLORLIGRAY{XG51};
DRAWTEXT(M5,H*1.02,'6')COLORLIGRAY{XG51};
DRAWTEXT(M6,H*1.002,'7')COLORLIGRAY{XG51};
DRAWTEXT(M7,H*1.002,'8')COLORLIGRAY{XG51};
B1:=C<=REF(C,4){XG51};
B:=C>REF(C,4){XG51};
BB:=C>REF(C,4) AND REF(B1,1){XG51};
T1:=BARSLAST(BB)NODRAW{XG51};
M111:=(T1=0 AND REFX(T1=1 AND NOT(B),1)) OR (REFX(T1=2 AND NOT(B),2)) OR (REFX(T1=3 AND NOT(B),3)) OR (REFX(T1=4 AND NOT(B),4)) OR (REFX(T1=5 AND NOT(B),5))
OR (REFX(T1=6 AND NOT(B),6)) OR (REFX(T1=7 AND NOT(B),7)) OR (REFX(T1=8 AND NOT(B),8)){XG51};
M11:=T1=1 AND REFX(T1=2 AND NOT(B),1) OR (REFX(T1=3 AND NOT(B),2)) OR (REFX(T1=4 AND NOT(B),3)) OR (REFX(T1=5 AND NOT(B),4)) OR (REFX(T1=6 AND NOT(B),5))
OR (REFX(T1=7 AND NOT(B),6)) OR (REFX(T1=8 AND NOT(B),7)){XG51};
M22:=T1=2 AND REFX(T1=3 AND NOT(B),1) OR (REFX(T1=4 AND NOT(B),2)) OR (REFX(T1=5 AND NOT(B),3)) OR (REFX(T1=6 AND NOT(B),4)) OR (REFX(T1=7 AND NOT(B),5)) OR (REFX(T1=8 AND NOT(B),6)){XG51};
M33:=T1=3 AND REFX(T1=4 AND NOT(B),1)OR (REFX(T1=5 AND NOT(B),2)) OR (REFX(T1=6 AND NOT(B),3)) OR (REFX(T1=7 AND NOT(B),4)) OR (REFX(T1=8 AND NOT(B),5)){XG51};
M44:=T1=4 AND REFX(T1=5 AND NOT(B),1) OR (REFX(T1=6 AND NOT(B),2)) OR (REFX(T1=7 AND NOT(B),7)) OR (REFX(T1=8 AND NOT(B),4)){XG51};
M55:=T1=5 AND REFX(T1=6 AND NOT(B),1) OR (REFX(T1=7 AND NOT(B),2)) OR (REFX(T1=8 AND NOT(B),3)){XG51};
M66:=T1=6 AND REFX(T1=7 AND NOT(B),1) OR (REFX(T1=8 AND NOT(B),2)){XG51};
M77:=T1=7 AND REFX(T1=8 AND NOT(B),1){XG51};
N111:=T1=1 AND REF(T1=0 AND BB,1) AND B{XG51};
N11:=T1=2 AND REF(N111,1) AND B{XG51};
N22:=T1=3 AND REF(N11,1) AND B{XG51};
N33:=T1=4 AND REF(N22,1) AND B{XG51};
N44:=T1=5 AND REF(N33,1) AND B{XG51};
N55:=T1=6 AND REF(N44,1) AND B{XG51};
N66:=T1=7 AND REF(N55,1) AND B{XG51};
N77:=T1=8 AND REF(N66,1) AND B{XG51};
DRAWTEXT(T1=0,H*1.002,'1')COLORLICYAN{XG51};
DRAWTEXT(N111,H*1.002,'2')COLORLICYAN{XG51};
DRAWTEXT(N11,H*1.002,'3')COLORLICYAN{XG51};
DRAWTEXT(N22,H*1.002,'4')COLORLICYAN{XG51};
DRAWTEXT(N33,H*1.002,'5')COLORLICYAN{XG51};
DRAWTEXT(N44,H*1.002,'6')COLORLICYAN{XG51};
DRAWTEXT(N55,H*1.002,'7')COLORLICYAN{XG51};
DRAWTEXT(N66,H*1.002,'8')COLORLICYAN{XG51};
DRAWTEXT(N77,H*1.002,'9')COLORLICYAN{XG51};
DRAWICON(N77,H*1.004,2){XG51};
DRAWTEXT(M111,H*1.002,'1')COLORLIGRAY{XG51};
DRAWTEXT(M11,H*1.002,'2')COLORLIGRAY{XG51};
DRAWTEXT(M22,H*1.002,'3')COLORLIGRAY{XG51};
DRAWTEXT(M33,H*1.002,'4')COLORLIGRAY{XG51};
DRAWTEXT(M44,H*1.002,'5')COLORLIGRAY{XG51};
DRAWTEXT(M55,H*1.002,'6')COLORLIGRAY{XG51};
DRAWTEXT(M66,H*1.002,'7')COLORLIGRAY{XG51};
DRAWTEXT(M77,H*1.002,'8')COLORLIGRAY{XG51};
HM:=30;HN1:=12;HN2:=10{XG51};
LC:=REF(C,1){XG51};
SSMA:=SMA(MAX(C-LC,0),6,1)/SMA(ABS(C-LC),6,1)*100{XG51};
HA:=MA(C,HM){XG51};
HB:=(HA-C)/HA>=0.23 AND V>REF(V,1) AND C>L AND (REF(C,1)-C)/REF(C,1)>=0.04{XG51};
海底捕鱼:CROSS(SSMA,HN1) AND EXIST(HB,HN2){XG51};
DRAWTEXT(海底捕鱼,L*0.96,'海底捕鱼'),COLORWHITE{XG51};
STICKLINE(海底捕鱼,C,O,0,0),COLORGREEN{XG51};
STICKLINE(海底捕鱼,C,O,0.6,0),COLORGREEN{X~G_5-1~C~N~{};