通达信主力筹码变化副图源码

 通达信主力筹码变化副图源码

{牛牛指标网提供：www.tdx001.com}

复制内容到剪贴板

1. ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}   
2. SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散户筹码估算}   
3. ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散户套牢筹码比率}   
4. ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}   
5. ZCMZL:=MA(ZLCM+SHCM,13);{//市场筹码总量}   
6. ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天数}   
7. ZSHJJ:=EMA(ZSHTL,89);{//散户警戒}   
8. ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}   
9. ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//资金流入强度}   
10. SH8:=EMA(ZSHTL,8);   
11. DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);   
12. {散户套牢筹码}   
13. STICKLINE(C>0,ZSHTL,ZZLKP,1,0),COLORFFFFFF;   
14. {散户筹码警戒}   
15. STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,2,0),COLOR00FF00;   
16. {主力控盘筹码}   
17. STICKLINE(C>0,ZZLKP,0,1,0),COLORA4A4A4;   
18. {筑顶风险区}   
19. STICKLINE(ZZLKP>75,ZZLKP,0,1,0),COLORFFFFFF;   
20. {顶部:(ZZLKP>75),COLORFFFFFF;}   
21. {主力筹码警戒}   
22. STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,2,0),COLORRED;   
23. {筑底散兵坑}   
24. STICKLINE(ZSHTL>=90,ZZLKP,0,2,0),COLOR66FFCC;   
25. {底部:(ZSHTL>=90),COLOR66FFCC;}   
26. {筹码总量上升}   
27. IF(ZCMZL,ZCMZL>REF(ZCMZL,1),DRAWNULL),COLOR0066FF,LINETHICK1;   
28. {增量资金};   
29. {//------【数值显示】}   
30. 散户套牢系数:INTPART(ZSHTL),COLORCYAN,LINETHICK2;   
31. 主力控盘系数:INTPART(ZZLKP),COLORYELLOW,LINETHICK2;   
32. 资金流入强度:ZJLRQD,LINETHICK2,COLORRED;   
33. 资金流入强度2:IF(ZJLRQD<10,ZJLRQD,DRAWNULL),LINETHICK2,COLORWHITE;   
34. 市场筹码总量:INTPART(ZCMZL),COLORWHITE,NODRAW;    
35. DRAWICON(CROSS(主力控盘系数,散户套牢系数),散户套牢系数-5,11);   
36. DRAWICON(CROSS(资金流入强度,散户套牢系数),散户套牢系数-5,17);  

33135830998.png