Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2011, 11:50   #1
vova_makarovych
Пользователь
 
Регистрация: 22.09.2010
Сообщений: 13
По умолчанию метод моте карло

нужна помощ в исправлении кода (где + стоят нужно исправит на свое значение).....
Задание: у нас есть 2войной интеграл (x+y)dx dy , где D ограниченная прямыми y=0, y=x, x=1
код метода Монте Карло:

Код:
#include <fstream>
#define _USE_MATH_DEFINES
#include <math.h>
#include <time.h>
 
using namespace std;                                                                       
                                                                      
const double                            
  //*r = 1.0,                                         
  x1 = 0, x2 =1,                              
  y11 = 0, y2 = 1,                             
  z1 =  0, z2 = 2,                                              
 
  V1 = (x2-x1)*(y2-y11)*(z2-z1),  // Объем описанного параллелепипеда.
  V2 = 2,                      // Объем вписанного конуса.                          +
  Vexact = M_PI/8,               // Точное значение объема полусферы.     +
 
  p2 = V2/V1,                    
 
  m = 0.01,                  
  za = 1.96,                    
 
  N = (za*za)/(m*m)*(1-p2)/p2;   
 
double
  p,                        
  V,                            
  x,y,z,                         .
  mnew;                      
 
unsigned long i,j,
  Nx=0;                        
 
int InBody(double x, double y, double z) { 
  if (pow(x*x+y*y,2)<=2*x*y && x+y >= z)    //        +
         return 1;  // true
    else return 0;  // false
}
 
ofstream fout("MonteCar.txt", ios::app);
 
void main() {
 
  time_t *ttt = new time_t;
  time(ttt);
  srand((unsigned int)(*ttt));
  delete ttt;
 
  for (i=1; i<=N; i++) {
    // Згенерувати випадкову точку, 0 <= rand()/RAND_MAX < 1
    x = (x2-x1) * rand()/RAND_MAX + x1; // x1 <= x <= x2;
    y = (y2-y11) * rand()/RAND_MAX + y11; // y11 <= y <= y2;
    z = (z2-z1) * rand()/RAND_MAX + z1; // z1 <= z <= z2;
 
    if (InBody(x,y,z)) Nx++;            
  }
 
  p = Nx /N;
  V = V1 * p;
  mnew = za * sqrt((1-p)/(N*p));
 
 
  fout << "Half-sphere volume by Monte-Carlo method" << endl;
  fout << "V1 = " << V1 << endl;
  fout << "V2 = " << V2 << endl;
  fout << "p2 = " << p2 << endl;
  fout << "N  = " << (long)N << endl;
  fout << "Nx = " << Nx << endl;
  fout << "p  = " << p  << endl;
  fout << "V  = " << V  << endl;
  fout << "m  = " << mnew*100 << "%" << endl;
  fout << "Volume is in [" << V*(1-mnew) << "; " << V*(1+mnew) << "] with probability alpha = 0,95" <<  endl;
  fout << "Vexact  = " << Vexact << " is ";
 
  if ( (Vexact<=V*(1-mnew)) || (V*(1+mnew)<=Vexact) ) fout<< endl  << "NOT ";
  fout << "in. "; //<< endl << endl;
 
}
vova_makarovych вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Метод Монте-Карло анна2709 Паскаль, Turbo Pascal, PascalABC.NET 3 14.11.2011 22:42
Задача Коммивояжера. Метод Монте-Карло и метод приращений. [Паскаль] U9110 Помощь студентам 4 06.04.2011 09:48
метод статического моделирования (метод Монте-Карло) 666Julia666 Помощь студентам 0 02.04.2011 16:31
Метод Монте-Карло Sasha124 Помощь студентам 6 11.01.2011 05:45