甘氏线通达信主图

{参数：年月1 1777 365

下降角度1 1777 1400

上升角度1 1777 1700

N2  1 177 17}
S:=LLV(C,500);
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,55);
B2:=LLVBARS(A2,55);
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;