|
lhnh:=BARSLAST(DISPSTATUS=1)+1;" r+ u' I' A- ~( Q4 p7 x+ H% m
nnl:=DISPSTATUS=2;, n! e3 r/ C: o" r" g% S/ ]5 X
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
& ?; W8 F* ?* m5 ~- ^0 Ahh:=HHV(h ,lhnh);/ \* U! X7 \) Q' w' @
ll:=llV(l ,lhnh);6 x L) u! G' I6 Y* Y& \
q0:=hh+(hh-ll)*POW(0.618,5);
* D( s6 m2 W4 [# j' a: e! whh:=HHV(h ,lhnh);5 s+ F# _4 h# }
q1:=ll+(hh-ll)*POW(0.618,1);, J, f/ v9 l! v) }* X9 D6 N
q2:=ll+(hh-ll)*POW(0.618,2);
: {' J. I. B6 T9 k( Sq3:=ll+(hh-ll)*POW(0.618,3);
: n1 I$ Q7 L, {3 Q6 Gq4:=ll+(hh-ll)/2;
0 c+ W5 Q3 }: H' Kq5:=ll+(hh-ll)*POW(0.618,5);
& R8 q, y" s( G1 w; q, n' e/ yq6:=hh-(hh-ll)*POW(0.618,3);$ m9 H, r1 \& w
q7:=hh-(hh-ll)*POW(0.618,5);" Q# R1 l7 F7 p! t) h# v
ll:=llV(l ,lhnh);
: b/ K4 q! A) v% Gq8:=ll-(hh-ll)*POW(0.618,5);
: }# {. |) C( u7 rPARTLINE(q0,qqqq,RGB(238,238,28));
' D* f. t; ?* _! Z2 R& i9 tPARTLINE(hh ,qqqq,RGB(255,0,255));
- I% L4 O, \2 HPARTLINE(q1,qqqq,RGB(238,238,28));+ d' C4 g; Q' U/ h
PARTLINE(q2,qqqq,RGB(238,238,28));5 Y9 s0 m' L3 s' p' \- S! T7 G
PARTLINE(q3,qqqq,RGB(238,238,28));
7 h& e. B, S" c9 R) J2 U& ]PARTLINE(q4,qqqq,RGB(238,0,0));
, U% h, f% c& v5 VPARTLINE(q5,qqqq,RGB(238,238,28));% A6 E& j: _5 X; |" K9 U# P7 P% l
PARTLINE(q6,qqqq,RGB(238,238,28));
" R5 A9 x' S7 d) o1 I q% G) lPARTLINE(q7,qqqq,RGB(238,238,28));
3 M* a2 P- r0 n( zPARTLINE(ll,qqqq,RGB(255,0,255));
; A- ~9 ]7 G }4 [, dPARTLINE(q8,qqqq,RGB(238,238,28));6 H- o# v+ {$ w
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; ' x( @; s6 {% K- K2 T0 O
2 K! t7 Q9 Z- _+ h- TDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;3 s& v& k; [4 \+ ?& X% {
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
- S J# C* j$ P" k" ?DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
' J! M; P. G" Y1 q- pDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;4 s1 c+ P0 c* B) a* z# S& z% j
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
: f8 U+ W c. T! @% ~9 k9 SDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;. b$ r- |7 x0 t
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
% J3 ?2 w# Y4 H3 h. `DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;5 ^& P* p% o* t- t! v5 {2 d. A: p
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
% f2 S3 E0 w5 M1 Q" bDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |