通达信精品量能平台指标改编 源码

 通达信精品量能平台指标改编 源码

{牛牛指标网提供：www.tdx001.com}复制内容到剪贴板

1. N250:=250;   
2. PT250:=CONST(HHVBARS(V,N250));   
3. T250:IF(CURRBARSCOUNT<=N250,CONST(IF(PT250=0,C,REF(C,PT250))),DRAWNULL),COLOR990000,LINETHICK2;    
4. IF(CURRBARSCOUNT=PT250+1,T250*1.01,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2;   
5. DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000;   
6. N120:=120;   
7. PT120:=CONST(HHVBARS(V,N120));   
8. T120:IF(CURRBARSCOUNT<=N120,CONST(IF(PT120=0,C,REF(C,PT120))),DRAWNULL),COLORAAAA00,LINETHICK2;    
9. IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2;   
10. DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00;   
11. N60:=60;   
12. PT60:=CONST(HHVBARS(V,N60));   
13. T60:IF(CURRBARSCOUNT<=N60,CONST(IF(PT60=0,C,REF(C,PT60))),DRAWNULL),COLOR00BB00,LINETHICK2;    
14. IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2;   
15. DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00;   
16. N30:=30;   
17. PT30:=CONST(HHVBARS(V,N30));   
18. T30:IF(CURRBARSCOUNT<=N30,CONST(IF(PT30=0,C,REF(C,PT30))),DRAWNULL),COLOR0000CC,LINETHICK2;    
19. IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2;   
20. DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC;   
21. N20:=20;   
22. PT20:=CONST(HHVBARS(V,N20));   
23. T20:IF(CURRBARSCOUNT<=N20,CONST(IF(PT20=0,C,REF(C,PT20))),DRAWNULL),COLORDD00DD,LINETHICK2;    
24. IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2;   
25. DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD;   
26. N10:=10;   
27. PT10:=CONST(HHVBARS(V,N10));   
28. T10:IF(CURRBARSCOUNT<=N10,CONST(IF(PT10=0,C,REF(C,PT10))),DRAWNULL),COLOR00EEEE,LINETHICK2;    
29. IF(CURRBARSCOUNT=PT10+1,T10,DRAWNULL),CIRCLEDOT,COLOR00FFFF,LINETHICK2;   
30. DRAWTEXT(CURRBARSCOUNT=N10,T10,'10'),COLOR00EEEE;   
31. N5:=5;   
32. PT5:=CONST(HHVBARS(V,N5));   
33. T5:IF(CURRBARSCOUNT<=N5,CONST(IF(PT5=0,C,REF(C,PT5))),DRAWNULL),COLORFFFFFF,LINETHICK2;    
34. IF(CURRBARSCOUNT=PT5+1,T5,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK2;   
35. DRAWTEXT(CURRBARSCOUNT=N5,T5,'5'),COLORFFFFFF;   
36. DRAWKLINE(H,O,L,C);   
37. 　  

7172559489.png