"ŘEŠENÍ NELINEÁRNÍCH ROVNIC
• Podmínky řešení
o Mám interval, na kterém je funkce spojitá
o Na intervalu má funkce právě jedno řešení
BISEKCE - PŮLENÍ INTERVALU
Function Bisekce (A,B,E:Real):real;
var FS,FA,S:Real;
begin
S:=(A+B)/2;
FS:=F(S);
while abs(FS) >E do
begin
FA:=F(A);
if (FS*FA) > 0 then A:=S
else B:=S;
S:=(A+B)/2;
FS:=F(S);
end;
Bisekce:=S;
end;

REGULA FALSI - METODA TĚTIV

Function RF(A,B,E:Real):Real;
var FA,FP,FB,P:Real;
begin
repeat
FA:=F(a);
FB:=F(b);
P:=((FA*B)-(FB*A))/(FA-FB);
FP:=F(p);
if (FA*FP)>0
then A:=P
else B:=P;
until abs(FP)"

Součástí práce jsou grafy a obrázky.

PRÁCE BYLA UVOLNĚNA BEZ NÁROKU NA HONORÁŘ