|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
/ U0 m( a. v( Onnl:=DISPSTATUS=2;7 \9 `1 m" ?3 u) s( k; |
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
! g6 ]0 ~0 O( dhh:=HHV(h ,lhnh);
$ ^6 |/ r3 s* E. t5 ~ J/ zll:=llV(l ,lhnh);
$ m9 b3 k* i% Jq0:=hh+(hh-ll)*POW(0.618,5);
! i6 o0 N! d- }) Shh:=HHV(h ,lhnh);& \* a% s0 l; G$ p
q1:=ll+(hh-ll)*POW(0.618,1);! n& z) q% S5 x, w; M4 ]
q2:=ll+(hh-ll)*POW(0.618,2);
7 p& }9 U4 F7 K; j6 m4 Eq3:=ll+(hh-ll)*POW(0.618,3);
% Q# Z/ {, p2 @q4:=ll+(hh-ll)/2;$ ^5 V# Z; ]! D/ ^/ e& o% g
q5:=ll+(hh-ll)*POW(0.618,5);
( V$ p5 Z# W7 i K* j3 i# X8 V" D' gq6:=hh-(hh-ll)*POW(0.618,3);
' u6 ^( U' {& h0 hq7:=hh-(hh-ll)*POW(0.618,5);
, o* Q+ l" T1 r& L1 c5 E$ All:=llV(l ,lhnh);
h0 R5 n9 w5 zq8:=ll-(hh-ll)*POW(0.618,5);, J, v9 f5 y: \' `. k2 t/ M- n
PARTLINE(q0,qqqq,RGB(238,238,28));
( w/ H7 d4 o+ W W% L& o4 ?PARTLINE(hh ,qqqq,RGB(255,0,255));2 y: R* y: s3 `" \. J& T: J# R
PARTLINE(q1,qqqq,RGB(238,238,28));! b h4 I: D! B6 N9 C6 }# g* v/ @
PARTLINE(q2,qqqq,RGB(238,238,28));
% B( I/ F& T' y! F3 n4 j+ F; I& _PARTLINE(q3,qqqq,RGB(238,238,28));# V' \& n* {, Q
PARTLINE(q4,qqqq,RGB(238,0,0));8 V0 J% ]9 i* e4 Q" N/ N
PARTLINE(q5,qqqq,RGB(238,238,28));
# ~! O# I T! F+ q: R. z5 P( DPARTLINE(q6,qqqq,RGB(238,238,28));
; a* B+ v8 i. M5 V: WPARTLINE(q7,qqqq,RGB(238,238,28)); _# `- p* |' C- x0 ^0 f
PARTLINE(ll,qqqq,RGB(255,0,255));
7 g- `. F# n7 K/ j" B+ Q4 ]3 b2 MPARTLINE(q8,qqqq,RGB(238,238,28));
) V s; L' }, ^# KDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
. l1 ?5 U& F3 s- J- |# |/ E: b$ L$ W9 Z" o
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
- e7 z& _) K+ KDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;. W7 N2 Y. y% d9 ?* u3 T
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
, ]9 T' [# O' e. SDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
+ Q; x3 v( s' ^' O) `( l$ BDRAWTEXT(nnl,q4,'50% '+q4),Colorred;0 b R5 { |2 C9 E7 f$ r( P2 R
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
9 r! f, O5 F. o% X3 m& ^9 d* \DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;& Y7 L0 X( P: p6 m W
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
! g* k' R! o2 @( ^DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;. X. l7 E* m# y u* L" \. r* p1 X) Z
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |