[通达信指标]主力 超级主力进场公式源码

WSVR1:=HHV(HIGH,9)-LLV(LOW,9);

WSVR2:=HHV(HIGH,9)-CLOSE;

WSVR3:=CLOSE-LLV(LOW,9);

WSVR4:=((WSVR2)/(WSVR1))*(100)-70;

WSVR6:=((2)*(CLOSE)+HIGH+LOW)/(4);

WSVR7:=SMA(((WSVR3)/(WSVR1))*(100),3,1);

WSVR8:=LLV(LOW,34);

WSVR9:=SMA(WSVR7,3,1)-SMA(WSVR4,9,1);

WSVR10:=IF((WSVR9>100),WSVR9-100,0);

WSVR11:=HHV(HIGH,34);

B1:=EMA(((WSVR6-WSVR8)/(WSVR11-WSVR8))*(100),8);

JGZJ:=EMA(B1,13);

STICKLINE(B1-JGZJ>0,B1,JGZJ,3,0),COLOR0000FF;

STICKLINE(B1-JGZJ<0,B1,JGZJ,3,1),COLORCYAN;

V1:=(C*2+H+L)/4*10;

V2:=EMA(V1,13)-EMA(V1,34);

V3:=EMA(V2,5);

V4:=2*(V2-V3)*5.5;

V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

V12:=(EMA(V11,3)-REF(EMA(V11,3),1))/REF(EMA(V11,3),1)*100;

STICKLINE(EMA(V11,3)<=13 AND V12>13,0,50,3,0),COLORRED;

BBO:= (EMA(V11,3)<=13 AND V12>13) AND FILTER((EMA(V11,3)<=13 AND V12>13),10);

DRAWTEXT (FILTER(BBO,20),60,’主力进’),COLORWHITE;

WSVRE:=REF(LOW,1)*0.9;

WSVRF:=LOW*0.9;

WSVR12:=(WSVRF*VOL+WSVRE*(CAPITAL-VOL))/CAPITAL;

WSVR13:=EMA(WSVR12,30);

WSVR14:=CLOSE-REF(CLOSE,1);

WSVR15:=MAX(WSVR14,0);

WSVR16:=ABS(WSVR14);

WSVR17:=SMA(WSVR15,7,1)/SMA(WSVR16,7,1)*100;

WSVR18:=SMA(WSVR15,13,1)/SMA(WSVR16,13,1)*100;

WSVR19:=BARSCOUNT(CLOSE);

WSVR20:=SMA(MAX(WSVR14,0),6,1)/SMA(ABS(WSVR14),6,1)*100;

WSVR21:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;

WSVR1A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

WSVR1B:=SMA((SMA(WSVR1A,4,1)-50)*2,3,1);

WSVR1C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;

WSVR1D:=SMA(WSVR1C,4,1);

WSVR1E:=SMA(WSVR1D,3,1);

WSVR1F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;

WSVR22:=WSVR20<=25 AND WSVR21<-95 AND WSVR1F>20 AND WSVR1B<-30 AND WSVR1E<30 AND WSVR11-CLOSE>=-0.25 AND WSVR17<22 AND WSVR18<28 AND WSVR19>50;

STICKLINE(WSVR22,0,70,3,0),COLORMAGENTA;

DRAWTEXT(CROSS(WSVR22,0.5) AND COUNT(WSVR22=1,10)=1,80,’超级主力建仓!’) , COLORMAGENTA;

WSVREX:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

WSVRFX:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA

((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

WSVR10X:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA

((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

WSVR11X:=WSVRF<REF(WSVR10X,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

DRAWTEXT(WSVR11X AND COUNT(WSVR11X,30)=1,70,’大资金进场’),LINETHICK1,COLORYELLOW;

STICKLINE(WSVR11X AND COUNT(WSVR11X,30)=1,1,60,3,0),COLORYELLOW;