Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНООБРНАУКИ РФ
ФГБОУ ВПО «ТулГУ»
Кафедра «Приборы управления»
Практическое занятие №6
Вычисление кратных интегралов по кубатурной формуле Симпсона.
Выполнил: студент группы
121221с Ардашин Т. А.
Проверил: Кожурова Е. Р.
Тула 2013
Задание:
Текст программы:
#include<stdio.h>
#include<math.h>
float f(float x, float y)
{float time;
time=1/x/y;
return time;
}
main()
{float x,y,a,b,c,d,h,k,s,I;
clrscr();
scanf(“%f%f%f%f”,&a,&b,&c,&d);
h=(b-a)/2;
k=(d-c)/2;
s=0;
x=a; y=c;
s+=f(x,y);
x=b; y=c;
s+=f(x,y);
x=a; y=d;
s+=f(x,y);
x=b; y=d;
s+=f(x,y);
x=a+h; y=c;
s+=4*f(x,y);
x=a; y=c+k;
s+=4*f(x,y);
x=b; y=c+k;
s+=4*f(x,y);
x=a+h; y=d;
s+=4*f(x,y);
x=a+h; y=c+k;
s+=16*f(x,y);
I=h*k*s/9;
printf(“I=%f”,I);
getch();}
Результат:
4
4.4
2
2.6
I=0.025007