|
lhnh:=BARSLAST(DISPSTATUS=1)+1;4 @* Y/ J+ C) B! d" w
nnl:=DISPSTATUS=2;
5 P) U8 D! p; i5 f2 Lqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));+ p. O0 V8 v r
hh:=HHV(h ,lhnh);
1 g/ H5 {1 L O$ T H% `ll:=llV(l ,lhnh);: o% X. Q3 N% }9 R' t
q0:=hh+(hh-ll)*POW(0.618,5);
" F) [: x1 a! z( J; l \( z8 T- vhh:=HHV(h ,lhnh);/ u9 Y$ ]7 ~% g9 b
q1:=ll+(hh-ll)*POW(0.618,1);
# T3 U5 B4 M+ ?* B+ l/ `! |3 {q2:=ll+(hh-ll)*POW(0.618,2);* O# I1 M4 r9 z& `4 c. \! N2 U& {
q3:=ll+(hh-ll)*POW(0.618,3);
# l- |" t7 ]. z# P. F) `; S# J9 Bq4:=ll+(hh-ll)/2;/ V. ^) k" \$ x* g" V
q5:=ll+(hh-ll)*POW(0.618,5);/ Z- E7 U" Y( m3 J
q6:=hh-(hh-ll)*POW(0.618,3);4 I8 O* O1 f* k
q7:=hh-(hh-ll)*POW(0.618,5);
$ X/ Z: d2 u( A) z9 D/ ~7 T7 Oll:=llV(l ,lhnh);6 [; B5 x3 p4 v* k+ y3 V& |* F
q8:=ll-(hh-ll)*POW(0.618,5);
5 L; r; ]* M0 F0 DPARTLINE(q0,qqqq,RGB(238,238,28));
( M3 S; Q7 n' ^2 v @- H1 l# CPARTLINE(hh ,qqqq,RGB(255,0,255));
" G3 p( w+ Q5 b) A/ i) I/ UPARTLINE(q1,qqqq,RGB(238,238,28));
9 b* J+ T' L1 ^3 [PARTLINE(q2,qqqq,RGB(238,238,28));
2 m7 K {9 e4 p; @PARTLINE(q3,qqqq,RGB(238,238,28));
2 K) L% I. D* W, g; P$ V6 WPARTLINE(q4,qqqq,RGB(238,0,0));9 a: {) p% @, n9 L7 A, ]$ s
PARTLINE(q5,qqqq,RGB(238,238,28));; X$ ]1 i! R' N
PARTLINE(q6,qqqq,RGB(238,238,28));
h# Y H! r' @/ ?. @PARTLINE(q7,qqqq,RGB(238,238,28));
1 p& v! j* }" D6 `8 mPARTLINE(ll,qqqq,RGB(255,0,255));
$ z/ E: \: b; B1 I$ d2 j8 j4 BPARTLINE(q8,qqqq,RGB(238,238,28));3 B& R% L" G6 z6 T
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 9 Q+ p& g9 a1 f4 P, f! b# Q
6 l& @" `0 K$ {+ h- G4 @* C
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;/ i5 P! d1 d0 K# w5 k
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;: U6 y* w( u/ a
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;" E# W+ L7 E, {6 w
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
% i: q2 F/ K/ H: }/ ]DRAWTEXT(nnl,q4,'50% '+q4),Colorred;9 t2 H$ R' K6 e# j9 Y& _
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;5 v% { [) j: Z7 Y
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
. t5 m$ _3 ?% u8 e BDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;2 s( j2 K, G( ?! S4 r; r
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
% y+ a+ ?% I# i) UDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |