Questão 2 - Lista Numérico

clear all, clc,close all
disp('APROXIMAÇÃO EM SÉRIE DE TAYLOR DA FUNÇÃO 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