{能量潮OBV}
OBV0:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
OBV:=OBV0/100000;
MA30:=MA(OBV,30);
SUB:OBV-MA30;
PARTLINE(SUB,SUB>=REF(SUB,1),RGB(255,0,0),SUB<REF(SUB,1),RGB(0,250,0)),LINETHICK4;
长均:MA(SUB,L),COLORBLUE,LINETHICK4;
中均:MA(SUB,20),COLORFF00FF,LINETHICK1;
短均:MA(SUB,5),COLOR00FFFF,LINETHICK2;
STICKLINE(中均>长均 AND REF(中均,1)<REF(短均,1) AND 短均<=中均,中均,0,2,1);
STICKLINE(REF(中均,1)>REF(短均,1) AND 短均>=中均,中均,0,2,1),COLORFF00F2;
FILLRGN(短均,SUB,短均<SUB,RGB(180,50,0),短均>SUB,RGB(0,50,180)),LAYER5;
FILLRGN(长均,短均,长均<短均,RGB(200,0,100),长均>短均,RGB(0,100,100)),LAYER5;
TY:=SUB;
AA1:=REF(TY,10)=HHV(TY,2*10+1); B1:=FILTER(AA1,10); C1:=BACKSET(B1,10+1); HD:=FILTER(C1,10);
AA2:=REF(TY,10)=LLV(TY,2*10+1); B2:=FILTER(AA2,10); C2:=BACKSET(B2,10+1); LD:=FILTER(C2,10);
AB:=REF(SUB,BARSLAST(HD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
峰:IF(T1,AB,AB),COLORYELLOW,POINTDOT;
0,COLORFF99FF;
DIF:=EMA(C,5)-EMA(C,13);
DEA:=EMA(DIF,9);
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
C1:=BARSLAST(REF(CROSS(DEA,DIF),1));
底背离:REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);
顶背离:REF(C,C1+1)<C AND REF(DIF,C1+1)>DIF AND CROSS(DEA,DIF);
 |
