تاريخ : یکشنبه ۶ تیر ۱۳۹۵
روش تکرار نیوتن رافسون(کد فرترن)
عضویت در کانال و سوپر گروه مهندسین راه و ساختمان
نقل قول :
کد فرترن روش تکرار نیوتن رافسون... این کد را برای تابع فرضی F(x) = x - cos(x) نوشته شده است.در این کد اول نرخ همگرایی را میگیرد و با توجه به ان شروع به محاسبه میکند.در آخر جواب را همراه با تعداد تکرارش نشان می دهد.…program nioton
implicit none
INTEGER::k,i
REAL::x,fpx,fx,c,e,y
!F(x)= x - cos(x)
PRINT*
PRINT*," F(X) = X - cos(X) X = ? "
PRINT*
PRINT*," Nerkhe hamgarayi ra vared konid : "
READ*,c
x=0
k=0
do
k=k+1
y=x
fx=x - COS(x)
fpx=1 + SIN(x)
x=x-(fx/fpx)
e=(ABS(x-y))/ABS(x)
if (e < c) exit
end do
PRINT*," Javab dar tekrar",k," barabar ast ba : X =",x
PRINT*
end
implicit none
INTEGER::k,i
REAL::x,fpx,fx,c,e,y
!F(x)= x - cos(x)
PRINT*
PRINT*," F(X) = X - cos(X) X = ? "
PRINT*
PRINT*," Nerkhe hamgarayi ra vared konid : "
READ*,c
x=0
k=0
do
k=k+1
y=x
fx=x - COS(x)
fpx=1 + SIN(x)
x=x-(fx/fpx)
e=(ABS(x-y))/ABS(x)
if (e < c) exit
end do
PRINT*," Javab dar tekrar",k," barabar ast ba : X =",x
PRINT*
end
برچسبها: روش تکرار, نیوتن رافسون, کد فرترن
ارسال توسط حسن فراهانی
آخرین مطالب
