[求助]新手，麻煩老師幫修改下簡(jiǎn)單的股票公式　[金字塔]

策略的意圖是當(dāng)根K線收盤(pán)價(jià)大于前10天的最高價(jià)則開(kāi)倉(cāng)占總資金的10%，開(kāi)倉(cāng)以后價(jià)格每上漲10%加倉(cāng)總資金的10%。

當(dāng)根K線收盤(pán)價(jià)小于10日最低價(jià)則全部平倉(cāng)。

以下是我自己編寫(xiě)的，但測(cè)出來(lái)每次開(kāi)倉(cāng)、平倉(cāng)都是間隔10根K線，而且不能實(shí)現(xiàn)加倉(cāng)。麻煩老師幫改改，謝謝

VARIABLE:bprice=0;//記錄開(kāi)倉(cāng)價(jià)

temp:=ref(hhv(h,10),1);//

temp1:=ref(llv(l,10),1);//

if c<temp1 and holding>0 then sell(1,100%,limit,c);//收盤(pán)價(jià)小于10日最低價(jià)全平

con:=c>=temp and holding=0;//收盤(pán)價(jià)大于10日最高價(jià)開(kāi)倉(cāng)

if con then

BEGIN

buy(1,asset*0.1,limit,c);

bprice:=c;//記錄開(kāi)倉(cāng)價(jià)

end

if holding>0 then

begin

buy(holding=1 and c>1.1*bprice,asset*0.1,limit,c);//上漲10%再開(kāi)一手

buy(holding=2 and c>1.2*bprice,asset*0.1,limit,c);//上漲20%再開(kāi)一手

buy(holding=3 and c>1.3*bprice,asset*0.1,limit,c);//上漲30%再開(kāi)一手

buy(holding=4 and c>1.4*bprice,asset*0.1,limit,c);//上漲40%再開(kāi)一手

buy(holding=5 and c>1.5*bprice,asset*0.1,limit,c);//上漲50%再開(kāi)一手

buy(holding=6 and c>1.6*bprice,asset*0.1,limit,c);//上漲60%再開(kāi)一手

end

VARIABLE:bprice=0;//記錄開(kāi)倉(cāng)價(jià)

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;//收盤(pán)價(jià)小于10日最低價(jià)全平

con:=c>=temp and holding=0;//收盤(pán)價(jià)大于10日最高價(jià)開(kāi)倉(cāng)

if con then

BEGIN

buy(1,asset*0.1,limitr,c);

bprice:=c;//記錄開(kāi)倉(cāng)價(jià)

end

if holding>0 then

begin

buy( c>1.1*bprice,10%,limitr,c),pertrader;//上漲10%再開(kāi)一手

buy(c>1.2*bprice,10%,limitr,c),pertrader;//上漲20%再開(kāi)一手

buy( c>1.3*bprice,10%,limitr,c),pertrader;//上漲30%再開(kāi)一手

buy(c>1.4*bprice,10%,limitr,c),pertrader;//上漲40%再開(kāi)一手

buy( c>1.5*bprice,10%,limitr,c),pertrader;//上漲50%再開(kāi)一手

buy(c>1.6*bprice,10%,limitr,c),pertrader;//上漲60%再開(kāi)一手

end

VARIABLE:bprice=0;//記錄開(kāi)倉(cāng)價(jià)

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;//收盤(pán)價(jià)小于10日最低價(jià)全平

con:=c>=temp and holding=0;//收盤(pán)價(jià)大于10日最高價(jià)開(kāi)倉(cāng)

if con then

BEGIN

buy(1,10%,limitr,c),pertrader;

bprice:=c;//記錄開(kāi)倉(cāng)價(jià)

end

if holding>0 then

begin

buy( c>1.1*bprice,10%,limitr,c),pertrader;//上漲10%再開(kāi)一手

buy(c>1.2*bprice,10%,limitr,c),pertrader;//上漲20%再開(kāi)一手

buy( c>1.3*bprice,10%,limitr,c),pertrader;//上漲30%再開(kāi)一手

buy(c>1.4*bprice,10%,limitr,c),pertrader;//上漲40%再開(kāi)一手

buy( c>1.5*bprice,10%,limitr,c),pertrader;//上漲50%再開(kāi)一手

buy(c>1.6*bprice,10%,limitr,c),pertrader;//上漲60%再開(kāi)一手

end