maikeywu   |
級別 論壇遊俠
積分 42
經驗 814
文章 28
註冊 14-11-19 22:13
|
|
 |
 發表: 2014-12-12 15:57:13 人氣:42732  | 樓主 |
策略執行，單1分K同時出現賣出及平倉的符號
版主你好
懇請你協助，因接觸HSP沒多久，一直在摸索，最近寫了一個一分K的當沖程式，但是無論在即時狀態或非即時狀態執行策略，都會發現會有單K同時出現空單買進及平倉的訊號，也就是買進和平倉的訊息符號重疊在一起，又確實在即時狀態下會輸出賣出空單的命令列，卻沒有平倉的命令列，用DEBUG 去看同是出現買進和平倉的K時，部位多空是0 . 這樣絕對會出現錯誤賣空單的狀況，多單的邏輯與空單相反，但多單就沒這個錯誤且動作都正常，DEBUG足足一星期都看不出成是哪裡錯誤，我用的是1分K 以下是我空單進場及平倉的程式，可以幫我看一下可能哪裡語法錯誤嗎? 我都有用部位多空及單K計數來鎖住訊號!!
1160 // 空單進場
1170 If 目前部位( 倉位多空 ) = 0 Then
1180 If 1分_K線時間 >= 850 And 1分_K線時間 <= 1340 Then
1190 If 單K計數器( 目前K線 , 1 ) = 0 Then
1200 區間振幅# = 前1_1分_區間最高價( 60 ) - 前1_1分_區間最低價( 60 )
1210 If 1分_均線交叉狀態( 6 , 27 ) = -1 And 1分_均線趨勢( 6 ) = -1 And 1分_均線趨勢( 27 ) = -1 Then
1220 If ( 1分_開盤價 - 1分_收盤價 ) > 0 And ( 前1_1分_開盤價 - 前1_1分_收盤價 ) > 0 And ( 5分_開盤價 - 5分_收盤價
) > 0 Then
1230 口數# = 1
1240 參考價位# = 1分_收盤價
1250 GoSub 空單績效
1260 操作訊號( 空單建倉 , 口數#口 , 參考價位# )
1270 Show [ K線上方 , ▼ ]
1280 Vb = 1分_最高價 + 10
1290 顯示文字[ 參考價位# , 主畫面 , ( -1 , Vb ) , 字型: Calibri , 大小: 012 , 顏色: 16777215 ]
1300 S1$ = '-1'
1310 S2$ = Cstr( 參考價位# )
1320 輸出命令檔( F:\1MM.TXT , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$]□[S2$] , 不限 )
1330 播放聲音( 空單進場.wav , 單次 )
1340 單K計數器( 目前K線 , 1 ) = 參考價位#
1350 Vo = -1
1360 End If
1370 Else
1380 // 單K跌12點以上追空單
1390 If 1分_開盤價 - 1分_收盤價 > 12 Then
1400 口數# = 1
1410 參考價位# = 1分_收盤價
1420 GoSub 空單績效
1430 操作訊號( 空單建倉 , 口數#口 , 參考價位# )
1440 Show [ K線上方 , ▼ ]
1450 Vb = 1分_最高價 + 10
1460 顯示文字[ 參考價位# , 主畫面 , ( -1 , Vb ) , 字型: Calibri , 大小: 012 , 顏色: 16777215 ]
1470 S1$ = '-1'
1480 S2$ = Cstr( 參考價位# )
1490 輸出命令檔( F:\1MM.TXT , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$]□[S2$] , 不限 )
1500 播放聲音( 空單進場.wav , 單次 )
1510 單K計數器( 目前K線 , 1 ) = 參考價位#
1520 Vo = -1
1530 End If
1540 End If
1550 Else
1560 口數# = 1
1570 參考價位# = 單K計數器( 目前K線 , 1 )
1580 操作訊號( 空單建倉 , 口數#口 , 參考價位# )
1590 Show [ K線上方 , ▼ ]
1600 Vb = 1分_最高價 + 10
1610 顯示文字[ 參考價位# , 主畫面 , ( -1 , Vb ) , 字型: Calibri , 大小: 012 , 顏色: 16777215 ]
1620 Vo = -1
1630 End If
1640 End If
1650 End If
1890 // 空單停損
1900 If 目前部位( 倉位多空 ) < 0 Then
1910 If 單K計數器( 目前K線 , 5 ) = 0 Then
1920 建倉距離# = K線序號( 目前K線 ) - 目前部位( 第 1 次建倉K線序號 )
1930 If 條件觸發[ 單一筆單虧損10點 ] = 是 Then
1940 參考價位# = 1分_收盤價
1950 GoSub 空單績效
1960 操作訊號( 空單平倉 , 全數 , 參考價位# )
1970 Show [ K線上方 , ※ ]
1980 S1$ = '0'
1990 S2$ = Cstr( 參考價位# )
2000 輸出命令檔( F:\1MM.TXT , [yyyy]/[mm]/[dd]□[hh]:[nn]:[ss]□[S1$]□[S2$] , 不限 )
2010 播放聲音( 空單平倉.wav , 單次 )
2020 單K計數器( 目前K線 , 5 ) = 參考價位#
2030 End If
2040 Else
2050 參考價位# = 單K計數器( 目前K線 , 5 )
2060 操作訊號( 空單平倉 , 全數 , 參考價位# )
2070 Show [ K線上方 , ※ ]
2080 End If
2090 End If |
|
|
