咨詢內(nèi)容：

請(qǐng)老師修改成博易的指標(biāo)，謝謝

input:trn(20,5,30),hn(20,5,30),ln(10,5,20);

VARIABLE:dayCount=1,PositionCount=1,SellSign=0,dK=0;//加多空標(biāo)志，1：多，-1：空 0：空倉(cāng)

VARIABLE:EntAndExitSign=1,EntPoint=0,ExitPoint=0;

VARIABLE:N=0;

N:=MA(TR,trn);

BUYHHV:=HHV(H,hn);

SELLLLV:=LLV(L,ln);

sellshortllv:=llv(l,hn);

buyshorthhv:=hhv(h,ln);

IF BARPOS>=hn THEN

BEGIN

IF BARPOS=hn THEN

IF DayCount=hn/2 OR BARPOS=hn THEN

BEGIN{hn/2天調(diào)整N值}

N:=((hn-1)*N+TR)/hn;{計(jì)算N值}

DayCount:=2;

END

DayCount:=DayCount+1;

EntPoint:=ENTERBARS+1;

IF EntPoint=EntAndExitSign THEN

BEGIN{說(shuō)明STOP指令買進(jìn)頭寸成功}

PositionCount:=PositionCount+1;{頭寸計(jì)數(shù)}

SellSign:=True;{可以平倉(cāng)信號(hào)，如果達(dá)到指定的價(jià)格}

END

IF PositionCount=1 THEN BEGIN{第一頭寸}

HOW:=CASH(0)*0.01/N;{波動(dòng)性百分比決定頭寸規(guī)模}

if high=buyhhv then

BEGIN

dk:=1;

多開1:BUY(1,HOW,STOP,BUYHHV);{在20日新高STOP指令買進(jìn)}

END;

if low=sellshortllv then

begin

dk:=-1;

空開1:buyshort(1,HOW,STOP,sellshortllv);{在20日新低STOP指令空開}

end;

END

IF PositionCount=2 THEN BEGIN{如到第二頭寸}

HOW:=CASH(0)*0.01/N;{波動(dòng)性百分比決定頭寸規(guī)模}

if dk=1 then 多開2:BUY(1,HOW,STOP,ENTERPRICE+0.5*N);{在上頭寸(即第一頭寸)+0.5個(gè)N以STOP指令買進(jìn)}

if dk=-1 then 空開2:buyshort(1,HOW,STOP,ENTERPRICE-0.5*N);

END

IF PositionCount=3 THEN BEGIN{如到第三頭寸}

HOW:=CASH(0)*0.01/N;

if dk=1 then 多開3:BUY(1,HOW,STOP,ENTERPRICE+0.5*N);{在上頭寸(即第二頭寸)+0.5個(gè)N以STOP指令買進(jìn)}

if dk=-1 then 空開3:buyshort(1,HOW,STOP,ENTERPRICE-0.5*N);

END

IF PositionCount=4 THEN BEGIN

HOW:=CASH(0)*0.01/N;

if dk=1 then 多開4:BUY(1,HOW,STOP,ENTERPRICE+0.5*N);

if dk=-1 then 空開4:buyshort(1,HOW,STOP,ENTERPRICE-0.5*N);

END

IF SellSign=True THEN

BEGIN

ExitPoint:=EXITBARS+1;

if dk=1 then

begin

IF ExitPoint=EntAndExitSign THEN

BEGIN {說(shuō)明賣出成功}

PositionCount:=1;{頭寸計(jì)算復(fù)原}

SellSign:=False;

dk:=0;

END

IF ENTERPRICE-2*N then

SELL(1,100%,STOP,SELLLLV);{退出離盈利頭寸}

ELSE

SELL(1,100%,STOP,ENTERPRICE-2*N);{退出虧損頭寸}

end;

if dk=-1 then

begin

IF ExitPoint=EntAndExitSign THEN

BEGIN

PositionCount:=1;

SellSign:=False;

dk:=0;

END

IF ENTERPRICE+2*N then

sellSHORT(1,100%,STOP,BUYSHORTHHV);

ELSE

sellSHORT(1,100%,STOP,ENTERPRICE+2*N);

END;

END

?

END;

?

?來(lái)源:程序化99網(wǎng)（ www.weiqiv.net.cn ）

博易技術(shù)人員： 您好，無(wú)法修改 來(lái)源 程序化久久網(wǎng)