- 1
/*****************************************************************************
* .FILE : numeric.c
* .TITLE : Расчет двойного интеграла при помощи метода Симпсона (парабол)
* .DESCR : Курсовой проект по численным методам (1994 год)
*:
*: Выполнил: Петренко В.С. (гр. ПС-301)
*: Проверил: Панюков А.В.
*:
* .NOTE : NOT FOR RENTAL OR SALE.
*: FEDERAL LAW PROVIDES SEVERE CIVIL & CRIMINAL PENALTIES FOR
*: UNAUTHORIZED DUPLICATION OR DISTRIBUTION.
*:
*: (C) '94 by P$P
*****************************************************************************/
#include
#include
/*****************************************************************************
* .NAME: m_Simpson
* .TITLE : Расчет интеграла методом Симпсона (парабол)
* .DESCR :
*:
* .PARAMS : double m_Simpson (double (*func) (double, double),
*:double t_fix, double t_limit, int N);
*:double (*func) (double, double) - подынтегральная ф-я
*:double t_fix- фиксированный первый аргумент
*:double t_limit - верхний предел интегрирования,
*:нижний равен -t_limit
*:int N- число точек разбиения
* .RETURN : Значение вычисленного интеграла
*****************************************************************************/
double m_Simpson (double (*func) (double, double),
double t_fix, double t_limit, int N)
{
double sum1 = 0; /* -¬*/
double sum2 = 0; /* ¦ временные переменные*/
double sum3 = 0; /* --*/
double sum;/* конечный результат*/
double h= (2 * t_limit) / N; /* шаг сетки */
int i;/* временная*/
sum1 = (*func) (t_fix, -t_limit) + (*func) (t_fix, +t_limit);
for (i = 1; i
- 1
Похожие работы
Интересная статья: Основы написания курсовой работы