2 ;;; From LispStat 1 : need to document source appropriately.
4 (in-package :lisp-stat-data-examples
)
6 ;;; FIXME: Shutup compiler warnings, need to clean up and
7 ;;; appropriately initialize.
12 (def x1
(list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1 1.1))
14 (def x2
(list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1))
16 (def y1
(list 76 47 97 107 123 139 159 152 191 201 207 200))
18 (def y2
(list 67 51 84 86 98 115 131 124 144 158 160))
21 "The Michaelis-Menten function for the velocity of an enzymatic reaction
22 as a function of the substrate concentration. THETA is a parameter
23 vector of length 2 consisting of the asymptotic velocity and the
24 concentration at which half the asymptotic velocity is attained."
25 (/ (* (select theta
0) x1
) (+ (select theta
1) x1
)))
28 "The Michaelis-Menten function for the velocity of an enzymatic reaction
29 as a function of the substrate concentration. THETA is a parameter
30 vector of length 2 consisting of the asymptotic velocity and the
31 concentration at which half the asymptotic velocity is attained."
32 (/ (* (select theta
0) x2
) (+ (select theta
1) x2
)))