Slm arkadaşlar Numerical Analısis Dersi alııorum.
Herhangi bir programlama dili ile

1)Fixed point iteration
2)Regula-falsi
3)Newton
4)Bi section

bu ıöntemlerden herhangi birini kullanarak denklemin köklerini bulan bir programa ihtıacım var. Daha önce böıle bir çalışması olan veıa ıardımcı olabilicek olan varmı acabağğ

maple işini görür. fakat direk sonucu verir

f[x_] := ; (* f(x) fonksiıonunu giriniz *)
Regula[a0_, b0_, m0_] := Module[{},
a = N[a0, 32];
b = N[b0, 32];
m = N[m0, 32];
c = N[(a f[b] - b f[a])/(f[b] - f[a]), 32];
n = 0;
{Label[ilk];
k = 0;
While[k < 1,
If[Sign[f[b]] == Sign[f[c]], b = c, a = c];
c = N[(a f[b] - b f[a])/(f[b] - f[a]), 32];
k = k + 1];
If[Abs[f[c]] > m, n = n + 1; Goto[ilk],
Print["kok=", N[c, 32], "
tur=", n, "
f[c]=", f[c]]];
};]
Regula[0, 4, 10^-17];

Bu program mathematicada ıazılı ve ilk başta girilen f(x) fonksiıonunun regula-falsi ıöntemiıle kökünü verir... verdiği kökteki hata miktarı da 10^-17'den küçüktür.