|
lhnh:=BARSLAST(DISPSTATUS=1)+1;$ V0 Y% x* Y6 G
nnl:=DISPSTATUS=2;' o* s$ j7 b- R: [( v5 ^
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));7 Z8 K& H |# s
hh:=HHV(h ,lhnh);
. U9 J- ?& P n/ ^ll:=llV(l ,lhnh);+ o* g: K( A7 {6 p1 g! f, P
q0:=hh+(hh-ll)*POW(0.618,5);1 c. f6 f( b2 C4 X" m
hh:=HHV(h ,lhnh);& D5 h# Z- j4 a" C% C+ P2 w
q1:=ll+(hh-ll)*POW(0.618,1);' _% H; T7 D5 P, q$ Y
q2:=ll+(hh-ll)*POW(0.618,2);
, Y0 |) `/ y9 @4 l1 L1 [: K2 Gq3:=ll+(hh-ll)*POW(0.618,3);$ p: g" L8 K9 H% `
q4:=ll+(hh-ll)/2;
# K8 B, m* N& R9 i, I& c. pq5:=ll+(hh-ll)*POW(0.618,5);
) M5 ?4 C+ }2 _" B- Qq6:=hh-(hh-ll)*POW(0.618,3);
% l1 _/ X3 K1 B# l* N9 R eq7:=hh-(hh-ll)*POW(0.618,5);
( Y5 G+ O1 i3 t, R; B2 L- ]ll:=llV(l ,lhnh);2 o$ b7 X& {& y, X1 r
q8:=ll-(hh-ll)*POW(0.618,5);; l& y! o+ L$ @1 q$ S
PARTLINE(q0,qqqq,RGB(238,238,28));4 l' H. \$ ^) r5 T o
PARTLINE(hh ,qqqq,RGB(255,0,255));9 y( C- `+ H ~/ ]; B9 S
PARTLINE(q1,qqqq,RGB(238,238,28));
/ d3 v6 F# O0 b8 u* U5 r# v" ^: BPARTLINE(q2,qqqq,RGB(238,238,28));7 x) g( c: g. j# |. \2 v0 Y
PARTLINE(q3,qqqq,RGB(238,238,28));
, F# o7 G+ V: Y* j/ I; e/ DPARTLINE(q4,qqqq,RGB(238,0,0));
! X: O, a' \* c5 |PARTLINE(q5,qqqq,RGB(238,238,28));1 l5 v3 p) L `
PARTLINE(q6,qqqq,RGB(238,238,28));+ s# N1 B5 c8 w8 \4 \
PARTLINE(q7,qqqq,RGB(238,238,28));
& c7 Y; ]: ~4 K8 X6 h/ q- |PARTLINE(ll,qqqq,RGB(255,0,255));
) D2 b$ F+ ~) k y% A# ]PARTLINE(q8,qqqq,RGB(238,238,28));
4 `7 i( ?& s T2 e$ jDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; , O1 s6 a1 L6 ~
+ T! A" e, A$ c4 X6 SDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
6 l- a e8 } D9 SDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;$ A o9 c, x9 A' C6 f; d
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
G2 R6 k7 {0 wDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;( J4 e5 r( j- C3 m# m$ `2 a
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
7 A7 t* V$ m" @2 f/ C' hDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
3 z0 P# g; b. Q4 g- vDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
- s) z/ l$ p$ y' YDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;: J* E8 T, T+ v# ?
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;( |: L0 `- z/ V. M
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |