Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
real a,b,e,xl,xp,xc,fxc,fxl,x
a=0
b=2
e=0.0001
xl=a
xp=b
11 continue
xc=(xl+xp)/2
fxc=1/(xc*sqrt(xc+0.3)+exp(-xc)+1/7.)-xc
fxl=1/(xl*sqrt(xl+0.3)+exp(-xl)+1/7.)-xl
if (fxl*fxc.gt.0) then
xl=xc
else
xp=xc
end if
if (.not.abs(xl-xp).le.e) go to 11
x=xc
fxc=1/(x*sqrt(x+0.3)+exp(-x)+1/7.)-x
write(*,*)'x = ',x,'F = ',fxc
read(*,*)
end
a=0
b=2
e=0.0001
xl=a
xp=b
11 continue
xc=(xl+xp)/2
fxc=1/(xc*sqrt(xc+0.3)+exp(-xc)+1/7.)-xc
fxl=1/(xl*sqrt(xl+0.3)+exp(-xl)+1/7.)-xl
if (fxl*fxc.gt.0) then
xl=xc
else
xp=xc
end if
if (.not.abs(xl-xp).le.e) go to 11
x=xc
fxc=1/(x*sqrt(x+0.3)+exp(-x)+1/7.)-x
write(*,*)'x = ',x,'F = ',fxc
read(*,*)
end
Соседние файлы в папке 17var