|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
3 t/ {5 e5 O4 J3 bnnl:=DISPSTATUS=2;
& e9 }3 q" n+ D+ E& @% Zqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));$ _5 I/ S, I) t3 ]
hh:=HHV(h ,lhnh);: n, {3 D' K7 M5 ]* r! ?! p
ll:=llV(l ,lhnh);
) r1 b, Q' ]- f& T* u& L: zq0:=hh+(hh-ll)*POW(0.618,5);
+ _8 e$ Z" L0 S: L; y; F- y2 _hh:=HHV(h ,lhnh);3 p: h2 N- D2 D0 R
q1:=ll+(hh-ll)*POW(0.618,1);
# M# P- d) q C& M: Jq2:=ll+(hh-ll)*POW(0.618,2);
( o& Q0 N% a' E5 P* _1 Z3 \4 Qq3:=ll+(hh-ll)*POW(0.618,3);. @* c2 e1 g/ b: [" W
q4:=ll+(hh-ll)/2;) a4 E+ @5 o$ o3 u$ H
q5:=ll+(hh-ll)*POW(0.618,5);
6 g! N3 ?: V8 [q6:=hh-(hh-ll)*POW(0.618,3);
: h- {0 ~6 C- H% t( U+ X: _: ?q7:=hh-(hh-ll)*POW(0.618,5);
8 o9 b# I' d0 t1 P8 X7 D: qll:=llV(l ,lhnh);
. q$ g( K2 F* r0 [q8:=ll-(hh-ll)*POW(0.618,5);0 u) v) q9 ?/ C% D2 x% p/ e
PARTLINE(q0,qqqq,RGB(238,238,28));- n+ [3 E, I: ^5 a+ R y3 E8 d
PARTLINE(hh ,qqqq,RGB(255,0,255)); g7 i) x* o2 ^, e5 I6 A- X
PARTLINE(q1,qqqq,RGB(238,238,28));
9 K6 z0 Y) g$ `# o8 APARTLINE(q2,qqqq,RGB(238,238,28));; f- q0 B( N& H3 T3 \
PARTLINE(q3,qqqq,RGB(238,238,28));
; ^8 ^: l+ Q+ uPARTLINE(q4,qqqq,RGB(238,0,0));# u: B7 p, v% Y5 b8 Q( Y/ l7 B& r' o8 ~0 F
PARTLINE(q5,qqqq,RGB(238,238,28));
9 H* A0 K0 I' T& yPARTLINE(q6,qqqq,RGB(238,238,28));
, D4 J" \, W7 U, v2 @: i5 BPARTLINE(q7,qqqq,RGB(238,238,28));$ R7 p- [/ S2 e3 X! A
PARTLINE(ll,qqqq,RGB(255,0,255));
* O' h; ]$ J4 a" }PARTLINE(q8,qqqq,RGB(238,238,28));
$ j1 d( q3 d X% V+ x/ t( f f; l6 lDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; - t$ m; U5 o4 y2 u( q# D
% d4 e: v; r4 `0 B s
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
" w' b6 ?$ Z2 m, |; F6 ADRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;" b( ?, N$ L% _" E/ z
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
, w9 D" p% W, H6 n t6 aDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;% ~( g) }' N! F) Z
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;, q$ W& K- j8 G* A7 e& n7 y
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
$ R0 w! o% g, S' n2 fDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;7 V% ?" k* p r' H- x
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;. W5 V5 Z9 f! |4 [
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
+ [% y! Z9 x" O1 ^3 KDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |