|کد فرترن روش تکرار نیوتن|کد فرترن روش تکرار نیوتن رافسون|روش نیوتن رافسون|روش تکرار نیوتن در فرترن|کد روش تکرار نیوتن به فرترن|نیوتن|نیوتن رافسون|محاسبات عددی|
------------------------------------------------------------------------------------------------------------------------------
کد فرترن روش تکرار نیوتن رافسون...من این کد رو برای تابع فرضی F(x) = x - cos(x) نوشتم.اگه برای تابع دیگه ای میخواید بگید تا واسه تون بفرستم! کدی که نوشتم اول نرخ همگرایی رو میگیره و با توجه به اون شروع به محاسبه میکنه.در آخر جواب رو همراه با تعداد تکرارش نشون میده
---------------------------------------------------------------------------------------------------------------------------
PROGRAM nioton
1. IMPLICIT NONE
2. INTEGER::k,i
3. REAL::x,fpx,fx,c,e,y
4. !F(x)= x - cos(x)
5. PRINT*
6. PRINT*," F(X) = X - cos(X) X = ? "
7. PRINT*
8. PRINT*," Nerkhe hamgarayi ra vared konid : "
9. READ*,c
10. x=0
11. k=0
12. DO
13. k=k+1
14. y=x
15. fx=x - COS(x)
16. fpx=1 + SIN(x)
17. x=x-(fx/fpx)
18. e=(ABS(x-y))/ABS(x)
19. IF (e < c) EXIT
20. END DO
21. PRINT*," Javab dar tekrar",k," barabar ast ba : X =",x
22. PRINT*
23. END