Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2010-04-15 11:10:29 | 第3樓 |
程式碼如下: 10 自訂技術指標[ #1 , FastKD ] 20 Va = 5 30 GoSub fastk 40 Va = 5 50 GoSub fastd 60 Vj = 前1K線_Vk 70 Vc = 前1K線_Vd 80 直線[ ( 0 , Vk ) - (-1 , Vj ) , 技術1 , #1 , %K , 寬度: 1 , 樣式: 0 , 顏色: 255 ] 90 直線[ ( 0 , Vd ) - (-1 , Vc ) , 技術1 , #2 , %D , 寬度: 1 , 樣式: 0 , 顏色: 3727616 ] 100 110 120 Sub fastk 130 變數1# = 5分_區間最低價( Va ) 140 變數2# = 5分_區間最高價( Va ) - 變數1# 150 If 變數2# > 0 Then 160 Vk = ( 5分_收盤價 - 變數1# ) / 變數2# * 100 170 Else 180 Vk = 0 190 End If 200 End Sub 210 220 Sub fastd 230 GoSub fastk 240 If 初始K線 = 是 Then 250 Vd = Vk 260 Else 270 Vd = 前1K線_Vd + ( 0.5 * ( Vk - 前1K線_Vd ) ) 280 End If 290 End Sub
程式碼下載 [URL=http://www.huntasoft.com/hsp/0108.rda]http://www.huntasoft.com/hsp/0108.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0415-1.jpg[/IMGA] |
|
|