TRV:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),12);
& E3 I0 ^: d- O% z% DHD :=HIGH-REF(HIGH,1);
, _$ C f* Z7 lLD :=REF(LOW,1)-LOW;
/ f2 Q! N* I9 M" t$ BDMP:=EMA(IF(HD>0 and HD>LD,HD,0),12);) l3 q' j/ [8 S2 ?5 v3 l
DMM:=EMA(IF(LD>0 and LD>HD,LD,0),12);7 b2 ~0 B! m; A: X
PDI:= DMP*100/TRV;5 A- A5 Y Z. u, h- c
MDI:= DMM*100/TRV;& X& l, D" \8 a7 n- z
ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,2);
) U! Y) d/ g H! |ADXR:=EMA(ADX,2);
; F! ~2 e$ m! w! N, l& u. K8 C1 {" b0 f3 e5 U# U
adxsc:=cross(adxr,adx) and pdi>ref(pdi,1);
# `. I% ]8 g% X m' P, w$ x
+ \9 {* M/ j0 R. M! k0 ^( fRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
; [9 Y4 L: t0 xK:=SMA(RSV,3,1);
+ i2 s1 k& o. k5 gD:=SMA(K,3,1);
% F# \. |8 D) V. g! A) kJ:=3*K-2*D;
# [4 N) K& t, Z5 j, O6 ~# o, v0 p
/ t- J) L7 D5 Ojj:=cross(j,k);
; I% Q8 W4 n$ @/ G4 i/ J: X% H$ {2 t! ~5 p! `# D$ [
vv:=count(v=2 and ref(v,1)=llv(v,3) and v>ref(v,1);
* J8 w7 x( V% ]1 v1 q# T% A
+ Z: t X9 h8 q( Bma3:=ma(c,3);ma5:=ma(c,5);3 e( T5 r* x. ?4 d) e+ F7 m. f
pl:=abs(ma3-ma5)/ma3*100ma3 and adxsc and jj and pl |