martes, 21 de junio de 2011

Programa para calcular las Raices enteras de un Polinomio (Metodo de Ruffini)



// Programa realizado por gamerfear
#include
#include

int main(void)
{

int i,n,j,d,g,k=0,l;

printf("Este programa esta disenado para calcular raices enteras \n");
printf(" de polinomis atravez del metodo de Ruffini\n");
printf(" ++++++++++++++++++++++++++++++++++++++++++++++++++++++\n");

printf("De que grado es el polinomio a calcular:\n");
scanf ("%d", &g);
printf("Introdusca los coeficientes del polinomio en orden y colocando\n");
printf(" el valor 0 para los terminos faltantes\n");

int coe[g],res[g+1],div[20];

for(i = 0; i <= g; i ++)
{
printf("%2d> ",i+1);
scanf("%d", &coe[i]);
}

printf("Los coeficientes son:\n");
for (i=0; i<=g; i ++)
printf("%d, ",coe[i]);

printf("\nLos divisores de la parte entera son:\n");
if (coe[g] <0)
d=coe[g]*-1;
else
d=coe[g];
//printf("coe[g]=%d d=%d\n ",coe[g] ,d);

for(j=1; j<= d ; j++)
{
if ( d % j == 0){
// printf("%d, ",j);
k=k+1;
printf("%d, ",div[k] = j);
}
}

l=k;
//printf("\nl=%d\n ",l);
printf("\nRaices:\n");
for (k=1; k<=l; k++) {
res[0]=0;
for (n=1; n<=g+1; n++) {
res[n]=div[k]*res[n-1]+coe[n-1];
//printf ("res[%d]= %d coe[%d]=%d \n",n ,res[n] ,n-1, coe[n-1]);
}
if (res[g+1] == 0)
printf ("%d es RAIZ del polinomio\n",div[k] );
for (n=1; n<=g+1; n++) {
res[n]=coe[n-1]-div[k]*res[n-1];
//printf ("res[%d]= %d coe[%d]=%d \n",n ,res[n] ,n-1, coe[n-1]);
}
if (res[g+1] == 0)
printf ("-%d es RAIZ del polinomio\n",div[k] );
}

return 0;
}


sábado, 9 de abril de 2011

Caracterización de Plásticos Centelladoras Acoplados a una Fibra Optica de Corrimiento de Longitud de Onda

Esta tesis fue escrita y publicada por Heberto Pérez como trabajo final de titulación para la Licenciatura en Física Aplicada en el ano 2010.