|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 K/ {! S; c* D, W; Cnnl:=DISPSTATUS=2;- L5 H# e/ O2 s7 ?
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
5 V1 r/ i5 q. v: }1 p$ ohh:=HHV(h ,lhnh);1 k6 }. u7 q. J4 |* e6 V5 D1 X
ll:=llV(l ,lhnh);
4 ]) _& n, J5 k$ i+ C5 Jq0:=hh+(hh-ll)*POW(0.618,5);
* ~" }5 @. f# \4 n% S- I _' Nhh:=HHV(h ,lhnh);$ E& x0 G' Q k% g( E' P7 y
q1:=ll+(hh-ll)*POW(0.618,1);
! @) e* V, X# H: ^% ~1 hq2:=ll+(hh-ll)*POW(0.618,2);
0 |+ z. _; U3 O. G8 Cq3:=ll+(hh-ll)*POW(0.618,3);
! {* s! P; g: s) {# c5 Xq4:=ll+(hh-ll)/2;9 s; X- Q- `2 m* a
q5:=ll+(hh-ll)*POW(0.618,5);
) K5 Z4 C7 @$ W! ]* pq6:=hh-(hh-ll)*POW(0.618,3);% w" h% X* ^/ p0 F" ]' a/ k+ b
q7:=hh-(hh-ll)*POW(0.618,5);
& \1 u% T: O8 J, Fll:=llV(l ,lhnh);
% J7 e2 J! ]8 f. j( Rq8:=ll-(hh-ll)*POW(0.618,5);
s. e' j. |/ Z' O7 S+ JPARTLINE(q0,qqqq,RGB(238,238,28));! N! s3 ~9 o& N& K \1 s. Q
PARTLINE(hh ,qqqq,RGB(255,0,255));8 u& y- s7 T4 S0 y' ^8 _ |
PARTLINE(q1,qqqq,RGB(238,238,28));! Q# M0 T" `8 o- c N: N
PARTLINE(q2,qqqq,RGB(238,238,28));
* T/ a% a, O( oPARTLINE(q3,qqqq,RGB(238,238,28));
4 l2 [$ C- _. w! G) r$ N! J2 y& EPARTLINE(q4,qqqq,RGB(238,0,0));
# F5 _( V# S- jPARTLINE(q5,qqqq,RGB(238,238,28));1 g" J" X: A0 P
PARTLINE(q6,qqqq,RGB(238,238,28));
2 T: H- i3 G" ]- o7 RPARTLINE(q7,qqqq,RGB(238,238,28));! m$ K% l$ [8 J, a
PARTLINE(ll,qqqq,RGB(255,0,255));
" Z% P! M# T+ i& K8 yPARTLINE(q8,qqqq,RGB(238,238,28));. |, v: V) A8 s7 F# v/ H
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
, f, d! p# D* t
0 G' z: T+ r( c/ B9 o; IDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;% T6 i* \5 |- L) R$ s. H4 E
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;7 z9 k7 M5 I. H% V* R/ Y
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
! l* p- U! K! I, @2 BDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
: ^7 x3 o: @) v- _9 c/ yDRAWTEXT(nnl,q4,'50% '+q4),Colorred;% [/ X" U" Z) o
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;" |. G+ y# S: {2 k4 `7 q* n
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
% a( y) r$ U6 P) F3 a0 e0 DDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;8 S! _3 \& u1 J1 I
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;# ^5 Y$ n1 X8 X8 _& L
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |