|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 m8 A) t# I) e" ennl:=DISPSTATUS=2;" N# [. y! u$ W y3 E
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
& n. c/ x5 \& B" Xhh:=HHV(h ,lhnh);1 j/ m& \5 m# ?0 r1 j3 w5 ^" {
ll:=llV(l ,lhnh);* A5 _, {' ]5 {4 m
q0:=hh+(hh-ll)*POW(0.618,5);
' V, S6 ~3 _) j9 ]hh:=HHV(h ,lhnh);/ g3 y5 l$ m( M3 f6 A# d0 E
q1:=ll+(hh-ll)*POW(0.618,1);) U J# J( R, |! g: X
q2:=ll+(hh-ll)*POW(0.618,2);% q* \7 U) g0 t; m' s- ]
q3:=ll+(hh-ll)*POW(0.618,3);
4 Z) O1 W/ C6 I7 ]( R( |" l2 Bq4:=ll+(hh-ll)/2;/ B; n4 E' P# N/ J q" y) X
q5:=ll+(hh-ll)*POW(0.618,5);' K. b+ X! F1 y. T8 O- G' s4 ^) p
q6:=hh-(hh-ll)*POW(0.618,3);* j9 C5 c, h0 s! Y+ D' a8 M
q7:=hh-(hh-ll)*POW(0.618,5);
- W" c+ h- A$ m1 S; r4 sll:=llV(l ,lhnh);
( e3 V/ y5 ~6 S, o& Tq8:=ll-(hh-ll)*POW(0.618,5);; f2 C. k: L! ^0 x3 {* H
PARTLINE(q0,qqqq,RGB(238,238,28));
) y# E7 T% g! J! F* Y: sPARTLINE(hh ,qqqq,RGB(255,0,255));1 o! M/ p' |8 K7 [
PARTLINE(q1,qqqq,RGB(238,238,28));/ W- K. q' G) A) r8 `) @
PARTLINE(q2,qqqq,RGB(238,238,28));
" y7 ]* c! V3 g) u/ d; ePARTLINE(q3,qqqq,RGB(238,238,28));
% r/ Q; K8 ?3 \$ K& C2 aPARTLINE(q4,qqqq,RGB(238,0,0));; L2 U! {/ Y8 v4 M" V1 S
PARTLINE(q5,qqqq,RGB(238,238,28));
9 z, v; g( A1 u7 k5 H/ P5 G7 k9 EPARTLINE(q6,qqqq,RGB(238,238,28));
3 ?3 u. @. `- k6 u5 ]3 iPARTLINE(q7,qqqq,RGB(238,238,28));
( Z* H1 ?0 d( k9 YPARTLINE(ll,qqqq,RGB(255,0,255));
0 \. O# f4 j( m. gPARTLINE(q8,qqqq,RGB(238,238,28));
, r6 J* Q# g6 P9 f) [3 t# rDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
6 c4 [) D! [$ E8 n% s! s8 P
3 a# r0 u6 |$ h) sDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;5 g, Q) k4 D7 w: y3 u" S1 g: [
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;! Y0 j5 ^9 j1 \& ~, M8 l% S
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
" s/ l' _, B) R3 _# p% U3 m, I$ uDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF; i) ?3 K: k; F$ r3 h: i+ F
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;" p5 Z4 Q' d( Q- T: j( X
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
# K( B& h$ p' M5 y! v1 rDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
9 [$ W3 l+ ?# J, lDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;( y3 R& q$ {2 q; z
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
* q! B! f" w5 U7 g1 d( O4 TDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |