|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
9 U$ e- F- _5 Znnl:=DISPSTATUS=2;, I7 I& ^8 J5 \0 R& e- \
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
! v+ t/ ^, F4 `2 I- f: Xhh:=HHV(h ,lhnh);
0 g" V e2 s& ]/ y; xll:=llV(l ,lhnh);
1 E" n7 \: D" V" j% Z; yq0:=hh+(hh-ll)*POW(0.618,5);) V, b' T0 ^4 D9 k
hh:=HHV(h ,lhnh);
" r+ M( z) c4 C( ], ]% tq1:=ll+(hh-ll)*POW(0.618,1);/ e0 e; I5 z9 z& L0 O
q2:=ll+(hh-ll)*POW(0.618,2);
; V$ A6 t, Q! m/ ]& i7 Mq3:=ll+(hh-ll)*POW(0.618,3);
3 o+ L0 D; I$ h5 G9 p0 d2 w* qq4:=ll+(hh-ll)/2;( |& a1 P% F5 L, W/ C0 _
q5:=ll+(hh-ll)*POW(0.618,5);
3 ?1 ]# S4 |# Q) r$ Oq6:=hh-(hh-ll)*POW(0.618,3);8 W, B. u) ~" d) d' @2 }
q7:=hh-(hh-ll)*POW(0.618,5);3 D T2 F5 b3 R# a1 W
ll:=llV(l ,lhnh);4 e# P4 W) O- I/ q+ e" w' @' f; o
q8:=ll-(hh-ll)*POW(0.618,5);/ h# e, L# U0 i. _6 l7 F
PARTLINE(q0,qqqq,RGB(238,238,28));
4 B0 I1 _% i9 i3 P8 l$ S" YPARTLINE(hh ,qqqq,RGB(255,0,255));
! p7 V" g6 p2 c. Q( _; OPARTLINE(q1,qqqq,RGB(238,238,28));
1 v7 N9 s3 d( o/ K; J4 |) kPARTLINE(q2,qqqq,RGB(238,238,28));
; y# x4 g9 f' {/ s3 XPARTLINE(q3,qqqq,RGB(238,238,28));2 d2 {) n' U6 N/ X; K5 e+ }
PARTLINE(q4,qqqq,RGB(238,0,0));) Z0 R0 @* ~3 m4 J9 J
PARTLINE(q5,qqqq,RGB(238,238,28));% h& j+ O2 x4 [! ~5 `7 r; V+ n8 A
PARTLINE(q6,qqqq,RGB(238,238,28));4 U2 e/ r+ r# n( M, g2 [
PARTLINE(q7,qqqq,RGB(238,238,28));/ N. y9 D N) e' a
PARTLINE(ll,qqqq,RGB(255,0,255));
6 O7 ^9 C( N4 R l# aPARTLINE(q8,qqqq,RGB(238,238,28));
' P+ a2 X3 Q" F2 nDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; ! P5 D1 Q6 M) L9 ^. ^) U
6 ]% @& E. z* v; q% q
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;4 g- e8 k: J' P" l/ m
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
% v: ?/ `. E( I- M2 eDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
# d0 F4 e: ]; M5 P6 V) @DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
3 ^5 R5 e$ c2 H, X+ O, fDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
, i, U, r% f% ]3 N1 E3 _. V- A. sDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
( v! x- ^6 p4 M- l0 ^8 Z6 d2 {0 _DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
! \; m6 {' b) {5 }7 XDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
1 w u$ l0 C# z$ ^DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
( `5 g% ]8 w ?/ l% J, jDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |