home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / MATH / DELPX02.ZIP / OLDEQU.INC < prev    next >
Encoding:
Text File  |  1991-06-17  |  615 b   |  17 lines
  1. function Fn(i:integer):mysingle;begin case Eq_Num of
  2.   1 : Fn :=
  3. A1*Exp(x1*i/dig_freq) + A2;
  4.   2 : Fn :=
  5. A1*Exp(x1*i/dig_freq) + A2*Exp(x2*i/dig_freq) + A3;
  6.   3 : Fn :=
  7. A1*Exp(x1*i/dig_freq) + A2*Exp(x2*i/dig_freq) + A3*Exp(x3*i/dig_freq) + A4;
  8.   4 : Fn :=
  9. A1*Exp(x1*i/dig_freq) + A2*Exp(x2*i/dig_freq) + A3*Exp(x3*i/dig_freq) + A4*Exp(x4*i/dig_freq) + A5;
  10.   5 : Fn :=
  11. A1*sin(x2 + x1*i/dig_freq) + A2;
  12.   6 : Fn :=
  13. A1*Exp(x1*i/dig_freq) + A2*sin(x3 + x2*i/dig_freq) + A3;
  14.   7 : Fn :=
  15. 80*(A1*Exp(x1*i/dig_freq)+A2*Exp(x2*i/dig_freq))/(1000+A3*(A1*Exp(x1*i/dig_freq)+A2*Exp(x2*i/dig_freq)));
  16. end;end;
  17.