|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
/ a$ A2 r& _9 L3 m/ Z7 H( cnnl:=DISPSTATUS=2;& O# U% i' s) S* k9 {8 Q3 _
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));# \9 P3 I/ H( T+ g1 A: Z
hh:=HHV(h ,lhnh);
3 n0 Q7 ?. Y* c7 R' H' q! wll:=llV(l ,lhnh);
2 }1 ~. W9 C+ {7 r8 I Wq0:=hh+(hh-ll)*POW(0.618,5);
8 ?. ^' S1 T9 q! D7 M4 whh:=HHV(h ,lhnh);) a* A2 Z# a6 \. D7 P% [' K2 M
q1:=ll+(hh-ll)*POW(0.618,1); q6 ^1 F; t$ x9 {0 K
q2:=ll+(hh-ll)*POW(0.618,2);
* Z8 u0 j' S$ ]+ f7 V9 @3 rq3:=ll+(hh-ll)*POW(0.618,3);# D* Q4 U/ j: f+ ^+ u# _9 ?7 z- f6 Q% P
q4:=ll+(hh-ll)/2;
4 W9 l" ]( t/ _q5:=ll+(hh-ll)*POW(0.618,5);
1 @: h; U% f. Rq6:=hh-(hh-ll)*POW(0.618,3);
. }& N' i u( J# i5 cq7:=hh-(hh-ll)*POW(0.618,5);
) u, K! F- r gll:=llV(l ,lhnh);
3 ^, X+ L! K) C" o( t7 Nq8:=ll-(hh-ll)*POW(0.618,5);
' x: d% b% X9 E9 z4 o6 CPARTLINE(q0,qqqq,RGB(238,238,28));$ z3 J. V* s- d }
PARTLINE(hh ,qqqq,RGB(255,0,255));! m9 [# a l( W6 I
PARTLINE(q1,qqqq,RGB(238,238,28));
/ M- A0 Q; r: u5 r- K5 QPARTLINE(q2,qqqq,RGB(238,238,28));, I4 j1 d+ r) C% S9 E
PARTLINE(q3,qqqq,RGB(238,238,28));
7 B6 P' S k7 w& x! G2 BPARTLINE(q4,qqqq,RGB(238,0,0));
3 }6 o- g% N: Q; JPARTLINE(q5,qqqq,RGB(238,238,28));- F- ], u$ r7 q
PARTLINE(q6,qqqq,RGB(238,238,28));! H: h; T& M* D* w
PARTLINE(q7,qqqq,RGB(238,238,28));
: {/ C. i" p. B3 ^; n4 y' }& kPARTLINE(ll,qqqq,RGB(255,0,255));; e9 s* J4 R9 T Z( ^4 Y
PARTLINE(q8,qqqq,RGB(238,238,28));3 ]% O i% W2 ]$ J
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
! ?. m4 H2 d5 L/ k
: v$ K- X. I7 w$ iDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;9 E) B" g+ d. v7 V
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;# u5 Z) V$ s( K2 {6 c
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;- g, q7 j1 ]* A, d/ o( a C. X5 n
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
3 p: A$ ? h. `, _; r. YDRAWTEXT(nnl,q4,'50% '+q4),Colorred;$ Q3 o& `7 M" R( U
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
6 j% ~. j' L4 u5 VDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;, {3 C7 ^5 R# T! [7 d; t
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;4 |# y. r6 Q' i# j' q& F
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
$ m& A9 x! k* \( ^: zDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |