mingyi1973 |
級別 職業俠客 積分 72 經驗 1777 文章 64 註冊 09-06-15 13:52
|
|
|
發表: 2009-06-18 19:06:12 | 第22樓 |
還有這個停損的部份 350 // 多單進場 360 If 單K計數器( 目前K線 , 0 ) = 1 Or ( 目前部位( 倉位多空 ) <= 0 And 5分_均線交叉( 10 , 20 )
= 是 And 交叉類型 = 1 ) Then 370 If 單K計數器( 目前K線 , 0 ) = 0 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分_最低價 - 1 440 S4$ = '多' + Cstr( Va ) 450 顯示文字[ S4$ , 主畫面 , ( 0 , Vi ) , 字型: 新細明體 , 大小: 010 , 顏色: 12615935 ] 460 操作訊號( 空單平倉 , 1口 , Va ) 470 操作訊號( 多單建倉 , 1口 , Va ) 480 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 490 GoSub date_time 500 S1$ = S1$ + '1' 510 輸出文字檔( C:\cur_cmd.txt , S1$ ) 520 單K計數器( 目前K線 , 0 ) = 1 530 End If 540 End If 550 End If 560 Else 570 Show [ K線上方 , ↑ ] 580 操作訊號( 空單平倉 , 1口 , Va ) 590 操作訊號( 多單建倉 , 1口 , Va ) 600 End If 610 620 // 多單停損 630 If 單K計數器( 目前K線 , 0 ) = 1 Or ( 目前部位( 倉位多空 ) > 0 ) Then 640 If 單K計數器( 目前K線 , 0 ) = 0 Then 650 Vf = 5分_最低價 - 目前部位( 第 1 次成本價位 ) 660 Vg = 5分_收盤價 670 If Vf <= -30 Then 680 Vd = 5分_最低價 - 4 690 S2$ = '損' + Cstr( Vg ) 700 顯示文字[ S2$ , 主畫面 , ( 0 , Vd ) , 字型: 新細明體 , 大小: 010 , 顏色: 8454143 ] 710 操作訊號( 多單平倉 , 1口 , Vg ) 720 If 最後K線 = 是 And 單K計數器( 目前K線 , 0 ) = 0 Then 730 GoSub date_time 740 S1$ = S1$ + '-1' 750 輸出文字檔( C:\cur_cmd.txt , S1$ ) 760 單K計數器( 目前K線 , 0 ) = 1 770 End If 780 End If 790 End If 800 End If |
|
|