通达信缠论分型笔线段主图选股指标公式源码

通达信缠论分型笔线段主图选股指标公式源码

源码正文：

ma5:MA(CLOSE,5) COLORRED,LINETHICK2{XG51};
MA10:MA(CLOSE,10) COLORLIMAGENTA,LINETHICK1{XG51};
MA20:MA(CLOSE,20) COLORYELLOW,LINETHICK1{XG51};
MA60:MA(CLOSE,60) COLORBLUE,LINETHICK2{XG51};
MA250:MA(CLOSE,250) COLORWHITE,  LINETHICK1{XG51};
老笔:=0{XG51};
G:=MA(C,5);D:=MA(C,10){XG51};
HH:=REF(H,5)=HHV(H,11){XG51};
LL:=REF(L,5)=LLV(L,11){XG51};
FG01:=BacKSET(HH,6)>BACKSET(HH,5) {XG51};
FD01:=BACKSET(LL,6)>BACKSET(LL,5) {XG51};
FG02:=IF(BArslAst(FG01)=BARSLAST(FD01) AND G>D,FG01,
IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0)){XG51};
FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND D>G,FD01,
IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0)){XG51};
FG0:=FG02 AND H=HHV(H,BARSLAST(FD02)){XG51};
FD0:=FD02 AND L=LLV(L,BARSLAST(FG02)){XG51};
GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORGREEN{XG51};
DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORGREEN{XG51};
GQ:=L>REF(H,1) AND DAY!=REF(DAY,1){XG51};
DQ:=H<REF(L,1) AND DAY!=REF(DAY,1){XG51};
GQL:=REF(L,BARSLAST(GQ)){XG51};
DQH:=REF(H,BARSLAST(DQ)){XG51};
FGH:=REF(H,BARSLAST(FG0)){XG51};
FGL:=REF(L,BARSLAST(FG0)){XG51};
FGH1:=REF(H,BARSLAST(FG0)+1){XG51};
FGL1:=REF(L,BARSLAST(FG0)+1){XG51};
FGH2:=REF(H,BARSLAST(FG0)+2){XG51};
FGL2:=REF(L,BARSLAST(FG0)+2){XG51};
FDH:=REF(H,BARSLAST(FD0)){XG51};
FDL:=REF(L,BARSLAST(FD0)){XG51};
FDH1:=REF(H,BARSLAST(FD0)+1){XG51};
FDL1:=REF(L,BARSLAST(FD0)+1){XG51};
FDH2:=REF(H,BARSLAST(FD0)+2){XG51};
FDL2:=REF(L,BARSLAST(FD0)+2){XG51};
FGZH:=IF(FGL<=FGL1,FGH2,FGH1){XG51};
FGZL:=IF(FGH1<FGL,FGL,IF(FGL<=FGL1,FGL2,FGL1)){XG51};
FDZH:=IF(FDL1>FDH,FDH,IF(FDH>=FDH1,FDH2,FDH1)){XG51};
FDZL:=IF(FDH>=FDH1,FDL2,FDL1){XG51};
FG1:=FGH>FDZH AND FG0{XG51};
FD1:=FDL<FGZL AND FD0{XG51};
FG:=FG1 AND FGH>FDH AND FGL>FDL AND FGL1>FDL{XG51};
FD:=FD1 AND FDL<FGL AND FDH<FGH AND FDH1<FGH{XG51};
BH0:=(H<=REF(H,1) AND L>=REF(L,1)) OR (H>=REF(H,1) AND L<=REF(L,1)){XG51};
BHG:=COUNT(BH0,BARSLAST(FD0)){XG51};
BHD:=COUNT(BH0,BARSLAST(FG0)){XG51};
BGQ:=COUNT(GQ,BARSLAST(FD0)){XG51};
BDQ:=COUNT(DQ,BARSLAST(FG0)){XG51};
BK0:=IF(BHG>0,BHG+2+老笔,IF(BHD,BHD+2+老笔,3)){XG51};
BK:=IF(BGQ,BK0-BGQ,IF(BDQ,BK0-BDQ,BK0)){XG51};
G1X:=(FG AND BARSLAST(FD)>BK){XG51};
D1X:=(FD AND BARSLAST(FG)>BK){XG51};
G1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X))
OR (FG1 AND COUNT(GQ,BARSLAST(FD1))>0 AND REF(H,BARSLAST(FG1))>REF(H,BARSLAST(G1X))){XG51};
D1:=(FD0 AND REF(L,BARSLAST(FD0))<=REF(L,BARSLAST(D1X)) AND BARSLAST(G1X)>BARSLAST(D1X))
OR (FD1 AND COUNT(DQ,BARSLAST(FG1))>0 AND REF(L,BARSLAST(FD1))<REF(H,BARSLAST(D1X))){XG51};
G1H:=IF(BARSLAST(D1)>BARSLAST(G1),REF(H,BARSLAST(G1)),REF(H,BARSLAST(D1))),{XG51};
D1L:=IF(BARSLAST(G1)>BARSLAST(D1),REF(L,BARSLAST(D1)),REF(L,BARSLAST(G1))){XG51};
G2:=G1 AND H=HHV(G1H,BARSLAST(D1)+1) AND H>REF(H,1) AND BARSLAST(D1)>BARSLAST(G1){XG51};
D2:=D1 AND L=LLV(D1L,BARSLAST(G1)+1) AND L<REF(L,1) AND BARSLAST(G1)>BARSLAST(D1){XG51};
G3:=G2 OR (FG0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(G2)) AND BARSLAST(D2)>BARSLAST(G2)){XG51};
D3:=D2 OR (FD0 AND REF(L,BARSLAST(FD0))<REF(L,BARSLAST(D2)) AND BARSLAST(G2)>BARSLAST(D2)){XG51};
GPB:IF(G1X,H,DRAWNULL),CIRCLEDOT,COLORBLUE{XG51};
DPB:IF(D1X,L,DRAWNULL),CIRCLEDOT,COLORBLUE{XG51};
DRAWICON(crOSS(MA20,MA60),MA60*0.98,9){XG51};
dif:=MA(CLOSE,5)-MA(CLOSE,89){XG51};
DIFMA:=MA(DIF,36){XG51};
XG:=CROSS(DIF,DIFMA) AND DIF<3{XG51};
DRAWICON(XG,H*1.03,23){XG51};
NN:=G3;UU:=D3{XG51};
L1:DRAWLINE(UU,L,NN, H,0),COLORLIBLUE;L2:DRAWLINE(NN,H,UU, L,0),COLORLIBLUE{XG51};
DRAWNUMBER(L1 AND L2 AND NN ,H,H),COLORLICYAN;DRAWNUMBER(L1 AND L2 AND UU ,L,L),COLORMAGENTA{XG51};
DRAWICON(CURRBARSCOUNT=6,LOW*0.98,24){XG51};
DRAWNUMBER(CURRBARSCOUNT=6,LOW*0.96,C){XG51};
DRAWICON(CURRBARSCOUNT=11,LOW*0.98,25){XG51};
DRAWNUMBER(CURRBARSCOUNT=11,LOW*0.96,C){XG51};
DRAWICON(CURRBARSCOUNT=21,LOW*0.98,26){XG51};
DRAWNUMBER(CURRBARSCOUNT=21,LOW*0.96,C){XG51};
DRAWICON(CURRBARSCOUNT=61,LOW*0.98,27){XG51};
DRAWNUMBER(CURRBARSCOUNT=61,LOW*0.96,C){XG51};
DRAWICON(CURRBARSCOUNT=121,LOW*0.98,18){XG51};
DRAWNUMBER(CURRBARSCOUNT=121,LOW*0.96,C){XG51};
N250:=250{XG51};
PT250:=CONST(HHVBARS(V,N250)){XG51};
T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLOR990000{XG51};
IF(CURRBARSCOUNT=PT250+1,T250,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000{XG51};
N120:=120{XG51};
PT120:=CONST(HHVBARS(V,N120)){XG51};
T120:IF(CURRBARSCOUNT<=N120,CONST(IF(PT120=0,C,REF(C,PT120))),DRAWNULL),COLORAAAA00{XG51};
IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00{XG51};
N60:=60{XG51};
PT60:=CONST(HHVBARS(V,N60)){XG51};
T60:IF(CURRBARSCOUNT<=N60,CONST(IF(PT60=0,C,REF(C,PT60))),DRAWNULL),COLOR00BB00{XG51};
IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00{XG51};
N30:=30{XG51};
PT30:=CONST(HHVBARS(V,N30)){XG51};
T30:IF(CURRBARSCOUNT<=N30,CONST(IF(PT30=0,C,REF(C,PT30))),DRAWNULL),COLOR0000CC{XG51};
IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC{XG51};
N20:=20{XG51};
PT20:=CONST(HHVBARS(V,N20)){XG51};
T20:IF(CURRBARSCOUNT<=N20,CONST(IF(PT20=0,C,REF(C,PT20))),DRAWNULL),COLORDD00DD{XG51};
IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD{XG51};
N10:=10{XG51};
PT10:=CONST(HHVBARS(V,N10)){XG51};
T10:IF(CURRBARSCOUNT<=N10,CONST(IF(PT10=0,C,REF(C,PT10))),DRAWNULL),COLOR00EEEE{XG51};
IF(CURRBARSCOUNT=PT10+1,T10,DRAWNULL),CIRCLEDOT,COLOR00FFFF,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N10,T10,'10'),COLOR00EEEE{XG51};
N5:=5{XG51};
PT5:=CONST(HHVBARS(V,N5)){XG51};
T5:IF(CURRBARSCOUNT<=N5,CONST(IF(PT5=0,C,REF(C,PT5))),DRAWNULL),COLORFFFFFF{XG51};
IF(CURRBARSCOUNT=PT5+1,T5,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK2{XG51};
DRAWTEXT(CURRBARSCOUNT=N5,T5,'5'),COLORFFFFFF{XG51};
ND:=10{XG51};
PTD:=CONST(LLVBARS(V,ND)){XG51};
TDPX:IF(CURRBARSCOUNT<=ND,CONST(IF(PTD=0,O,REF(O,PTD))),DRAWNULL), COLOR9370DB{XG51};
IF(CURRBARSCOUNT=PTD+1,TDPX,DRAWNULL),CIRCLEDOT, COLOR9370DB,LINETHICK2{XG51};
DRAWTEXT(ISLASTBAR,TDPX,' 地平线10'), COLOR9370DB{X.G_5_1.C.N.{};