|
lhnh:=BARSLAST(DISPSTATUS=1)+1;/ l' g2 y m* W2 e0 C# y" U% m
nnl:=DISPSTATUS=2;
: M: A& m6 m( D J; lqqqq:=BACKSET(DISPSTATUS=2 ,barslast(dispstatus=1));
% a3 c. g7 l' khh:=HHV(h ,lhnh);
" _( Y/ C" V' s' R# t Y. ^ll:=llV(l ,lhnh);
; d e& P0 h$ }q0:=hh+(hh-ll)*POW(0.618,5);
# R% i& X8 }" w& l7 A6 n' \7 Dhh:=HHV(h ,lhnh);
8 v$ Z- u, m! B& o: bq1:=ll+(hh-ll)*POW(0.618,1);7 a+ F5 j6 w+ c( |* W w, C
q2:=ll+(hh-ll)*POW(0.618,2);
3 b/ H# \$ o9 f. a% ]q3:=ll+(hh-ll)*POW(0.618,3); ^$ a, \# E- C. I
q4:=ll+(hh-ll)/2;
$ N. e% `/ o" T# ]! C# bq5:=ll+(hh-ll)*POW(0.618,5);
& _7 f6 c/ I8 Zq6:=hh-(hh-ll)*POW(0.618,3);& \, _6 _$ C4 ]4 T( _. [
q7:=hh-(hh-ll)*POW(0.618,5);% e1 |0 I* Z l/ K" x
ll:=llV(l ,lhnh);
4 A4 f6 q. t5 m: ]' I6 pq8:=ll-(hh-ll)*POW(0.618,5);9 g9 f$ A+ O* W) x" S' i3 Z
PARTLINE(q0,qqqq,RGB(238,238,28));- C( P1 W& `! Y( {3 v
PARTLINE(hh ,qqqq,RGB(255,0,255));
/ z( Q+ _2 L3 p* m3 ]& hPARTLINE(q1,qqqq,RGB(238,238,28));
0 E/ B( K4 p. {/ [5 wPARTLINE(q2,qqqq,RGB(238,238,28));0 d0 ]: ?& x1 g5 V+ e2 N! f' C
PARTLINE(q3,qqqq,RGB(238,238,28));
. d& r- b4 V4 |6 NPARTLINE(q4,qqqq,RGB(238,0,0));: v4 x0 H0 }$ A' E
PARTLINE(q5,qqqq,RGB(238,238,28));2 ^' ^! A' g# p6 T# i
PARTLINE(q6,qqqq,RGB(238,238,28));
. M! e8 `! A4 }% H. uPARTLINE(q7,qqqq,RGB(238,238,28));
9 N- y* \& b% sPARTLINE(ll,qqqq,RGB(255,0,255));
8 h5 U' @0 a% w6 v, UPARTLINE(q8,qqqq,RGB(238,238,28));
* a+ g" O$ Z) _/ b# rDRAWTEXT(nnl,q0,'108.9% '+q0),Color00FFFF; : ?$ c- _4 r) H, ]7 b3 O f4 s& Y' B* _
; Q7 @8 u1 b- Q" Q; TDRAWTEXT(nnl,hh,'100% '+hh),ColorFF00FF;
( P$ E" [' ` G9 Q7 _1 E# o2 FDRAWTEXT(nnl,q7,'90.9% '+q7),Color00FFFF; z, o/ n* z9 f+ A9 T) L
DRAWTEXT(nnl,q6,'76.4% '+q6),Color00FFFF;2 {* V3 Z; k, c$ A' \4 E# P
DRAWTEXT(nnl,q1,'61.8% '+q1),Color00FFFF;1 z# g M4 {! o4 I- ~
DRAWTEXT(nnl,q4,'50% '+q4),Colorred;" V! }' S2 G3 d
DRAWTEXT(nnl,q2,'38.2% '+q2),Color00FFFF;
6 t( a( k* J: K5 g5 ?2 J& \. rDRAWTEXT(nnl,q3,'23.7% '+q3),Color00FFFF;4 ], X5 w) _7 O$ s6 H% H
DRAWTEXT(nnl,q5,'8.9% '+q5),Color00FFFF;( P8 Q; m2 ~8 n Y6 h) H) H* h
DRAWTEXT(nnl,ll,'0% '+ll),ColorFF00FF;
; R1 \% Y; [$ y) }4 u$ gDRAWTEXT(nnl,q8,'-8.9% '+q8),VALIGN2,Color00FFFF; |