Hunta |
門派 管理員
職務 總版主
級別 法老
聲望 ＋100000
財富 100002
積分 101915
經驗 642850
文章 1733
註冊 09-04-10 17:15
|
|
 |
 發表: 2010-01-09 11:27:07   | 第2樓 |
10 If 1分_K線日期 <> 前1_1分_K線日期 Then
20 Vt = 0
30 End If
90
100 // 多單
110 If 單K計數器( 目前K線 , 0 ) = 0 Then
120 If 目前部位( 倉位多空 ) = 0 And Vt = 0 Then
130 (多單條件)
if 單K計數器 = 0 then
140 Show [ K線下方 , ◎ ]
150 操作訊號( 空單平倉 , 1口 , Vk )
160 操作訊號( 多單建倉 , 1口 , Vk )
170 Vt = 1
180 Vf = 目前部位( 第 1 次成本價位 )
190 單K計數器( 目前K線 , 0 ) = 1
else
Show [ K線下方 , ◎ ]
操作訊號( 空單平倉 , 1口 , Vk )
操作訊號( 多單建倉 , 1口 , Vk )
Vt = 1
Vf = 目前部位( 第 1 次成本價位 )
end if
200 End If
210 End If
220
230 // 空單
240 If 目前部位( 倉位多空 ) = 0 And Vt = 0 Then
250 (空單條件)
if 單K計數器 = 0 then
260 Show [ K線上方 , ◎ ]
270 操作訊號( 多單平倉 , 1口 , Vk )
280 操作訊號( 空單建倉 , 1口 , Vk )
290 Vt = -1
300 Vf = 目前部位( 第 1 次成本價位 )
310 單K計數器( 目前K線 , 0 ) = 1
else
Show [ K線上方 , ◎ ]
操作訊號( 多單平倉 , 1口 , Vk )
操作訊號( 空單建倉 , 1口 , Vk )
Vt = -1
Vf = 目前部位( 第 1 次成本價位 )
end if
320 End If
330 End If
340 End If
350
360 // 停損反手
380 If 目前部位( 倉位多空 ) <> 0 Then
400 If Vt = 1 Then
if 單K計數器 = 0 then
Vc = 目前部位( 總暫結績效 )
If Vc < -30 Then
410 Vf = Vf - 30
420 Show [ K線上方 , ★ ]
430 操作訊號( 多單平倉 , 1口 , V[COLOR=#f70909]f[/COLOR] )
440 操作訊號( 空單建倉 , 1口 , V[COLOR=#f70909]f[/COLOR] )
450 Vf = 目前部位( 第 [COLOR=#f70909]1[/COLOR] 次成本價位 )
470 Vt = 2
[SIZE=2] 單K計數器 = 1[/SIZE]
[SIZE=2] else[/SIZE]
[SIZE=3][SIZE=2] Vf = Vf - 30
Show [ K線上方 , ★ ]
操作訊號( 多單平倉 , 1口 , V[COLOR=#f70909]f[/SIZE] )
操作訊號( 空單建倉 , 1口 , V[COLOR=#f70909]f[/COLOR] )
Vf = 目前部位( 第 [COLOR=#f70909]1[/COLOR] 次成本價位 ) [/SIZE]
Vt = 2 [/COLOR]
[SIZE=3] end if[/SIZE]
End if
480 ElseIf Vt = 2 Then
[SIZE=3]if 單K計數器 = 0 then[/SIZE]
[SIZE=2] 490 Vc = 目前部位( 總暫結績效 )
500 If Vc < -30 Then
510 Vf = Vf + 30
520 Show [ K線下方 , ※ ]
530 操作訊號( 空單平倉 , 1口 , V[COLOR=#f70909]f[/SIZE] )
550 Vt = 0 [/COLOR]
[SIZE=2] [SIZE=3]單K計數器 = 1[/SIZE]
560 End If [/SIZE]
[SIZE=2] else[/SIZE]
[SIZE=2] Vf = Vf + 30
Show [ K線下方 , ※ ]
操作訊號( 空單平倉 , 1口 , V[COLOR=#f70909]f[/SIZE] )
Vt = 0
[/COLOR][SIZE=2] end if
[/SIZE] 570 End If
([COLOR=#f70909]停損空單反手比照上面[/COLOR])
770 End if
780
790 // 收盤
800 If 1分_K線時間 = 1340 Then
810 If 目前部位( 倉位多空 ) > 0 Then
820 Show [ K線上方 , ※ ]
830 操作訊號( 多單平倉 , 1口 , Vk )
840 End If
850 If 目前部位( 倉位多空 ) < 0 Then
860 Show [ K線下方 , ※ ]
870 操作訊號( 空單平倉 , 1口 , Vk )
880 End If
890 End If
[COLOR=#f70909]程式改好以後再試Run一下。[/COLOR]
另外，若有寄「保留優惠權益」者，費用照之前收費標準。 |
|
|
發表: 2010-01-09 01:34:36 人氣:42160