|
lhnh:=BARSLAST(DISPSTATUS=1)+1;# L: {- D! Q8 H" A+ R! b
nnl:=DISPSTATUS=2;. i' ^* r# T" S3 G% k3 ]2 S
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
" C2 U& M# N8 h1 u7 ?hh:=HHV(h ,lhnh);
: a0 q) L9 J2 ]7 A( |+ a4 P/ X) s% ^ll:=llV(l ,lhnh);5 A- Q* p+ e- R; a: b4 |7 }9 Z
q0:=hh+(hh-ll)*POW(0.618,5);& F; B# d# {2 @. u
hh:=HHV(h ,lhnh);) L" ?$ e% S+ c5 Q, K$ N, w
q1:=ll+(hh-ll)*POW(0.618,1);
% K5 _- l5 I C0 }1 [ h2 V, hq2:=ll+(hh-ll)*POW(0.618,2);$ w5 {' p Z7 }2 N3 t) B; h
q3:=ll+(hh-ll)*POW(0.618,3);1 Y" H$ u% o- O7 t5 ] B
q4:=ll+(hh-ll)/2;
+ ]3 Y( E B( ~& {! Aq5:=ll+(hh-ll)*POW(0.618,5);* _! S% u) a+ }
q6:=hh-(hh-ll)*POW(0.618,3);
5 f* E" z9 b' I: {2 j$ ]q7:=hh-(hh-ll)*POW(0.618,5);+ m- V. m1 ~: R8 P
ll:=llV(l ,lhnh);
3 B/ n4 J' S9 l' m/ n3 |" Xq8:=ll-(hh-ll)*POW(0.618,5);
5 F( P; A7 `- JPARTLINE(q0,qqqq,RGB(238,238,28));
4 a7 |- u$ s; V# ?7 X# I# DPARTLINE(hh ,qqqq,RGB(255,0,255));
9 Z( d! Z8 ~# j! F! c8 {PARTLINE(q1,qqqq,RGB(238,238,28));
2 c& }3 [9 i* X/ TPARTLINE(q2,qqqq,RGB(238,238,28));
, e5 T2 z, F' S, d4 m" Q* BPARTLINE(q3,qqqq,RGB(238,238,28));: b8 Y9 s1 N) a' _2 b& r m
PARTLINE(q4,qqqq,RGB(238,0,0));$ \8 X T" r c" q: ^
PARTLINE(q5,qqqq,RGB(238,238,28));
' Y7 W# i1 z2 K, V# `; gPARTLINE(q6,qqqq,RGB(238,238,28));9 q) d+ p. G- q0 }7 m& Z- ~2 c
PARTLINE(q7,qqqq,RGB(238,238,28));" f' p" m( o9 O' ^& S1 U
PARTLINE(ll,qqqq,RGB(255,0,255));5 @. t/ ?0 d4 K; n0 s9 C) p
PARTLINE(q8,qqqq,RGB(238,238,28));
( l9 ~1 k1 U$ l9 r5 lDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
; u9 ]/ H7 K( z+ @7 i) I$ F6 X% [% Y9 w) N
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
2 S; S" ?4 M" z- {9 k( mDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
6 u H, _9 Y) h3 M! Z$ \* hDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
+ y2 `: g; |/ u6 @2 eDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
+ v9 D% ]) I) e P6 qDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
! ?# ~7 S. l- KDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;8 G5 N# E4 v( c
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;$ _; y: p! o( G6 ]9 g
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
0 @# _% G/ E6 M+ Z) k/ gDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;! A* E7 D1 [6 U( L
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |