HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> HSQL語言討論區 >> 請幫忙將HTS系統交易4000的多空指標轉成HSP的程式碼
請幫忙將HTS系統交易4000的多空指標轉成HSP的程式碼
wintanfa,2010-09-16 22:48:27
[B]敬啟者您好:[/B]
[B]請幫忙將HTS系統交易4000的多空指標轉成HSP的程式碼[/B]
[B]程式碼為下
parameter:length(17)
vars:Value1(0)
Value1=max(H-L,H-L[1])
Value2=ema(C-C[1],length)
value3=ema(Value1,length)
value4=ema((Value2/value3)*100,length)
DrawBase1(0, "0", DarkGray)
draw2(value4,"紅多綠空[/B][B]",iff(value4>0,red,green))
[/B]
Hunta,2010-09-17 16:31:31
程式碼如下:
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]
97 1 8: 此主題共有2帖 此頁2帖 每頁12帖
[查看完整模式] LeadBBS 5.0 耗時62.5毫秒 請求2次
|