Форум программистов, компьютерный форум CyberForum.ru

Метод Монте - Карло, вычесление объема и интеграла - C++

Восстановить пароль Регистрация
 
Ivan11111
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 4
11.12.2013, 12:21     Метод Монте - Карло, вычесление объема и интеграла #1
Всем привет. Надо сочитать объем и вычислить интеграл методом монте - карло:
1)Вычислить методом Монте-Карло объем области, являющейся пересечением единич-
ного шара и области, ограниченной конусом: http://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{2} + http://www.cyberforum.ru/cgi-bin/latex.cgi?{y}^{2} < http://www.cyberforum.ru/cgi-bin/latex.cgi?{z}^{2}, z > 0; вывести оценку и
погрешность.
2)Вычислить методом Монте-Карло интеграл от 0 до бесконечности
http://www.cyberforum.ru/cgi-bin/latex.cgi?{e}^{-{x}^{2}/2}*cos(x)dx вывести точное значение(http://www.cyberforum.ru/cgi-bin/latex.cgi?{\frac{\pi }{2*e}}^{1/2}), оценку и погрешность.

main.cpp
Кликните здесь для просмотра всего текста
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#include "stdafx.h"
#include <math.h>
#include <conio.h>
#include <iostream>
#include "rand.h"
#include "rnnorm.h"
using namespace std;
 
void t24()
{   double s=0, s2=0, p1=8;
    int N=100000;
    for(int i=0; i<N; i++)
    { double x=2*rnunif()-1,
             y=2*rnunif()-1,
             z=2*rnunif();
      if(x*x+y*y<z*z) 
      { s+=p1;
        s2+=p1*p1; 
      }
    }
    double a=s/N, d=s2/N-a*a, r=3*sqrt(d/N);
    cout<<"test 24:"<<' '<<a<<' '<<r<<endl;
}
 
void t25()
{   double s=0, s2=0;
    int N=100000;
    for(int i=0; i<N; i++)
    { double x=rnexp(),
             y=cos(x);
      s+=y;
      s2+=y*y; 
    }
    double a=s/N, d=s2/N-a*a, r=3*sqrt(d/N);
    cout<<"test 25:"<<' '<<sqrt(M_PI/(2*M_E))<<' '<<a<<' '<<r<<endl;
}
 
int _tmain(int argc, _TCHAR* argv[])
{   rninit(1);
    
    t24();
    t25();
 
    _getch();
    return 0;
}


rand.cpp
Кликните здесь для просмотра всего текста
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#include "stdafx.h"
#include <math.h>
static unsigned long int iu, iuhold, mult=663608941l;
double rnunif ()
{
 const double flt = 0.232830643654e-9;
 iu *= mult;
 return (flt*iu);
}
 
double rnexp()
{ return -log(rnunif());
}
 
void rninit ( long int iufir)
{
 iu = ( ( iufir%2 ) ? iufir : iufir + 1 );
 iuhold = iu;
}
 
void rnrest ()
{ rninit (iuhold); 
}
 
void rnconst ( unsigned long int multnew)
{
 int rest = multnew % 5;
 if ( (rest != 5) || (rest != 3) )
  mult = multnew - rest + 5;
 else
  mult = multnew;
}
 
unsigned long int rnlast ()
{ return ( iu ); }
 
unsigned long int rnfirst ()
{ return ( iuhold ); }


rand.h
Кликните здесь для просмотра всего текста
C++
1
2
3
void rninit(long int);                  
double rnunif();                     
double rnexp();


С объемом вроде бы все впорядке, а интеграл неполучается.
Заранее спасибо.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2013, 12:21     Метод Монте - Карло, вычесление объема и интеграла
Посмотрите здесь:

C++ метод Монте-Карло
C++ Процедура вычисления кратного интеграла методом Монте-Карло
Решения кратного интеграла методом Монте Карло на С++ C++
Вычисление объема произвольного тела методом Монте-Карло C++
C++ Метод монте Карло
Рассчет определенного интеграла методом Монте-Карло. C++
C++ Вычисление интеграла методом Монте-Карло
C++ Метод Монте-Карло

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 09:47. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru