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]
|
|
|
