Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-09-04 11:01:48 人氣:12325   | 樓主 |
This Bar策略如何標示「正確出場價」及計算「正確回測績效」
一般使用者對於This Bar策略程式「標示正確出場價」及「計算正確回測績效」這兩個問題上，常常會有一些困擾，所以特別編寫一範例程式供有興趣者參考。
策略條件:
以每天前5根K線之區間最高價(Vh)及區間最低價(Vl)為基準，凡是前一根K線收盤價大於Vh則多單進場；前一根K線收盤價小於Vl則空單進場。
若多單進場後，一旦價格跌破Vl，則多單停損出場；若空單進場後，一旦價格漲破Vh，則空單停損出場。
每日13:40若手上仍有部位一律平倉出場。
程式碼如下:
10 If 5分_K線時間 = 910 Then
20 Vh = 5分_區間最高價( 5 )
30 Vl = 5分_區間最低價( 5 )
40 Vs = 0
50 End If
60
70 // 多單進場
80 If 5分_K線時間 > 915 And Vs = 0 Then
90 If 前1_5分_收盤價 > Vh Then
100 Va = 5分_開盤價
110 Show [ K線下方 , ↑ ]
120 操作訊號( 多單建倉 , 1口 , Va )
130 S1$ = '多' + Cstr( Va )
140 Vd = 5分_最低價 - 15
150 顯示文字[ S1$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
160 Vs = 1
170 End If
180 End If
190
200 // 空單進場
210 If 5分_K線時間 > 915 And Vs = 0 Then
220 If 5分_收盤價 < Vl Then
230 Va = 5分_開盤價
240 Show [ K線上方 , ↓ ]
250 操作訊號( 空單建倉 , 1口 , Va )
260 S1$ = '空' + Cstr( Va )
270 Vd = 5分_最高價 + 20
280 顯示文字[ S1$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
290 Vs = 1
300 End If
310 End If
320
330 // 停損出場
340 If 目前部位( 倉位多空 ) <> 0 Then
350 If 目前部位( 倉位多空 ) > 0 And 5分_最低價 < Vl Then
360 操作訊號( 多單平倉 , 1口 , Vl )
370 Show [ K線下方 , ◎ ]
380 S1$ = '多損' + Cstr( Vl )
390 Vd = 5分_最低價 - 15
400 顯示文字[ S1$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
410 Vs = 0
420 End If
430 If 目前部位( 倉位多空 ) < 0 And 5分_最高價 > Vh Then
440 操作訊號( 空單平倉 , 1口 , Vh )
450 Show [ K線上方 , ◎ ]
460 S1$ = '空損' + Cstr( Vh )
470 Vd = 5分_最高價 + 20
480 顯示文字[ S1$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
490 Vs = 0
500 End If
510 End If
520
530 // 收盤出場
540 If 5分_K線時間 = 1345 And 目前部位( 倉位多空 ) <> 0 Then
550 Va = 5分_開盤價
560 If 目前部位( 倉位多空 ) > 0 Then
570 操作訊號( 多單平倉 , 1口 , Va )
580 Show [ K線下方 , ◎ ]
590 S1$ = '多平' + Cstr( Va )
600 Vd = 5分_最低價 - 15
610 顯示文字[ S1$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
620 Else
630 操作訊號( 空單平倉 , 1口 , Va )
640 Show [ K線上方 , ◎ ]
650 S1$ = '空平' + Cstr( Va )
660 Vd = 5分_最高價 + 20
670 顯示文字[ S1$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
680 End If
690 End If
下載程式碼[URL=http://www.huntasoft.com/hsp/0061.rda]http://www.huntasoft.com/hsp/0061.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0904-1.jpg[/IMGA]
|
|
|
