function sin_x = SIN_app( ang,c,n )

%-- Serie de Taylor: potencias de (x-c) ------------
 for i=1:length(ang),
 
     f(1) =  sin(c);
     f(2) =  cos(c)*(ang(i)-c);
     f(3) = -sin(c)*(ang(i)-c)^2/factorial(2);
     f(4) = -cos(c)*(ang(i)-c)^3/factorial(3);
     f(5) =  sin(c)*(ang(i)-c)^4/factorial(4);
     sin_x(i) = sum(f(1:n));
     
 end
%---------------------------------------------------
