通达信JGL DDV公式捉①版，添加换手率

 通达信JGL DDV公式捉①版，添加换手率

复制内容到剪贴板

1. {副图名：JGL＿DDV ; （初步正式版）;发明人及版权属于JIPGEMLING.见凌见};   
2. {参数设置：VOL＿AMO(1,2,1);锤头处理(1,2,1),};   
3. {说明：锤头处理=1，以K线中值(C+H+L)/3论多空，锤头处理=2，以K线阴阳论多空}   
4. {坐标线位置：自动 ；额外Y轴分界 值1=0 };   
5. {TDX版,中高分辨率屏幕};   
6.   
7.   
8. W:=VOL＿AMO;   
9. EPSL:=0.0001;   
10. ZZ:=(C+H+L)/3;   
11. TJ0:=ZZ>MAX(C,O) OR ZZ<MIN(C,O);   
12. CT:=锤头处理;   
13. TJ1:=H=L AND C>REF(C,1);   
14. TJ2:=H=L AND C<REF(C,1);   
15. {画阴阳量柱}   
16. V0L:IF(W=1,V,AMOUNT),STICK,COLOREEFFEE;   
17. STICKLINE(C>OPEN,0,V0L,1.3,1),COLOR1133FA;   
18. STICKLINE(C<OPEN,0,V0L,1.3,1),COLORCYAN;   
19. {以下7句组合属核心发明公式，声明知识产权和版权。}   
20. ZL:=2*(H-L)+ABS(C-O)+3*EPSL;   
21. EE:=IF(TJ1,EPSL,IF(TJ2,-EPSL,0)){仅处理日线一字涨跌停K线};   
22. JGL_DTC:=(IF(TJ0 AND CT=1,4/3*(C-(H+L)/2)+ABS(C-O),C-OPEN)+EE)/ZL;   
23. 主动买:V0L*(1+JGL_DTC)/2,COLOR1133AA,NODRAW;   
24. 主动卖:V0L*(1-JGL_DTC)/2,COLORCYAN,NODRAW;   
25. STICKLINE(1,0,ABS(主动买),2.2,1),COLOR1133DE;   
26. 买卖差:主动买-主动卖,COLOR13AADD,NODRAW;   
27. {换手}   
28. 换手:VOL/CAPITAL*100,NODRAW;   
29. 换手1:=换手*10000;   
30. 换手2:=换手1-换手1*2;   
31. STICKLINE(换手2<0,0,换手2,1.8,1),COLORLIMAGENTA;   
32. 换5:SUM(VOL/CAPITAL*100,5);   
33. 换①:SUM(VOL/CAPITAL*100,10);   
34. 换②:SUM(VOL/CAPITAL*100,20);   
35. 换③:SUM(VOL/CAPITAL*100,30);   
36. 〖虚量〗:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;   
37. STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,〖虚量〗,0,-1,-1),COLORYELLOW;   
38. AA:=SUMBARS(VOL,CAPITAL);   
39. 地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA)/3) ,COLORWHITE;   
40. STICKLINE(地量,主动买,VOL,0.3,0),COLORWHITE;   
41. 天量:IF(CAPITAL=0,AMOUNT=HHV(AMOUNT,34),VOL>MA(VOL,AA)*3) ,COLORYELLOW;   
42. STICKLINE(天量,主动买,VOL,0.3,0),COLORYELLOW;   
43. {实心柱}   
44. STICKLINE(主动买>0,0,主动买,2.4,0),COLOR000055;   
45. STICKLINE(主动买>0,0,主动买,2,0),COLOR000077;   
46. STICKLINE(主动买>0,0,主动买,1.8,0),COLOR000099;   
47. STICKLINE(主动买>0,0,主动买,1.5,0),COLOR0000BB;   
48. STICKLINE(主动买>0,0,主动买,0.9,0),COLOR0000DD;   
49. STICKLINE(主动买>0,0,主动买,0.3,0),COLOR0000FF;   
50. JDZ:=ABS(买卖差);   
51. STICKLINE(主动买>主动卖,0,JDZ,2.3,0)COLOR0035FF;   
52. STICKLINE(主动买>主动卖,0,JDZ,1.8,0)COLOR0064FF;   
53. STICKLINE(主动买>主动卖,0,JDZ,1.3,0)COLOR0093FF;   
54. STICKLINE(主动买>主动卖,0,JDZ,0.8,0)COLOR00C2FF;   
55. STICKLINE(主动买>主动卖,0,JDZ,0.3,0)COLOR00FFFF;   
56. STICKLINE(主动买<主动卖,0,JDZ,2.3,0),COLOR006000;   
57. STICKLINE(主动买<主动卖,0,JDZ,2.1,0),COLOR007500;    
58. STICKLINE(主动买<主动卖,0,JDZ,1.8,0),COLOR009100;   
59. STICKLINE(主动买<主动卖,0,JDZ,1.3,0),COLOR00A600;   
60. STICKLINE(主动买<主动卖,0,JDZ,0.8,0),COLOR00BB00;   
61. STICKLINE(主动买<主动卖,0,JDZ,0.3,0),COLOR00CC00;   
62. {曲线}   
63. SGM:=SUM(IF(BARSCOUNT(C),买卖差,0),3);   
64. 短:SMA(SGM,13,1)*2.5,COLOREE33FF,LINETHICK1;   
65. 短M:SMA(短,5,2),COLOR13FE33,LINETHICK1;   
66. 长:SUM(SGM,64)/20,COLORYELLOW,LINETHICK1;   
67. 长M:EMA(长,8),COLORFFAA55,LINETHICK1;   
68.   
69. STICKLINE(换手2<-50000,0,换手2,0.5,0),COLORMAGENTA;   
70. STICKLINE(换手2<-170000,0,换手2,0.5,0),COLORGREEN;   

B07288228.jpg