library IMM_ExamplaryLibrary;
uses System.SysUtils, System.Classes, IntervalArithmetic32and64;
{$R *.res}

// The library includes all functions needed for any interval multistep method
// determined in IntervalMultistepMethods program.
// The functions defined in this library concerns the initial value problem
// of the form
//                  y' = 0.5*y,    y(0) = 1.
// Note: Do not use this unit for any Delphi's compiler older than XE!

function FTY (const T, Y : interval) : interval;
begin
  Result:=Y/2
end {FTY};

function Psi1Explicit (const T, Y : interval) : interval;
begin
  Result:=Y/4
end {Psi1Explicit};

function Psi2Explicit (const T, Y : interval) : interval;
begin
  Result:=Y/8
end {Psi2Explicit};

function Psi3Explicit (const T, Y : interval) : interval;
begin
  Result:=Y/16
end {Psi3Explicit};

function Psi4Explicit (const T, Y : interval) : interval;
begin
  Result:=Y/32
end {Psi4Explicit};

function Psi1Implicit (const T, Y : interval) : interval;
begin
  Result:=Psi2Explicit(T,Y)
end {Psi1Implicit};

function Psi2Implicit (const T, Y : interval) : interval;
begin
  Result:=Psi3Explicit(T,Y)
end {Psi2Implicit};

function Psi3Implicit (const T, Y : interval) : interval;
begin
  Result:=Psi4Explicit(T,Y)
end {Psi3Implicit};

exports FTY,
        Psi1Explicit, Psi2Explicit, Psi3Explicit, Psi4Explicit,
        Psi1Implicit, Psi2Implicit, Psi3Implicit;

begin
end.