|
lhnh:=BARSLAST(DISPSTATUS=1)+1;! \2 f9 T( `, d
nnl:=DISPSTATUS=2;. G; A: E N5 p' O* n/ p
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
2 N: ?& H0 q& K& h- k3 \hh:=HHV(h ,lhnh);( `* H% ^, e% ]+ Z# [
ll:=llV(l ,lhnh);8 I0 @2 N) E9 m) @, q6 ^
q0:=hh+(hh-ll)*POW(0.618,5);0 L9 m0 r& Y4 Q8 W$ g7 Z
hh:=HHV(h ,lhnh);
1 h3 v! i% W9 R' aq1:=ll+(hh-ll)*POW(0.618,1);% ?) l. e% m$ Z
q2:=ll+(hh-ll)*POW(0.618,2);' P, I1 [ O- Q$ O8 R( p& j y
q3:=ll+(hh-ll)*POW(0.618,3);2 N$ m+ p5 ^/ u. o- C
q4:=ll+(hh-ll)/2;
6 h( F y+ G' Aq5:=ll+(hh-ll)*POW(0.618,5);; b& V$ e/ R A7 w3 W8 {
q6:=hh-(hh-ll)*POW(0.618,3);
8 F9 h) l, R( w: E/ aq7:=hh-(hh-ll)*POW(0.618,5);
8 q1 Z1 `6 x V3 _% v$ c2 @ll:=llV(l ,lhnh);' }7 q# t! ~2 R! B4 s7 J/ ^& [
q8:=ll-(hh-ll)*POW(0.618,5);+ Q9 p" d; J7 F7 G- g
PARTLINE(q0,qqqq,RGB(238,238,28));
" R1 R+ M8 C( c" l% b2 NPARTLINE(hh ,qqqq,RGB(255,0,255));1 n. z* a/ s* s* [# @0 E. n2 v+ S
PARTLINE(q1,qqqq,RGB(238,238,28));5 S& y% E$ I7 b" a# s+ X5 s. z& X
PARTLINE(q2,qqqq,RGB(238,238,28));2 J1 E1 j% n0 f) \/ A; w; L4 X5 y0 J
PARTLINE(q3,qqqq,RGB(238,238,28));) Q6 `6 s: a$ Y( I- J- }8 @
PARTLINE(q4,qqqq,RGB(238,0,0));! S w* W- Q- w! u
PARTLINE(q5,qqqq,RGB(238,238,28));
% A! n3 N% n! t# g6 \PARTLINE(q6,qqqq,RGB(238,238,28));9 W4 l- [$ [0 N, ^) i
PARTLINE(q7,qqqq,RGB(238,238,28));
9 R! {& y% Y2 L; Y0 c. YPARTLINE(ll,qqqq,RGB(255,0,255));- t- W6 F' m, [' ?9 H" w
PARTLINE(q8,qqqq,RGB(238,238,28));
/ n$ x" n J9 uDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; + p$ F/ S+ }1 ?& v
4 c9 d% h. ^# d) I" `% C- A8 P5 k
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;2 v3 i- G4 c4 \; O
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
! t3 l* T3 H& mDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;7 s1 u4 A6 z* N3 e
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;, h6 F$ \# E4 a% k7 R2 s9 ]
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
9 L+ a9 q. |$ y7 f0 L3 FDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
7 f q+ L8 {: k* E6 N0 M& u5 a- CDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
5 h5 S" p7 m6 }DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
7 t7 d8 _" y6 E- u$ P! A1 ODRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
6 c) Q# h [# YDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |