|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 q9 F7 r5 P& z/ pnnl:=DISPSTATUS=2;1 i, D$ {0 e+ s* ?
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
6 R4 A, h, M+ E, D# [& Fhh:=HHV(h ,lhnh);9 S m- l& z; u P" M! |( d# s( N2 ?
ll:=llV(l ,lhnh);, p6 ^; l% i( Z7 Z
q0:=hh+(hh-ll)*POW(0.618,5);
- A4 I- a$ H! i0 ~' ]& J9 shh:=HHV(h ,lhnh);
7 h* }+ j Z8 |* h; Vq1:=ll+(hh-ll)*POW(0.618,1);
9 I8 K& ~& L# a3 T" o V! _7 qq2:=ll+(hh-ll)*POW(0.618,2);( x* O$ S7 t# m% l9 o6 o- u
q3:=ll+(hh-ll)*POW(0.618,3);
* ~: Z2 Z7 H2 z0 z* U0 p" t' f6 kq4:=ll+(hh-ll)/2;+ x+ d3 p3 ?3 x1 o! Q
q5:=ll+(hh-ll)*POW(0.618,5);
9 s8 H" {: G# w8 Kq6:=hh-(hh-ll)*POW(0.618,3);$ l4 ?' U, K/ P5 e
q7:=hh-(hh-ll)*POW(0.618,5);
3 @) w' ]9 M) |$ G4 ull:=llV(l ,lhnh);9 a' ~1 c- w5 J1 O' B) d
q8:=ll-(hh-ll)*POW(0.618,5);
* w* K: ]9 k2 GPARTLINE(q0,qqqq,RGB(238,238,28));$ P' {/ }) E) T6 |
PARTLINE(hh ,qqqq,RGB(255,0,255));8 `2 d" I( V0 @
PARTLINE(q1,qqqq,RGB(238,238,28)); x& e& G' E% D$ T3 D
PARTLINE(q2,qqqq,RGB(238,238,28));& Y K9 y, N. i3 z; ?
PARTLINE(q3,qqqq,RGB(238,238,28));& l) Q9 N. I" c3 }& O$ h; d5 j
PARTLINE(q4,qqqq,RGB(238,0,0));
% ^: Y1 F# P6 y C( E! DPARTLINE(q5,qqqq,RGB(238,238,28));0 y- s3 M% B' ]
PARTLINE(q6,qqqq,RGB(238,238,28));, i3 t5 ?" f0 ~4 ]4 t2 v3 H. f
PARTLINE(q7,qqqq,RGB(238,238,28));- C6 P! q- _) K! _) w+ Q) J
PARTLINE(ll,qqqq,RGB(255,0,255));
% L3 o+ y: U) J/ l; Y0 vPARTLINE(q8,qqqq,RGB(238,238,28));
5 o7 y) N, y- q: \DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
8 h/ A, I" l' c: p. L0 m) H+ t# ?4 }" t% {/ ]6 A
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
9 X9 e, P8 E4 m4 kDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
5 }8 z, p5 a, M' R/ D* u# n( c4 hDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
& ^* L4 R! U" j* k; lDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
& e! Y, G) Y6 c0 ^2 ]' k! A2 rDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
, Z2 K! A1 ]& o( v9 VDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;$ c! P( u* C; ` a# m+ o8 _" j
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;: ^3 r: c9 z$ d: K) C) K0 H, h
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
9 H. K/ l3 |' T' e- j2 ^# b3 ^DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
0 O2 }; q% ?# g* t1 |( bDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |