lhnh:=BARSLAST(DISPSTATUS=1)+1;- f& A' y5 ^8 |7 B0 [- c+ }
nnl:=DISPSTATUS=2;
# B8 n" D' c O$ I6 Lqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
. ?* `4 ~; W$ Y( H& Ahh:=HHV(h ,lhnh);; Z9 `( g6 E) b$ h' p
ll:=llV(l ,lhnh);% U1 {7 U. B8 P: g( T- o& m
q0:=hh+(hh-ll)*POW(0.618,5);. k v/ L, s7 u4 s1 U1 Z
hh:=HHV(h ,lhnh);
% {6 ~2 J3 c: W( ^' m( f5 T5 p' |) i9 bq1:=ll+(hh-ll)*POW(0.618,1);
) |# i7 y0 A+ W' B, |+ b# ]q2:=ll+(hh-ll)*POW(0.618,2);
* `, N* n9 N0 A+ p3 aq3:=ll+(hh-ll)*POW(0.618,3);# J/ a' n0 d$ d3 ~0 V7 {
q4:=ll+(hh-ll)/2;0 Q4 V$ R1 r3 c6 C% D0 c B
q5:=ll+(hh-ll)*POW(0.618,5);1 E5 W3 R3 m* j4 V
q6:=hh-(hh-ll)*POW(0.618,3);5 v( }9 E& T# T/ m9 V: n
q7:=hh-(hh-ll)*POW(0.618,5);
& M9 b E% _9 j6 vll:=llV(l ,lhnh);
/ H. O6 M9 z: C/ z* l7 ]9 M6 Nq8:=ll-(hh-ll)*POW(0.618,5);
# i- X. W1 b/ tPARTLINE(q0,qqqq,RGB(238,238,28));' I) |/ X! O. E( H
PARTLINE(hh ,qqqq,RGB(255,0,255));* L& p4 o/ a& r1 b7 s2 b
PARTLINE(q1,qqqq,RGB(238,238,28));8 A3 V: P. R: S0 W
PARTLINE(q2,qqqq,RGB(238,238,28));* X$ _# m7 f* R: Z) X2 d
PARTLINE(q3,qqqq,RGB(238,238,28));
3 e% `$ e e4 J& a2 s5 a9 [$ x9 W' TPARTLINE(q4,qqqq,RGB(238,0,0)); L+ s, `8 L; U
PARTLINE(q5,qqqq,RGB(238,238,28));8 W/ l9 V8 V% w& x$ ^% Y
PARTLINE(q6,qqqq,RGB(238,238,28));
( G6 u4 C& h; Q! s$ e3 S2 x# e% p1 iPARTLINE(q7,qqqq,RGB(238,238,28));
8 D# Z3 m% q+ R8 ?PARTLINE(ll,qqqq,RGB(255,0,255));
1 _0 S! ^: V0 x2 MPARTLINE(q8,qqqq,RGB(238,238,28));9 p. d, P: B4 a% ~# l
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; , V$ d. t d2 r& {7 z9 i/ t
* x/ F; h3 M' I# V
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;9 {" [0 G9 O0 ?1 `! o) s$ b! [0 p0 T
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
( [2 c ?' N8 g* bDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;% e! ?, `% S B8 `6 {. _! \3 J
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;6 Z3 @: m' z0 Z2 g. _
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
9 Y0 }3 W. F% A, W9 zDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;4 |# s4 c: }7 X% K4 }1 M6 {( K
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;3 O4 f9 `% G* L% W; b4 V4 }3 A
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
3 z6 y' Q: y/ |- {' ?( eDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
2 L. e1 C: h9 N. S0 J$ V' gDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |