lhnh:=BARSLAST(DISPSTATUS=1)+1;
8 D; }2 N \) Q$ I' C- Cnnl:=DISPSTATUS=2;
7 y2 ?. F5 F# b0 }% R3 F+ Aqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));# h7 d# Q9 a7 P3 p/ d3 _% a% Z
hh:=HHV(h ,lhnh);
! Z6 B( {. [% G- B( W9 i# All:=llV(l ,lhnh);
! X6 D! R7 Q/ B4 Q# Zq0:=hh+(hh-ll)*POW(0.618,5);4 I# U' k$ f8 }/ e ]6 Q8 @( V
hh:=HHV(h ,lhnh);0 M; M% ~. I+ p2 k
q1:=ll+(hh-ll)*POW(0.618,1);2 F- d, f3 d3 N6 ^, @
q2:=ll+(hh-ll)*POW(0.618,2);
5 d5 l% a9 y) i3 k1 l, ?. H2 j4 Pq3:=ll+(hh-ll)*POW(0.618,3);
( J5 U! o3 [2 s/ a* u( v% mq4:=ll+(hh-ll)/2;! [% r5 K& p) U* b
q5:=ll+(hh-ll)*POW(0.618,5);
/ s' m1 s& Z$ P! J# H6 L) ]q6:=hh-(hh-ll)*POW(0.618,3);& v0 g% P" J) d0 o0 e9 y' m' D
q7:=hh-(hh-ll)*POW(0.618,5);& O* a# x/ ~& L# I2 B
ll:=llV(l ,lhnh);
/ q8 Y/ o. ^) A$ C: Z+ `0 z7 lq8:=ll-(hh-ll)*POW(0.618,5);
! ?" K$ F, \+ A5 U. a+ H/ H* mPARTLINE(q0,qqqq,RGB(238,238,28));
9 y$ S2 t$ o& g- V- c7 jPARTLINE(hh ,qqqq,RGB(255,0,255));8 P# H/ Q9 J% d% l' ~" y
PARTLINE(q1,qqqq,RGB(238,238,28));+ p6 o& D- [; B# `- l: J
PARTLINE(q2,qqqq,RGB(238,238,28));
# q1 L5 w( u, S/ _PARTLINE(q3,qqqq,RGB(238,238,28));
& Y4 z* D( F9 N& K% H6 ]' x, `PARTLINE(q4,qqqq,RGB(238,0,0));
; K+ [* ^! Y( p& S) c QPARTLINE(q5,qqqq,RGB(238,238,28));
) W, l. Z& ?. D/ z/ DPARTLINE(q6,qqqq,RGB(238,238,28));6 v1 b% F5 ~# V
PARTLINE(q7,qqqq,RGB(238,238,28));
# k" ]" ~% I" H) n8 [PARTLINE(ll,qqqq,RGB(255,0,255));) \ ~1 w4 G8 j' P4 L0 K8 ] F1 k
PARTLINE(q8,qqqq,RGB(238,238,28));3 [4 P0 B& U% L" U8 o" n& i
DRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; 9 {) k# U8 U4 f+ |1 g+ {( \
8 C y8 T# d- r$ R+ [: ODRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;# _' o, [+ J) ` Z
DRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF;+ E# e+ z( j, v' a
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;
6 w7 T2 T b- n: t" F; fDRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;
+ c- P* @- M2 _* ?DRAWTEXT(nnl,q4,'50% '+q4),Colorred;
( S* Y/ W Y7 V1 lDRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
* h: R- {3 a" GDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;
$ U1 h( @+ H$ g% t, D+ a7 lDRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;
9 _, x, ?6 f/ u0 s6 h$ F; IDRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;# C* q# E: `- \, p L
DRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |