Dersizle Forumlarý

PROGRAM sabitnokta
IMPLICIT NONE
REAL::X,BETA,X0
INTEGER::N,I
WRITE(*,*)"KÖK ÝÇÝN ÝLK TAHMÝN DEÐERÝNÝ GÝRÝN"
READ(*,*)X0
WRITE(*,*)"HATA ÜST SINIRINI GÝR"
READ(*,*)BETA
WRITE(*,*)"MAKSÝMUM ÝTERASYON SAYISINI GÝR"
READ(*,*)N
DO I=1,N
X=G(X0)
X0=X
WRITE(*,*)X
IF(ABS(X-X0).LE.BETA)THEN
WRITE(*,*)"KÖK=",X
STOP
END IF
X0=X
END DO
WRITE(*,*)"KÖK YAKINSAMIYOR"
STOP
CONTAINS
FUNCTION G(X)
REAL::G
REAL,INTENT(IN)::X
G=(X**2+2)/3
RETURN
END FUNCTION G
END PROGRAM sabitnokta

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