请老师帮忙改回K线走完模式　[金字塔]

咨询内容： 老师好，我的模型原是文华的，现在想改回K走完模式。折腾了许多天，都不知道这其中的逻辑了。请老师帮忙从轮询改为K走完模式。
VARIABLE:KCN=0,mHolding=0;
资:ASSET-1000000,NOAXIS,COLORRED;
仓:HOLDING,LINETHICK0,COLORYELLOW;
MA1:=EMA(O,3),COLORGREEN;
KDPK0:=C<REF(C,1);
KKPD0:=C>REF(C,1);
KDPK00:=C<REF(C,1);
KKPD00:=C>REF(C,1);
KDPK2:=KDPK00&&MA1<C;
KKPD2:=KKPD00&&MA1>=C;
KDPK3:=REF(KDPK2,1);
KKPD3:=REF(KKPD2,1);
//交易系统
if KDPK3 then begin
KCN:=1;
end
if KKPD3 then begin
KCN:=-1;
end
TJ0:=BARSLAST((KDPK0&&mHOLDING<0)||(KKPD0&&mHOLDING>0));
//-------------金字塔BPK书写------------------------------------------------------
BKCN:=TJ0>=1;
//-------------金字塔平书写仓------------------------------------------------------
BP1:mholding>0and (BKCN=1),NODRAW;
SP1:mholding<0and (BKCN=1),NODRAW;

if BP1 then begin
sell(1,0,limitR,C);
mHolding:=0;
end
if SP1 then begin
//sellshort(1,0,limitR,C);
mHolding:=0;
end

SK1:KCN=-1 and ( EXITBARS>=1) and abs(mholding)<2 and mholding<=0,NODRAW;
BK1:KCN=1and ( EXITBARS>=1) and abs(mholding)<2 and mholding>=0,NODRAW;

if KCN=1 and TYPE(1)=0 and abs(mholding)<2 and mholding>=0 then begin
buy(1,1,limitR,C);
mHolding:=mHolding+1;
end
if KCN=-1 and TYPE(1)=0and abs(mholding)<2 and mholding<=0then begin
//buyshort(1,1,limitR,O);
mHolding:=mHolding-1;
end

if bk1 then begin
buy(1,1,limitR,O);
mHolding:=mHolding+1;
end
if sk1 then begin
//buyshort(1,1,limitR,O);
mHolding:=mHolding-1;
end

 

 来源: WWW.CXH99.COM

金字塔资深技术： 走完k是直接交易-图标程序化，这里选择的模式和代码其实没有关系的