通达信趋势为先指标副图 源码

 通达信趋势为先指标副图 源码

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

复制内容到剪贴板

1. N:=5;QJ0:=(HIGH+LOW+CLOSE)/3;   
2. QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));   
3. QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);   
4. QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);   
5. QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));   
6. QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));   
7. QJ6:="MACD.DIF">"MACD.DEA" AND "MACD.DEA"<0;   
8. QJ7:="KDJ.K">"KDJ.D" AND "KDJ.D"<30;   
9. QJ8:="MACD.DIF"<"MACD.DEA";   
10. QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80;   
11. 特大:QJ4*QJ5,NODRAW;大单:QJ3*QJ5,NODRAW;   
12. 中单:QJ1*QJ5,NODRAW;小单:QJ2*QJ5,NODRAW;   
13. W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N);   
14. 量振1:=特大>大单 AND 大单>小单;   
15. 量振2:=特大<小单 AND 大单<小单;   
16. 标振1:=QJ6 AND QJ7;   
17. 标振2:=QJ8 AND QJ9;   
18. A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);   
19. STICKLINE(A0,0,A0,3,0),COLOR000044;   
20. STICKLINE(A0,0,A0,2.5,0),COLOR000088;   
21. STICKLINE(A0,0,A0,1.5,0),COLOR0000AA;   
22. STICKLINE(A0,0,A0,1,0),COLOR0000CC;   
23. STICKLINE(B0,0,-B0,3,0),COLOR004400;   
24. STICKLINE(B0,0,-B0,2.5,0),COLOR008800;   
25. STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00;   
26. STICKLINE(B0,0,-B0,1,0),COLOR00CC00;   
27. 周趋势:MA(A,5),COLORFFFFFF;   
28. 平滑值:EMA(周趋势,5),COLOR00FFFF;   
29. STICKLINE(标振1 AND 量振1 AND 周趋势>平滑值,0,A0,3,0),COLORYELLOW;    
30. DRAWTEXT(标振1 AND 量振1 AND 周趋势>平滑值,A0,'振'),COLORYELLOW;   
31. 　  

FA71126192.png