|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 b& ?- H. X, x" L! o2 A# xnnl:=DISPSTATUS=2;' m3 p- M* g$ ]6 j
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));4 a$ H1 n. j% o" ], J; q8 b& Y
hh:=HHV(h ,lhnh);
# J0 @: m! {* ?1 R Y" T: L, n6 ]ll:=llV(l ,lhnh);3 O5 q8 S8 d- u s
q0:=hh+(hh-ll)*POW(0.618,5);
' E3 l! Q, r k. w1 ehh:=HHV(h ,lhnh);- p0 I- ~3 T& i5 b
q1:=ll+(hh-ll)*POW(0.618,1);5 C( W+ l+ ~ J# l
q2:=ll+(hh-ll)*POW(0.618,2);
) `9 ~9 r0 z, E% g3 J" B- {6 qq3:=ll+(hh-ll)*POW(0.618,3);% @. u( M8 S1 j2 n+ Z+ [8 L, d$ r
q4:=ll+(hh-ll)/2;# Y. v( y" i1 Z: I+ U1 E% f
q5:=ll+(hh-ll)*POW(0.618,5);
; F( D* D; D& Z1 B- Yq6:=hh-(hh-ll)*POW(0.618,3);
) E8 p. @4 R5 I( y1 K: }1 pq7:=hh-(hh-ll)*POW(0.618,5);, L% t- D3 l# g% M% ?; G
ll:=llV(l ,lhnh);
6 I" U# V- L2 A1 J" O0 S8 _& Hq8:=ll-(hh-ll)*POW(0.618,5);# _5 u! l) D6 N& A' F% u
PARTLINE(q0,qqqq,RGB(238,238,28));, h; o v( a* g k) p
PARTLINE(hh ,qqqq,RGB(255,0,255));5 F! s8 S+ { E/ j% _1 `; z; L
PARTLINE(q1,qqqq,RGB(238,238,28));& m- f* j% `& ]4 A5 d- X
PARTLINE(q2,qqqq,RGB(238,238,28));
9 g$ H/ e* h3 TPARTLINE(q3,qqqq,RGB(238,238,28));/ r, t0 K3 J) [" s
PARTLINE(q4,qqqq,RGB(238,0,0));: N5 V& x5 x! L4 R( @2 @
PARTLINE(q5,qqqq,RGB(238,238,28));' X8 x' h. Z- Z- _2 f! ~+ |
PARTLINE(q6,qqqq,RGB(238,238,28)); A9 N* {9 C) D& M
PARTLINE(q7,qqqq,RGB(238,238,28));2 q& G% m' _! \
PARTLINE(ll,qqqq,RGB(255,0,255));! Y% V0 y8 W3 k# V2 s+ _5 G
PARTLINE(q8,qqqq,RGB(238,238,28));$ y$ h" |* J" u, G5 r4 z9 m
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
8 I- P3 c" j3 F8 R5 v
% \4 w3 r$ B7 @" j7 ?2 E8 |DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
. z( ~, [2 r- ?# w7 Z6 _& T8 sDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF; H3 m9 u C( q; }2 f& ]* U
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
& ]. k5 v* _' X1 r# K2 p( a( E! uDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;* V% ?9 z. d" u* ]
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
% F5 Q$ E+ @6 \7 zDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
4 G" M+ Q( a1 Z: t0 t" }+ P# lDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
8 K: `5 D+ \- \6 l! b& m1 U4 [DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
# W6 C! U6 N3 b$ c7 k& U4 X; nDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
, b! F6 I" F$ E( x2 m) s% j7 sDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |