通达信成竹在胸主图未加密选股指标公式源码

源码正文：

顶部:=REF(HHV(H,J),Q);
底部:=REF(LLV(L,J),Q){XG51};
A:=顶部-(顶部-底部)*0.191;
B:=顶部-(顶部-底部)*0.382;
Z:=顶部-(顶部-底部)*0.5;
D:=顶部-(顶部-底部)*0.618;
E:=顶部-(顶部-底部)*0.809{XG51};
顶:REFDATE(顶部,DATE),POINTDOT,COLORYELLOW,LINETHICK3{XG51};
A19.1%:REFDATE(A,DATE),POINTDOT,COLORBLUE,LINETHICK2{XG51};
B38.2%:REFDATE(B,DATE),POINTDOT,COLORmaGENTA,LINETHICK2{XG51};
C50%:REFDATE(Z,DATE),POINTDOT,COLORBLACK,LINETHICK2{XG51};
D61.8%:REFDATE(D,DATE),POINTDOT,COLORWHITE,LINETHICK2{XG51};
E80.9%:REFDATE(E,DATE),POINTDOT,COLORGREEN,LINETHICK2{XG51};
底:REFDATE(底部,DATE),POINTDOT,COLORBLUE,LINETHICK3{XG51};
X:=6;Y:=6{XG51};
DRAWLINE(H=PEAK(1 ,X ,1 ) ,H ,L=TROUGH(2 ,X ,1 ) ,L , 1),COLORYELLOW{XG51};
DRAWLINE(H=PEAK(1 ,X ,1 ) ,H ,L=TROUGH(2 ,X ,1 ) ,
L+(PEAK(1 ,X ,1 )-TROUGH(2 ,X ,1 ))/3 , 1),COLORBLUE{XG51};
DRAWLINE(H=PEAK(1 ,X ,1 ) ,H ,L=TROUGH(2 ,X ,1 ) ,
L+(PEAK(1 ,X ,1 )-TROUGH(2 ,X ,1 ))/3*2 , 1),COLOR66BB00{XG51};
DRAWLINE(L=TROUGH(2 ,Y,1 ) ,L ,H=PEAK(1 ,Y,1 ) ,H ,1 ),COLORYELLOW{XG51};
DRAWLINE(L=TROUGH(2 ,Y,1 ) ,L ,H=PEAK(1 ,Y,1 ) ,
H-(PEAK(1 ,Y ,1 )-TROUGH(2 , Y,1 ))/3*2 ,1 ),COLORWHITE{XG51};
DRAWLINE(L=TROUGH(2 ,Y,1 ) ,L ,H=PEAK(1 ,Y,1 ) ,
H-(PEAK(1 ,Y ,1 )-TROUGH(2 , Y,1 ))/3 ,1 ),COLORBLUE{XG51};
M3:=ema(CLOSE,3){XG51};
M21:=EMA(CLOSE,21){XG51};
DRAWTEXT(crOSS(M3,M21),(LOW * 0.99),'买进'),COLOR00FFFF{XG51};
DRAWTEXT(CROSS(M21,M3),(HIGH * 1.02),'出货'),COLOR00FF00{XG51};
DRAWTEXT(CROSS(85,rsi),(HIGH * 1.02),'落袋'),COLORGREEN{XG51};
stICKLINE(CLOSE>REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE,OPEN,4,-1),COLORWHITE;
STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,4,-1),COLORCYAN;
STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR000055{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000077;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR000099{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD{XG51};
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD{XG51};
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORGREEN{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR990000{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00{XG51};
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORGREEN{X*G-5~1*C*N*{};

源码正文：

使用说明：当主力开始进大于0时，即紫线开始出现时，可以跟进，当主力大于100时，可以开始减仓，当主力开始出大于0时，即绿线出现时，坚决离场。

V1:=(C*2+H+L)/4*10{XG51};
V2:=ema(V1,13)-Ema(V1,34){XG51};
V3:=EMA(V2,5){XG51};
V4:=2*(V2-V3)*5.5{XG51};
主力开始出: IF(V4<=0,V4,0),COLOR00FF00,LINETHICK2{XG51};
主力开始进: IF(V4>=0,V4,0),COLORFF00FF,LINETHICK2{XG51};
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8{XG51};
V6:=EMA(3*V5-2*SMA(V5,18,1),5){XG51};
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10{XG51};
V8:=(INDEXC*2+INDEXH+INDEXL)/4{XG51};
V9:=EMA(V8,13)-EMA(V8,34){XG51};
VA:=EMA(V9,3){XG51};
VB:=(V9-VA)/2{XG51};
大资金进场: IF(VB>=0,VB,0),COLORWHITE,LINETHICK2{XG51};
大资金撤走: IF(VB<=0,VB,0),COLORYELLOW,LINETHICK2{X!G!5=1!C!N!{};