lhnh:=BARSLAST(DISPSTATUS=1)+1;. H. J1 C' O: V8 A% {
nnl:=DISPSTATUS=2;
) L: B8 s& \& @3 ~8 Vqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));2 i, G# v" w1 B, s" e& W
hh:=HHV(h ,lhnh);; A/ G# K: L6 a" a
ll:=llV(l ,lhnh);$ G: F) J1 f* j6 w
q0:=hh+(hh-ll)*POW(0.618,5);
! C4 h2 \9 n0 r- r# y) d6 |: Ghh:=HHV(h ,lhnh);; a% G& q4 T: Z a4 @
q1:=ll+(hh-ll)*POW(0.618,1);
1 D; Q/ P5 F$ `' `- w9 ]q2:=ll+(hh-ll)*POW(0.618,2);
7 v' [5 l0 e: Q- x( Zq3:=ll+(hh-ll)*POW(0.618,3);
* @& F! |+ H2 Cq4:=ll+(hh-ll)/2;
9 b: {4 _2 |" \) w+ W$ Lq5:=ll+(hh-ll)*POW(0.618,5);1 ~+ k8 g/ ^& i
q6:=hh-(hh-ll)*POW(0.618,3);
- e, P( \4 h+ d9 B6 }9 Kq7:=hh-(hh-ll)*POW(0.618,5);8 \ K" B t: Z6 k0 a
ll:=llV(l ,lhnh); e# G/ R( r! ~/ g0 f6 P( M
q8:=ll-(hh-ll)*POW(0.618,5);
: {0 [. g5 H! s' j) U+ l2 J' v. aPARTLINE(q0,qqqq,RGB(238,238,28));& U3 A" |5 F( ]* d, R
PARTLINE(hh ,qqqq,RGB(255,0,255));
% C f7 L7 l0 h7 z1 n+ y. wPARTLINE(q1,qqqq,RGB(238,238,28));
+ O M- @( x4 r- U6 e( b7 cPARTLINE(q2,qqqq,RGB(238,238,28));, ]+ L0 B% G/ x% C/ K h$ r% q
PARTLINE(q3,qqqq,RGB(238,238,28)); v. g5 ~% v( R8 x' c
PARTLINE(q4,qqqq,RGB(238,0,0));
: d, q9 x9 q7 U4 T7 W q& FPARTLINE(q5,qqqq,RGB(238,238,28));
, g' \# w& G6 _8 ~3 |) l: h6 u. I6 ]PARTLINE(q6,qqqq,RGB(238,238,28));
# f8 L# w3 ~- M/ aPARTLINE(q7,qqqq,RGB(238,238,28));
. x+ g- s) N8 d e! ]. v. UPARTLINE(ll,qqqq,RGB(255,0,255));
2 a: w |+ l" w6 ~- tPARTLINE(q8,qqqq,RGB(238,238,28));
$ k1 C; u# h0 C* h0 bDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
1 H% K* q1 o ^
6 d9 A" L" U" E( n5 aDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF; E$ V8 U3 W5 r5 |$ _
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
3 p1 _7 u: f/ M4 nDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
* @, h* D# r7 l) V% bDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;9 a; _& |6 y% f J! X
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
s; z7 \" I4 eDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
% I0 `# e# L: h8 ^DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
1 I, K7 t& Y( ADRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;$ j- t3 s6 }! X
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
?( J* G% n6 K1 c& XDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |