Форум программистов, компьютерный форум, киберфорум
Наши страницы

Fortran

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 18, средняя оценка - 4.83
a_b
0 / 0 / 0
Регистрация: 01.05.2011
Сообщений: 2
#1

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

04.05.2011, 17:43. Просмотров 2542. Ответов 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):

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

Численное интегрирование повторного интеграла - Fortran
Добрый вечер. Требуется вычислить следующий интеграл: \int_{0}^{2\pi }d\theta \left( \int_{-\infty }^{\infty}dx\cdot...

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

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

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

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

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
Привет! Вот еще темы с ответами:

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

Найти численное решение следующих задач - Fortran
найти численное решение следующих задач: 1) найти наибольший общий делитель трех чисел n1=2353 n2=2886 n3=5915 числовую...

Численное решение уравнения второго порядка - Fortran
Здравствуйте, уважаемые форумчане! Решил обратиться к вам за помощью, так как сам уже голову поломал. Есть уравнение второго порядка...

Простое интегрирование, ошибки при вводе - Fortran
Моя программа вроде как *верна* но при вводе выскакивают ошибки и значение функции не считается. Как её исправить? dimension...


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

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

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