【原】通达信【进场加仓】副图指标 有庄控盘与无庄控盘 检测资金数值 源码分享

A9:= C/REF(C,1)>1.0925 AND C=H;

DT:=C/REF(C,1)<0.913 AND C=L;

VAR1:=EMA(EMA(CLOSE,9),9);

控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

STICKLINE(控盘<0,控盘,0,4,0),colorred;

STICKLINE(控盘<REF(控盘,1)AND 控盘<0,0,控盘,8,0 ),color00aa00;

A10:=CROSS(控盘,0);

无庄:IF(控盘<0,控盘,0),colorgreen,NODRAW;

开始控盘:IF(A10,5,0),LINETHICK2,colorblue;

STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,8,0),colorred;

有庄:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),colorred,NODRAW;

STICKLINE(控盘>REF(控盘,1) AND A9>0,控盘,0,8,0),COLOR00FFFF;

STICKLINE(控盘>REF(控盘,1) AND DT>0,控盘,0,8,0),colorblack;

VAR2:=100*WINNER(CLOSE*0.95);

STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,8,0),COLORFF00FF;

STICKLINE(VAR2>50 AND COST(85)<CLOSE AND A9>0,控盘,0,8,0),COLOR00FFFF;

高度:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW;

STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,8,0),COLOR00FF00;

出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FFFF,NODRAW;

STICKLINE(控盘<REF(控盘,1) AND DT>0,控盘,0,8,0),colorblack;

STICKLINE(控盘<REF(控盘,1) AND A9>0,控盘,0,8,0),COLOR00FFFF;

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

VAEF:=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);

VAR20:=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);

VAR21:=VAEF<REF(VAR20,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);

DRAWTEXT(VAR21 AND COUNT(VAR21,30)=1,控盘,'资金'),LINETHICK8,COLOR00FFFF;

STICKLINE(VAR21 AND COUNT(VAR21,30)=1,控盘,0,2,0),COLOR00FFFF;

VAR22:=(HIGH+LOW+CLOSE)/3;

VAR23:=(VAR22-MA(VAR22,14))/(0.015*AVEDEV(VAR22,14));

VAR24:=(VAR22-MA(VAR22,70))/(0.015*AVEDEV(VAR22,70));

VAR25:=IF(VAR23>=150 AND VAR23<200 AND VAR24>=150 AND VAR24<200,10,0);

VAR26:=IF(VAR23<=-150 AND VAR23>-200 AND VAR24<=-150 AND VAR24>-200,-10,VAR25);{WWW.GOODGONGSHI.COM}

VAR27:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;

VAR28:=100-ABS(VAR27);

VAR29:=IF(VAR28<90,VAR28,100);

VAR2A:=IF(VAEE>0,VAEE,0);

VAR2B:=IF(VAR24>=200 AND VAR23>=150,15,IF(VAR24<=-200 AND VAR23<=-150,-15,VAR26))+60;

VAR2C:=VAR2A>48 AND VAR2B>60 AND VAR29<100;

DRAWTEXT(VAR2C AND COUNT(VAR2C,30)=1,12,'异动'),LINETHICK1,colorblue;

STICKLINE(VAR2C AND COUNT(VAR2C,30)=1,0,10,4,0),colorblue;

指标王:=CROSS(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1),SMA(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1),3,1))

AND SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1)<20;

DRAWTEXT(指标王,控盘+6,'建仓'),colorblack;

r0:=((IF(ISNULL(ZDMR[-1]),0,ZDMR)+IF(ISNULL(BDMR[-1]),0,BDMR))-(IF(ISNULL(ZDMC[-1]),0,ZDMC)+IF(ISNULL(BDMC[-1]),0,BDMC)))/SHGZG*100;

最小值:=LLV(LOW,10);

最大值:=HHV(HIGH,25);

波动线:=EMA((CLOSE-最小值)/(最大值-最小值)*4,4);

信息:=EMA(波动线,3)>=REF(EMA(波动线,3),1);

d=信息=1 AND REF(信息,1)=0 AND (REF(信息,2)+REF(信息,3)=0) AND EMA(波动线,3)<0.5;

DRAWTEXT(d=1,控盘,'低吸'),color00FFFF;

r0:=((IF(ISNULL(ZDMR[-1]),0,ZDMR)+IF(ISNULL(BDMR[-1]),0,BDMR))-(IF(ISNULL(ZDMC[-1]),0,ZDMC)+IF(ISNULL(BDMC[-1]),0,BDMC)))/SHGZG*100;

最小值:=LLV(LOW,10);

最大值:=HHV(HIGH,25);

波动线:=EMA((CLOSE-最小值)/(最大值-最小值)*4,4);

主力攻击:=r0-(ABS(REF(r0,1))+ABS(REF(r0,2))+ABS(REF(r0,3))+ABS(REF(r0,4))+ABS(REF(r0,5))/2)>0 AND EMA(波动线,3)>=REF(EMA(波动线,3),1) AND REF(EMA(波动线,3),1)<REF(EMA(波动线,3),2);

DRAWTEXT(主力攻击>0,控盘,"攻击"),COLOR00FFFF;

STICKLINE(主力攻击>0,控盘,0,2,0),COLORFF00FF;

VAEC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG

(3,5),2)<=REF(ZIG(3,5),3));

VAED:=(ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG

(3,5),2)>=REF(ZIG(3,5),3));

STICKLINE((VAEC=1),控盘,0,2,0), color00FFFF;

DRAWTEXT((VAEC=1),控盘,'买'), colorFF00FF;

STICKLINE((VAED=1),控盘,0,2,0), colorblack;

DRAWTEXT((VAED=1),控盘,'卖'),colorblack;

A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;

A4:=SMA(A3,3,1);

A5:=SMA(A4,3,1);

A6:=3*A4-2*A5;

A7:=C-REF(C,1);

A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);

买:=LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2));

DRAWTEXT(FILTER(买=1,5),5,'进场'), COLORFF00FF;

STICKLINE(买,3,0,2,0),color00FFFF;

VARA:=REF(CLOSE,1);

VARE:=SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100;

STICKLINE(DATE>700101 AND CROSS(84,VARE),控盘,0,2,0), colorblack;

DRAWTEXT(DATE>700101 AND CROSS(84,VARE),控盘,'减仓'),colorgreen;

STICKLINE(CROSS(MA(C,3),MA(C,9)) AND C>=REF(C,1) AND C>O,控盘,0,2,0), color00FFFF;

DRAWTEXT(CROSS(MA(C,3),MA(C,9)) AND C>=REF(C,1) AND C>O,控盘,'加仓'),COLOR00FFFF;

{本文技术支持：好公式网www.goodgongshi.com}