?

?

N:=5;
VAR3:=EMA(C,10*N);
VAR4:=REF(VAR3,1);
市場價格流轉:0-(SUM(VAR3<VAR4,0)-SUM(VAR3>VAR4,0)),COLORLIBLUE,DOTLINE;
市場價格:IF(市場價格流轉>REF(市場價格流轉,1),市場價格流轉,DRAWNULL),COLORLIRED;
{NA:=15;
VAR3A:=EMA(C,15*NA);
VAR4A:=REF(VAR3A,1);
市場價格流轉A:=(0-(SUM(VAR3A<VAR4A,0)-SUM(VAR3A>VAR4A,0))),COLORLIBLUE,DOTLINE;
市場價格A:IF(市場價格流轉A>REF(市場價格流轉A,1),LLV(市場價格流轉A,5*NA),DRAWNULL),COLORRED;
市場價格B:IF(市場價格流轉A>REF(市場價格流轉A,1),DRAWNULL,HHV(市場價格流轉A,5*NA)),COLORGREEN;}
U1:=BARSLAST(REF(CROSS(VAR3,VAR4),1));
U2:=REF(C,U1)>C ;
D1:=BARSLAST(REF(CROSS(VAR4,VAR3),1));
D2:=REF(C,D1)<C ;
BDGD:=D1=HHV(D1,5);
GDSJ:=BARSLAST(FILTER(CROSS(0.8,BDGD),2))+1;
BDDD:=U1=LLV(U1,5);
DDSJ:=BARSLAST(FILTER(CROSS(0.8,BDDD),2))+1;
BD:=市場價格流轉=HHV(市場價格流轉,BARSLAST(DDSJ>=GDSJ));
GD:=BARSLAST(FILTER(CROSS(BD,0.8),2));
底背離:=IF(U2>0,1,0);
低點:REF(LLV(市場價格流轉,BARSLAST(DDSJ>=GDSJ)+1),GD),COLORGRAY,DOTLINE;
AB:=REF(LLV(市場價格流轉,BARSLAST(DDSJ>=GDSJ)+1),底背離),COLORLIBLUE;
DD:=市場價格流轉=LLV(市場價格流轉,BARSLAST(GDSJ>=DDSJ));
SJ:=BARSLAST(FILTER(CROSS(DD,0.8),2));
頂背離:=IF(D2>0,1,0);
高點:REF(HHV(市場價格流轉,BARSLAST(DDSJ<=GDSJ)+1),SJ),COLORGRAY,DOTLINE;
AA:=REF(HHV(市場價格流轉,BARSLAST(DDSJ<=GDSJ)+1),頂背離),COLORLIRED;
高:IF(高點=AA,DRAWNULL,AA),COLORLIRED;
低:IF(低點=AB,DRAWNULL,AB),COLORLIBLUE;
真正頂背離:IF(NOT(高點=AA) AND AA>高點,高點,DRAWNULL),COLORLIMAGENTA,LINETHICK3;
真正底背離:IF(NOT(低點=AB) AND AB<低點,低點,DRAWNULL),COLORBLUE,LINETHICK3;
STICKLINE(低>市場價格流轉,低,市場價格流轉,1,0),COLORGREEN;
STICKLINE(高<市場價格流轉,高,市場價格流轉,1,0),COLORRED;

?

?來源:程序化99