Metode Secant
Yang mao tau Coding program mencari akar dengan metode secant berikut ada sidikit contoh yang sangat sederhana, silahkan di coba semoga bermanfaat. . .
CLS
'METODE SECANT
DEF FNF(X)=EXP(X) - 4*X
PRINT "MASUKKAN X0 = ";: INPUT XO
PRINT "MASUKKAN X1 = ";: INPUT X1
E=.001
ULANG:
X2 = X1-(FNF(X1)*((X1-X0)/FNF(X1)-FNF(X0))))
IF ABS((X2-X1)/X2) < E GOTO CETAK
X0 = X1
X1 = X2
PRINT X2 GOTO ULANG
CETAK: PRINT "AKAR YANG DICARI ADALAH";X2
END
CLS
'METODE SECANT
DEF FNF(X)=EXP(X) - 4*X
PRINT "MASUKKAN X0 = ";: INPUT XO
PRINT "MASUKKAN X1 = ";: INPUT X1
E=.001
ULANG:
X2 = X1-(FNF(X1)*((X1-X0)/FNF(X1)-FNF(X0))))
IF ABS((X2-X1)/X2) < E GOTO CETAK
X0 = X1
X1 = X2
PRINT X2 GOTO ULANG
CETAK: PRINT "AKAR YANG DICARI ADALAH";X2
END
2 Comments
thank infonya fren.:D
ReplyDeletebisa minta contoh dalam excel ga?
ReplyDelete