|
lhnh:=BARSLAST(DISPSTATUS=1)+1;/ W5 h# m% B9 p
nnl:=DISPSTATUS=2;
2 e8 s2 p: o4 v" Gqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));& R8 X* h* t3 C. \% z$ k
hh:=HHV(h ,lhnh);
4 g8 g' c- a! o% Yll:=llV(l ,lhnh);2 W# E) I' N3 {3 h# s% A& C' ?( o
q0:=hh+(hh-ll)*POW(0.618,5);/ {* b4 G% v& q: G
hh:=HHV(h ,lhnh);; f' Q% s5 v% O
q1:=ll+(hh-ll)*POW(0.618,1);
0 ]2 w$ Z5 e8 I" Wq2:=ll+(hh-ll)*POW(0.618,2);8 H8 T+ v( a# N: U5 C+ O' ]
q3:=ll+(hh-ll)*POW(0.618,3);$ L: L' ^$ J9 N0 E
q4:=ll+(hh-ll)/2;# W- B, V2 A/ `* W
q5:=ll+(hh-ll)*POW(0.618,5);+ m+ Y# [( F! v! }& V0 r: W
q6:=hh-(hh-ll)*POW(0.618,3);) U# K) P' I* x4 h, E
q7:=hh-(hh-ll)*POW(0.618,5);3 n2 B9 C/ B# R$ H% v
ll:=llV(l ,lhnh);7 U& A9 |3 d9 u5 \) y% b2 i4 Z
q8:=ll-(hh-ll)*POW(0.618,5);
& S8 ^& d3 A7 J$ A3 xPARTLINE(q0,qqqq,RGB(238,238,28));
& G2 N g* _5 V7 j- x; fPARTLINE(hh ,qqqq,RGB(255,0,255));
4 e; V- \( U, e5 ZPARTLINE(q1,qqqq,RGB(238,238,28));+ r& P* p6 ~/ |" _
PARTLINE(q2,qqqq,RGB(238,238,28));
6 o8 Z$ J2 N) n" z1 E P8 ZPARTLINE(q3,qqqq,RGB(238,238,28));0 x; H. c- ~: ~
PARTLINE(q4,qqqq,RGB(238,0,0));6 k8 E* c) y, h
PARTLINE(q5,qqqq,RGB(238,238,28));
( R {+ H6 Y. B$ x2 a$ z1 ^PARTLINE(q6,qqqq,RGB(238,238,28));" D1 L& s; U2 I) k: P: n
PARTLINE(q7,qqqq,RGB(238,238,28));
! O0 k, o: q& @$ f/ b2 g `* }; YPARTLINE(ll,qqqq,RGB(255,0,255));, ~+ K$ J: x6 H3 l8 A8 `
PARTLINE(q8,qqqq,RGB(238,238,28));3 B8 c- M/ z' W- `
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
6 V! L0 t! m0 W. _2 U
+ V8 K: `5 s; N+ O) [, _DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;" s1 z6 G1 U4 L+ k; m
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;3 l4 K$ l! j5 N8 {
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
" C5 K3 ^, [( u' l+ DDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
! w5 @8 d- d0 }* U4 TDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
3 o1 E! J6 a9 j6 L# V, _DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
, r$ x9 ~2 x0 Z1 ~9 wDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;! o# s" ?( f: r2 R. L# m n
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
+ R( q# H C5 s1 |1 u9 @DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
, Q G2 {% q3 ~$ k6 o( zDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |