home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol195 / fluf11 / t.lbr / SP_F.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-02-10  |  1.6 KB  |  36 lines
  1.      { Copyright (C) 1984 D.M. Fritz-Rohner               }
  2.  
  3. procedure SVInit ;
  4.      {                                                     }
  5.      { Name: SVInit - State Vector Initialization          }
  6.      {                                                     }
  7.      { Version: 1.1/TURBO (tm)      Date: 1984 July 11     }
  8.      {                                                     }
  9.      { Purpose: Compute cofactor list for coefficients     }
  10.      {      in simple odd polynomial form;                 }
  11.      {                                                     }
  12.      {    y = x * (a[1] + x2 * (a[2] + x2 * a[m]))..)      }
  13.      {                                                     }
  14.      { where:                                              }
  15.      {                                                     }
  16.      {    x2 = x * x                                       }
  17.      {                                                     }
  18.      { Author: D.M. Fritz-Rohner                           }
  19.      {         Post Office Box 9080                        }
  20.      {         Akron, Ohio  44305                          }
  21.      {                                                     }
  22.      { ys           dependent variable                     }
  23.      { xs           independent variable                   }
  24.      {                                                     }
  25. var
  26.      e2             : real ;
  27. begin
  28.    for i := 1 to N do begin
  29.       e := xs[i] ;
  30.       e2 := e*e ;
  31.       for j := 1 to M do begin
  32.          x[i,j] := e ;
  33.          e := e*e2
  34.       end
  35.    end
  36. end ;