|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
9 r* c Z" A9 w% m3 K7 }* Pnnl:=DISPSTATUS=2;( x# u0 c1 L5 o' j4 u
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
- {, V: Z) X7 o+ m* u7 f whh:=HHV(h ,lhnh);
4 v, B6 |, |2 ], n+ bll:=llV(l ,lhnh);# l% {4 _! ?& C+ Z O0 H) ^- ?. P
q0:=hh+(hh-ll)*POW(0.618,5);+ z; [2 O7 x& K( A
hh:=HHV(h ,lhnh);' O) f$ @% z+ p: W4 C$ Z) E$ ?
q1:=ll+(hh-ll)*POW(0.618,1);' e. F- ?$ L+ f1 ]% Y
q2:=ll+(hh-ll)*POW(0.618,2);
0 x+ ^/ d* X! i! A0 j. bq3:=ll+(hh-ll)*POW(0.618,3);5 H- W( E9 g* P0 m
q4:=ll+(hh-ll)/2;
" D+ y' o" B$ C7 I, Pq5:=ll+(hh-ll)*POW(0.618,5);; Z* V0 z: r9 O6 N" S/ O
q6:=hh-(hh-ll)*POW(0.618,3);
/ @' k& U8 h5 [) Z$ bq7:=hh-(hh-ll)*POW(0.618,5);
# D; [ T. {& R5 {2 M4 Yll:=llV(l ,lhnh);+ M4 G2 t7 f8 M5 s
q8:=ll-(hh-ll)*POW(0.618,5);
! B/ M# ]5 w. E- j4 CPARTLINE(q0,qqqq,RGB(238,238,28));* y2 v t z6 o6 x, l
PARTLINE(hh ,qqqq,RGB(255,0,255));1 M6 w O2 b* [0 q- J4 |
PARTLINE(q1,qqqq,RGB(238,238,28));5 ]5 j* |9 c B. {' s. h
PARTLINE(q2,qqqq,RGB(238,238,28));9 n" [6 f) g3 u
PARTLINE(q3,qqqq,RGB(238,238,28));, D9 ~/ x# d x
PARTLINE(q4,qqqq,RGB(238,0,0));4 [1 D5 N. H) ?, a( V& G1 \* C0 w
PARTLINE(q5,qqqq,RGB(238,238,28));
+ @! ]. N; f- G) K( UPARTLINE(q6,qqqq,RGB(238,238,28));9 b, m1 T4 v$ w* z
PARTLINE(q7,qqqq,RGB(238,238,28));
# e9 o8 [% @* y3 ?0 s" s- r% Z, N2 IPARTLINE(ll,qqqq,RGB(255,0,255));
( `/ r( r. g( ~2 O4 H: S+ Y) EPARTLINE(q8,qqqq,RGB(238,238,28));
% e; [2 ^6 g9 x ^, h* MDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 1 w& l: P7 [ E5 l* E w" g4 D
1 k4 a3 \% A2 } r) KDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
+ N) i, @- J. `# G; Y, \DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;! M$ c, I9 ~* ?- @
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;9 ^5 A0 C/ M" [+ f
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;- i/ J" t9 r, s1 Z" R6 A
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;( u2 I2 I% m" I0 A7 G6 V
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;, Y8 E: w' O7 T# q
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
6 o( q* R% ]; Y6 m2 ?8 j7 Z0 H# uDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
, Q, {7 r8 v" A, rDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
2 S7 Z0 q& w9 e0 z9 a8 ]( f) X: @DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |