lhnh:=BARSLAST(DISPSTATUS=1)+1;
: P; f" i- |. ^nnl:=DISPSTATUS=2;
! Z8 Y" U" B8 h+ w1 Z4 qqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));! I" O1 R1 }& C* f
hh:=HHV(h ,lhnh);! Z4 l! I. l7 ^1 q; r# w& X5 }
ll:=llV(l ,lhnh);4 ?" J$ y1 T+ Q& s: q W
q0:=hh+(hh-ll)*POW(0.618,5);: ?, T Y+ Y9 {# u
hh:=HHV(h ,lhnh);1 p* j7 h& P3 i! l) S! t
q1:=ll+(hh-ll)*POW(0.618,1);; o, L2 F- Q# N/ m
q2:=ll+(hh-ll)*POW(0.618,2);& v6 C) x. ~9 E; |5 W
q3:=ll+(hh-ll)*POW(0.618,3);/ V( s' ^) U5 i: I
q4:=ll+(hh-ll)/2;
& \& W3 f( Z# S, Q$ h& ?8 N( _9 N( }q5:=ll+(hh-ll)*POW(0.618,5);
' ]# e$ ~ U7 j6 J2 Hq6:=hh-(hh-ll)*POW(0.618,3);
1 d% A! R( ?3 _' Tq7:=hh-(hh-ll)*POW(0.618,5);0 W% G4 S' O6 L% Z9 {6 O% C
ll:=llV(l ,lhnh);2 e$ N4 r2 s4 L
q8:=ll-(hh-ll)*POW(0.618,5);
j- P. c" E( KPARTLINE(q0,qqqq,RGB(238,238,28));3 o* q4 E2 J8 ~" y! g6 C+ Y$ j
PARTLINE(hh ,qqqq,RGB(255,0,255));
2 u1 u8 \' o& _5 c8 T5 S! V6 J- f4 \PARTLINE(q1,qqqq,RGB(238,238,28));
- z& X( o3 z7 J7 Y8 w. t2 OPARTLINE(q2,qqqq,RGB(238,238,28));( [1 }. J" U' i) g! c, U
PARTLINE(q3,qqqq,RGB(238,238,28));
* o- w7 U4 Z* Y, ?% a, T+ _PARTLINE(q4,qqqq,RGB(238,0,0));
- U/ w3 J. f# ZPARTLINE(q5,qqqq,RGB(238,238,28));
6 l! x$ _* K. Z4 D/ d2 uPARTLINE(q6,qqqq,RGB(238,238,28));
4 G L# [2 A K( s6 ?, lPARTLINE(q7,qqqq,RGB(238,238,28)); c9 D6 n I9 b- ~% e% u4 w% E
PARTLINE(ll,qqqq,RGB(255,0,255));
% [: v. H0 R9 @" D DPARTLINE(q8,qqqq,RGB(238,238,28));. `3 h4 {( _9 y
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
' m. b+ r% p# u/ n6 B# X. }4 t$ K; v: E5 w+ v. p1 i3 \3 U Q
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
/ b( P0 R1 B2 x$ L1 `7 f1 Z# zDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
3 b M8 `9 s# l9 J/ iDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;# _6 { v: V2 I/ l7 v2 J
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;! G& @4 U0 W8 {+ J- z) b, e2 U- _
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;- n& O2 v9 \" n% v) ?; U' _( {9 L' E: c
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;7 @: Q3 J ^4 z! I" i0 w1 }9 a
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;0 n" P* v, [, C0 z% e# y
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
( M+ s& S6 ~$ [5 k2 EDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
3 \6 S* O7 q) DDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |