江恩黄金线

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

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;