Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2009-07-08 11:06:26 人氣:3847   | 樓主 |
「輸出命令檔」函數大幅簡化輸出命令檔程序!!
HSP之前版本或是其他策略平台，對於輸出命令檔的部份，總是需要花費數行或十數行程式來處理，頗佔篇幅亦花時間，而目前新增之「輸出命令檔」函數大大簡化了此步驟，通常只需1,2行即可搞定。
各位可以比較以下範例即可瞭解前後差異:
(下例命令檔輸出格式為yyyy/mm/dd hh:mm 多空部位，命令檔路徑為c:\cur_amd.txt)
原本程式寫法:
10 If 前1_5分_MACD交叉( 10 , 10 , 20 ) = 是 Then
20 If 交叉類型 = 1 Then
30 If 目前部位( 倉位多空 ) <= 0 Then
40 Show [ K線下方 , 多 ]
50 Va = 5分_開盤價
60 操作訊號( 空單平倉 , 1口 , Va )
70 操作訊號( 多單建倉 , 1口 , Va )
80 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
90 GoSub date_time
100 S1$ = S1$ + '1'
110 輸出文字檔( C:\cur_cmd.txt , S1$ )
120 單K計數器( 目前K線 , 0 ) = 1
130 End If
140 End If
150 Else
160 If 目前部位( 倉位多空 ) >= 0 Then
170 Show [ K線上方 , 空 ]
180 Va = 5分_開盤價
190 操作訊號( 多單平倉 , 1口 , Va )
200 操作訊號( 空單建倉 , 1口 , Va )
210 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
220 GoSub date_time
230 S1$ = S1$ + '-1'
240 輸出文字檔( C:\cur_cmd.txt , S1$ )
250 單K計數器( 目前K線 , 0 ) = 1
260 End If
270 End If
280 End If
290 End If
300
310 Sub date_time
320 Vb = 目前時間( 西元年4碼 )
330 S1$ = Cstr( Vb ) + '/'
340 Vb = 目前時間( 月 )
350 If Vb < 10 Then
360 S1$ = S1$ + '0' + Cstr( Vb ) + '/'
370 Else
380 S1$ = S1$ + Cstr( Vb ) + '/'
390 End If
400 Vb = 目前時間( 日 )
410 If Vb < 10 Then
420 S1$ = S1$ + '0' + Cstr( Vb ) + ' '
430 Else
440 S1$ = S1$ + Cstr( Vb ) + ' '
450 End If
460 Vb = 目前時間( 時 )
470 If Vb < 10 Then
480 S1$ = S1$ + '0' + Cstr( Vb ) + ':'
490 Else
500 S1$ = S1$ + Cstr( Vb ) + ':'
510 End If
520 Vb = 目前時間( 分 )
530 If Vb < 10 Then
540 S1$ = S1$ + '0' + Cstr( Vb ) + ' '
550 Else
560 S1$ = S1$ + Cstr( Vb ) + ' '
570 End If
580 End Sub
目前程式寫法:
10 If 前1_5分_MACD交叉( 10 , 10 , 20 ) = 是 Then
20 If 交叉類型 = 1 Then
30 If 目前部位( 倉位多空 ) <= 0 Then
40 Show [ K線下方 , 多 ]
50 Va = 5分_開盤價
60 操作訊號( 空單平倉 , 1口 , Va )
70 操作訊號( 多單建倉 , 1口 , Va )
80 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
90 S1$ = '1'
100 [COLOR=#ff0033]輸出命令檔( c:\cur_cmd.txt , [yyyy]/[mm]/[dd]□[hh]:[nn]□[S1$] )[/COLOR]
110 單K計數器( 目前K線 , 0 ) = 1
120 End If
130 End If
140 Else
150 If 目前部位( 倉位多空 ) >= 0 Then
160 Show [ K線上方 , 空 ]
170 Va = 5分_開盤價
180 操作訊號( 多單平倉 , 1口 , Va )
190 操作訊號( 空單建倉 , 1口 , Va )
200 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
210 S1$ = '-1'
220 [COLOR=#ff0033]輸出命令檔( c:\cur_cmd.txt , [yyyy]/[mm]/[dd]□[hh]:[nn]□[S1$] )[/COLOR]
230 單K計數器( 目前K線 , 0 ) = 1
240 End If
250 End If
260 End If
270 End If |
|
|
