|
lhnh:=BARSLAST(DISPSTATUS=1)+1;8 g# X `1 b) [4 g
nnl:=DISPSTATUS=2;
- e. I3 Q, j: E! x) g) g0 Jqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
. y) _: F- w! m, H% p" E# ^& T2 Hhh:=HHV(h ,lhnh);0 {5 Z/ P% w, i' E
ll:=llV(l ,lhnh);9 U% R: B* o2 X8 z: y
q0:=hh+(hh-ll)*POW(0.618,5);
, e" [( _& q9 y! Zhh:=HHV(h ,lhnh);
2 p& k7 C, C, H$ S" ]3 Aq1:=ll+(hh-ll)*POW(0.618,1);! |( d- S4 x8 {1 a: B" @
q2:=ll+(hh-ll)*POW(0.618,2);7 r" t I% l. n2 T' r0 [5 \2 i
q3:=ll+(hh-ll)*POW(0.618,3);. ~- o/ [) g1 W* Y8 p
q4:=ll+(hh-ll)/2;
- c5 H$ A: Y( i+ `! I; i% m+ bq5:=ll+(hh-ll)*POW(0.618,5);* h! d/ s2 Y$ G8 l8 d
q6:=hh-(hh-ll)*POW(0.618,3);
; P; z+ H$ v% G& e- H j% s2 Dq7:=hh-(hh-ll)*POW(0.618,5);
5 \1 E1 K) \# L! x/ j# Vll:=llV(l ,lhnh);0 p. m, q* b* W% }5 [& K
q8:=ll-(hh-ll)*POW(0.618,5);% I9 O! L: X8 C2 H/ A
PARTLINE(q0,qqqq,RGB(238,238,28));
+ v9 A) \1 _! ^8 P4 ]PARTLINE(hh ,qqqq,RGB(255,0,255));
. v) m$ p! ]2 m6 ?' b. hPARTLINE(q1,qqqq,RGB(238,238,28));. _3 ~/ a) r/ \/ g2 \: b
PARTLINE(q2,qqqq,RGB(238,238,28));+ m0 S& d7 w& _$ X$ e) M/ o
PARTLINE(q3,qqqq,RGB(238,238,28));: q' }2 G% R$ _9 ^8 A: J
PARTLINE(q4,qqqq,RGB(238,0,0));, A# _5 c" [3 z% P' I1 O3 K1 I
PARTLINE(q5,qqqq,RGB(238,238,28));! e" Y- v R9 r% Q! D/ Q0 }
PARTLINE(q6,qqqq,RGB(238,238,28));/ V0 O7 O/ D& w0 `" a: I
PARTLINE(q7,qqqq,RGB(238,238,28));- {7 b/ C& d/ J) |6 v4 C- k
PARTLINE(ll,qqqq,RGB(255,0,255));# b" @) @; ^/ z% M2 l4 {
PARTLINE(q8,qqqq,RGB(238,238,28));
; m1 E6 g( I6 _# cDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; ' x( c- @) u& A8 i1 x
7 @6 @& G# m$ w3 BDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
. Z3 t- F+ s4 }4 B% |5 ^6 H$ p6 LDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;* I% s1 U9 V" k/ d
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
6 ?/ r2 O1 \( S8 }) [/ ?, JDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
) I6 ?! r; w% |$ Y0 ODRAWTEXT(nnl,q4,'50% '+q4),Colorred;
0 K5 s! H5 I/ K7 gDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;- P& q) n+ r0 e( ]
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;8 J( x/ I! M2 a: y6 B8 q( g$ X) }
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
; ]9 Z3 l d4 UDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;, x! E3 V0 Z$ F( y# \
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |