Data/puromycin.lsp

   1 (require "nonlin")
   2
   3 (def x1 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1 1.1))
   4
   5 (def x2 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1))
   6
   7 (def y1 (list 76 47 97 107 123 139 159 152 191 201 207 200))
   8
   9 (def y2 (list 67 51 84 86 98 115 131 124 144 158 160))
  10
  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)))
  17
  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)))
  24