Метод простых итераций
Вложений: 3
Люди добрые, помогите. Надо вот нелинейное уравнение Вложение 58243 решить методом ПИ в Фортране. Помогите с расположением кодов.
Эту функцию Вложение 58244 решил Методом половинного деления, верно?: 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 Вложение 58245 |
Часовой пояс GMT +4, время: 06:19. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.