|
lhnh:=BARSLAST(DISPSTATUS=1)+1; `/ l5 V( i, U( P R$ o. A
nnl:=DISPSTATUS=2;
6 o0 e8 s/ O6 V! O8 C. Z# d% C/ Tqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));. S! e. N% U6 P$ V) J0 ]
hh:=HHV(h ,lhnh);+ |$ i5 K( N- ]& j, ^
ll:=llV(l ,lhnh);; u1 i1 g9 _! j( Q7 u! t* G
q0:=hh+(hh-ll)*POW(0.618,5);4 A9 t' Y; U# Q' h
hh:=HHV(h ,lhnh);
" |, h. [. b# [. R- g* sq1:=ll+(hh-ll)*POW(0.618,1);
S* G* v2 L7 N; Cq2:=ll+(hh-ll)*POW(0.618,2);
9 Z9 }! w, p$ M8 uq3:=ll+(hh-ll)*POW(0.618,3);
, G( j8 u& }+ t A" pq4:=ll+(hh-ll)/2;
/ |( `( \7 [# e; i X, B. k3 Fq5:=ll+(hh-ll)*POW(0.618,5);$ O$ ]* `2 c$ c% M) i& \3 h
q6:=hh-(hh-ll)*POW(0.618,3);
+ b% K, I4 ~# n; R/ P6 yq7:=hh-(hh-ll)*POW(0.618,5);' S! w, \+ h- o: ]6 s
ll:=llV(l ,lhnh);( G. l" F" f5 M
q8:=ll-(hh-ll)*POW(0.618,5);
5 E/ a2 m X! o4 d* ^, t7 vPARTLINE(q0,qqqq,RGB(238,238,28));7 J/ q: q. L) x
PARTLINE(hh ,qqqq,RGB(255,0,255));; ^9 l+ \6 I4 H9 H3 B0 j. M# [' N
PARTLINE(q1,qqqq,RGB(238,238,28));
( V6 r" r+ Y' r: p" ~& T% wPARTLINE(q2,qqqq,RGB(238,238,28));, e8 N4 w) b9 y6 o5 b
PARTLINE(q3,qqqq,RGB(238,238,28));
* ^3 H1 ?+ n. |5 _) l: l% KPARTLINE(q4,qqqq,RGB(238,0,0));
2 \. h$ n6 c2 @PARTLINE(q5,qqqq,RGB(238,238,28)); k1 ]- e" v! y: L$ l5 l% }
PARTLINE(q6,qqqq,RGB(238,238,28));
! q' m2 c6 Y; T' ]PARTLINE(q7,qqqq,RGB(238,238,28));3 w. y5 G* h# C) o+ C; J
PARTLINE(ll,qqqq,RGB(255,0,255));
' s, l4 h6 G- O1 k% j1 d5 s' N/ qPARTLINE(q8,qqqq,RGB(238,238,28));
( ]6 Y Z! `, h% e' a6 x8 iDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
, @7 s- _/ [: x5 t7 e! }7 z1 ^/ o/ _4 C! n; {( N0 u9 [: i
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;2 h4 P8 S/ r5 B; J2 J) u- Y
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
: f) q! z7 a4 ]1 J5 @8 dDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;! A' F2 q! O. E
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
. ]' L, L; u" m2 o/ z( A, EDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
& I, T& P! i3 ]2 kDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;- C0 Y. I F) I
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;- X- D7 T8 h# ?- q: a f
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;+ f" g- |0 x$ e/ o- l7 K: _
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
. O3 k. i7 `0 ~6 K1 m2 kDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |