|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
; G3 I' y7 p: P$ c$ z) onnl:=DISPSTATUS=2;2 q& o% s+ |5 d7 ^; m; s" O
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));2 \- _( I. P; Y& o$ T9 ~
hh:=HHV(h ,lhnh); l3 ]* w( ^# }8 N3 G. Z
ll:=llV(l ,lhnh);* B( x, @- [8 d* ?& S% P7 J) X6 V
q0:=hh+(hh-ll)*POW(0.618,5);
2 Z- {. c0 i5 S0 {; ~& G% jhh:=HHV(h ,lhnh);
2 U( T% C- V% a& jq1:=ll+(hh-ll)*POW(0.618,1);
9 U C3 K0 i0 C5 Q9 r0 H0 a3 Gq2:=ll+(hh-ll)*POW(0.618,2);# ~* ?; }" ~% b: Z
q3:=ll+(hh-ll)*POW(0.618,3);8 @- ^7 _% f0 r6 R+ Q+ W. e3 g
q4:=ll+(hh-ll)/2;
/ ~- i# }0 l. L3 Q1 D5 W5 Tq5:=ll+(hh-ll)*POW(0.618,5);
, e/ J }$ k' C& e2 y8 T& O7 Oq6:=hh-(hh-ll)*POW(0.618,3);% { x* j) [; ]# f, |7 c. Z: P' j
q7:=hh-(hh-ll)*POW(0.618,5);$ v3 y) ]8 k4 X) t& K
ll:=llV(l ,lhnh);
: V" U H, j5 w! V$ M& [q8:=ll-(hh-ll)*POW(0.618,5);
# B9 G' n. K# S+ xPARTLINE(q0,qqqq,RGB(238,238,28));
6 Y9 d- o; q( i6 E F6 oPARTLINE(hh ,qqqq,RGB(255,0,255));: l' S9 t! p# a$ _) E
PARTLINE(q1,qqqq,RGB(238,238,28));' I% K! F1 j! ?& K
PARTLINE(q2,qqqq,RGB(238,238,28));
8 e) w8 u- Y% j/ Y) hPARTLINE(q3,qqqq,RGB(238,238,28));
! h" Y/ c* E# T ]1 E. F6 kPARTLINE(q4,qqqq,RGB(238,0,0));9 F, S! k! x7 Y
PARTLINE(q5,qqqq,RGB(238,238,28));& F( j7 Y# M5 h) {9 c! o
PARTLINE(q6,qqqq,RGB(238,238,28));
: W- q# k6 j. M$ R+ l9 yPARTLINE(q7,qqqq,RGB(238,238,28));: O! E* l2 {/ f. ^ j! A* Y
PARTLINE(ll,qqqq,RGB(255,0,255));4 [8 P6 u; ]; ]) U6 Z! v& h
PARTLINE(q8,qqqq,RGB(238,238,28));' w7 X2 C; {4 d5 l
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 8 @6 {8 h1 p) O9 Q' s$ o' V _
, r- M1 f& @- |5 [DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;5 C1 O" z/ Z. C0 v6 U2 J
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
9 {+ H3 H) Z {& R) l5 tDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
0 A$ \* K8 O# U' ADRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
2 W: y4 e5 R$ B. SDRAWTEXT(nnl,q4,'50% '+q4),Colorred;! }! ?- t4 |; Q6 I5 W+ p o/ ]: I
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
8 Q5 ~, g0 f4 T1 v* [( EDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;. Q( E+ V( `1 T5 ~9 R
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
$ p4 U1 g+ `/ |( D! zDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF; J7 h# z% r, F' t, V
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |