Hunta |
門派 管理員 職務 總版主 級別 法老 聲望 +100000 財富 100002 積分 101915 經驗 642850 文章 1733 註冊 09-04-10 17:15
|
|
|
發表: 2010-05-13 16:30:10 | 第3樓 |
程式碼如下: 10 自訂技術指標[ #1 , OBV ] 20 30 If 初始K線 = 是 Then 40 總和OBV# = 0 50 For Va = 1 To 30 Step 1 60 If 前Va_5分_最高價 <> 前Va_5分_最低價 Then 70 Vb = ( ( 前Va_5分_收盤價 - 前Va_5分_最低價 ) - ( 前Va_5分_最高價 - 前Va_5分_收盤價
) ) / ( 前Va_5分_最高價 - 前Va_5分_最低價 ) * 前Va_5分_成交量 80 Else 90 Vb = 0 100 End If 110 總和OBV# = 總和OBV# + Vb 120 Next 130 End If 140 150 Va = 30 160 前30OBV# = ( ( 前Va_5分_收盤價 - 前Va_5分_最低價 ) - ( 前Va_5分_最高價 - 前Va_5分_收盤價
) ) / ( 前Va_5分_最高價 - 前Va_5分_最低價 ) * 前Va_5分_成交量 170 Va = 0 180 目前OBV# = ( ( 前Va_5分_收盤價 - 前Va_5分_最低價 ) - ( 前Va_5分_最高價 - 前Va_5分_收盤價
) ) / ( 前Va_5分_最高價 - 前Va_5分_最低價 ) * 前Va_5分_成交量 190 總和OBV# = 總和OBV# - 前30OBV# + 目前OBV# 200 210 平均OBV# = 0 220 For Va = 0 To 29 Step 1 230 平均OBV# = 平均OBV# + 前VaK線_總和OBV# 240 Next 250 平均OBV# = 平均OBV# / 30 260 270 Va = 總和OBV# 280 Vb = 前1K線_總和OBV# 290 Vc = 平均OBV# 300 Vd = 前1K線_平均OBV# 310 直線[ ( 0 , Va ) - (-1 , Vb ) , 技術1 , #1 , OBV , 寬度: 1 , 樣式: 0 , 顏色: 16777215 ] 320 直線[ ( 0 , Vc ) - (-1 , Vd ) , 技術1 , #2 , 平均 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
程3碼下載:[URL=http://www.huntasoft.com/hsp/0112.rda]http://www.huntasoft.com/hsp/0112.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0513-1.jpg[/IMGA] |
|
|