KD指標

thirtycm

1. 
   
2. _SECTION_BEGIN("Stochastic %KDJ");
   
3. SetChartOptions(0,0,chartGrid20|chartGrid80);
   
4. periods = Param( "Periods", 15, 1, 200, 1 );
   
5. Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
   
6. Dsmooth = Param( "%D avg", 3, 1, 200, 1 );
   
7. Plot( StochK( periods , Ksmooth),"%K", ParamColor( "Color_K", colorCycle ), ParamStyle("Style_K") );
   
8. Plot( StochD( periods , Ksmooth, DSmooth ),"%D", ParamColor( "Color_D", colorCycle ), ParamStyle("Style_D") );
   
9. K=StochK( periods , Ksmooth);
   
10. D=StochD( periods , Ksmooth, DSmooth );
    
11. j=3*K-2*D;
    
12. Plot( j, "%J", ParamColor( "Color_J", colorCycle ), ParamStyle("Style_J") );
    
13. Plot( 20, "", colorBlue, styleline  );
    
14. Plot( 80, "", colorRed,  styleline   );
    
15. Plot( 50, "", colorGreen,  styleline   );
    
16. _SECTION_END();
    

複製代碼

綠茶妹

kd指標參數(15,3,3)？

我發現我越來越看的懂AFL的程式了。哈。
程式13~15行是畫三條線，分別為20,80,50。以標出超賣超買。

thirtycm

(15,3,3)是預設值，在parameters可以調整的!!!

綠茶妹

補上圖。

順請請問一下，怎麼樣把成交量拉到下面的單一區域？
每次都和k線圖混合一區，很不容易看。

thirtycm

   

thirtycm

1. 
   
2. _SECTION_BEGIN("Bull vs Bear Volume");
   
3. SetChartBkColor(16);
   
4. 
   
5. C1 = Ref(C, -1);
   
6. uc = C > C1; dc = C <= C1;
   
7. ud = C > O; dd = C <= O;
   
8. 
   
9. green = 1; blue = 2; yellow = 3; red = 4; white = 5;
   
10. VType = IIf(ud,         
    
11.          IIf(uc, green, yellow),
    
12.        IIf(dd,
    
13.          IIf(dc, red, blue), white));
    
14. 
    
15. gv = IIf(VType == green, V, 0);
    
16. yv = IIf(VType == yellow, V, 0);
    
17. rv = IIf(VType == red, V, 0);
    
18. bv = IIf(VType == blue, V, 0);
    
19. uv = gv + bv; uv1 = Ref(uv, -1);
    
20. dv = rv + yv; dv1 = Ref(dv, -1);
    
21. VolPer = Param("Adjust Vol. MA per.", 34, 1, 255, 1);
    
22. ConvPer = Param("Adjust Conv. MA per.", 9, 1, 255, 1);
    
23. MAuv = TEMA(uv, VolPer ); mauv1 = Ref(mauv, -1);
    
24. MAdv = TEMA(dv, VolPer ); madv1 = Ref(madv, -1);
    
25. MAtv = TEMA(V, VolPer );
    
26. OscillatorOnly = Param("Show Oscillator Only", 0, 0, 1, 1);
    
27. CompareBullVolume = Param("Show Bull Level", 1, 0, 1, 1);
    
28. if(CompareBullvolume AND !OscillatorOnly){
    
29. Plot(SelectedValue(MAuv), "", colorRed, styleLine);
    
30. }
    
31. 
    
32. CompareBearVolume = Param("Show Bear Level", 1, 0, 1, 1);
    
33. if(CompareBearVolume AND !OscillatorOnly){
    
34. Plot(SelectedValue(MAdv), "", colorGreen, styleLine);
    
35. }
    
36. bullvolume = Param("Show Bull Volume", 1, 0, 1, 1);
    
37. bearvolume = Param("Show Bear Volume", 1, 0, 1, 1);
    
38. totalvolume = Param("Show Total Volume", 1, 0, 1, 1);
    
39. bearToFront = Param("Show Bear Vol in Front", 0, 0, 1, 1);
    
40. if(bearToFront AND !OscillatorOnly){
    
41. Plot(MAdv, "", colorGreen, styleHistogram|styleNoLabel);
    
42. }
    
43. if(bullvolume AND !OscillatorOnly){
    
44. Plot(MAuv, "Average Bull Volume", colorRed, styleHistogram|styleNoLabel);
    
45. }
    
46. if(bearvolume AND !OscillatorOnly){
    
47. Plot(MAdv, "Average Bear Volume", colorGreen, styleHistogram|styleNoLabel);
    
48. }
    
49. if(totalVolume AND !OscillatorOnly){
    
50. Plot(MAtv, "Total Volume", colorWhite, styleHistogram|styleNoLabel);
    
51. Plot(MAtv, "", colorWhite, styleLine);
    
52. }
    
53. if(bullvolume AND !OscillatorOnly){
    
54. Plot(MAuv, "", colorGreen, styleLine);
    
55. }
    
56. if(bearvolume AND !OscillatorOnly){
    
57. Plot(MAdv, "", colorRed, styleLine);
    
58. }
    
59. Plot(0, "", colorBlue, 1);
    
60. Converge = (TEMA(MAuv - MAdv, ConvPer));
    
61. Converge1 = Ref(Converge, -1);
    
62. ConvergeUp = Converge > Converge1;
    
63. ConvergeOver = Converge > 0;
    
64. rising = ConvergeUp AND ConvergeOver;
    
65. falling = !ConvergeUp AND ConvergeOver;
    
66. convergenceOscillator = Param("Show Oscillator", 0, 0, 1, 1);
    
67. if(convergenceOscillator OR OscillatorOnly){
    
68. Plot(Converge, "Bull/Bear Volume Convergence/Divergence", colorViolet,
    
69. 1|styleLeftAxisScale|styleNoLabel|styleThick);
    
70. Plot(0,"", colorYellow, 1|styleLeftAxisScale|styleNoLabel);
    
71. }
    
72. riseFallColor = IIf(rising, 14,15);
    
73. riseFallShadows = Param("Show RiseFallShadows", 0, 0, 1, 1);
    
74. if(riseFallShadows){
    
75. Plot(IIf(rising OR falling, 1, 0), "", riseFallColor,
    
76. styleHistogram|styleArea|styleOwnScale|styleNoLabel);
    
77. }
    
78. GraphXSpace = 0.5;
    
79. _SECTION_END();
    

複製代碼

另一種成交量！白色是總量，紅色的買進的量，綠色是賣出的量！

綠茶妹

回復 5# thirtycm


    謝謝。這樣子清楚多了。

egglee

請問一下,如果我要以KD指標來選股的話,應該怎麼寫呢??

譬如說,我要挑出所以K破50的股票

謝謝各位大大!

綠茶妹

回復 8# egglee


    http://www.coco-in.net/viewthread.php?tid=1753

這一篇為AmiBroker的選股功能，條件改成KD就能用了。

egglee

回復 9# 綠茶妹


    綠茶大,那篇我爬過了,但是我不知道KD值的K值要怎麼取出來耶

egglee

呼~~好不容易寫出來了~~

但是跑出來的數值跟看盤軟體的不一樣說

除了參數,還有那裡需要注意呢

拜託好心人指點一下吧

minc

_SECTION_BEGIN("k over 50");
periods = Param( "Periods", 15, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
K=StochK( periods , Ksmooth);
Buy = K > 50 and Ref(K, -1) < 50;
Sell = K <50 and Ref(K, -1) >50;
_SECTION_END();

當k今天大於50時，出現Buy，跌破50時，為sell

minc

kd指標參數(15,3,3)？

我發現我越來越看的懂AFL的程式了。哈。
程式13~15行是畫三條線，分別為20,80,50。 ...
綠茶妹 發表於 10-1-12 02:53 PM

其實不一定要劃這三條線


在kd圖中，按右鍵，選parameters -> Axes & Grids -> levels -> 在20/80，50 打勾就行了，另外，show middle line 改no

綠茶妹

回復 13# minc


    謝謝...原來可以這樣子用啊

Sirius

回復 13# minc


    之前竟然沒注意到原來也可以這樣用