通达信改进版立桩量主图选股指标公式源码

通达信改进版立桩量主图选股指标公式源码

源码正文：

N:=80{XG51};
M:=3{XG51};
M1:=3{XG51};
M2:=6{XG51};
M3:=12{XG51};
M4:=24{XG51};
M5:=34{XG51};
M6:=48{XG51};
M7:=89{XG51};
M8:=144{XG51};
M9:=21{XG51};
水平面:ma(CLOSE,89),COLORFFA2FF{XG51};
bbi:(MA(CLOSE,M1)+MA(CLOSE,M2)+MA(CLOSE,M3)+MA(CLOSE,M4))/4{XG51};
BAA:(MA(CLOSE,M5)+MA(CLOSE,M6)+MA(CLOSE,M7)+MA(CLOSE,M8)+MA(CLOSE,M9))/5,COLOR0000CD,LINETHICK4{XG51};
长线ebbi:(ema(C,6)+EMA(C,18)+EMA(C,54)+EMA(C,162))/4,COLORFF00FF,LINETHICK2{XG51};
stICKLINE(crOSS(BBI,长线EBBI),L,L-0.09,4,0),COLORBLUE{XG51};
DRAWTEXT(CROSS(BBI,长线EBBI),L-0.13,'走牛') ,COLORBLUE{XG51};
STICKLINE(CROSS(BBI,BAA),L,L-0.11,5,0),COLORRED{XG51};
DRAWTEXT(CROSS(BBI,BAA),L-1.0,'买入持股') ,COLORFFA2FF,LINETHICK3{XG51};
DRAWTEXT(CROSS(BAA,BBI),L-0.13,'注意仓位') ,COLOR00E300,LINETHICK3{XG51};
IF(BBI>REF(BBI,1),BBI,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(BBI<REF(BBI,1),BBI,DRAWNULL),COLORYELLOW,LINETHICK2{XG51};
MA1:MA(CLOSE,24),COLOR00E300,LINETHICK1{XG51};
V2:=IF(CURRBARSCOUNT=1,vol*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1){XG51};
STICKLINE(V2>=1,O,C,2,0),COLORBLUE{XG51};
MA13:=MA(CLOSE,13){XG51};
X1:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
A1:=MIN(O,C){XG51};
B1:=Abs(O-C){XG51};
T1:=FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10){XG51};
STICKLINE(T1,A1,A1+B1/4,2,0),COLOR007575{XG51};
STICKLINE(T1,A1+B1/4,A1+B1/2,2,0),COLORFF0000{XG51};
STICKLINE(T1,A1+B1/2,A1+B1*3/4,2,0),COLOR007575{XG51};
STICKLINE(T1,A1+B1*3/4,A1+B1,2,0),COLORFF0000{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100){XG51};
FF:=EMA(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
STICKLINE(CROSS(FF,MA15),A1,A1+B1/2,2,0),COLOR7F017F{XG51};
STICKLINE(CROSS(88,RSI),A1+B1,A1+B1/2,2,0),COLORCYAN{XG51};
T2:=COUNT(CROSS(BBI,3),3)=1 AND CROSS(C,BBI){XG51};
DRAWTEXT(T2,H*1.05,'反转'),COLORRED{XG51};
STICKLINE(T2,O,C,2,0),COLORWHITE;
T12:=V2>=1{XG51};
T0:=BArslAST(T12){XG51};
L1:=REF(L,T0){XG51};
H1:=REF(H,T0){XG51};
STICKLINE(REF(T12,1) OR REF(T12,2) OR REF(T12,3),H1,H1,4,-1),COLORRED{XG51};
STICKLINE(REF(T12,1) OR REF(T12,2) OR REF(T12,3),L1,L1,4,-1),COLORRED{XG51};
{XG51};
L11:=MIN(REF(L,1),L){XG51};
L10:=MIN(L11,REF(L,2)){XG51};
L21:=MAX(REF(L,1),L){XG51};
L20:=MAX(L21,REF(L,2)){XG51};
T111:=(REF(V2>=1,3) OR REF(V2>=1,2) OR REF(V2>=1,1)) AND
((L10>L1 AND L20>H1) OR (L11>L1 AND L21>H1)){XG51};
T11:=T111 AND REF(T111,1)=0{XG51};
STICKLINE(T11,O,C,2,0),COLORFF00FF{XG51};
高:=REF(HHV(H,N),M);
低:=REF(LLV(L,N),M){XG51};
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:=高-(高-低)*0.809{XG51};
顶点:REFDATE(高,DATE),POINTDOT,LINETHICK2,COLORRED{XG51};
%19.8:REFDATE(H19,DATE),POINTDOT,LINETHICK2,COLORBLUE{XG51};
%38.2:REFDATE(H38,DATE),POINTDOT,LINETHICK2,COLORCYAN{XG51};
%50:REFDATE(H中,DATE),POINTDOT,LINETHICK2,COLORWHITE{XG51};
%61.8:REFDATE(H61,DATE),POINTDOT,LINETHICK2,COLORLIMAGENTA{XG51};
%80.9:REFDATE(H80,DATE),POINTDOT,LINETHICK2,COLORYELLOW{XG51};
低点:REFDATE(低,DATE),POINTDOT,LINETHICK2,COLORRED{XG51};
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORRED;
STICKLINE(T1,A1,A1+B1/2,2,0),COLOR007575{XG51};
STICKLINE(T1,A1+B1/2,A1+B1,2,0),COLORYELLOW{XG51};
STICKLINE(T11 AND T12,A1,A1+B1/2,2,0),COLORFF00FF{XG51};
STICKLINE(T11 AND T12,A1+B1/2,A1+B1,2,0),COLORBLUE{XG51};
STICKLINE(T1 AND T12,A1+B1/3,A1+B1,2,0),COLORBLUE{XG51};
STICKLINE(T1 AND T12,A1,A1+B1/3,2,0),COLOR007575{XG51};
STICKLINE(T1 AND T12,A1+B1/3,A1+B1*2/3,2,0),COLORYELLOW{XG51};
STICKLINE(T2 AND T12,A1+B1/2,A1+B1,2,0),COLORWHITE{XG51};
STICKLINE(T2 AND T12,A1,A1+B1/2,2,0),COLORBLUE{X+G^5_1+C+N+{};