home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
nvdc87
/
curvef
/
cfit4.eka
< prev
next >
Wrap
Text File
|
1987-09-02
|
549b
|
36 lines
; CFIT4.EKA
;
; version 1.0
; August 10, 1987
; Copyright (c) 1987 Namir Clement Shammas
;
; Non-linear least-square fitting
;
; general model is:
;
; B(t) = A0 * k1 /(k2 - k1) * (exp(-k1 * t) - exp(-k2 * t))
;
$ substlevel = 0
; state selected model here
B(t) = A0 * k1 /(k2 - k1) * (exp(-k1 * t) - exp(-k2 * t))
B(1) = 59.66
B(2) = 75.93
B(3) = 76.78
B(4) = 72.44
B(5) = 66.64
B(6) = 60.70
B(7) = 55.07
B(8) = 49.89
B(9) = 45.16
; initial guess for A0
A0 := 110
; Solution is A0 = 100, k1 = 1, k2 = 0.1