把不同時間週期的 KD 指標 不失真的畫在同一個圖表上

meimeichen

好些人說 看KD 要看 不同的時間週期 拿來一起比較，要怎麼做才能夠 同一個圖表卻顯示不同週期的數據呢

這是我所採用的方式做出來的指標 大家玩玩看合不合自己的胃口
有沒有那麼點味道 嘍

MultiTimeFrame KD Lines.txt (1.65 KB, 下載次數: 214, 售價: 1 金錢)

12-3-13 20:32 上傳

點擊文件名下載附件

jiuhtsair

感謝大大提供學習機會。謝謝！

bacardi

meimei出品, 必屬佳作

TWJJLIN

meimeichen大太強了~已經爐火純青了~

mars777

哇～～～～～～～好特別～～～～～～～～～～

Dogfaceman

是週期共振的概念嗎
以此類推應該也可以用在不同的指標上～
感謝mei大～

meimeichen

這是 HTS 的版本 就玩玩看嘍

1. Parameters : KTrend(True),KDLines(True), MultiKDLines(True),OverSold(20), OverBought(80)
   
2. Parameters : ShortK(9),MiddleK(5),LongK(10)
   
3. VARIABLES  : SK(50),MK(50),LK(50),SRSV(0),MRSV(0),LRSV(0)
   
4. VARIABLES  : SlowD(50),MD(50),LD(50)
   
5. Variables  :StdKDKBars(ShortK),MiddleKBars(ShortK*MiddleK),LongKBars(LongK*ShortK)
   
6. Variables  :MRSVBars(0),LRSVBars(0)
   
7. Variables  :BarCount(0)
   
8. StdKDKBars = ShortK
   
9. MiddleKBars= ShortK*MiddleK
   
10. LongKBars  = LongK*ShortK
    
11. 
    
12. BarCount += 1
    
13. 
    
14. 
    
15. //DrawBase1( OverBought, "Over Bought", DarkGray  )
    
16. //DrawBase2( OverSold, "Over Sold", DarkGray  )
    
17. //DrawBase3(50,"50", DarkGray)
    
18. IF KDLines
    
19. THen
    
20. SRSV = (Close - Lowest(Low,StdKDKBars)) / (Highest(High,StdKDKBars) - Lowest(Low,StdKDKBars)) * 100
    
21. //SRSV = (Close - Lowest(Low,9)) / (Highest(High,9) - Lowest(Low,9)) * 100
    
22. SK = (SK[1] * 2 + SRSV  ) /3
    
23. SlowD = (SLowD[1] *2 + SK ) /3
    
24. Draw4(SK, "%K",Red)
    
25. Draw3(SlowD,"%D",Green)
    
26. Else
    
27. // NoDraw(4)
    
28. // NoDraw(3)
    
29. End IF
    
30. 
    
31. IF MultiKDLines
    
32. Then
    
33. MRSVBars = Mod(BarCount,MiddleK) + (ShortK-1) * MIddleK + 1
    
34. //MRSV = (Close - Lowest(Low,MRSVBars)) / (Highest(High,MRSVBars) - Lowest(Low,MRSVBars)) * 100
    
35. MRSV = (Close - Lowest(Low,MiddleKBars)) / (Highest(High,MiddleKBars) - Lowest(Low,MiddleKBars)) * 100
    
36. MK   = ( MK[MOD(BarCount,MiddleK)+1] *2 + MRSV  ) /3
    
37. MD   = ( MD[MOD(BarCount,MiddleK)+1] *2 + MK    ) /3
    
38. 
    
39. LRSVBars = Mod(BarCount,LongK)  + (ShortK-1) * LongK + 1
    
40. //LRSV = (Close - Lowest(Low,LRSVBars)) / (Highest(High,LRSVBars) - Lowest(Low,LRSVBars)) * 100
    
41. LRSV = (Close - Lowest(Low,LongKBars)) / (Highest(High,LongKBars) - Lowest(Low,LongKBars)) * 100
    
42. LK   = (LK[MOD(BarCount,LongK)+1] *2 + LRSV ) /3
    
43. LD   = (LD[MOD(BarCount,LongK)+1] *2 + LK   ) /3
    
44. 
    
45. //Draw2(MK, "%mK",IFF(MK > MK[1],Red,Green))
    
46. //Draw1(LK, "%lK",IFF(LK > LK[1],Red,Green))
    
47. //Draw2(MK, "%mK",IFF(MK > MD,RGB(255,121,0),RGB(0,121,255)))
    
48. //Draw1(LK, "%lK",IFF(LK > LD,RGB(255,232,0),RGB(0,232,255)))
    
49. IF KTrend
    
50. Then
    
51.   Draw2(MK, "%mK",IFF(MK > MK[1],RGB(255,0,121),RGB(0,255,121)))
    
52.   Draw1(LK, "%lK",IFF(LK > LK[1],RGB(255,0,232),RGB(0,255,232)))
    
53. Else
    
54.   Draw2(MK, "%mK",IFF(MK > MD,RGB(255,0,121),RGB(0,255,121)))
    
55.   Draw1(LK, "%lK",IFF(LK > LD,RGB(255,0,232),RGB(0,255,232)))
    
56. End IF
    
57. 
    
58. 
    
59.   
    
60. Else
    
61. //NODraw(2)
    
62. //NoDraw(1)
    
63. End IF
    
64. 
    
65. //Draw3(MK, "M% K",RGB(181,55,171))
    
66. //Draw4(LK, "L% K",Blue)
    
67. 
    
68. TXT_Delete(Value6)
    
69. IF SK > SlowD
    
70. Then
    
71. Value6 = Txt_New(Date,Time,25,space(15) + "↑S " + numtostr(SK - SlowD,2) )
    
72. TXT_SetStyle( value6, 0, 0 )
    
73. TXT_SetColor(Value6,Red)
    
74. Else
    
75. Value6 = Txt_New(Date,Time,25,space(15) + "↓S " + numtostr(SK - SlowD,2) )
    
76. TXT_SetStyle( value6, 0, 0 )
    
77. TXT_SetColor(Value6,Green)
    
78. End IF
    
79. 
    
80. TXT_Delete(Value7)
    
81. IF MK > MD
    
82. Then
    
83. Value7 = Txt_New(Date,Time,55,space(15) + "↑M " + numtostr(MK - MD,2) )
    
84. TXT_SetStyle( value7, 0, 0 )
    
85. TXT_SetColor(Value7,Red)
    
86. Else
    
87. Value7 = Txt_New(Date,Time,55,space(15) + "↓M " + numtostr(MK - MD,2) )
    
88. TXT_SetStyle( value7, 0, 0 )
    
89. TXT_SetColor(Value7,Green)
    
90. End IF
    
91. 
    
92. TXT_Delete(Value8)
    
93. IF MK > MD
    
94. Then
    
95. Value8 = Txt_New(Date,Time,90,space(15) + "↑L " + numtostr(LK - LD,2) )
    
96. TXT_SetStyle( value8, 0, 0 )
    
97. TXT_SetColor(Value8,Red)
    
98. Else
    
99. Value8 = Txt_New(Date,Time,90,space(15) + "↓L " + numtostr(LK - LD,2) )
    
100. TXT_SetStyle( value8, 0, 0 )
     
101. TXT_SetColor(Value8,Green)
     
102. End IF
     
103. 
     
104. 
     
105. 
     
106. 
     

複製代碼

coco1234

meimeichen大是佛心來著

meimeichen

有網友問我說 如果一分K裏頭 要顯示  15 30 60 分 K線的 KD指標要怎麼做
怎麼做好呢?  
0. 打開 一分鐘K線圖
1. 把兩張圖貼在一起 這樣最快 連改都不用改
2. 修正一下指標內容  再增加一組 SLK SLD  變成   SK SD MK MD LK LD SLK SLD 四組線條
相關計算 就 Copy Rename 修正一下就可以了
參數就從原來的 9 5 15 改成 9 15 30 60  您就可以同步看到 四組不同周期的 KD指標 綁在同一個指標上嘍


如果您怕她吃資源 那就更簡單了
指標設定裏頭 把 每個Tick 更新一次的部分 取消點選就ok啦

cloud667x

出現浮點運算操作不正確的問題~~~~

sunjiamin

好貼啊，m大，強悍。

meimeichen

cloud667x 發表於 12-4-4 21:18
出現浮點運算操作不正確的問題~~~~

查一下  計算的部分   可能有  除數是零部分吧
短周期的時候 這情況就會發生 加一個檢查上去 就可以過關了

mjlee

感謝大大提供學習機會。謝謝！

vincent_shen

謝謝meimeichen大大分享！

hncgj

謝謝meimeichen大大分享