|
lhnh:=BARSLAST(DISPSTATUS=1)+1;! f/ X- i8 X r/ j8 B8 W! ^
nnl:=DISPSTATUS=2;8 Q4 U4 [+ |1 d4 a
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));2 D* V$ j. F% W# e" D
hh:=HHV(h ,lhnh);
! n: d# w1 U* L/ jll:=llV(l ,lhnh);3 D/ L9 A% M( f
q0:=hh+(hh-ll)*POW(0.618,5);' R! p5 r( E. d2 O0 Q5 y1 o3 e
hh:=HHV(h ,lhnh);! { d; e; e: U: e/ p; O3 j# O# S
q1:=ll+(hh-ll)*POW(0.618,1);
! p; D& c+ R- u% t1 u5 v; H+ ^" Z& dq2:=ll+(hh-ll)*POW(0.618,2);
! n) g" n5 C5 K+ N0 T9 @: d+ d; gq3:=ll+(hh-ll)*POW(0.618,3);, p, z, a4 n7 \2 E7 v2 r7 W# s
q4:=ll+(hh-ll)/2;) w b% E; T2 f9 }6 h
q5:=ll+(hh-ll)*POW(0.618,5);
O+ O) z! l1 I' G$ q5 K+ Jq6:=hh-(hh-ll)*POW(0.618,3);/ q8 f* s, z# ~1 L9 U
q7:=hh-(hh-ll)*POW(0.618,5);* q- Z" z% E7 A5 D( w
ll:=llV(l ,lhnh);- X* r7 n; u$ p# X
q8:=ll-(hh-ll)*POW(0.618,5);1 e1 e! z% x1 x7 k' y0 t! [
PARTLINE(q0,qqqq,RGB(238,238,28));
' k$ l4 C7 Y8 @9 M% zPARTLINE(hh ,qqqq,RGB(255,0,255));
4 v7 W F& w' `7 M$ Z+ \8 zPARTLINE(q1,qqqq,RGB(238,238,28));) u& Q' U4 e8 C) J$ x! r/ I9 m
PARTLINE(q2,qqqq,RGB(238,238,28));% M% o; Q) k- t& J9 B
PARTLINE(q3,qqqq,RGB(238,238,28));
1 T3 \ g+ N3 u# r% BPARTLINE(q4,qqqq,RGB(238,0,0));2 s8 Y6 B, A" R j
PARTLINE(q5,qqqq,RGB(238,238,28));
; g% Z5 M. Q8 R- }! `+ k5 sPARTLINE(q6,qqqq,RGB(238,238,28));9 L; T! q- e1 D( }. d9 ^; d
PARTLINE(q7,qqqq,RGB(238,238,28));! F4 _2 @) g# x. ]+ Q6 `& ]+ K x+ t3 C
PARTLINE(ll,qqqq,RGB(255,0,255));" @2 c& x0 y- ]9 C& N
PARTLINE(q8,qqqq,RGB(238,238,28));) y7 L% o! T1 u9 K& T
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; ; l6 W1 C: d. l, A8 `
7 Q9 S! X7 m, N, g ?7 y
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
/ m7 {: n# f, F/ D1 ?DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;+ g; R1 h* f( o' p; Q) O5 O
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
! e; w+ C9 |: m, o. [DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF; J2 X( {' w8 N& Q1 |& l6 q
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
1 G' f& k% |* A7 ~% RDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;: D1 S" k3 S% f3 y( @8 J
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
3 {9 L7 \- [* d' R8 _DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;) D( y8 u- J6 _4 c
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
- e8 j: R, ^( Y4 x6 gDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |