打印本文
關(guān)閉窗口
?
?
N:=5;
VAR3:=EMA(C,10*N);
VAR4:=REF(VAR3,1);
市場(chǎng)價(jià)格流轉(zhuǎn):0-(SUM(VAR3<VAR4,0)-SUM(VAR3>VAR4,0)),COLORLIBLUE,DOTLINE;
市場(chǎng)價(jià)格:IF(市場(chǎng)價(jià)格流轉(zhuǎn)>REF(市場(chǎng)價(jià)格流轉(zhuǎn),1),市場(chǎng)價(jià)格流轉(zhuǎn),DRAWNULL),COLORLIRED;
{NA:=15;
VAR3A:=EMA(C,15*NA);
VAR4A:=REF(VAR3A,1);
市場(chǎng)價(jià)格流轉(zhuǎn)A:=(0-(SUM(VAR3A<VAR4A,0)-SUM(VAR3A>VAR4A,0))),COLORLIBLUE,DOTLINE;
市場(chǎng)價(jià)格A:IF(市場(chǎng)價(jià)格流轉(zhuǎn)A>REF(市場(chǎng)價(jià)格流轉(zhuǎn)A,1),LLV(市場(chǎng)價(jià)格流轉(zhuǎn)A,5*NA),DRAWNULL),COLORRED;
市場(chǎng)價(jià)格B:IF(市場(chǎng)價(jià)格流轉(zhuǎn)A>REF(市場(chǎng)價(jià)格流轉(zhuǎn)A,1),DRAWNULL,HHV(市場(chǎng)價(jià)格流轉(zhuǎn)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:=市場(chǎng)價(jià)格流轉(zhuǎn)=HHV(市場(chǎng)價(jià)格流轉(zhuǎn),BARSLAST(DDSJ>=GDSJ));
GD:=BARSLAST(FILTER(CROSS(BD,0.8),2));
底背離:=IF(U2>0,1,0);
低點(diǎn):REF(LLV(市場(chǎng)價(jià)格流轉(zhuǎn),BARSLAST(DDSJ>=GDSJ)+1),GD),COLORGRAY,DOTLINE;
AB:=REF(LLV(市場(chǎng)價(jià)格流轉(zhuǎn),BARSLAST(DDSJ>=GDSJ)+1),底背離),COLORLIBLUE;
DD:=市場(chǎng)價(jià)格流轉(zhuǎn)=LLV(市場(chǎng)價(jià)格流轉(zhuǎn),BARSLAST(GDSJ>=DDSJ));
SJ:=BARSLAST(FILTER(CROSS(DD,0.8),2));
頂背離:=IF(D2>0,1,0);
高點(diǎn):REF(HHV(市場(chǎng)價(jià)格流轉(zhuǎn),BARSLAST(DDSJ<=GDSJ)+1),SJ),COLORGRAY,DOTLINE;
AA:=REF(HHV(市場(chǎng)價(jià)格流轉(zhuǎn),BARSLAST(DDSJ<=GDSJ)+1),頂背離),COLORLIRED;
高:IF(高點(diǎn)=AA,DRAWNULL,AA),COLORLIRED;
低:IF(低點(diǎn)=AB,DRAWNULL,AB),COLORLIBLUE;
真正頂背離:IF(NOT(高點(diǎn)=AA) AND AA>高點(diǎn),高點(diǎn),DRAWNULL),COLORLIMAGENTA,LINETHICK3;
真正底背離:IF(NOT(低點(diǎn)=AB) AND AB<低點(diǎn),低點(diǎn),DRAWNULL),COLORBLUE,LINETHICK3;
STICKLINE(低>市場(chǎng)價(jià)格流轉(zhuǎn),低,市場(chǎng)價(jià)格流轉(zhuǎn),1,0),COLORGREEN;
STICKLINE(高<市場(chǎng)價(jià)格流轉(zhuǎn),高,市場(chǎng)價(jià)格流轉(zhuǎn),1,0),COLORRED;
?
?來(lái)源:程序化99