k:= hhv(c,n),coloryellow;
d:= llv(c,n),coloryellow;
hp:=k-d;
z1:d+hp*0.236,POINTDOT,colorred, LINETHICK2;
z2:d+hp*0.382,POINTDOT,colorblue, LINETHICK2;
z3:d+hp*0.5,POINTDOT,colorwhite, LINETHICK2;
z4:d+hp*0.618,POINTDOT,colorblue, LINETHICK2;
z5:d+hp*0.764,POINTDOT,colorred, LINETHICK2;
s:=llv(c,500);
AA:=YEAR*100+MONTH>199901; BB:=(AA=0)+1;
p1:=(c-ref(c,1))/ref(c,1)*1000; p2:=sum(abs(p1),0); p3:=count(c>0,0); k1:=p2/p3;
a1:=ZIG(3 , 17); aa1:=a1>ref(a1,1); a2:=ZIG(2,17); aa2:=a2<ref(a2,1); K2:=K1*0.8;
b1:=HHVBARS( a1, 30); b2:=LLVBARS(a2 ,30);
X1:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*K1/1400,1),COLOR33FFCC;
X2:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*2*K1/1400,1),COLOR6666FF,LINETHICK2;
X3:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*4*K1/1400,1),COLORFFFFCC;
X4:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*8*K1/1400,1),COLOR00CCFF;
X5:DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*0.4*K1/1400,1),COLORgreen;
Y1:DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*8*K1/1700*2,1),COLOR33FFCC;
Y2:DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*K1/1700*2,1),COLOR00CCFF;
Y3:DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*2*K1/1700*2,1),COLOR6666FF,LINETHICK2;
Y4:DRAWLINE(l=A2*AA and aa2>0,l,B2=10 ,REF(l,b2)+s*4*K1/1700*2,1),COLORFFFFCC;
Y5:DRAWLINE(l=A2*AA and aa2>0,l,B2=10 ,REF(l,b2)+s*0.5*K1/1700*2,1),COLORgreen;
