江恩角度自动画线（老公式了，有用，已附图。）      今天是2007年的最后一天,明天就是2008年元旦了,在此辞旧迎新之际,想到要为山坛朋友做点什么,于是想到发一个江恩角度自动画线--主图公式.虽是老公式了，但也仍是宝刀未老,经常换发新春,提供给坛内朋友闲时参考.


有用就留着，没用。。。。。随便吧！
参数：
年月: 190001  220012  199901
下降角度：200 20000 1400
上升角度：200  20000  1700
N2: 1  100 17}

s:=llv(c,500);
m3:ma(c,3);
m10:ma(c,10);
m30:ma(c,30);
AA:=YEAR*100+MONTH>年月;
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 , n2);
aa1:=a1>ref(a1,1);
a2:=ZIG(2,n2);
aa2:=a2<ref(a2,1);
K2:=K1*0.8;
b1:=HHVBARS(a1,30);
b2:=LLVBARS(a2,30);
DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*K1/下降角度,1),COLOR33FFCC;
DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*2*K1/下降角度,1),COLOR6666FF,LINETHICK2;
DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*4*K1/下降角度,1),COLORFFFFCC;
DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*8*K1/下降角度,1),COLOR00CCFF;
DRAWLINE(c=A1*BB and aa1>0,c,B1=10 ,REF(c,B1)-s*0.4*K1/下降角度,1),COLOR00FF00;

DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*8*K1/上升角度*2,1),COLOR33FFCC;
DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*K1/上升角度*2,1),COLOR00CCFF;
DRAWLINE(l=A2*AA and aa2>0,L,B2=10 ,REF(l,B2)+s*2*K1/上升角度*2,1),COLOR6666FF,LINETHICK2;
DRAWLINE(l=A2*AA and aa2>0,l,B2=10 ,REF(l,b2)+s*4*K1/上升角度*2,1),COLORFFFFCC;
DRAWLINE(l=A2*AA and aa2>0,l,B2=10 ,REF(l,b2)+s*0.5*K1/上升角度*2,1),COLORFF00FF;

已附图??在那？？？？