Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-09-10 13:26:35   | 第3樓 |
一般來說，進出場價格會跳動，通常是使用This Bar策略；而This Bar策略可分兩類，一類是採用固定點數進出場，另一類則為不固定點數，如KD或MACD交叉之類。
以下列出此兩種策略之因應方案:
一、固定點數進出場
策略條件:最近8根K棒，若自最高點下跌35點，則空單進場;若自最低點上漲35點，則多單進場。
程式碼如下:
10 Vh = 前1_5分_收盤價
20 Vl = Vh
30 For Vc = 1 To 8 Step 1
40 Vf = 前Vc_5分_最高價 - 5分_最低價
50 If Vf >= 35 Then
60 Vh = 前Vc_5分_最高價
70 Exit For
80 End If
90 Vg = 5分_最高價 - 前Vc_5分_最低價
100 If Vg >= 35 Then
110 Vl = 前Vc_5分_最低價
120 Exit For
130 End If
140 Next
150
160 Vm = 0
170 // 多單進場
180 If 目前部位( 倉位多空 ) <= 0 Then
190 If 5分_最高價 - Vl >= 35 Then
200 Va = Vl + 35
210 If Va < 5分_開盤價 Then
220 Va = 5分_開盤價
230 End If
240 操作訊號( 空單平倉 , 1口 , Va )
250 操作訊號( 多單建倉 , 1口 , Va )
260 Show [ K線下方 , ↑ ]
270 S1$ = '多' + Cstr( Va )
280 Vb = 5分_最低價 - 15
290 顯示文字[ S1$ , 主畫面 , ( 0 , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
300 Vm = 1
310 End If
320 End If
330
340 // 空單進場
350 If Vm = 0 And 目前部位( 倉位多空 ) >= 0 Then
360 If Vh - 5分_最低價 >= 35 Then
370 Va = Vh - 35
380 If Va > 5分_開盤價 Then
390 Va = 5分_開盤價
400 End If
410 操作訊號( 多單平倉 , 1口 , Va )
420 操作訊號( 空單建倉 , 1口 , Va )
430 Show [ K線上方 , ↓ ]
440 S1$ = '空' + Cstr( Va )
450 Vb = 5分_最高價 + 20
460 顯示文字[ S1$ , 主畫面 , ( 0 , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
470 End If
480 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0063.rda]http://www.huntasoft.com/hsp/0063.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0910-1.jpg[/IMGA]
二、非固定點數
策略條件:MACD黃金交叉，則做多；死亡交叉，則做空。(This Bar方式)
程式碼如下:
10 // 多單進場
20 If 目前部位( 倉位多空 ) <= 0 Then
30 If 單K計數器( 目前K線 , 0 ) = 0 Then
40 If 5分_MACD交叉( 10 , 10 , 20 ) = 是 And 交叉類型 = 1 Then
50 Va = 5分_收盤價
60 操作訊號( 空單平倉 , 1口 , Va )
70 操作訊號( 多單建倉 , 1口 , Va )
80 Show [ K線下方 , ↑ ]
90 單K計數器( 目前K線 , 2 ) = Va
100 S1$ = '多' + Cstr( Va )
110 Vb = 5分_最低價 - 15
120 顯示文字[ S1$ , 主畫面 , ( 0 , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
130 單K計數器( 目前K線 , 0 ) = 1
140 End If
150 Else
160 Va = 單K計數器( 目前K線 , 2 )
170 操作訊號( 空單平倉 , 1口 , Va )
180 操作訊號( 多單建倉 , 1口 , Va )
190 Show [ K線下方 , ↑ ]
200 S1$ = '多' + Cstr( Va )
210 Vb = 5分_最低價 - 15
220 顯示文字[ S1$ , 主畫面 , ( 0 , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
230 End If
240 End If
250
260 // 空單進場
270 If 目前部位( 倉位多空 ) >= 0 Then
280 If 單K計數器( 目前K線 , 1 ) = 0 Then
290 If 5分_MACD交叉( 10 , 10 , 20 ) = 是 And 交叉類型 = -1 Then
300 Va = 5分_收盤價
310 操作訊號( 多單平倉 , 1口 , Va )
320 操作訊號( 空單建倉 , 1口 , Va )
330 Show [ K線上方 , ↓ ]
340 單K計數器( 目前K線 , 3 ) = Va
350 S1$ = '空' + Cstr( Va )
360 Vb = 5分_最高價 + 20
370 顯示文字[ S1$ , 主畫面 , ( 0 , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
380 單K計數器( 目前K線 , 1 ) = 1
390 End If
400 Else
410 Va = 單K計數器( 目前K線 , 3 )
420 操作訊號( 多單平倉 , 1口 , Va )
430 操作訊號( 空單建倉 , 1口 , Va )
440 Show [ K線上方 , ↓ ]
450 S1$ = '空' + Cstr( Va )
460 Vb = 5分_最高價 + 20
470 顯示文字[ S1$ , 主畫面 , ( 0 , Vb ) , 字型: 新細明體 , 大小: 009 , 顏色: 16777215 ]
480 End If
490 End If
下載程式碼 [URL=http://www.huntasoft.com/hsp/0064.rda]http://www.huntasoft.com/hsp/0064.rda[/URL]
執行結果如下:
[IMGA=0,absMiddle]http://www.huntasoft.com/hsp/pic/0910-2.jpg[/IMGA]
[B][COLOR=#ff0000]注意!!版本必須更新至v3.9c版以上，才可正常執行0063.rda。[/COLOR][/B]
|
[ 此貼最後由Hunta在2009/9/10 下午 01:51:03編輯過 ]
|
|
