function c = PARAM_app( ang )

%-- Serie de Taylor: potencias de (x-c) ------------
 if ang > 0  & ang < pi/2,      quad = 1; end
 if ang > pi/2 & ang < pi,      quad = 2; end
 if ang > pi & ang < 3*pi/2,    quad = 3; end
 if ang > 3*pi/2 & ang < 2*pi,  quad = 4; end
 
 switch quad,
 
     case 1, if ang < pi/4; c = 22.5*pi/180;
             else c = 67.5*pi/180; end
     
     case 2, if ang < 3*pi/4; c = 112.5*pi/180;
             else c = 157.5*pi/180; end

     case 3, if ang < 5*pi/4; c = 202.5*pi/180;
             else c = 247.5*pi/180; end

     case 4, if ang < 7*pi/4; c = 292.5*pi/180;
             else c = 337.5*pi/180; end

 end
%---------------------------------------------------
