Data/puromycin.lsp

   1
   2 ;;; From LispStat 1 : need to document source appropriately.
   3
   4 (in-package :lisp-stat-data-examples)
   5
   6 ;;; FIXME: Shutup compiler warnings, need to clean up and
   7 ;;; appropriately initialize.
   8
   9
  10 ;;(require "nonlin")
  11
  12 (def x1 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1 1.1))
  13
  14 (def x2 (list 0.02 0.02 0.06 0.06 .11 .11 .22 .22 .56 .56 1.1))
  15
  16 (def y1 (list 76 47 97 107 123 139 159 152 191 201 207 200))
  17
  18 (def y2 (list 67 51 84 86 98 115 131 124 144 158 160))
  19
  20 (defun f1 (theta)
  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)))
  26
  27 (defun f2 (theta)
  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)))
  33