[PEL] 复制代码
M1:=MA(c,5);M2:=MA(c,10);
M3:=MA(c,20);
M4:=MA(c,30);
M1SJ:=M1-REF(M1,1);
M2SJ:=M2-REF(M2,1);
M3SJ:=M3-REF(M3,1);
M4SJ:=M4-REF(M4,1);
SS:=IF(M1SJ>0,11,0)+IF(M2SJ>0,22,0)+IF(M3SJ>0,30,0)+IF(M4SJ>0,37,0);
SS/100,POINTDOT,COLORWHITE,PRECISION2;
if(SS=100 or SS=63,SS,0)+if(SS=0 or SS=37,SS-100,0),LINETHICK0,PRECISION0;
STICKLINE( 1,if(SS=100 or SS=63,SS,0)+if(SS=0 or SS=37,SS-100,0) , 0,15 , 0 );
if(SS=89 or SS=78 or SS=70,SS,0),STICK,colormagenta,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=89 or SS=78 or SS=70,SS,0), 0,15 ,0,colormagenta);
if(SS=11 or SS=22 or SS=30,SS-100,0),STICK,colorgreen,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=11 or SS=22 or SS=30,SS-100,0), 0,15 , 0 );
if(SS=67,70,0),colorwhite,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=67,70,0), 0,15 , 0 );
if(SS=59,45,0),colorwhite,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=59,45,0), 0,15 , 0 );
if(SS=52,20,0),colorwhite,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=52,20,0), 0,15 , 0 );
if(SS=33,-70,0),colorwhite,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=33,-70,0), 0,15 , 0 );
if(SS=41,-45,0),colorwhite,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=41,-45,0), 0,15 , 0 );
if(SS=48,-20,0),colorwhite,PRECISION0,LINETHICK0;
STICKLINE( 1,if(SS=48,-20,0), 0,15 , 0 );
100,POINTDOT,colorgreen,PRECISION0;
-100,POINTDOT,colorgreen,PRECISION0;