|
lhnh:=BARSLAST(DISPSTATUS=1)+1;9 [6 m9 f# E7 s5 s. ~
nnl:=DISPSTATUS=2;7 E( D. n; @! [
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
4 C& G, P+ ~/ g! P( t, [# Z. ehh:=HHV(h ,lhnh);7 q4 I0 i8 A* S; D" G8 n/ {2 A2 t1 T
ll:=llV(l ,lhnh);
# S- G! M0 @9 D' F f: {* |" J7 Hq0:=hh+(hh-ll)*POW(0.618,5);* X* U! V3 X& R* D
hh:=HHV(h ,lhnh);5 [- W3 A- I# |8 j
q1:=ll+(hh-ll)*POW(0.618,1);) i2 x- F3 @) H8 P
q2:=ll+(hh-ll)*POW(0.618,2); e- L* e& V4 @' ~& d: ~. I* n& w
q3:=ll+(hh-ll)*POW(0.618,3);
[" n5 D; f. }, X- c# tq4:=ll+(hh-ll)/2;+ U o3 ?7 K, i H( p! g
q5:=ll+(hh-ll)*POW(0.618,5);
: r7 [3 B2 d: t; L+ iq6:=hh-(hh-ll)*POW(0.618,3);' i7 a( M$ K5 g: w6 R+ q
q7:=hh-(hh-ll)*POW(0.618,5);
% X* |' V; L2 U! v9 i, M3 kll:=llV(l ,lhnh);
6 @: b$ U" ?- @; Yq8:=ll-(hh-ll)*POW(0.618,5);
c6 U0 [$ `7 p$ z E5 v" ]7 \PARTLINE(q0,qqqq,RGB(238,238,28));, A* z( X! q2 P+ K( C& s
PARTLINE(hh ,qqqq,RGB(255,0,255));
) z$ B1 U- i9 @$ O' g5 u: bPARTLINE(q1,qqqq,RGB(238,238,28));
7 {1 `' Y2 z# H/ o& T# x8 u8 J3 k/ ~7 dPARTLINE(q2,qqqq,RGB(238,238,28));$ a' M: v8 Q' z0 J2 x' M: y
PARTLINE(q3,qqqq,RGB(238,238,28));9 O% p) ~# w/ `. I6 \6 H
PARTLINE(q4,qqqq,RGB(238,0,0));
0 S- k2 T) c% B. W+ ~6 |" PPARTLINE(q5,qqqq,RGB(238,238,28));
! Q, `& x: | F+ hPARTLINE(q6,qqqq,RGB(238,238,28));9 |' z1 B) l* h; h
PARTLINE(q7,qqqq,RGB(238,238,28));) t5 H9 g8 O4 ?8 t; l8 ?0 N) T
PARTLINE(ll,qqqq,RGB(255,0,255));3 k- r- b" J6 g& g3 z
PARTLINE(q8,qqqq,RGB(238,238,28));
, p% \: s, W. r. t7 L- EDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
" k6 q7 k( k4 o {- u7 a: C
8 E" e' m+ S) u: V; z5 X8 aDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;6 E0 l( k/ E9 `' E9 d7 o
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;- F# x' N, K! s) r3 ~
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
3 ?0 f3 W! G3 e6 aDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;" Y2 J" U6 M7 H
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;! V D! L6 i5 Z0 I6 T: t) w
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;) I7 D- [! n& [. C7 G5 L: j
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;( M4 Q! } n; Y8 C
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
# h# t! }1 O2 _) qDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
( r4 c: U% s6 k! M5 h1 YDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |