|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
+ `& o* u G$ Onnl:=DISPSTATUS=2;
1 m! {6 ]5 W' D! k$ z. x4 Tqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));$ @' g5 W5 } m- k9 ^
hh:=HHV(h ,lhnh);) J {* V1 P) R0 Q+ e3 F4 ~
ll:=llV(l ,lhnh);
! F t* ], U( l7 B4 C7 kq0:=hh+(hh-ll)*POW(0.618,5);% P A$ z4 a* i6 r M
hh:=HHV(h ,lhnh);1 O3 ?0 b( j& a5 D( a0 Z/ |
q1:=ll+(hh-ll)*POW(0.618,1);
" T8 k4 j! r+ Y \! vq2:=ll+(hh-ll)*POW(0.618,2);& [1 x' T8 u$ h8 e, G2 N
q3:=ll+(hh-ll)*POW(0.618,3);
) d& J# p6 ?2 X; j" oq4:=ll+(hh-ll)/2;
- ]- d3 c3 K3 E* v$ dq5:=ll+(hh-ll)*POW(0.618,5);: X: {+ k. ~. j) ]
q6:=hh-(hh-ll)*POW(0.618,3);0 B( }% ?/ r# `; Q
q7:=hh-(hh-ll)*POW(0.618,5);
7 i8 ^7 {# u; ?. G8 M% O! jll:=llV(l ,lhnh);
# }' P/ k8 I) \q8:=ll-(hh-ll)*POW(0.618,5);
8 t" `9 s) Y$ C/ K& e; pPARTLINE(q0,qqqq,RGB(238,238,28));
' q6 B7 |* X( {/ d2 t$ H- z; wPARTLINE(hh ,qqqq,RGB(255,0,255));. }6 w8 V8 N" t( U
PARTLINE(q1,qqqq,RGB(238,238,28));& w9 h) D. D2 C) N
PARTLINE(q2,qqqq,RGB(238,238,28));
' M; o, y8 K" a: ~: c% q5 SPARTLINE(q3,qqqq,RGB(238,238,28));# j8 z4 K) y$ N i! j3 N% v
PARTLINE(q4,qqqq,RGB(238,0,0));
, ~) C0 T3 F$ c' V( g2 yPARTLINE(q5,qqqq,RGB(238,238,28));- |" h) @8 C- i3 H% C
PARTLINE(q6,qqqq,RGB(238,238,28));
/ U" ~. t) O- u7 O( `) K# KPARTLINE(q7,qqqq,RGB(238,238,28));
4 p; H: ^0 Y$ V0 G' X# XPARTLINE(ll,qqqq,RGB(255,0,255));9 `! G8 N. ]! ~; U3 A
PARTLINE(q8,qqqq,RGB(238,238,28));
0 b/ P q& L% q' \! K& l8 _9 HDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 6 f+ s4 Z9 S+ V
, ^! s, Z# Q) b0 o
DRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
3 n/ i3 @' G0 L1 s6 G) oDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;. C, ?* \" T# ?" I
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;+ B2 D; t7 S$ C
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
' G f* z4 v7 R& s1 nDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
+ h/ }$ l0 r/ }/ ^/ t+ k1 dDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
9 \5 v/ b* |& W( ~2 O$ ADRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;+ Z8 s6 Y; F1 N, B9 |
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;/ V2 V/ y5 m; B7 m
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
5 u" J2 i. q" GDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |