Контрольная работа: Застосування методу Монте-Карло для кратних інтегралів
d:=vm(b);
for j:=1 to k do
begin
s:=0; integral:=0;
randomize;
For i:=1 to n do
begin
x:=a+(b-a)*random;
y:=c+(d-c)*random;
ng:=nm(x);
vg:=vm(x);
If (y <= vg) and(y >= ng) then s:=s + f(x, y);
end;
integr[j]:=(b-a)*(d-c)*s/n;
writeln(integr[j]:10:4);
end;
for j:=1 to k do
Integral:=integral+ integr[j];
writeln('Userednenyy integral=',(integral/k):10:4);
readln;
readln;
END.
3.1Результат програми
|
Функція |
k |
N=100 |
N=500 |
N=1000 |
К-во Просмотров: 245
Бесплатно скачать Контрольная работа: Застосування методу Монте-Карло для кратних інтегралів
|