|
lhnh:=BARSLAST(DISPSTATUS=1)+1;: ~" \' g, x( T+ S9 H* Q
nnl:=DISPSTATUS=2;# T) t8 p. t# ^6 w
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));2 s/ z! B: E( [6 y
hh:=HHV(h ,lhnh);) T% G% u2 j# O& s- Y
ll:=llV(l ,lhnh);3 ^2 S, j! {1 K& B/ {2 B3 x9 C
q0:=hh+(hh-ll)*POW(0.618,5);! a: n$ _! p$ C: x
hh:=HHV(h ,lhnh);& D' v- d+ T \
q1:=ll+(hh-ll)*POW(0.618,1);
# X1 x/ @' D- P# ]8 L7 y1 ]q2:=ll+(hh-ll)*POW(0.618,2);
/ L) \: l* q) ?" W" f+ x2 wq3:=ll+(hh-ll)*POW(0.618,3);
) `2 N N$ g. k% s; Yq4:=ll+(hh-ll)/2;
4 I5 ?* X% r% Q" k d- y5 b7 Lq5:=ll+(hh-ll)*POW(0.618,5);
8 z' C3 ~$ K$ Eq6:=hh-(hh-ll)*POW(0.618,3);
% H$ ?) V6 R; Q" Kq7:=hh-(hh-ll)*POW(0.618,5);6 G$ ^+ ?" h: J" F) X
ll:=llV(l ,lhnh);
5 c" K4 a7 V2 V' }; y# Y5 ^q8:=ll-(hh-ll)*POW(0.618,5);
* F+ s& r5 s& t3 c OPARTLINE(q0,qqqq,RGB(238,238,28));. D) a+ m- A" v' D1 s, ]( j% A
PARTLINE(hh ,qqqq,RGB(255,0,255));
. U' s0 B- T! j3 `0 P* g; sPARTLINE(q1,qqqq,RGB(238,238,28));
; x& b& J) o0 ]: a! f% }$ `PARTLINE(q2,qqqq,RGB(238,238,28));
& v+ R- B3 u3 \PARTLINE(q3,qqqq,RGB(238,238,28));$ H# M& ?- t1 ^ `0 c! r, S7 r$ n
PARTLINE(q4,qqqq,RGB(238,0,0));9 @ R U' L) m! y
PARTLINE(q5,qqqq,RGB(238,238,28)); Q% {/ H; W* J+ t9 a0 Q! ~
PARTLINE(q6,qqqq,RGB(238,238,28));
% a# x+ L/ ^8 \9 F0 G" C# h, DPARTLINE(q7,qqqq,RGB(238,238,28));2 Q- }& t8 G. f$ E* I5 D# L9 q+ Y
PARTLINE(ll,qqqq,RGB(255,0,255));
`% L# s/ W3 L2 X2 yPARTLINE(q8,qqqq,RGB(238,238,28));, o! T" u6 G% z$ Q; _+ ]- D
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
. j' y y6 P5 X# K
' A4 T9 A' Z ^2 l* b8 IDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
; T3 O y$ e* K8 w! J4 vDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;- Q( J* c$ c# e$ Q- B7 C7 x, P) _ q
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;" I! o$ t% [% a9 w. ^
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
' j1 m+ X& g2 T+ t6 b) wDRAWTEXT(nnl,q4,'50% '+q4),Colorred;# @$ h+ o; @$ b/ S3 j$ l! S f
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;% @3 }+ y/ Z( I7 W$ q- D
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
) s* j5 f$ u2 }DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
' ^ ?/ e$ L" a& ]0 r: G6 R- @# hDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
% g/ ~/ a: K1 w% ]5 n' {DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |