Matlab - DIVISION SINTETICA

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%ALGORITMO DE LA DIVISION SINTETICA%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%MATERIA DE ENTORNO DE INSTRUMENTACION%%%%%%%%

%%%%%%%%%%%EN INVESTIGACION%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%25 DE MAYO DEL 2015%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

clear

clc

fprintf('bienvenido al algoritmo de la division sintentica\n\n')

grado=input('dame el grado del poligono=');

coeficientespol=zeros(1,grado+1)

Residuo=coeficientespol;

for col=1:(grado+1)

   fprintf('dame coeficiente %d',col)

    coeficientespol(col)=input('=')

end

%coeficientespol

%son los #'s divisores del polinomio

factores=[1,-1,2,-2,];

[renglones,columnas]=size(factores);

Residuocero=1;

%paso 1

%bajo el primer valor del polinomio para multiplicar por el

%primer valor del vector factores

while(Residuocero==1)

    Residuo(1)=coeficientespol(1)

    for i=1:grado;

        Residuo(i+1)=(Residuo(i)*factores(columnas))+coeficientespol(i+1)

    end

    if (Residuo(grado+1)~=0)

        Residuo=0

    else

        Residuo=1

    end

    pause(5)

end