home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / CURVEF.ZIP / CFIT3.EKA < prev    next >
Encoding:
Text File  |  1987-09-02  |  541 b   |  31 lines
  1.  
  2. ; CFIT3.EKA
  3. ;
  4. ; version 1.0
  5. ; August 10, 1987
  6. ; Copyright (c) 1987 Namir Clement Shammas
  7. ;
  8. ; Non-linear least-square fitting of a modified crescent shaped model
  9. ;
  10. ; general model is:  f(t) = a0 - a1 * exp(-k * t)
  11. ;
  12. ; where a0, a1 and k are constants, & a0 is approximately equal to a1
  13.  
  14. $ substlevel = 0
  15.  
  16. ; state selected model here
  17. f(t) = a0 - a1 * exp(-k * t)
  18.  
  19. f(1) = 0.86
  20. f(2) = 1.65
  21. f(3) = 2.39
  22. f(4) = 3.00
  23. f(5) = 3.58
  24. f(6) = 4.11
  25. f(7) = 4.58
  26. f(8) = 5.01
  27. f(9) = 5.40
  28.  
  29. ; Solution is a0 = a1 = 9.1, k1 = 0.1
  30.  
  31.