mingyi1973 |
級別 職業俠客 積分 72 經驗 1777 文章 64 註冊 09-06-15 13:52
|
|
|
發表: 2009-06-16 13:26:56 | 第9樓 |
請教
我想以兩口操作
條件是5分_均線黃金交叉( 10 , 40 )則做多兩口
一旦5分_均線死亡交叉( 10 , 20 )先出一口
等5分_均線死亡交叉( 10 , 40 )則做空兩口
一旦5分_均線黃金交叉( 10 , 20 )先出一口
但我這樣寫結果將交易明細輸出到Excel 怎麼跟我想的口數都不一樣?
請幫我看看問題出在那裡!謝謝!
150 Va = 5分_開盤價 160 170 // 多單進場 180 If 目前部位( 倉位多空 ) <= 0 Then 190 If 5分_均線交叉( 10 , 40 ) = 是 And 交叉類型 = 1 Then 200 Vb = 1 210 If 目前部位( 倉位多空 ) < 0 Then 220 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 230 End If 240 If Vb >= 1 Then 250 Show [ K線下方 , 多 ] 260 操作訊號( 空單平倉 , 2口 , Va ) 270 操作訊號( 多單建倉 , 2口 , Va ) 280 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 290 GoSub date_time 300 S1$ = S1$ + '1' 310 輸出文字檔( C:\cur_cmd.txt , S1$ ) 320 單K計數器( 目前K線 , 0 ) = 1 330 End If 340 End If 350 End If 360 End If 370 380 If 目前部位( 倉位多空 ) > 0 Then 390 If 5分_均線交叉( 10 , 20 ) = 是 And 交叉類型 = -1 Then 400 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 410 If Vb >= 1 Then 420 Show [ K線上方 , ◎ ] 430 操作訊號( 多單平倉 , 1口 , Va ) 440 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 450 GoSub date_time 460 S1$ = S1$ + '1' 470 輸出文字檔( C:\cur_cmd.txt , S1$ ) 480 單K計數器( 目前K線 , 0 ) = 1 490 End If 500 End If 510 End If 520 End If 530 540 // 空單進場 550 If 目前部位( 倉位多空 ) >= 0 Then 560 If 5分_均線交叉(10 , 40 ) = 是 And 交叉類型 = -1 Then 570 Vb = 1 580 If 目前部位( 倉位多空 ) > 0 Then 590 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 600 End If 610 If Vb >= 1 Then 620 Show [ K線上方 , 空 ] 630 操作訊號( 多單平倉 , 2口 , Va ) 640 操作訊號( 空單建倉 , 2口 , Va ) 650 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 660 GoSub date_time 670 S1$ = S1$ + '1' 680 輸出文字檔( C:\cur_cmd.txt , S1$ ) 690 單K計數器( 目前K線 , 0 ) = 1 700 End If 710 End If 720 End If 730 End If 740 750 If 目前部位( 倉位多空 ) < 0 Then 760 If 5分_均線交叉( 10 ,20) = 是 And 交叉類型 = 1 Then 770 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 780 If Vb >= 1 Then 790 Show [ K線下方 , ◎ ] 800 操作訊號( 空單平倉 , 1口 , Va ) 810 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 820 GoSub date_time 830 S1$ = S1$ + '1' 840 輸出文字檔( C:\cur_cmd.txt , S1$ ) 850 單K計數器( 目前K線 , 0 ) = 1 860 End If 870 End If 880 End If 890 End If 900 910 Sub date_time 920 Vc = 目前時間( 西元年4碼 ) 930 S1$ = Cstr( Vc ) + '/' 940 Vc = 目前時間( 月 ) 950 If Vc < 10 Then 960 S1$ = S1$ + '0' + Cstr( Vc ) + '/' 970 Else 980 S1$ = S1$ + Cstr( Vc ) + '/' 990 End If
1000 Vc = 目前時間( 日 )
1010 If Vc < 10 Then
1020 S1$ = S1$ + '0' + Cstr( Vc ) + ''
1030 Else
1040 S1$ = S1$ + Cstr( Vc ) + ''
1050 End If
1060 Vc = 目前時間( 時 )
1070 If Vc < 10 Then
1080 S1$ = S1$ + '0' + Cstr( Vc ) + ':'
1090 Else
1100 S1$ = S1$ + Cstr( Vc ) + ':'
1110 End If
1120 Vc = 目前時間( 分 )
1130 If Vc < 10 Then
1140 S1$ = S1$ + '0' + Cstr( Vc ) + ''
1150 Else
1160 S1$ = S1$ + Cstr( Vc ) + ''
1170 End If
1180 End Sub |
|
|