原是文华T8的多空策略，请改为金字塔的，谢谢

陈红球

老师，你好！以下是文华T8的，请改为金字塔的，谢谢
//定义变量
E1:=EMA(C,20),COLORGREEN;
E2:=EMA(C,60),COLORGREEN;
//********************MACD指标变量赋值********************//
DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);//12周期与26周期的收盘价的指数平滑移动平均值做差。
DEA :=EMA(DIFF,9);//DIFF的9个周期指数平滑移动平均
MACD :=(DIFF-DEA)*2,COLORSTICK;//DIFF减DEA的2倍画柱状线
//********************MACD金叉死叉********************//
MACD_JC:=CROSS(DIFF,DEA);//金叉
MACD_SC:=CROSSDOWN(DIFF,DEA);//死叉
JC:=CROSS(DIFF,DEA);
SC:=CROSSDOWN(DIFF,DEA);
金叉柱数:IF(DIFF>DEA,SUMBARS(MACD_JC,1),NULL),NODRAW;
死叉柱数:IF(DIFF<DEA,SUMBARS(MACD_SC,1),NULL),NODRAW;
MACD_N1:=BARSLAST(JC)+1;
MACD_N2:=BARSLAST(SC)+1;
HH:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(H,MACD_N1)),NODRAW;//上次MACD红柱期间最高值最大值
HH2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(HH,1)),NODRAW;//上上次MACD红柱期间最高值最大值
MHD:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(MACD,MACD_N1)),NODRAW;//上次MACD红柱期间MACD最大值
MHD2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(MHD,1)),NODRAW;//上上次MACD红柱期间MACD最大值
LL:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,MACD_N2)),NODRAW;//上次MACD绿柱期间最低值最小值
LL2:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL,1)),NODRAW;//上上次MACD绿柱期间最低值最小值
MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,MACD_N2)),NODRAW;//上次MACD绿柱期间MACD最小值
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1)),NODRAW;//上上次MACD绿柱期间MACD最小值
顶背离:=CROSSDOWN(DIFF,DEA)&&HH>HH2&&MHD<MHD2;//顶背离
底背离:=CROSS(DIFF,DEA)&&LL<LL2&&MLD>MLD2;//底背离
//1、不创新高
N0:=H<REF(H,1);
N1:=NEWLBARS(L,1);
N2:=NEWLBARS(L,1)+REF(NEWLBARS(L,1),NEWLBARS(L,1));
NN0:=N0 AND COUNT(N0 ,REF(N2,1))=1;
DRAWNUMBER(NN0,H,0,0,COLORRED);
DRAWSL(NN0,REF(L,REF(N2,1)+1),0,-REF(N2,1)-1,0,COLORLIGHTGREEN);

//2、不创新低
P0:=L>REF(L,1);
P1:=NEWHBARS(H,1);
P2:=NEWHBARS(H,1)+REF(NEWHBARS(H,1),NEWHBARS(H,1));
PP0:=P0 AND COUNT(P0 ,REF(P2,1))=1;
DRAWNUMBER(PP0,L,0,0,COLORLIGHTGREEN),VALIGN0;
DRAWSL(PP0,REF(H,REF(P2,1)+1),0,-REF(P2,1)-1,0,COLORRED);
支撑:IF(BARSLAST(NN0)<BARSLAST(PP0),VALUEWHEN(NN0,REF(L,REF(N2,1)+1)),NULL),COLORLIGHTGREEN,NODRAW;
压力:IF(BARSLAST(NN0)>BARSLAST(PP0),VALUEWHEN(PP0,REF(H,REF(P2,1)+1)),NULL),COLORRED,NODRAW;

红线:=VALUEWHEN(PP0,REF(H,REF(P2,1)+1)),NODRAW;
绿线:=VALUEWHEN(NN0,REF(L,REF(N2,1)+1)),NODRAW;

//做多策略
CROSS(E1,E2) AND CROSS(C,红线),BK('A');//当E1向上交叉E2均线且突破左侧最近的红色线时，做多；
C>E1 AND CROSS(C,红线) AND MACD>0,BK('B');//当价格位于E1均线之上且突破左侧最近的红色线且MACD为金叉状态时，做多；
CROSSDOWN(C,绿线) AND C<E1 AND MACD<0,SP('A');//1)做多后，当价格跌破左侧最近的绿色线且价格位于E1之下且MACD为死叉状态时平多；
(C<E1 AND C<E2) OR CROSSDOWN(E1,E2),SP('A');//2)或做多后，当价格位于E1和E2均线之下或E1向下交叉E2时平多；
CROSSDOWN(C,绿线) AND C<E1,SP('B');//2)做多后，当价格位于E1均线之下且跌破左侧最近的绿色线时平多；


//做空策略
C<E1 AND CROSSDOWN(C,绿线) AND MACD<0,SK('A');//当价格位于E1均线之下且跌破左侧最近的绿色线且MACD刚好为死叉时，做空；
C>E1 AND CROSS(C,红线) AND MACD>0,BP('A');//1)做空后，当价格位于E1均线之上且突破左侧最近的红色线且MACD刚好为金叉状态时平空；
C<E1 AND C<E2 AND CROSSDOWN(C,绿线),SK('B');//当价格位于E1和E2之下且跌破左侧最近的绿色线时，做空；
CROSSDOWN(E1,E2),SK('B');//或当E1向下交叉E2时做空；
CROSS(E1,E2) AND CROSS(C,红线),BP('B');//2)做空后，当E1向上交叉E2且突破左侧最近的红色线时平空。

