|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
: o$ s: F& d$ T3 ^* snnl:=DISPSTATUS=2;
) e$ l7 m% m% v- |' @1 }7 B' R) Lqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));% E1 m3 _: h* ~, W4 g7 J( S
hh:=HHV(h ,lhnh);
! ?+ M8 T: _6 z6 S' J, O% O1 b9 yll:=llV(l ,lhnh);
$ k8 W" t" {& ~. W2 Fq0:=hh+(hh-ll)*POW(0.618,5);
0 _6 Q3 u& f* a& i) o K: Shh:=HHV(h ,lhnh);% O( o3 _+ t3 S1 Z3 \7 V# i% Z
q1:=ll+(hh-ll)*POW(0.618,1);
) V5 [; T: F7 }3 i3 t0 C/ ]" l9 m: ?! cq2:=ll+(hh-ll)*POW(0.618,2);
3 M" d6 B8 G8 Sq3:=ll+(hh-ll)*POW(0.618,3);' y0 l- w* c3 H% T
q4:=ll+(hh-ll)/2;- a/ f9 T2 N4 ~8 ^- l4 R) N) F: d; n
q5:=ll+(hh-ll)*POW(0.618,5);
, `! k* N5 z* k u Gq6:=hh-(hh-ll)*POW(0.618,3);% h0 S$ Z9 b: b9 M9 O
q7:=hh-(hh-ll)*POW(0.618,5);$ ~9 O3 u% h/ G
ll:=llV(l ,lhnh);
$ ?6 ] M0 ?3 Cq8:=ll-(hh-ll)*POW(0.618,5);
8 h" u9 k6 T5 ?: ]* i- @PARTLINE(q0,qqqq,RGB(238,238,28));
9 q, q$ [: h% o2 r2 UPARTLINE(hh ,qqqq,RGB(255,0,255));
6 v; T. F* t: o7 j( FPARTLINE(q1,qqqq,RGB(238,238,28));8 i# I0 i8 i+ v/ q" O; @
PARTLINE(q2,qqqq,RGB(238,238,28));3 m. @7 K E# x; P7 c
PARTLINE(q3,qqqq,RGB(238,238,28));
% j3 n5 D# |* K' \9 A% R$ j5 ]1 rPARTLINE(q4,qqqq,RGB(238,0,0));& k: o7 E" M: K0 ~/ z; r
PARTLINE(q5,qqqq,RGB(238,238,28));
7 e/ ?8 M9 Z5 X" ~/ [6 M, _PARTLINE(q6,qqqq,RGB(238,238,28));7 Q9 S" N* ?0 G
PARTLINE(q7,qqqq,RGB(238,238,28));
; h4 m" N7 s/ G, E K- F6 I' ]PARTLINE(ll,qqqq,RGB(255,0,255));
+ G& K# i1 {6 B/ ?& gPARTLINE(q8,qqqq,RGB(238,238,28));' x1 e1 V x9 R8 k" @
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
" j4 [5 v- I9 j: _- h
* s! I) z2 R3 d: Q/ wDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
( y; |) W- b0 t6 `( \3 X4 CDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
8 l- j) |/ t. {. g& D, \+ bDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
/ h$ h5 `, [' x. EDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;( E4 }, P( t5 u! D; m3 S
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
: o) N2 @4 M0 _5 w5 Z- Z2 E0 LDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;+ W& d2 i$ v& z' @
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;; [! E: r' G. d- W7 r9 j4 r& x' T) e
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
" I7 |: g) j$ q; y. e" hDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;8 B- @# W# O3 [
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |