This repository has been archived on 2024-12-25. You can view files and clone it, but cannot push or open issues or pull requests.
OldPascalProjects/NumLibABC/RootsIsolation1.pas
2024-03-10 20:32:51 +03:00

11 lines
245 B
ObjectPascal

uses NumLibABC;
// Èçîëÿöèÿ êîðíåé óðàâíåíèÿ y(x)=0 íà çàäàííîì èíòåðâàëå
// òàáëè÷íûì ìåòîäîì
begin
var f:real->real:=t->sin(t)/(1+Sqr(Exp(t)))-0.1;
var (a,b,h):=(-10,5,0.5);
var oL:=new RootsIsolation(f,a,b,h);
Println(oL.Value)
end.