Powered By Blogger

martes, 11 de diciembre de 2012

SERIE DE McLAURIN


# include <stdio.h>
# include <conio.h>
# include <math.h>
# include <dos.h>

void main ()
{
int i,j,n,ni,resf;
float ex[50],x,xn,E[50],Erv[50],Era[50];
char resp;
float v=1.64872127;
textmode(C80);
textbackground(4);
do
{
clrscr();
printf("PROGRAMA QUE CALCULA LA SERIE DE McLAURIN");
printf("\n\nCUANTAS CIFRAS SIGNIFICATIVAS DESEA: ");
scanf("%f",&x);
printf("\n\ITERACIONES QUE DESAE VER: ");
scanf("%d",&ni);
n=ni-1;
ex[0]=0;
/*E[0]=0;
Erv[0]=0;
Era[0]=0;
*/
for(i=0;i<=n;i++)
{
E[i]=0;
Erv[i]=0;
Era[i]=0;
resf=1;
for(j=1;j<=i;j++)
{
resf=resf*j;
}
xn=pow(x,i);
ex[i]=ex[i-1]+(xn/resf);
printf("\n\n%d iteracion ex=%f",i+1,ex[i]);
E[i]=(v-ex[i]);
if(E[i]<0)
{
E[i]*=-1;
}
printf("\n%d Error= %f",i+1,E[i]);
Erv[i]=((E[i]/v)*100);
if(Erv[i]<0)
{
Erv[i*=-1] ;
}
printf("\n%d Erv= %f %",i+1,Erv[i]);
/*if(ex[i-1]=0)
{
ex[i-1]=1;
} */
Era[i]=( ( (ex[i]-ex[i-1] ) /ex[i] )*100 );
if(Era[i]<0)
{
Era[i]*=-1;
}
printf("\n%d Era= %f %",i+1,Era[i]);
}
gotoxy(10,25);
printf("®QUIERE INTENTAR CON UN NUEVO NUMERO DE ITERACIONES?(S/N): ");
scanf("%s",&resp);
}
while(resp=='s'||resp=='S');
gotoxy(40,27);
printf("UN MOMENTO POR FAVOR");
delay(1000);

}

No hay comentarios:

Publicar un comentario