四周規則能寫成VBA模板嗎,方便大家學習 [金字塔]
- 咨詢內容:
四周規則能寫成VBA模板嗎,方便大家學習
HHN:=ref(HHV(HIGH,20),1);
HLN:=ref(LLV(LOW,20),1);IF H>=HHN then
begin
sellshort(holding<0,0,thisclose);
buy(holding=0,1,thisclose);
endIF L<=HLN then
begin
sell(holding>0,0,thisclose);
buyshort(holding=0,1,thisclose);
end - 金字塔客服:
有必要嗎
圖表可以實現 VBA還要寫一遍。
- 用戶回復:
任何策略都可以用VBA來實現,只是代碼量比后臺或圖表策略大的多,調試也需要較長的時間。
如果只是單純的實現開平倉的目的,沒有必要使用VBa來做的。
- 網友回復:
Sub ForWeekRule
dim code
dim market
dim cyctype
dim highest
dim lowest
code="RU00"
market="SQ"
cyctype=5
set historydata =marketdata.GetHistoryData(code,market,cyctype)
for i=historydata.count-22 to historydata-2
if historydata.high(i)>highest then
highest=historydata.high(i)
end if
if historydata.low(i)<lowest then
lowest=historydata.low(i)
end if
next
if historydata(historydata.count-1)>highest then
order.buyshort 1,1,0,0,code,market,0,0
order.buy 1,1,0,0,code,market,0,0
end if
if historydata(historydata.count-2)<lowest then
order.SellShort 1,1,0,0,code,market,0,0
order.sell 1,1,0,0,code,market,0,0
end if
end sub - 網友回復:
強Sub ForWeekRule
dim code
dim market
dim cyctype
dim highest
dim lowest
code="RU00"
market="SQ"
cyctype=5
set historydata =marketdata.GetHistoryData(code,market,cyctype)
for i=historydata.count-22 to historydata-2
if historydata.high(i)>highest then
highest=historydata.high(i)
end if
if historydata.low(i)<lowest then
lowest=historydata.low(i)
end if
next
if historydata(historydata.count-1)>highest then
order.buyshort 1,1,0,0,code,market,0,0
order.buy 1,1,0,0,code,market,0,0
end if
if historydata(historydata.count-2)<lowest then
order.SellShort 1,1,0,0,code,market,0,0
order.sell 1,1,0,0,code,market,0,0
end if
end sub
相關文章
-
沒有相關內容