|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 F% W5 y- \5 M& Snnl:=DISPSTATUS=2;
# W U; _4 Y- P8 C( J& J% w/ s7 G! Rqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));9 @: U' B+ M5 [) T% d8 |
hh:=HHV(h ,lhnh);
4 t' V4 F- d0 ull:=llV(l ,lhnh);# R% @- R K/ [. D5 @/ X
q0:=hh+(hh-ll)*POW(0.618,5);
% ^$ M0 J& Y5 I& ihh:=HHV(h ,lhnh);2 |0 j5 z0 I: Q2 f7 H% o0 V
q1:=ll+(hh-ll)*POW(0.618,1);# W/ h% X8 O1 L7 ^3 s6 T& u2 a
q2:=ll+(hh-ll)*POW(0.618,2);
- Q7 A* }" c2 B" T; cq3:=ll+(hh-ll)*POW(0.618,3);
9 M2 Q: a6 ~3 fq4:=ll+(hh-ll)/2;
H0 u/ M5 @% Y* hq5:=ll+(hh-ll)*POW(0.618,5);6 U2 l" q H/ U# N w: D
q6:=hh-(hh-ll)*POW(0.618,3);7 P! k- D `, q" w
q7:=hh-(hh-ll)*POW(0.618,5);
- o, ^4 m. `2 A5 [+ [# vll:=llV(l ,lhnh);
3 r. x+ ?( K- f- H9 Yq8:=ll-(hh-ll)*POW(0.618,5);
7 W6 ?/ J1 ~5 m1 l& IPARTLINE(q0,qqqq,RGB(238,238,28));; k Z- l/ o- |, n9 Q7 k7 s
PARTLINE(hh ,qqqq,RGB(255,0,255));
! h$ s3 j& B3 d# YPARTLINE(q1,qqqq,RGB(238,238,28));% p& g& q9 c; p9 ?! o! e9 P8 }; @
PARTLINE(q2,qqqq,RGB(238,238,28));
) q& z. v% t+ x( V4 X/ V. ]6 rPARTLINE(q3,qqqq,RGB(238,238,28));; }1 v; [+ q: C; A/ F
PARTLINE(q4,qqqq,RGB(238,0,0));: Q) _0 b% y5 P
PARTLINE(q5,qqqq,RGB(238,238,28));
& a6 {9 G* A/ b/ r3 t) MPARTLINE(q6,qqqq,RGB(238,238,28));8 n1 p3 ?2 O3 i9 q7 P
PARTLINE(q7,qqqq,RGB(238,238,28));
8 g0 q0 z. ]5 } J, I; ~, J0 ]PARTLINE(ll,qqqq,RGB(255,0,255));
8 o% R; a6 V! J3 g7 RPARTLINE(q8,qqqq,RGB(238,238,28));/ W4 ^6 v+ Y; L: ^8 L
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF;
* z$ R% }! Y$ [( w- D) e; P1 E% P% \0 b7 [
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
* J, x' G4 o/ C* E7 ]) DDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;6 |" J' B2 @6 j( k) z, Q
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
; t1 {* O. V4 f' cDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;1 b9 x3 `1 i6 o4 j7 i
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;7 Q& c0 Q4 e7 v& k8 x- {. c
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;" D+ z& U7 t& z9 a! ^6 ^
DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;- w" [* k1 }5 v
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;$ P( n# I' C' C8 B
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;2 C. V1 [0 K, V5 y: W
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |