Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2010-09-17 16:31:31   | 第2樓 |
程式碼如下:
10 自訂技術指標[ #1 , 紅多綠空 ]
20 Vp = 17
30
40 載入陣列[ 5分_收盤價 , 收盤價 -> 陣列1 ]
50 A2{} = 陣列平移( 陣列1 , 向右位移 1 , 空位補 0 )
60 A2{} = 陣列運算( 陣列1 , 150 ~ 250 , - , 陣列2 )
70 A2{} = 陣列EMA( 陣列2 , 150 ~ 250 , 參數 Vp )
80
90 For Va = 0 To 100 Step 1
100 Vb = 前Va_5分_最高價 - 前Va_5分_最低價
110 Vc = Va + 1
120 Vd = 前Va_5分_最高價 - 前Vc_5分_最低價
130 Ve = Max( Vb , Vd )
140 Vf = 250 - Va
150 陣列單格填值( 陣列3 , #Vf , 填入 Ve )
160 Next
170 A3{} = 陣列EMA( 陣列3 , 200 ~ 250 , 參數 Vp )
180
190 A4{} = 陣列運算( 陣列2 , 200 ~ 250 , / , 陣列3 )
200 A4{} = 陣列運算( 陣列4 , 200 ~ 250 , * , 100 )
210 A4{} = 陣列EMA( 陣列4 , 200 ~ 250 , 參數 Vp )
220
230 Va = 陣列4值( 250 )
240 Vb = 陣列4值( 249 )
250 If 陣列4值( 250 ) > 0 Then
260 直線[ ( 0 , Va ) - (-1 , Vb ) , 技術1 , #1 , 數值 , 寬度: 1 , 樣式: 0 , 顏色: 255 ]
270 Else
280 直線[ ( 0 , Va ) - (-1 , Vb ) , 技術1 , #1 , 數值 , 寬度: 1 , 樣式: 0 , 顏色: 65280 ]
290 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0115.rda]http://www.huntasoft.com/hsp/0115.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0917-1.jpg[/IMGA]
[COLOR=#e70808]※請注意，因系統有一點Bug，目前已改正，請再重新下載安裝v6.2b版，方可執行本策略。[/COLOR] |
|
|
