put lisp-matrix into the load-system. Breaks things for others, who will have to...
[CommonLispStat.git] / Data / puromycin.lsp
blob5fd6b448fc2eab427e464e5f3f594526a72b3370
1 (require "nonlin")
3 (def x1 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1 1.1))
5 (def x2 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1))
7 (def y1 (list 76 47 97 107 123 139 159 152 191 201 207 200))
9 (def y2 (list 67 51 84 86 98 115 131 124 144 158 160))
11 (defun f1 (theta)
12 "The Michaelis-Menten function for the velocity of an enzymatic reaction
13 as a function of the substrate concentration. THETA is a parameter
14 vector of length 2 consisting of the asymptotic velocity and the
15 concentration at which half the asymptotic velocity is attained."
16 (/ (* (select theta 0) x1) (+ (select theta 1) x1)))
18 (defun f2 (theta)
19 "The Michaelis-Menten function for the velocity of an enzymatic reaction
20 as a function of the substrate concentration. THETA is a parameter
21 vector of length 2 consisting of the asymptotic velocity and the
22 concentration at which half the asymptotic velocity is attained."
23 (/ (* (select theta 0) x2) (+ (select theta 1) x2)))