|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 z" F. O7 `; S0 M6 g9 _; |nnl:=DISPSTATUS=2;2 R: z# [0 {& c
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
' M" J2 o8 [/ A: X( @/ ]hh:=HHV(h ,lhnh);: t% Y1 I' T( ?4 E6 ` Q
ll:=llV(l ,lhnh);
$ i4 _" O$ m. s- {9 i" uq0:=hh+(hh-ll)*POW(0.618,5);. x$ w' ?, x3 p- {4 ~
hh:=HHV(h ,lhnh);6 A0 {+ Y m' p7 c
q1:=ll+(hh-ll)*POW(0.618,1);4 \2 }! `2 U7 f+ [" {
q2:=ll+(hh-ll)*POW(0.618,2);3 _) k0 ~+ Z5 H; ?3 K
q3:=ll+(hh-ll)*POW(0.618,3);# v! e. ]1 ], V9 N& E
q4:=ll+(hh-ll)/2;7 L0 e+ U" v2 o& E
q5:=ll+(hh-ll)*POW(0.618,5);2 v9 B& g; b) M' }& q5 W. O6 A
q6:=hh-(hh-ll)*POW(0.618,3);
`7 F1 g0 f# t T6 g5 l0 Yq7:=hh-(hh-ll)*POW(0.618,5);' D8 d5 x. p# a# U) i8 s: I ^
ll:=llV(l ,lhnh);; N3 r1 l+ a7 } U2 x7 T! n
q8:=ll-(hh-ll)*POW(0.618,5);
& s j4 j( [! uPARTLINE(q0,qqqq,RGB(238,238,28));
, x$ b! f5 `/ j$ i2 X7 |: D" M& ^# E9 w: _PARTLINE(hh ,qqqq,RGB(255,0,255));; k) J# L% v+ `0 x. n& w* \
PARTLINE(q1,qqqq,RGB(238,238,28));! p e( [8 o: n3 Y% `( B
PARTLINE(q2,qqqq,RGB(238,238,28));
, u# p4 A9 |' a$ S2 x) |PARTLINE(q3,qqqq,RGB(238,238,28));
1 Q6 }$ q0 D! W9 ]PARTLINE(q4,qqqq,RGB(238,0,0));/ P; x l8 `4 T4 N1 N* w
PARTLINE(q5,qqqq,RGB(238,238,28));
, F1 p# q2 {8 v, t* s, n9 BPARTLINE(q6,qqqq,RGB(238,238,28));
) k1 q% z, S# rPARTLINE(q7,qqqq,RGB(238,238,28));- o5 b& P0 {# h; G! f
PARTLINE(ll,qqqq,RGB(255,0,255));! p5 b% b/ t9 o* \
PARTLINE(q8,qqqq,RGB(238,238,28));8 s- b t. ^* | F% _! P+ h
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
7 j# c/ M4 b3 i" Y7 M8 l2 t- Z& u- z6 b8 k# p6 u" G4 q- ~
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;. H; O0 C. ?! n- Z
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
1 q6 K( F; R5 }3 I( V. wDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
0 ?! l9 ^1 m; g. m- |DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
% V" S$ }/ H% x( o) W, K# [DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
! d5 H; G, `, c/ J. L& j* {0 EDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
9 Q1 b0 h0 V5 N) I/ [7 LDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
% P# h/ Y1 i+ e( {' E8 TDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
' c: u2 k4 L/ y9 ]5 qDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;( o8 K s6 L$ Z* d0 B' a
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |