home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / CURVEF.ZIP / CFIT4.EKA < prev    next >
Encoding:
Text File  |  1987-09-02  |  549 b   |  36 lines
  1.  
  2. ; CFIT4.EKA
  3. ;
  4. ; version 1.0
  5. ; August 10, 1987
  6. ; Copyright (c) 1987 Namir Clement Shammas
  7. ;
  8. ; Non-linear least-square fitting
  9. ;
  10. ; general model is:
  11. ;
  12. ;  B(t) = A0 * k1 /(k2 - k1) * (exp(-k1 * t) - exp(-k2 * t))
  13. ;
  14.  
  15. $ substlevel = 0
  16.  
  17. ; state selected model here
  18. B(t) = A0 * k1 /(k2 - k1) * (exp(-k1 * t) - exp(-k2 * t))
  19.  
  20. B(1) = 59.66
  21. B(2) = 75.93
  22. B(3) = 76.78
  23. B(4) = 72.44
  24. B(5) = 66.64
  25. B(6) = 60.70
  26. B(7) = 55.07
  27. B(8) = 49.89
  28. B(9) = 45.16
  29.  
  30. ; initial guess for A0
  31. A0 := 110
  32.  
  33. ; Solution is A0 = 100, k1 = 1, k2 = 0.1
  34.  
  35.  
  36.