С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Fortran
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/14: Рейтинг темы: голосов - 14, средняя оценка - 4.79
a_b
0 / 0 / 0
Регистрация: 01.05.2011
Сообщений: 2
1

Численное интегрирование (формула Симпсона)

04.05.2011, 17:43. Просмотров 2619. Ответов 2
Метки нет (Все метки)

Здравствуйте!
Помогите, пожалуйста, с задачей:

Вычислить интеграл от 0 до 3 функции sin(x)*exp(x) с помощью формулы Симпсона.

Я, честно, пыталась решать, но не с большим успехом...
Вот, что у меня получается:
Fortran
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
program raz2
 
   Implicit None
   integer i
   real S_simps
   real, dimension (21) :: X  
 
X(1)=0.0
do i=2,21
X(i)=X(i-1)+3/20
enddo
 
S_Simps=0.0
 
do i=1,10
S_Simps=S_Simps+3/60*(f(X(2*i-1))+4*f(X(2*i))+f(X(2*i+1)))
enddo
 
write (*,*) S_Simps
 
contains 
    real function f(x)
    real x
    
            f=sin(x)*exp(x)
            
    end function f
    
end
Я почти впервые в жизни этим занимаюсь, видимо, куда-то не туда меня занесло - в ответе выдает 0.0000000 и еще, после сборки и компиляции, выдает "сборка прошла успешно", но при этом ругается почти на каждую строчку страшными словами "Warning: Nonconforming tab character"...

Вопросы, наверное, детские, а ошибки глупые, но очень прошу помочь!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.05.2011, 17:43
Ответы с готовыми решениями:

Численное интегрирование [Fortran-77]
Здравствуйте всем. Дело в том, что нужно изучить тему численного интегрирования...

Численное интегрирование повторного интеграла
Добрый вечер. Требуется вычислить следующий интеграл: \int_{0}^{2\pi...

Метод Симпсона
Почему итераций 0? проверьте пожалуйста g=0.0001 k=0 n=10 s1=s(n)...

Метод Симпсона.
Требуется на фортране написать программу решения численного интегрирования...

Реализация метода Симпсона
Народ, помогите с задачей :) Нужно написать на фортране прогу, реализующую...

2
Fort_uno
1 / 1 / 0
Регистрация: 06.05.2011
Сообщений: 6
06.05.2011, 15:05 2
алгоритм не проверял, а ошибка в типах
......................
10 X(i)=X(i-1)+3.0/20.0
......................
16 S_Simps=S_Simps+3.0/60.0*(f(X(2*i-1))+4*f(X(2*i))+f(X(2*i+1)))
0
a_b
0 / 0 / 0
Регистрация: 01.05.2011
Сообщений: 2
08.05.2011, 12:30 3
Спасибо большое! Вроде, получилось.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.05.2011, 12:30

Интегрирование методом Гаусса
Помогите разобраться в интегрировании: real*8 :: Summ,R1,R2 ...

Вычисление значения интеграла методом Симпсона
не совсем понимаю,как написать основную программу и связать заданную функцию с...

Найти численное решение следующих задач
найти численное решение следующих задач: 1) найти наибольший общий делитель...


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

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

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