通达信趋势主力副图 源码

通达信趋势主力副图 源码

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

复制内容到剪贴板

1. 主力:=XMA(XMA((CLOSE*2+LOW-OPEN-HIGH)/4,2),2);   
2. 散户:=EMA(主力,11)-EMA(主力,22);   
3. 量比:=EMA(散户,5);   
4. 杭: (-100)*(散户-量比)*100,COLOR00FF00,LINETHICK5;   
5. 州: 100*(散户-量比)*100,COLOR0000FF,LINETHICK5;   
6. 龙:0;   
7. IF(州<=REF(州,1),州,DRAWNULL),COLOR00FFFF,LINETHICK5;   
8. DRAWTEXT(CROSS(州,REF(州,1)),州,'买'),COLOR00FFFF;   
9. DRAWTEXT(CROSS(REF(州,1),州),州,'卖'),COLOR00FF00;   
10. {主力控盘A}   
11. VAR2:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);   
12. VAR3:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);   
13. VAR4:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);   
14. VAR5:=(((VAR2 + (2 * VAR3)) + (3 * VAR4)) / 6);   
15. VAR6:=MA(VAR5,3);   
16. 开始控盘:=STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR00AAFF;   
17. STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR0044FF;   
18. STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),2.5,0),COLOR0088FF;   
19. STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3,0),COLOR00AAFF;   
20. VAR1:=EMA(EMA(CLOSE,3),1);   
21. 控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;   
22. STICKLINE(控盘<0,控盘,0,3.5,0),COLORFFAA00;   
23. STICKLINE(控盘<0,控盘,0,3.5.2,0),COLORFF4400;   
24. STICKLINE(控盘<0,控盘,0,2.5,0),COLORFF8800;   
25. STICKLINE(控盘<0,控盘,0,0,0),COLORFFAA00;   
26. 主力出货:0,COLORFFAA00;   
27. STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR000088;   
28. STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR0000AA;   
29. STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR0000CC;   
30. STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR0000EE;   
31. 主力吸货:0,COLOR0000FF;   
32. STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR008800;   
33. STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR00AA00;   
34. STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR00CC00;   
35. STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR00EE00;   
36. STICKLINE(DDX<0,0,DDX,3.5,0),COLOR008800;   
37. STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00;   
38. STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00;   
39. STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00;   
40. 对倒出货洗盘:0,COLOR00FF00;   
41. 黄色底部吸货:0,COLORYELLOW;   
42.   
43.   
44.   
45. DRAWTEXT(CROSS(控盘,0),0-3,'买。追'),COLORFF00FF;   
46. DRAWTEXT(CROSS(0,控盘),0-0,'卖'),COLORGREEN;　  

714499727.png