//设置
AUTOFILTER;

技术008

//定义变量
E1:=EMA(C,20),COLORGREEN;
E2:=EMA(C,60),COLORGREEN;
//********************MACD指标变量赋值********************//
DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);//12周期与26周期的收盘价的指数平滑移动平均值做差。
DEA :=EMA(DIFF,9);//DIFF的9个周期指数平滑移动平均
MACD :=(DIFF-DEA)*2,COLORSTICK;//DIFF减DEA的2倍画柱状线
//********************MACD金叉死叉********************//
MACD_JC:=CROSS(DIFF,DEA);//金叉
MACD_SC:=CROSS(DEA,DIFF);//死叉
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
金叉柱数:IF(DIFF>DEA,SUMBARS(MACD_JC,1),NULL),NODRAW;
死叉柱数:IF(DIFF<DEA,SUMBARS(MACD_SC,1),NULL),NODRAW;
MACD_N1:=BARSLAST(JC)+1;
MACD_N2:=BARSLAST(SC)+1;
HH:=VALUEWHEN(CROSS(DEA,DIFF),HHV(H,MACD_N1)),NODRAW;//上次MACD红柱期间最高值最大值
HH2:=VALUEWHEN(CROSS(DEA,DIFF),REF(HH,1)),NODRAW;//上上次MACD红柱期间最高值最大值
MHD:=VALUEWHEN(CROSS(DEA,DIFF),HHV(MACD,MACD_N1)),NODRAW;//上次MACD红柱期间MACD最大值
MHD2:=VALUEWHEN(CROSS(DEA,DIFF),REF(MHD,1)),NODRAW;//上上次MACD红柱期间MACD最大值
LL:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,MACD_N2)),NODRAW;//上次MACD绿柱期间最低值最小值
LL2:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL,1)),NODRAW;//上上次MACD绿柱期间最低值最小值
MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,MACD_N2)),NODRAW;//上次MACD绿柱期间MACD最小值
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1)),NODRAW;//上上次MACD绿柱期间MACD最小值
顶背离:=CROSS(DEA,DIFF)&&HH>HH2&&MHD<MHD2;//顶背离
底背离:=CROSS(DIFF,DEA)&&LL<LL2&&MLD>MLD2;//底背离
//1、不创新高
N0:=H<REF(H,1);
N1:=NEWLBARS(L,1);
N2:=NEWLBARS(L,1)+REF(NEWLBARS(L,1),NEWLBARS(L,1));
NN0:=N0 AND COUNT(N0 ,REF(N2,1))=1;
DRAWNUMBER(NN0,H,0,0,COLORRED);
DRAWSL(NN0,REF(L,REF(N2,1)+1),0,-REF(N2,1)-1,0,colorgreen);

//2、不创新低
P0:=L>REF(L,1);
P1:=NEWHBARS(H,1);
P2:=NEWHBARS(H,1)+REF(NEWHBARS(H,1),NEWHBARS(H,1));
PP0:=P0 AND COUNT(P0 ,REF(P2,1))=1;
DRAWNUMBER(PP0,L,0,0,colorgreen),VALIGN0;
DRAWSL(PP0,REF(H,REF(P2,1)+1),0,-REF(P2,1)-1,0,COLORRED);
支撑:IF(BARSLAST(NN0)<BARSLAST(PP0),VALUEWHEN(NN0,REF(L,REF(N2,1)+1)),NULL),colorgreen,NODRAW;
压力:IF(BARSLAST(NN0)>BARSLAST(PP0),VALUEWHEN(PP0,REF(H,REF(P2,1)+1)),NULL),COLORRED,NODRAW;

红线:=VALUEWHEN(PP0,REF(H,REF(P2,1)+1)),NODRAW;
绿线:=VALUEWHEN(NN0,REF(L,REF(N2,1)+1)),NODRAW;



cond1:CROSS(E1,E2) AND CROSS(C,红线);
cond2:C>E1 AND CROSS(C,红线) AND MACD>0;
aaaa1:CROSS(绿线,C) AND C<E1 AND MACD<0;
aaaa2:CROSS(绿线,C) AND C<E1;
if (cond1 or cond2) and holding<=0  then
begin
        sellshort(1,holding,marketr);
        buy(1,1,marketr);
END
if aaaa1 or aaaa2 then sell(1,holding,marketr);
conk1:CROSS(绿线,C) AND C<E1 AND MACD<0;
condk2:C<E1 AND C<E2 AND CROSS(绿线,C);

if (conk1 or condk2) and holding>=0  then
begin
        sell(1,holding,marketr);
        buyshort(1,1,marketr);
END
cccc2:C>E1 AND CROSS(C,红线) AND MACD>0;
cccc3:CROSS(E1,E2) AND CROSS(C,红线);
if cccc2 or cccc3 then sellshort(1,holding,marketr);

技术008

基本指标是通用的，然后主要交易函数那边要改动
建议用户自己学习下金字塔的编写函数