?

?來源:程序化99

?

?來源: www.kzuj.com.cn

?

參考：

?

AA10:=MA(C,10);
BB10:=ATAN((AA10-REF(AA10,1)))*180/3.1416;
STICKLINE1(BB10>1 AND AA10>REF(AA10,1), AA10,REF(AA10,1),5,0),COLORRED;
STICKLINE1(BB10<1 AND AA10<REF(AA10,1), AA10,REF(AA10,1),5,0),COLORGREEN;
N:=BARSLAST(CROSS(BB10>1 AND AA10>REF(AA10,1),0.5))+1;
M:=BARSLAST(CROSS(BB10<1 AND AA10<REF(AA10,1),0.5))+1;

DRAWTEXT(REF(CROSS(C,BB10),1)&&C>REF(C,1),H,'';
DRAWTEXT(REF(CROSSDOWN(C,BB10),1)&&C<REF(C,1),H,'';

?