mingyi1973 |
級別 職業俠客 積分 72 經驗 1777 文章 64 註冊 09-06-15 13:52
|
|
|
發表: 2009-07-01 15:50:39 人氣:50050 | 樓主 |
請問三口操作的問題
版大我想請教我想以三口操作
1.如果5MA與40MA黃金交叉則做多三口
2.如果漲超過35點先獲利平倉一口
3.如果5MA與20MA死亡交叉則再獲利平倉一口
但是2或3不一定那一個先發生
所以我就這樣寫,可是第二口一直無法出現
請幫我看一下問題出在那裡?謝謝!!! 350 // 多單進場 360 If 目前部位( 倉位多空 ) <= 0 Then 370 If 5分_均線交叉( 5 , 40 ) = 是 And 交叉類型 = 1 Then 380 Vb = 1 390 If 目前部位( 倉位多空 ) < 0 Then 400 Vb = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 ) 410 End If 420 If Vb >= 1 Then 430 Vi = 5分_最低價 - 10 440 S4$ = '多' + Cstr( Va ) 450 顯示文字[ S4$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 12615935 ] 460 操作訊號( 空單平倉 , 3口 , Va ) 470 操作訊號( 多單建倉 , 3口 , Va ) 480 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 490 GoSub date_time 500 S1$ = S1$ + '3' + ' ' + Cstr( Va ) 510 輸出文字檔( R:\hsp01.txt , S1$ ) 520 單K計數器( 目前K線 , 0 ) = 1 530 End If 540 End If 550 End If 560 End If 570 580 // 多單停利一 590 If 目前部位( 倉位多空 ) > 0 Then 600 If 單K計數器( 目前K線 , 0 ) = 0 Then 610 Vf = 5分_最高價 - 目前部位( 第 1 次成本價位 ) 620 Vg = 5分_收盤價 630 If Vf >= 35 Then 640 Vi = 5分_最低價 - 10 650 S2$ = '1利' + Cstr( Vg ) 660 顯示文字[ S2$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ] 670 操作訊號( 多單平倉 , 1口 , Vg ) 680 單K計數器( 目前K線 , 0 ) = 1 690 ElseIf 5分_均線交叉( 5 , 20 ) = 是 And 交叉類型 = -1 Then 700 Vi = 5分_最低價 - 10 710 S2$ = '1利' + Cstr( Vg ) 720 顯示文字[ S2$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ] 730 操作訊號( 多單平倉 , 1口 , Vg ) 740 單K計數器( 目前K線 , 0 ) = 1 750 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 760 GoSub date_time 770 S1$ = S1$ + '2' + ' ' + Cstr( Vg ) 780 輸出文字檔( R:\hsp01.txt , S1$ ) 790 End If 800 End If 810 End If 820 End If 830 840 // 多單停利二 850 If 目前部位( 倉位多空 ) > 0 Then 860 If 單K計數器( 目前K線 , 0 ) = 0 Then 870 Vf = 5分_最高價 - 目前部位( 第 1 次成本價位 ) 880 Vg = 5分_收盤價 890 If Vf >= 35 Then 900 Vi = 5分_最低價 - 10 910 S10$ = '2利' + Cstr( Vg ) 920 顯示文字[ S10$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ] 930 操作訊號( 多單平倉 , 1口 , Vg ) 940 單K計數器( 目前K線 , 0 ) = 1 950 ElseIf 5分_均線交叉( 5 , 20 ) = 是 And 交叉類型 = -1 Then 960 Vi = 5分_最低價 - 10 970 S10$ = '2利' + Cstr( Vg ) 980 顯示文字[ S10$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ] 990 操作訊號( 多單平倉 , 1口 , Vg )
1000 單K計數器( 目前K線 , 0 ) = 1
1010 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then
1020 GoSub date_time
1030 S1$ = S1$ + '1' + ' ' + Cstr( Vg )
1040 輸出文字檔( R:\hsp01.txt , S1$ )
1050 End If
1060 End If
1070 End If
1080 End If |
|
|