6，江恩角度自动画线
源码
DRAWGBKLAST(C>0,STRIP(RGB(90,90,90),RGB(0,0,0),0));
{主图：江恩角度自动画线
参数：
下降角度=xj：17 1 200 1
上升角度=ss：17 1 200 1
振幅=zf: 17 1 200 1
n 30 3 500 1}
s:=llv(c,500);
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 , zf);
aa1:=a1>ref(a1,1);
a2:=ZIG(2,zf);
aa2:=a2<ref(a2,1);
K2:=K1*0.8;
b1:=HHVBARS(a1,n);
b2:=LLVBARS(a2,n);
DRAWLINE(c=A1 and aa1>0,c,B1=10 ,REF(c,B1)-s*K1/(100*xj),1),COLOR33FFCC;
DRAWLINE(c=A1 and aa1>0,c,B1=10 ,REF(c,B1)-s*2*K1/(100*xj),1),COLOR6666FF,LINETHICK2;
DRAWLINE(c=A1 and aa1>0,c,B1=10 ,REF(c,B1)-s*4*K1/(100*xj),1),COLORFFFFCC;
DRAWLINE(c=A1 and aa1>0,c,B1=10 ,REF(c,B1)-s*8*K1/(100*xj),1),COLOR00CCFF;
DRAWLINE(c=A1 and aa1>0,c,B1=10 ,REF(c,B1)-s*0.4*K1/(100*xj),1),COLOR00FF00;
DRAWLINE(l=A2 and aa2>0,L,B2=10 ,REF(l,B2)+s*8*K1/(100*ss)*2,1),COLOR33FFCC;
DRAWLINE(l=A2 and aa2>0,L,B2=10 ,REF(l,B2)+s*K1/(100*ss)*2,1),COLOR00CCFF;
DRAWLINE(l=A2 and aa2>0,L,B2=10 ,REF(l,B2)+s*2*K1/(100*ss)*2,1),COLOR6666FF,LINETHICK2;
DRAWLINE(l=A2 and aa2>0,l,B2=10 ,REF(l,b2)+s*4*K1/(100*ss)*2,1),COLORFFFFCC;
DRAWLINE(l=A2 and aa2>0,l,B2=10 ,REF(l,b2)+s*0.5*K1/(100*ss)*2,1),COLORFF00FF; |
|
