|
TRV:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),12);
0 m D8 C, p4 R2 ^* b+ d; Z$ sHD :=HIGH-REF(HIGH,1);+ d! v1 @1 I$ t, j5 V- [# S
LD :=REF(LOW,1)-LOW;( L& e B B) N3 O
DMP:=EMA(IF(HD>0 and HD>LD,HD,0),12);# O# w% o/ E- n) _
DMM:=EMA(IF(LD>0 and LD>HD,LD,0),12);) G; I' e3 H0 ]3 O' Q8 ?4 {& o" y
PDI:= DMP*100/TRV;4 o. m' A- H2 x& b
MDI:= DMM*100/TRV; z. g9 h7 i9 z6 w$ Z2 n
ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,2);9 [0 n+ W. S* R! h, `/ w
ADXR:=EMA(ADX,2);
. J5 G: l: _8 d3 D2 a8 v3 W: l& e+ h; k! ?& L7 \$ ~. d, z0 h
adxsc:=cross(adxr,adx) and pdi>ref(pdi,1);
4 k& z! |. \) ] H5 ^/ b! [; X
, i+ T- S5 P |5 B6 tRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;6 W- F& R* |/ h" h5 }
K:=SMA(RSV,3,1);+ ]1 h0 p& O m/ c6 a
D:=SMA(K,3,1);
5 V i- N! f( m! C( L2 eJ:=3*K-2*D;/ {2 S% n+ X9 T0 [ }$ |1 F5 _
, R/ y" | v: G! w1 Zjj:=cross(j,k);9 U0 T' g/ y6 [% F
9 [' s# ]1 @* P2 X$ I( e
vv:=count(v=2 and ref(v,1)=llv(v,3) and v>ref(v,1);7 K# O2 u! d6 j. b! A
5 w6 `$ W' ?. f2 i5 h8 c- s
ma3:=ma(c,3);ma5:=ma(c,5);
8 d" k0 m/ O& f; q* e0 h$ xpl:=abs(ma3-ma5)/ma3*100ma3 and adxsc and jj and pl |