?

?來源:程序化99

?

參考：

?

A0:=(L+H+C*2)/4;
A1:EMA(A0,14),COLORBLUE,LINETHICK2;
A2:=EMA(A0,25),COLORRED,LINETHICK1;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;
多頭區:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),NULL),COLORMAGENTA,LINETHICK1;
空頭區:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),NULL),COLORGREEN,LINETHICK1;
做?? 多:IF(A1X>=0,A1,NULL),COLORRED,LINETHICK2;
做?? 空:IF(A1X<0 AND A2X<0,A1,NULL),COLORGREEN,LINETHICK2;
ZDF:=(C-REF(C,1))/REF(C,1);
AAAA:EMA(A0,14),COLORBLUE,LINETHICK2,NODRAW,NOTEXT;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA? : =EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
J:=CROSS(DIFF,DEA);
S:=CROSSDOWN(DIFF,DEA);
CROSS(A1X,0)&&J,WORD(0,'抄'),FONTSIZE16;
CROSS(0,A1X)&&S,WORD(0,'跌'),FONTSIZE16,COLORMAGENTA,VALIGN0;

ISDOWN&&CROSSDOWN(C,A1)&&MACD<0,SPK;
ISUP&&CROSS(C,A1)&&MACD>0,BPK;
C>HV(H,3),BP;
C<LV(L,3),SP;
AUTOFILTER;

?

?來源: m.kzuj.com.cn

?

A0:=(L+H+C*2)/4;
A1:EMA(A0,14),COLORBLUE,LINETHICK2;
A2:=EMA(A0,25),COLORRED,LINETHICK1;
A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;
A2X:=(A2-REF(A2,1))/REF(A2,1)*100,NODRAW;
多頭區:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),NULL),COLORMAGENTA,LINETHICK1;
空頭區:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),NULL),COLORGREEN,LINETHICK1;
做?? 多:IF(A1X>=0,A1,NULL),COLORRED,LINETHICK2;
做?? 空:IF(A1X<0 AND A2X<0,A1,NULL),COLORGREEN,LINETHICK2;
ZDF:=(C-REF(C,1))/REF(C,1);
AAAA:EMA(A0,14),COLORBLUE,LINETHICK2,NODRAW,NOTEXT;
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA? : =EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
J:=CROSS(DIFF,DEA);
S:=CROSSDOWN(DIFF,DEA);
CROSS(A1X,0)&&J,WORD(0,'',FONTSIZE16;
CROSS(0,A1X)&&S,WORD(0,'',FONTSIZE16,COLORMAGENTA,VALIGN0;

ISDOWN&&CROSSDOWN(C,A1)&&MACD<0,SPK;
ISUP&&CROSS(C,A1)&&MACD>0,BPK;
C>REF(HHV(H,3),BARSSK),BP;
C<REF(LLV(L,3),BARSBK),SP;
AUTOFILTER;

?