|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
% j+ l; m# r- x2 ]3 ^, Bnnl:=DISPSTATUS=2;
8 C* A! i9 x, S3 ^# j! {) n) n+ E/ Pqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));# H/ ~$ }2 _+ h; r( p, B
hh:=HHV(h ,lhnh);
! I9 U4 x1 s, z; Hll:=llV(l ,lhnh);; Y1 L* @% [1 A9 u R
q0:=hh+(hh-ll)*POW(0.618,5);: A+ A; k; ~" Z- N% v
hh:=HHV(h ,lhnh);
+ ` r: e% q( z8 E Jq1:=ll+(hh-ll)*POW(0.618,1);$ b3 E$ y B2 e$ W& G$ q7 T
q2:=ll+(hh-ll)*POW(0.618,2);
2 k" }- ?7 v, T1 x; uq3:=ll+(hh-ll)*POW(0.618,3);( t: }$ W3 t7 O& U! s! K4 A) _
q4:=ll+(hh-ll)/2;
. x/ L( U: s8 w% B8 Lq5:=ll+(hh-ll)*POW(0.618,5);/ @7 m6 \* F: V/ ]) O
q6:=hh-(hh-ll)*POW(0.618,3);# ]& \: @+ P/ R5 ]
q7:=hh-(hh-ll)*POW(0.618,5);
, C% K: x) S' j" {, _ll:=llV(l ,lhnh);
( a# H6 ]7 w4 Qq8:=ll-(hh-ll)*POW(0.618,5);# `4 _8 [: ^+ F) u, _$ b5 g
PARTLINE(q0,qqqq,RGB(238,238,28));
9 a; n, |6 x% d8 [& CPARTLINE(hh ,qqqq,RGB(255,0,255));2 r2 ]- c( k4 K
PARTLINE(q1,qqqq,RGB(238,238,28));
" ?; _: y* f3 \0 L0 yPARTLINE(q2,qqqq,RGB(238,238,28));! ]' _! C* f. a5 e- r
PARTLINE(q3,qqqq,RGB(238,238,28));/ {- S3 m" X, s/ o, q# r+ I
PARTLINE(q4,qqqq,RGB(238,0,0));; N+ s, Q$ E4 v; E' h
PARTLINE(q5,qqqq,RGB(238,238,28));+ `* }8 r& z2 O: f# `5 D" J
PARTLINE(q6,qqqq,RGB(238,238,28));
2 N; s# K) n$ G3 d: I5 t& XPARTLINE(q7,qqqq,RGB(238,238,28));6 H: W2 {- O/ C8 t
PARTLINE(ll,qqqq,RGB(255,0,255));& r( Y; j( u6 c7 A
PARTLINE(q8,qqqq,RGB(238,238,28));9 p9 {# i- S7 q
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
/ c$ g3 ?4 I/ D) k0 N* l$ a- Q9 E; ^4 L9 C2 t* g$ w' P/ K0 ]
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;; @; ~* S& p) I' }, O% C
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;% |( O) r( f }
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;8 Z0 X% z4 \+ I j" }
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;: F4 k. T/ J/ E9 g! `" y) R: n
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;/ I" z/ s2 s1 q& Y. @8 f5 e
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;" S: Y3 S1 B0 v
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
4 {% ]: B/ {% o% ?9 s& }DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
1 y1 f: ?: p- }1 E2 l. _DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
7 x0 e# \, D* N& S) x$ XDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |