|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
. u5 \9 C/ L9 H' _. R" [4 L* ?nnl:=DISPSTATUS=2;
" u2 M& l' P( ^2 b8 N. i; }qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
& [# O1 H5 h4 l) V$ T+ ihh:=HHV(h ,lhnh);0 t2 J% v% r- Z8 k1 w1 Y) F1 U4 O
ll:=llV(l ,lhnh);$ k% x' ~! e* |9 B
q0:=hh+(hh-ll)*POW(0.618,5);/ D n8 o: ^) d# y" s
hh:=HHV(h ,lhnh);% C# q( O! p: ]" s
q1:=ll+(hh-ll)*POW(0.618,1);
- q( a' L5 Q6 F) p' hq2:=ll+(hh-ll)*POW(0.618,2);
: J w9 A2 [! |; ?q3:=ll+(hh-ll)*POW(0.618,3);
8 F1 Z/ e1 L0 p8 s m6 _* Aq4:=ll+(hh-ll)/2;
: L& u: F8 |0 Z0 t; gq5:=ll+(hh-ll)*POW(0.618,5);$ Z9 I5 r+ T6 d; V- i! H
q6:=hh-(hh-ll)*POW(0.618,3);0 I, i% }/ c7 T6 E* q
q7:=hh-(hh-ll)*POW(0.618,5);6 m l: w" ]( S; C- r$ E
ll:=llV(l ,lhnh); x/ w0 M+ C8 I6 g
q8:=ll-(hh-ll)*POW(0.618,5);
8 u7 i0 C/ I% q) i+ EPARTLINE(q0,qqqq,RGB(238,238,28));
$ L6 e# k5 |$ ZPARTLINE(hh ,qqqq,RGB(255,0,255));2 U; c$ L* o3 r; i
PARTLINE(q1,qqqq,RGB(238,238,28));
; U/ R) s! G! C4 R& h; J8 Q! fPARTLINE(q2,qqqq,RGB(238,238,28));- x$ {5 m; A, _5 `
PARTLINE(q3,qqqq,RGB(238,238,28));4 o8 |2 k4 `0 o! T: D
PARTLINE(q4,qqqq,RGB(238,0,0)); l, V, i; ?, T0 A: S1 @
PARTLINE(q5,qqqq,RGB(238,238,28));
3 r# m$ }, A+ |3 wPARTLINE(q6,qqqq,RGB(238,238,28));$ ?: k6 i) @) m1 ^
PARTLINE(q7,qqqq,RGB(238,238,28));
8 X7 X0 |/ T: N; {+ KPARTLINE(ll,qqqq,RGB(255,0,255));* _; W* r' C5 i% g) x; Y: q
PARTLINE(q8,qqqq,RGB(238,238,28));% X5 A% R3 f# W/ ~7 M. F9 b L2 Q
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
4 o g: ?9 q' E( w+ @/ D$ b" e- q3 E9 n
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;% u$ \! F' ~# E( F6 B
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;" H- {0 A9 }2 m- o! K
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
( X8 a8 s+ b. Y$ `DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;( u' C- T8 @+ U' t' F
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;7 k5 I! U4 q5 l9 F
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
& i u9 g$ u ^' e& a5 t/ sDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
3 n0 b% U7 f7 Q% g" P0 fDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;( X3 F- W( U; C2 O! Q, I. H
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
5 r# ^; }4 b, D. B8 W6 nDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |