PROGRAM newtonraphson
IMPLICIT NONE
REAL::X,BETA,X0,FUS
INTEGER::N,I
WRITE(*,*)"Kök için ilk tahmin değerini giriniz..."
read(*,*)X0
WRITE(*,*)"Hata üst sınırını giriniz..."
READ(*,*)BETA
WRITE(*,*)"Maksimum iterasyon sayısını giriniz..."
READ(*,*)N
DO I=1,N
FUS=FT(X0)
IF(FUS==0)THEN
WRITE(*,*)"Türev Süreksiz..."
STOP
ELSE
X=X0-F(X0)/FUS
WRITE(*,*)"X=",X
IF(ABS(X-X0).LE.BETA)THEN
WRITE(*,*)"Kök=",X
STOP
END IF
END IF
X0=X
END DO
WRITE(*,*)"Yöntem yakınsamıyor..."
STOP
CONTAINS
FUNCTION F(X)
REAL::F
REAL,INTENT(IN)::X
F=X**3-6*X**2+11*X-6
RETURN
END FUNCTION F
FUNCTION FT(X)
REAL::FT
REAL,INTENT(IN)::X
FT=3*X**2-12*X+11
RETURN
END FUNCTION FT
END PROGRAM newtonraphson