home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d385 / xlispstat.lha / XLispStat / lisp.lzh / XLisp-Stat / Book / altlinkstack.lsp < prev    next >
Encoding:
Text File  |  1990-10-11  |  833 b   |  23 lines
  1. ; book p.340
  2.  
  3. (require "data/stackloss")
  4. (require "functions/altlink")
  5.  
  6. (defproto stack-obs '(air temp conc loss) () observation-proto)
  7. (defmeth stack-obs :air () (slot-value 'air))
  8. (defmeth stack-obs :temp () (slot-value 'temp))
  9. (defmeth stack-obs :conc () (slot-value 'conc))
  10. (defmeth stack-obs :loss () (slot-value 'loss))
  11. (defmeth stack-obs :log-loss () (log (send self :loss)))
  12. (flet ((make-obs (air temp conc loss index)
  13.         (let ((label (format nil "~d" index)))
  14.           (send stack-obs :new
  15.                 :air air
  16.                 :temp temp
  17.                 :conc conc
  18.                 :loss loss
  19.                 :label label))))
  20.   (setf stack-list (mapcar #'make-obs air temp conc loss (iseq 0 20))))
  21. (plot-observations stack-list '(:air :log-loss))
  22. (plot-observations (select stack-list (iseq 11 20)) '(:temp :conc))
  23.