|
lhnh:=BARSLAST(DISPSTATUS=1)+1;
2 G e Y( O- t4 |7 ]( u/ @4 ]# knnl:=DISPSTATUS=2;
6 Z& \4 G$ L2 X/ Qqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
& W0 |: c- R/ d7 fhh:=HHV(h ,lhnh);
$ Q2 T7 s6 r$ z6 m' f3 j" o: ^ Qll:=llV(l ,lhnh);5 m) }& s, @2 ^, f9 R7 ^
q0:=hh+(hh-ll)*POW(0.618,5);" ~6 W3 W3 R& C; J0 [* y8 Q" C3 N) {
hh:=HHV(h ,lhnh);+ K! }. k, _9 G& ~' h
q1:=ll+(hh-ll)*POW(0.618,1);
5 Z+ y+ O7 p! }$ T# xq2:=ll+(hh-ll)*POW(0.618,2);
" S0 @9 `) t- n4 Y. V0 Yq3:=ll+(hh-ll)*POW(0.618,3);1 C% n+ ?: ]) L3 B
q4:=ll+(hh-ll)/2;
+ _. J7 g- _" k- y; i, hq5:=ll+(hh-ll)*POW(0.618,5);
8 ?# A; }/ c( U+ w8 Lq6:=hh-(hh-ll)*POW(0.618,3);0 p% S5 f% z' _, s5 H
q7:=hh-(hh-ll)*POW(0.618,5);
% B5 ^ N' ?* l* y; ~ll:=llV(l ,lhnh);: ~' Y$ \4 c% A% S7 A. u! X" M
q8:=ll-(hh-ll)*POW(0.618,5);
7 k/ o9 S3 w; ^* DPARTLINE(q0,qqqq,RGB(238,238,28));
6 a! W" V2 U X7 d( aPARTLINE(hh ,qqqq,RGB(255,0,255));( W* p8 {9 i: v& q0 i: N" C' n
PARTLINE(q1,qqqq,RGB(238,238,28));& `1 c1 q' }( w
PARTLINE(q2,qqqq,RGB(238,238,28));5 v7 L7 e% b$ ]& ]
PARTLINE(q3,qqqq,RGB(238,238,28));: R) k: [# A) d8 ?: G8 r. O
PARTLINE(q4,qqqq,RGB(238,0,0));6 h, J7 Z! U' I+ D6 W' T$ R
PARTLINE(q5,qqqq,RGB(238,238,28));4 h2 G1 T. ]" T
PARTLINE(q6,qqqq,RGB(238,238,28));
5 S. ?) ?$ s/ v1 S7 ]; K5 yPARTLINE(q7,qqqq,RGB(238,238,28));
- \- \! Y2 I' L; ~7 R& cPARTLINE(ll,qqqq,RGB(255,0,255));
4 M* v& [& z& SPARTLINE(q8,qqqq,RGB(238,238,28));7 ~2 K2 v% `! n3 f4 x& U$ D- s
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 7 _! I7 E/ y3 v9 a2 g1 y
1 W% c8 y: E2 I% j yDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
& B9 R/ E- H- L0 S# YDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;7 N! z9 q" r3 A% g( v6 R* I
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;$ J8 Y" I6 d! U
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
1 O8 w9 E0 b* q; T- G; w+ jDRAWTEXT(nnl,q4,'50% '+q4),Colorred;
, N! y2 ? Z( m7 Y3 DDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
3 M) N; e+ |0 G2 d, ~( XDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;9 k- A- x: r+ K! D5 N
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;$ Q: D. }2 |; y) C' |: I9 b+ R6 J8 i4 b
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;- c* j/ q. Y4 O( V( ~# }# f
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |