HSP程式交易論壇 >> 程式交易 >> 論壇主區 >> HSQL語言討論區 >> 請教指定條件進出場的語法
請教指定條件進出場的語法 n265564,2012-02-29 01:15:50

請問一下.....假設我希望設計一個程式，是要做到以A條件進場就以a條件出場、以B條件進場就以b條件出場...依此類推，那我以下寫法何處需要修改？
 
以下前置條件：
//多單進場
If X1 & X2 & X3 Then
Va=1
End If
If X4 & X5 & X6 Then
Vb=1
End If
//空單進場
If Y1 & Y2 & Y3 Then
Vc=1
End If
If Y4 & Y5 & Y6 Then
Vd=1
End If
 
//多單出場
If x1 & x2 & x3 Then
Va=0
End If
If x4 & x5 & x6 Then
Vb=0
End If
//空單出場
If y1 & y2 & y3 Then
Vc=0
End If
If y4 & y5 & y6 Then
Vd=0
End If
 
然後主程式如下：
//多單進場
If Va=1 Then
下單(參考價位、操作訊號、Show、下單機、單K計數器，以下同)
End If
If Vb=1 Then
下單
End If
 
//空單進場
If Vc=1 Then
下單
End If
If Vd=1 Then
下單
End If
........（停損、停利、尾盤平倉）
 
//多單出場
If Va=1 Then
If Va=0 Then
多單平倉(參考價位、操作訊號、Show、下單機、單K計數器，以下同)
End If
End If
If Vb=1 Then
If Vb=0 Then
多單平倉
End If
End If
 
//空單出場
If Vc=1 Then
If Vc=0 Then
空單平倉
End If
End If
If Vd=1 Then
If Vd=0 Then
空單平倉
End If
End If
煩請解惑，感恩~~[EM10][EM12]
Hunta,2012-02-29 09:12:16

你的:
//多單出場
If Va=1 Then
If Va=0 Then
多單平倉(參考價位、操作訊號、Show、下單機、單K計數器，以下同)
End If
End If
If Vb=1 Then
If Vb=0 Then
多單平倉
End If
End If
 
//空單出場
If Vc=1 Then
If Vc=0 Then
空單平倉
End If
End If
If Vd=1 Then
If Vd=0 Then
空單平倉
End If
End If

這一段好像不大對，應該永遠不會執行
因為:
IF Va = 1 Then
IF Va = 0 Then
這不是相互矛盾?
n265564,2012-02-29 09:40:42

是啊
我也發現這點
但不知道如何改...
Hunta,2012-02-29 11:58:47

我覺得邏輯應改為:

//多單進場
If X1 & X2 & X3 Then
Va=1
End If
If X4 & X5 & X6 Then
Vb=1
End If
//空單進場
If Y1 & Y2 & Y3 Then
Vc=1
End If
If Y4 & Y5 & Y6 Then
Vd=1
End If
 
 
然後主程式如下：
//多單進場
If Va=1 Then
下單(參考價位、操作訊號、Show、下單機、單K計數器，以下同)
End If
If Vb=1 Then
下單
End If
 
//空單進場
If Vc=1 Then
下單
End If
If Vd=1 Then
下單
End If
........（停損、停利、尾盤平倉）
 
//多單出場
If Va=1 Then
多單平倉(參考價位、操作訊號、Show、下單機、單K計數器，以下同)
End If
If Vb=1 Then
多單平倉
End If
 
//空單出場
If Vc=1 Then
空單平倉
End If
If Vd=1 Then
空單平倉
End If
n265564,2012-02-29 19:55:12

//多單出場
If Va=1 Then
多單平倉(參考價位、操作訊號、Show、下單機、單K計數器，以下同)
End If
If Vb=1 Then
多單平倉
End If
 
//空單出場
If Vc=1 Then
空單平倉
End If
If Vd=1 Then
空單平倉
End If

這樣子改法，會不會造成我一以Va=1條件進場，程式馬上又以Va=1條件出場？！
Hunta,2012-02-29 20:30:57

你要先判斷
目前部位
有單
再進行出場判斷
 97 1 8: 此主題共有6帖 此頁6帖 每頁12帖 

[查看完整模式]

LeadBBS 5.0 耗時62.5毫秒 請求2次