Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
evan_shark
0 / 0 / 0
Регистрация: 09.04.2016
Сообщений: 8
#1

Вычислите значение определенного интеграла - Turbo Pascal

29.05.2016, 14:44. Просмотров 371. Ответов 4

Для заданных границ интегрирования a и b вычислите значение определенного интеграла следующего вида (с помощью рекурсивной подпрограммы):
http://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\int \frac{dx}{(a^2+x^2)^n}=\begin{cases}\frac{1}{2(n-1)a^2} [\frac{x}{{(a^2+x^2)}^{n-1}}+(2n-3)\int \frac{dx}{{(a^2+x^2)}^{n-1}}] & \text{, }n>1 \\\frac{1}{a}arctg\frac{x}{a}&\text{, }n=1 \end{cases}<br />
http://www.cyberforum.ru/turbo-pascal/thread1439692.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2016, 14:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычислите значение определенного интеграла (Turbo Pascal):

Для заданных границ интегрирования a и b вычислите значение определенного интеграла следущего вида
Помогите пожалуйста решить задачу Для заданных границ интегрирования a и b...

Вычислить значение определенного интеграла
1. Вычислить значение определенного интеграла с точностью 0,005. Для...

Вычислить значение определенного интеграла
Задание: 1.Вычислить значение определенного интеграла (в прикрепленных файлах...

Вычислить значение определенного интеграла
Вычислить значение определенного интеграла sin(x)dx в пределе от 0 до Pi . С...

Вычислить значение определенного интеграла методом прямоугольников
Нужно Вычислить значение определенного интеграла: - методом прямоугольников....

4
ФедосеевПавел
Модератор
3414 / 1911 / 815
Регистрация: 01.02.2015
Сообщений: 6,451
29.05.2016, 18:29 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Переделайте под свою формулу http://www.cyberforum.ru/turbo-pascal/thread1465539.html

Добавлено через 3 часа 32 минуты
Не сразу сообразил, как можно вычислять степень выражения, когда с увеличением глубины рекурсии степень уменьшается и vice versa
Pascal
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
program Integral;
 
  function F(x: real; n: integer; a: real): real;
  var
    a2x2, Power: real;
 
    function recurse(N: integer): real;
    begin
      if N <= 0 then
      begin
        recurse := 0;
        exit;
      end;
      if N = 1 then
      begin
        recurse := arctan(x / a) / a;
        Power := x / a2x2;
      end
      else
      begin
        recurse := (Power + (2 * n - 3) * recurse(N - 1)) / 2.0 /
          (n - 1) / sqr(a);
        Power := Power / a2x2;
      end;
    end;
 
  begin
    a2x2 := sqr(a) + sqr(x);
    F := recurse(n);
  end;
 
var
  a, b: real;
  n: integer;
  Alpha: real;
begin
  a := -5;
  b := 5;
  n := 3;
  Alpha := 0.4;
  writeln('Integral = ', F(b, n, Alpha) - F(a, n, Alpha));
end.
0
evan_shark
0 / 0 / 0
Регистрация: 09.04.2016
Сообщений: 8
31.05.2016, 22:04  [ТС] #3
запуталась немного, для чего нужна альфа?
0
ФедосеевПавел
Модератор
3414 / 1911 / 815
Регистрация: 01.02.2015
Сообщений: 6,451
31.05.2016, 22:40 #4
Я стесняюсь спросить, а вы условие задачи видели? В знаменателе рядом с x?

Добавлено через 27 минут
Разобрались?
0
evan_shark
0 / 0 / 0
Регистрация: 09.04.2016
Сообщений: 8
31.05.2016, 22:41  [ТС] #5
да да, дошло теперь, спасибо
0
31.05.2016, 22:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2016, 22:41
Привет! Вот еще темы с решениями:

Bычислить значение определенного интеграла методом прямоугольника
Bычислить значение определенного интеграла методом прямоугольника с точностью...

Подсчитать с заданной точностью значение определенного интеграла
Задание № 3 по вычислительной практике Тема: «Приближенное вычисление...

Подсчитать с точностью эпсилон значение определенного интеграла по формуле
Составить программу, подсчитывающую с точностью (Эпсилон) значение...

Вычисление определенного интеграла
Ребят, надо вот этот пример сделать в паскале (методом прямоугольников и...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru