;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This file is part of "NOVA":  NOVA = search + COCOMO tools
; Copyright, 2008, Tim Menzies tim@menzies.us
;
; NOVA is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; NOVA is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; a long with NOVA.  If not, see <http://www.gnu.org/licenses/>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun osp-case-study ()
  "Returns OSP case study."
  '((kloc 75 125)
    (prec 1 2)
    (flex 2 3 4 5)
    (resl 1 2 3)
    (team 2 3)
    (pmat 1 2 3 4)
    (stor 3 4 5)
    (ruse 2 3 4)
    (docu 2 3 4)
    (acap 2 3)
    (pcon 2 3)
    (aexp 2 3)
    (ltex 2 3 4)
    (tool 2 3)
    (sced 1 2 3)
    (cplx 5 6)
    (data 3)
    (pvol 2)
    (rely 5)
    (pcap 3)
    (plex 3)
    (site 3)))

(defun osp2-case-study ()
  "Returns OSP2 case study."
  '((kloc 75 125)
    (prec 3 4 5)
    (pmat 4 5)
    (docu 3 4)
    (ltex 2 3 4 5)
    (sced 2 3 4)
    (flex 3)
    (resl 4)
    (team 3)
    (time 3)
    (stor 3)
    (data 4)
    (pvol 3)
    (ruse 4)
    (rely 5)
    (acap 4)
    (pcap 3)
    (pcon 3)
    (aexp 4)
    (plex 4)
    (tool 5)
    (cplx 4)
    (site 6)))

(defun flight-case-study ()
  "Returns flight case study."
  '((kloc 7 418)
    (rely 3 4 5)
    (data 2 3)
    (cplx 3 4 5 6)
    (time 3 4)
    (stor 3 4)
    (acap 3 4 5)
    (aexp 2 3 4 5)
    (pcap 3 4 5)
    (plex 1 2 3 4)
    (ltex 1 2 3 4)
    (pmat 2 3)
    (tool 2)
    (sced 3)))

(defun ground-case-study ()
  "Returns ground case study."
  '((kloc 11 392)
    (rely 1 2 3 4)
    (data 2 3)
    (cplx 1 2 3 4)
    (time 3 4)
    (stor 3 4)
    (acap 3 4 5)
    (aexp 2 3 4 5)
    (pcap 3 4 5)
    (plex 1 2 3 4)
    (ltex 1 2 3 4)
    (pmat 2 3)
    (tool 2)
    (sced 3)))

(let ((tps '((prec 3 4)
             (flex 3 4)
             (data 3 4)
             (cplx 3 4)
             (ruse 2 4)
             (pvol 2 3)
             (acap 3 5)
             (pcap 3 4)
             (pcon 4 5)
             (ltex 2 4)
             (site 2 4)
             (sced 2 3)
             (resl 4)
             (team 5)
             (pmat 3)
             (rely 3)
             (docu 3)
             (time 3)
             (stor 3)
             (aexp 4)
             (plex 4)
             (tool 4))))
  (defun tps10-case-study () (append '((kloc 7 13)) tps))
  (defun tps100-case-study () (append '((kloc 70 130)) tps))
  (defun tps1000-case-study () (append '((kloc 700 1300)) tps)))