Expansão da Serie de Taylor p/ função seno

clear all, clc, close all,
disp(' APROXIMACAO EM SERIE DE TAYLOR DA FUNCAO SENO')
X=input('ANGULO, X = ');
N=input('NUMERO DE TERMOS DA SERIE, N = ');
FACT=1;
SENO=X;
SINAL=1;
for n=3:2:N
    FACT=FACT*n*(n-1);
    SINAL=-SINAL;
    TERMO=SINAL*(X^n)/FACT;
    SENO=SENO+TERMO;
end
disp('O VALOR DO SENO VALE');
SENO