打印本文
關閉窗口
策略的意圖是當根K線收盤價大于前10天的最高價則開倉占總資金的10%，開倉以后價格每上漲10%加倉總資金的10%。
當根K線收盤價小于10日最低價則全部平倉。
以下是我自己編寫的，但測出來每次開倉、平倉都是間隔10根K線，而且不能實現(xiàn)加倉。麻煩老師幫改改，謝謝
VARIABLE:bprice=0;//記錄開倉價
temp:=ref(hhv(h,10),1);//
temp1:=ref(llv(l,10),1);//
if c<temp1 and holding>0 then sell(1,100%,limit,c);//收盤價小于10日最低價全平
con:=c>=temp and holding=0;//收盤價大于10日最高價開倉
if con then
BEGIN
buy(1,asset*0.1,limit,c);
bprice:=c;//記錄開倉價
end
if holding>0 then
begin
buy(holding=1 and c>1.1*bprice,asset*0.1,limit,c);//上漲10%再開一手
buy(holding=2 and c>1.2*bprice,asset*0.1,limit,c);//上漲20%再開一手
buy(holding=3 and c>1.3*bprice,asset*0.1,limit,c);//上漲30%再開一手
buy(holding=4 and c>1.4*bprice,asset*0.1,limit,c);//上漲40%再開一手
buy(holding=5 and c>1.5*bprice,asset*0.1,limit,c);//上漲50%再開一手
buy(holding=6 and c>1.6*bprice,asset*0.1,limit,c);//上漲60%再開一手
end
VARIABLE:bprice=0;//記錄開倉價
temp:=ref(hhv(h,10),1);//
temp1:=ref(llv(l,10),1);//
if c<temp1 and holding>0 then sell(1,100%,limitr,c),pertrader;//收盤價小于10日最低價全平
con:=c>=temp and holding=0;//收盤價大于10日最高價開倉
if con then
BEGIN
buy(1,asset*0.1,limitr,c);
bprice:=c;//記錄開倉價
end
if holding>0 then
begin
buy( c>1.1*bprice,10%,limitr,c),pertrader;//上漲10%再開一手
buy(c>1.2*bprice,10%,limitr,c),pertrader;//上漲20%再開一手
buy( c>1.3*bprice,10%,limitr,c),pertrader;//上漲30%再開一手
buy(c>1.4*bprice,10%,limitr,c),pertrader;//上漲40%再開一手
buy( c>1.5*bprice,10%,limitr,c),pertrader;//上漲50%再開一手
buy(c>1.6*bprice,10%,limitr,c),pertrader;//上漲60%再開一手
end
VARIABLE:bprice=0;//記錄開倉價
temp:=ref(hhv(h,10),1);//
temp1:=ref(llv(l,10),1);//
if c<temp1 and holding>0 then sell(1,100%,limitr,c),pertrader;//收盤價小于10日最低價全平
con:=c>=temp and holding=0;//收盤價大于10日最高價開倉
if con then
BEGIN
buy(1,10%,limitr,c),pertrader;
bprice:=c;//記錄開倉價
end
if holding>0 then
begin
buy( c>1.1*bprice,10%,limitr,c),pertrader;//上漲10%再開一手
buy(c>1.2*bprice,10%,limitr,c),pertrader;//上漲20%再開一手
buy( c>1.3*bprice,10%,limitr,c),pertrader;//上漲30%再開一手
buy(c>1.4*bprice,10%,limitr,c),pertrader;//上漲40%再開一手
buy( c>1.5*bprice,10%,limitr,c),pertrader;//上漲50%再開一手
buy(c>1.6*bprice,10%,limitr,c),pertrader;//上漲60%再開一手
end