| Hermite Function | 
Unit
QESBPCSMath
Declaration
Function Hermite(const X: Extended; const N: LongWord): Extended;
| Parameters | 
| X | Value to process. | 
| N | Order of Hermite. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function Hermite (const X: Extended; const N: LongWord): Extended;
var
     I: LongWord;
     HNplus1, HN, HNminus1: Extended;
begin
     if N = 0 then // H0(x)=1
          Result := 1
     else if N = 1 then //H1(x)=2x
          Result := 2 * X
     else
     begin
          I := 1;
          HN := 2 * X;
          HNminus1 := 1;
          repeat
               Inc (I);
               HNplus1 := 2 * X * HN - 2 * (I - 1) * HNminus1;
               if I <> N then
               begin
                    HNminus1 := HN;
                    HN := HNplus1;
               end;
          until I = N;
          Result := HNPlus1;
     end;
End; | 
|  |