通达信红顶绿底未加密选股指标公式源码

源码正文：

RSV:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100{XG51};
K0:=SMA(RSV,3,1){XG51};
K:=K0{XG51};
D:=Sma(K0,2,1){XG51};
j1:=(3*k0-2*d){XG51};
j2:MA(j1,2),LINETHICK1,colorCYAN{XG51};
趋势线:(1.06*(3*SMA((CLOSE- LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)+50),Color6A826C{XG51};
Var5:=AMOUNT/vol/100{XG51};
Var6:=IF(Var5>CLOSE*1.1,CLOSE,IF(Var5<CLOSE*0.9,CLOSE,Var5)){XG51};
Var7:=100*WINNER(Var6){XG51};
Var8:=MA(Var7,8){XG51};
Var9:=HHV(CLOSE,0)/Var8{XG51};
VarA:=IF(Var9>2.5,-10,Var9){XG51};
VarB:=IF(VarA>1,-10,VarA){XG51};
底限: VarB, colorgreen{XG51};
VarC:=Var8/LLV(LOW,0){XG51};
VarD:=HHV(HIGH,0)/Var8*8*10{XG51};
VarE:=IF(VarD>50,50,VarD){XG51};
VarF:=VarE{XG51};
Var10:=HHV(HIGH,0)/Var8*4.5*100{XG51};
Var11:=IF(Var10>100,103,Var10){XG51};
Var15:=REF(CLOSE,1){XG51};
短线:=SMA(MAX(CLOSE-Var15,0),2,1)/SMA(Abs(CLOSE-Var15),2,1)*100{XG51};
红顶:stICKLINE(短线>90,91,89,1,0),pointdot,linethick6 ,COLORred{XG51};
绿底:STICKLINE(短线<5,11,9,1,0),pointdot,linethick6,Color00FF00{XG51};
买入: IF(crOSS(j1,j2) and 底限=-10 and j2<20 or CROSS(j1,j2) and 短线<5,60,19), colorgreen{XG51};
卖出: IF(CROSS(j2,j1) and j2>80 and 趋势线>80 or CROSS(87,趋势线),40,81),Color0000FF{XG51};
DRAWTEXT(CROSS(87,趋势线),35,'逃'),Color0000FF{XG51};
DRAWTEXT(CROSS(j1,j2) and 底限=-10 and j2<20 or CROSS(j1,j2) and 短线<5,65,'买'){XG51};
DRAWTEXT(CROSS(90,Var8),86,'诱多'), colorgreen{X_G!5.1_C_N_{};

源码正文：

dif:="macd.DIF"{XG51};
DD:=BArslAst(DIF>REF(DIF,1) AND REF(DIF,2)>REF(DIF,1)){XG51};
GD:=BARSLAST(DIF<REF(DIF,1) AND REF(DIF,2)<REF(DIF,1)){XG51};
TJ:BARSLAST(REF(DIF,DD)>DIF AND DIF<REF(DIF,GD)){X~G.5!1~C~N~{};