Поиск
Исследование точности численного интегрирования Research of Accuracy of Numerical Integration
...
for (i=0;i<=(int (pow (2,j-1))*n);i++)
{
x=a+i*h;
if (i==0)
t=1;
else
t=2;
y=t*(h/2)*(sin (2*x));
Sum[j]=Sum[j]+y;
}
if (j>1)
{
coa=(Sum[j]-Sum[j-1])/Sum[j-1];
printf („Criterion of accuracy=%.5f Number of iteration=%d\n“, coa, j);
fprintf (fp,"%.7f\t“, coa);
fprintf (fp,"%d\t\n», j);
}
}
printf («The sum by a method of trapezes=%.7f\n», Sum[1]);
fprintf (fp,"The sum by a method of trapezes=%.7f\n", Sum[1]);
/*******Вычисление ...