Курс лекций по дисциплине Программирование на языке Фортран

• Название: Курс лекций по дисциплине Программирование на языке Фортран
• Дата: 02.09.2019
• Размер: 0.98 Mb.
• Имя файла: Fortran01.doc
• Тип: Курс лекций; #85698
• страница: 11 из 15

Bet=0

Do while(.true.)
Dp= bet

Yp*yp/(f(p0+ bet*y0)-y0)! 2-ое слагаемое

P1=p0-dp ! последующее приближение

Y1=f(p1)! Последующее значение функции

Relerr=abs(dp)/(abd(p1)+1E-6)

If((relerr.lt.eps).and.(abs(y1).lt.eps) exit

P0=p1; y0=y1

End do

Write(*,*) ‘ Корень x=’,p1
Многоточечная ИФ с памятью. Порядок