MACD指标,求助在出现底背离处改成选股

编写要求：

股票网解答：

网友求助：

DIF:=EMA(CLOSE,3)-EMA(CLOSE,13);
DEA:=EMA(DIF,5);
MACD:2*(DIF-DEA),COLORSTICK;
STICKLINE(MACD>0,MACD, 0, 0, 1),color0055cc;
STICKLINE(MACD<0,MACD, 0, 0, 1),Colordddd00;
STICKLINE(MACD<REF(MACD,1) AND MACD>0,0,MACD,0.1,0),COLORYELLOW;
DRAWICON(BARSTATUS=2 AND MACD>REF(MACD,1),HHV(MACD,35), 7),VALIGN2;
DRAWICON(BARSTATUS=2 AND MACD<REF(MACD,1),HHV(MACD,35), 8),VALIGN1;
PARTLINE(DIF,DIF>ref(DIF,1),RGB(255,50,0),DIF<ref(DIF,1),RGB(255,255,255)),LINETHICK2;
PARTLINE(MACD,MACD>0,RGB(205,100,100),MACD<0,RGB(0,200,0)),COLORSTICK;
VAR1:=HHV(DEA,60);
VAR2:=LLV(DEA,100);
VAR3:=DEA-(DIF-DEA);

主升:= DIF>0 AND DIF>DEA;
FILLRGN(DIF,DEA,DIF>DEA,RGB(130,0,0),DIF<DEA,RGB(0,50,0));
FILLRGN(DIF,DEA,主升,RGB(100,0,0));

A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
STICKLINE(底背离,0,0.13,6,0),Colorred;
DRAWTEXT(底背离,dea,' 底背离'),Colorred;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWTEXT(顶背离,dea,' 顶背离'),Colorgreen;
a1:=DIF<0 and DEA<0;
a2:=a1>REF(a1,1);
a3:=BARSLAST(a2);
a4:=COUNT(DEA>0 and DIF>0,a3)=0;
a5:=CROSS(DIF,DEA);{金叉}
a6:=BARSLAST(a5);
a7:=REF(a6,a6+1)+a6;
a8:=(DiF+DEA)/2;
a9:=(HIGH+LOW)/2;
a10:=a5 and a7<a3 and a4 and a8>REF(a8,a7) and a9<REF(a9,a7) and macd>0;
DRAWTEXT(a10,dif*0.95,'★'),COLORyellow;

解答如下：

DIF:=EMA(CLOSE,3)-EMA(CLOSE,13);
DEA:=EMA(DIF,5);
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);

>