通达信主力顶底扫描未加密选股指标公式源码

源码正文：

A1:=CAPITAL{XG51};
A2:=(((H + L) + O) + C) / 4{XG51};
A3:=(((INDEXH + INDEXL) + INDEXO) + INDEXC) / 4{XG51};
A17:=(SUM((A2 * vol),16)) / (SUM(VOL,16)){XG51};
A18:=(SUM((A2 * VOL),11)) / (SUM(VOL,11)){XG51};
A19:=(SUM((A2 * VOL),6)) / (SUM(VOL,6)){XG51};
A20:=((SUM((A2 * VOL),7)) - (A2 * VOL)) / ((SUM(VOL,7)) - VOL){XG51};
A21:=((A18 - A17) / A2) * 1000{XG51};
A22:=IF((A21 > 50),50,(IF((A21 < -50),-50,A21))){XG51};
A23:=((A19 - A18) / A2) * 1000{XG51};
A24:=IF((A23 > 50),50,(IF((A23 < -50),-50,A23))){XG51};
A25:=((((A19 - A20) / A20) * 5) / 4) * 1000{XG51};
A26:=IF((A25 > 50),50,(IF((A25 < -50),-50,A25))){XG51};
A27:=(A22 + A24) + A26{XG51};
红柱:IF((A27 > 0),A27,0),COLORWHITE,LINETHICK0{XG51};
兰柱:IF((A27 < 0),REVERSE(A27),0),COLORYELLOW,LINETHICK0{XG51};
A28:=IF((兰柱 < 150),兰柱,(IF((兰柱 = 150),65,0))){XG51};
A29:=IF((兰柱 = 150),60,0){XG51};
A30:=IF((红柱 < 150),红柱,(IF((红柱 = 150),65,0))){XG51};
A31:=IF((红柱 = 150),60,0){XG51};
stICKLINE(A30,0,A30,1,0),COLORWHITE{XG51};
STICKLINE(A31,105,150,1,0),COLORFF00FF{XG51};
STICKLINE(A31,65,105,1,0),COLORFF0000{XG51};
STICKLINE(A28,0,A28,1,0),COLORFF0000{XG51};
STICKLINE(A29,105,150,1,0),COLORFF0000{XG51};
STICKLINE(A29,65,105,1,0),COLORWHITE{XG51};
A33:=SUMBARS(VOL,(A1 * 0.8)){XG51};
A34:=IF((A33 < 9),9,A33){XG51};
A35:=HHV(A2,A34){XG51};
A36:=LLV(A2,A34){XG51};
A37:=IF((A35 = A36),0,((100 * (A2 - A36)) / (A35 - A36))){XG51};
中趋势线:(1.5 * (SUM(A37,6))) / 6,LINETHICK2,COLORWHITE{XG51};
长趋势线:(SUM(中趋势线,6)) / 6,LINETHICK2,COLORCYAN{XG51};
VAR33:=PEAKBARS(3,15,1)<10{XG51};
VAR35:=IF(VAR33=1,2,0){XG51};
顶:= IF(VAR35=2,2,0){XG51};
顶A:IF(顶>REF(顶,1),100,0),COLORCYAN{XG51};
VAR1P:=(CLOSE-LLV(LOW,60.135))/(HHV(HIGH,60.135)-LLV(LOW,60))*80{XG51};
VAR2P:=SMA(VAR1P,7,1){XG51};
VAR3P:=Sma(VAR2P,5,1){XG51};
百万预警:IF(crOSS(VAR2P,VAR3P) AND VAR2P<20,85,0),LINETHICK2 , COLOR000999{XG51};
DRAWTEXT(CROSS(VAR2P,VAR3P) AND VAR2P<20,75,'预警'), COLOR000999{X~G+5=1~C~N~{};

源码正文：

stICKLINE(18,0,100,999,0)COLOR00009C{XG51};
STICKLINE(18,100,103,999,0)COLOR205AA7{XG51};
STICKLINE(18,-0,-3,999,0)COLOR205AA7{XG51};
STICKLINE(18,49.5,50.5,2,0)COLOR205AA7{XG51};
STICKLINE(18,79.5,80.5,9,0)COLORWHITE{XG51};
STICKLINE(18,89.5,90.5,9,0)COLORWHITE{XG51};
STICKLINE(ma(C,10)>=REF(MA(C,10),1),45,55,5,0),COLOR330066{XG51};
STICKLINE(MA(C,10)<=REF(MA(C,10),1),45,55,5,0),COLOR663300{XG51};
股道线: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)COLORBLacK,LINETHICK2{XG51};
Q1:=(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21))*100{XG51};
Q2:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100{XG51};
Q3:=Q2-Q1{XG51};
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),0,100,1,0)COLORLIGRAY,COLORD19275{XG51};
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),83,100,1,0)COLORLIGRAY,COLOR0080FF{XG51};
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),83,81,5,0)COLOR0080FF{XG51};
STICKLINE(HHV(MA(Q3,5),5)>44
AND (C=HHV(C,10) OR H=HHV(H,10)),100,98,3,0)COLOR0080FF{XG51};
绝尘剑:IF(HHV(MA(Q3,5),5)>44 AND (C=HHV(C,10) OR
H=HHV(H,10)),82,DRAWNULL)crOSSDOT,LINETHICK2,COLOR663300{X_G_5_1_C_N_{};