|
lhnh:=BARSLAST(DISPSTATUS=1)+1;7 h* M$ ]$ n$ H. r+ @7 I5 p/ t
nnl:=DISPSTATUS=2;9 }% O9 r: A. s y, z, m& L- g3 O
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));7 k4 A6 k2 x/ h# s* M! n
hh:=HHV(h ,lhnh);+ d0 V$ ?* s8 I% s6 }% S3 K/ q# J
ll:=llV(l ,lhnh);
. L2 W" ]6 Y3 |9 S* \3 O# Oq0:=hh+(hh-ll)*POW(0.618,5);
# H. g4 U2 [4 ghh:=HHV(h ,lhnh);: q3 f) q+ u j! ]
q1:=ll+(hh-ll)*POW(0.618,1);( o9 Y" H* c4 z d7 s" m6 v
q2:=ll+(hh-ll)*POW(0.618,2);! u* O9 R7 d) ?) x
q3:=ll+(hh-ll)*POW(0.618,3);4 D7 z+ R& h/ R, B5 U
q4:=ll+(hh-ll)/2;
" x9 k/ w( T: g5 s8 Vq5:=ll+(hh-ll)*POW(0.618,5);& m$ A) l: {2 v2 z& m+ j, l4 B
q6:=hh-(hh-ll)*POW(0.618,3);( x, N, @; r! y9 t1 N* P0 s1 T4 R
q7:=hh-(hh-ll)*POW(0.618,5);
! W7 ]2 M$ a- G5 N8 Z3 ^8 Cll:=llV(l ,lhnh);
2 [% S) ~8 z5 p% jq8:=ll-(hh-ll)*POW(0.618,5);( p5 S5 q4 _& M6 t% ]* k. K
PARTLINE(q0,qqqq,RGB(238,238,28));. W8 E' I' \: X! e8 q3 L" e
PARTLINE(hh ,qqqq,RGB(255,0,255));
. b, `$ c+ X5 ~9 QPARTLINE(q1,qqqq,RGB(238,238,28));
$ w+ t5 `. \$ J" xPARTLINE(q2,qqqq,RGB(238,238,28));( D3 ~# q) p. b% [. ~% @: w
PARTLINE(q3,qqqq,RGB(238,238,28));
7 c9 g2 a, q0 aPARTLINE(q4,qqqq,RGB(238,0,0));) G$ W1 `$ W7 S* \3 Z' q
PARTLINE(q5,qqqq,RGB(238,238,28));# p8 O( K$ H8 h. |- B
PARTLINE(q6,qqqq,RGB(238,238,28));' h5 ?7 a, l5 A0 ]% e
PARTLINE(q7,qqqq,RGB(238,238,28));8 J* L( f* m: z
PARTLINE(ll,qqqq,RGB(255,0,255));
4 n* D: @5 E: `" oPARTLINE(q8,qqqq,RGB(238,238,28));! p/ z$ y3 @% M4 A4 Y
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 3 a9 j/ X+ f5 D# P' G! g
) f4 _8 P" n) h# F5 v2 M5 ^6 _1 y1 A6 m
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
; a$ d g, k7 a7 b& v. j) YDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;, g5 \! [+ l" I
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
* }. U4 {, E/ g5 e" i) @7 k% t. EDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;- t6 i) w; z% E. z* j! U
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
) \# G9 x$ o9 f( Y; ODRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;% L3 f! D8 @3 u1 v! P
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
3 `- `8 P& c; n1 e/ |. P+ H* E$ F0 yDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;+ B2 c$ n/ \0 a
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;% Z8 A$ t$ U7 t) H% H* @, A7 z/ ^. B
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |