|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2011, 16:11 | #1 |
Пользователь
Регистрация: 10.11.2011
Сообщений: 16
|
Метод простых итераций
Люди добрые, помогите. Надо вот нелинейное уравнение Буфер обмена01.jpg решить методом ПИ в Фортране. Помогите с расположением кодов.
Эту функцию 1111111.jpg решил Методом половинного деления, верно?: subroutine MPD(F,A,B,EPS,C,N,IER) IF((F(A)*F(B)>0).OR.(A>B)) then IER=1 return end if A1=A;B1=B;N=0;IER=0 do Y=F(A1) C=(A1+B1)/2 N=N+1 IF(B1-A1<EPS) exit IF(Y*F(C)<0) then B1=C else A1=C end if end do end program RGZ external F A=0;B=1 EPS=0.1 call MPD(F,A,B,EPS,C,N,IER) print*,'x=',C,'IER=',IER print*,'N=',N end function F(x) f=3*x-cos(x)-1 end Буфер обмена02.jpg |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
метод простых итераций, с++ | kaljan775 | Помощь студентам | 0 | 08.03.2011 16:55 |
Метод простых итераций | nikozavr | Общие вопросы C/C++ | 5 | 13.02.2011 14:36 |
Метод простых итераций | bloodargus | Общие вопросы C/C++ | 0 | 24.11.2010 19:20 |
Метод простых итераций | bloodargus | Общие вопросы C/C++ | 1 | 20.11.2010 12:48 |
метод простых итераций | dimitriy91 | Общие вопросы C/C++ | 0 | 25.10.2010 15:49 |