改成金字塔可用的代码

代人发帖

请教：改成金字塔可用的代码 //变量定义

M:=(HHV(H,3)+LLV(L,3)+C)/3;//3根K线最高+3根K线最低+当前收盘价 除以3

N:=(HHV(H,3)+LLV(L,3))/2;//3根K线最高+3根K线最低 除以2

P:=M-N;//M-N值

Z_UP:=M+P;//M+P

Z_DOWN:=M-P;//M-P

FILLRGN(1,Z_UP,Z_DOWN,COLORGRAY);//Z区间灰色

DRAWCOLORKLINE(1,COLORYELLOW,0);//常规K线黄色

DRAWCOLORKLINE(BKVOL>0,COLORRED,0);//做多K线红色

DRAWCOLORKLINE(SKVOL>0,COLORGREEN,0);//做空K线绿色

KTEXT(BARSBK=1,-1,REF(H,1),1,COLORRED,’D’),ALIGN2;//开多标记D

KTEXT(BARSSK=1,-1,REF(L,1),1,COLORGREEN,’K’),ALIGN2,VALIGN0 ;//开空标记K

KTEXT(BARSSP=1,-1,REF(H,1),1,COLORYELLOW,’S’),ALIGN0;//平仓标记S

KTEXT(BARSBP=1,-1,REF(L,1),1,COLORYELLOW,’S’),ALIGN0,VALIGN0;//平仓标记S

//多头策略

C>Z_UP,BPK;//价格大于M+P做多

C<HHV(Z_DOWN,BARSBK+1),SP;//开多以来如果M-P变小则延续之前值 如果M-P变大则取大值 价格小于追踪线则平多

//做空策略

C<Z_DOWN,SPK;//价格小于M-P做空

C>LLV(Z_UP,BARSSK+1),BP;//开空以来如果M+P变大则延续之前值 如果M-P变小则取小值 价格大于追踪线则平空

//设置

AUTOFILTER;

技术008

M:=(HHV(H,3)+LLV(L,3)+C)/3;//3根K线最高+3根K线最低+当前收盘价 除以3

N:=(HHV(H,3)+LLV(L,3))/2;//3根K线最高+3根K线最低 除以2

P:=M-N;//M-N值

Z_UP:=M+P;//M+P

Z_DOWN:=M-P;//M-P

FILLRGN(1,Z_UP,Z_DOWN,COLORGRAY);//Z区间灰色


//多头策略
if c>C>Z_UP and holding<=0 then
begin
        sellshort(1,holding,marketr);
        buy(1,1,marketr);
end


if C<HHV(Z_DOWN,enterbars+1) then sell(1,holding,marketr);


//做空策略
if C<Z_DOWN and holding>=0 then
begin
        sell(1,holding,marketr);
        buyshort(1,1,marketr);
end


if C>LLV(Z_UP,enterbars+1) then sellshort(1,holding,marketr);