N 51 100
M 13 1 100
AA10:=MA(C,N);
BB10:=ATAN((AA10-REF(AA10,1)))*180/3.1416;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),3,1),COLOR000066;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),2.6,1),COLOR000099;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),2,1),COLOR0000CC;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),1.2,1),COLOR0000FF;
STICKLINE(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),0.4,1),COLORCC66FF;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),3,1),COLOR007700;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),2.6,1),COLOR009900;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),2,1),COLOR00BB00;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),1.2,1),COLOR00DD00;
STICKLINE(BB10<1 AND AA10< REF(AA10,1), AA10,REF(AA10,1),0.4,1),COLOR00FF00;
AA20:=MA(C,M);
BB20:=ATAN((AA20-REF(AA20,1)))*180/3.1416;
STICKLINE(BB20>1,AA20,REF(AA20,1),3,1),COLOR00AAFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),2.6,1),COLOR00CCFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),2,1),COLOR22FFFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),1.2,1),COLOR66FFFF;
STICKLINE(BB20>1,AA20,REF(AA20,1),0.4,1),COLOR99FFFF;
STICKLINE(BB20<1,AA20,REF(AA20,1),3,1),COLOR777777;
STICKLINE(BB20<1,AA20,REF(AA20,1),2.6,1),COLOR999999;
STICKLINE(BB20<1,AA20,REF(AA20,1),2,1),COLORBBBBBB;
STICKLINE(BB20<1,AA20,REF(AA20,1),1.2,1),COLORDDDDDD;
STICKLINE(BB20<1,AA20,REF(AA20,1),0.4,1),COLORFFFFFF;
