NEWTON RAPHSON YÖNTEMİ İLE DENKLEM ÇÖZÜMÜ
Programlama Dili: MICROSOFT QUICK BASIC EXTENDED
REM --------------------------------------------
REM NEWTON - RAPHSON YÖNTEMİ İLE DENKLEM ÇÖZÜMÜ
REM --------------------------------------------
REM            HAZIRLAYAN:
REM---------------------------------------------
10
CLS
SCREEN 12
GIRIS:
PRINT
PRINT "LÜTFEN X0 VE EPSİLON DEĞERLERİNİ ARALARINA VİRGÜL ", " "
PRINT "KOYARAK YAZINIZ"
PRINT
PRINT "NOT: ONDALIK SAYILAR İÇİN  0, YERİNE . İLE BAŞLAYINIZ"
PRINT "(™RNEK:0,25 YER˜NE .25)"
PRINT
INPUT "---> "; X0, EPS
TEKRAR:
FX = 3 * X0 - EXP(-X0)
T = 3 + EXP(-X0)
I = I + 1
X = X0 - FX / T
IF ABS(X - X0) > EPS THEN X0 = X: GOTO TEKRAR:
PRINT "KÖK="; X
PRINT I; " DEFA UYGULANAN İTERASYONLA HESAPLANDI"
PRINT
PRINT "------------------------------------------------------------------"
PRINT "             YENİ HESAPLAMA İSTİYOR MUSUNUZ?(E/H)"
PRINT "------------------------------------------------------------------"
INPUT "", A$
IF A$ = "E" THEN 10
IF A$ = "e" THEN 10
END