|
lhnh:=BARSLAST(DISPSTATUS=1)+1;% R+ o+ \9 `3 W% j9 D; R4 x
nnl:=DISPSTATUS=2;( G! w: k5 R/ r$ X O
qqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
% ?' t, C4 e9 c: L& ^hh:=HHV(h ,lhnh);
5 F7 x2 Z9 U) _2 Ell:=llV(l ,lhnh);$ O* Q. f% b' ?0 k! P& R
q0:=hh+(hh-ll)*POW(0.618,5);1 \. s* E2 [3 b" \# Q. L$ p/ k6 w4 R
hh:=HHV(h ,lhnh);& k- f! @, ]) e1 }( L& ?% Y
q1:=ll+(hh-ll)*POW(0.618,1);) F+ R1 `7 a2 F) u9 X. i6 H1 u
q2:=ll+(hh-ll)*POW(0.618,2);
6 m! W, O2 Q: t7 S7 H% Uq3:=ll+(hh-ll)*POW(0.618,3);
; d F$ Z9 ^4 n4 k$ sq4:=ll+(hh-ll)/2;
4 q; v( O( m8 T1 L1 w5 Pq5:=ll+(hh-ll)*POW(0.618,5);* }3 F* V: y5 |9 ?6 V
q6:=hh-(hh-ll)*POW(0.618,3);
: D8 H, u1 K2 v9 H- {: Nq7:=hh-(hh-ll)*POW(0.618,5);
9 r; o: d) j8 ~- g6 V7 Vll:=llV(l ,lhnh);
) C7 @" B4 Q1 j! x# C1 v3 K3 Q1 Mq8:=ll-(hh-ll)*POW(0.618,5);' v$ D4 T$ Z9 y, i2 s& j3 O1 B
PARTLINE(q0,qqqq,RGB(238,238,28));
2 w4 z* l* w" l3 P3 qPARTLINE(hh ,qqqq,RGB(255,0,255));
* Z, m( z1 \8 _$ B' rPARTLINE(q1,qqqq,RGB(238,238,28));5 s, S8 a, ]3 ?6 K. d9 Q
PARTLINE(q2,qqqq,RGB(238,238,28));1 N$ j8 Z% T2 ]0 C( r' s
PARTLINE(q3,qqqq,RGB(238,238,28));! t4 v* W% y2 B7 q# j9 D& d
PARTLINE(q4,qqqq,RGB(238,0,0));
0 y8 j0 F9 ~* HPARTLINE(q5,qqqq,RGB(238,238,28));% b. r" T8 O* N. B, p# ]
PARTLINE(q6,qqqq,RGB(238,238,28));! K" M+ _) `. _8 K+ \
PARTLINE(q7,qqqq,RGB(238,238,28));
$ ?2 E# W9 K& dPARTLINE(ll,qqqq,RGB(255,0,255));) }6 @1 T; w" {6 A' s$ j* ?
PARTLINE(q8,qqqq,RGB(238,238,28));* _# ?4 O3 ~6 ^- ~! d# R
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; # w6 U, H7 f. |/ R6 z
# {% s- H; T, E
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
1 E( j k4 n3 x+ z9 O7 U2 F% sDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;
& S/ M1 s; D# }) r7 RDRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;8 C( s& U, _0 L9 u$ [
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
- e4 y7 L4 H+ f1 n; m1 ]DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
! n" s; J% ]8 y! {, X9 G2 NDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
8 j; m! x- L8 m0 o! _DRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;! k. t+ C3 f; n; V2 l* A) L
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
' i3 h/ ?! P1 o; L8 M: @0 E" t- W# EDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
5 J/ ~0 C8 o. j$ h- I* bDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |