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 |
|
|
