; Bruce's first CSRL testcase

(in-package 'toolset)

(define-idb cdmusic stub-idb
     (author= "bap"))

(define-classifier music-hier
     (author= "bap"))
;
;
;music specialist - top node
;
;
(define-classification-specialist Music
     (display-name= " Specialist")
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (establish-reject= (judge listen))
     (establish-threshold= yes)
     (refine-form= or)
     (sub-specialists= Thrash Relax Comic)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent listen discrete-pattern-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Music Summary")
     (pattern= yes yes)
     (output-confidence-vocabulary= usual-3-val)
     (features= (ask-user "Do you want to listen to music?")
                (ask-user "Do you have a CD player?"))
     (match-confidence= yes)
     (no-match-confidence= no))
;
;
;music sub thrash
;
;
(define-classification-specialist Thrash
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (judge trash))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Music)
     (sub-specialists= Going-out Party Bad-News)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent trash match-1-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Thrash Summary")
     (features= (ask-user "Do you want something loud?")
                (ask-user "Do you want to get 'pumped up' for something?")
                (ask-user "Do you want something to 'pickup the pace'?"))
     (patterns= (( yes ?   ?  ) => yes)
                (( ?   yes ?  ) => yes)
                (( ?   ?   yes) => yes))
     (no-match-confidence= no)
     (output-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub going-out
;
;
(define-classification-specialist Going-out
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (ask-user "Will you be going out?"))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Thrash)
     (sub-specialists= Bars Dancing))
;
;
;music sub thrash sub going-out sub bars
;
;
(define-classification-specialist Bars
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (ask-user "Going out bar hoping?"))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Going-out)
     (sub-specialists= Eagles Heart)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub going-out sub bars sub eagles
;
;
(define-classification-specialist Eagles
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about some Eagles?"))
     (establish-threshold= yes)
     (super-specialists= Bars)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub going-out sub bars sub heart
;
;
(define-classification-specialist Heart
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about Heart?"))
     (establish-threshold= yes)
     (super-specialists= Bars)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub going-out sub dancing
;
;
(define-classification-specialist Dancing
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (ask-user "Are you going dancing?"))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Going-out)
     (sub-specialists= B-52s Paula)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub going-out sub dancing sub b-52s
;music sub thrash sub party sub b-52s
;
;
(define-classification-specialist B-52s
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about the B-52's Cosmic Thing?"))
     (establish-threshold= yes)
     (parent-join= or)
     (super-specialists= Dancing Party)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub going-out sub dancing sub paula
;
;
(define-classification-specialist Paula
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about Paula Abdul's Forever Your Girl?"))
     (establish-threshold= yes)
     (super-specialists= Dancing)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub party
;
;
(define-classification-specialist Party
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (judge rage))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Thrash)
     (sub-specialists= Boston B-52s)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent rage match-1-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Party Summary")
     (features= (ask-user "Throwing a party?")
                (ask-user "Going to a party?")
                (ask-user "Are you celebrating something?"))
     (patterns= (( yes ?   ?  ) => yes)
                (( ?   yes ?  ) => yes)
                (( ?   ?   yes) => yes))
     (no-match-confidence= no)
     (output-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub party sub boston
;
;
(define-classification-specialist Boston
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about some Boston?"))
     (establish-threshold= yes)
     (super-specialists= Party)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub relax
;
;
(define-classification-specialist Relax
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (ask-user "Do you want to relax?"))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Music)
     (sub-specialists= Trip Calm)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub relax sub trip
;
;
(define-classification-specialist Trip
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (judge wander))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Relax)
     (sub-specialists= Vangelis Floyd)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent wander match-1-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Trip Summary")
     (output-confidence-vocabulary= usual-3-val)
     (features= (ask-user "Want to let your mind wander?")
                (ask-user "Want to go on a little trip?"))
     (patterns= (( yes ?  ) => yes)
                (( ?   yes) => yes))
     (no-match-confidence= no))
;
;
;music sub relax sub trip sub vangelis
;music sub relax sub calm sub vangelis
;
;
(define-classification-specialist Vangelis
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about Vangelis Direct"))
     (establish-threshold= yes)
     (parent-join= or)
     (super-specialists= Calm Trip)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub relax sub trip sub floyd
;
;
(define-classification-specialist Floyd
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about Pink Floyd The Dark Side of the Moon?"))
     (establish-threshold= yes)
     (super-specialists= Trip)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub relax sub calm
;
;
(define-classification-specialist Calm
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (judge calm2))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Relax)
     (sub-specialists= Beethoven Mozart Vangelis)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent calm2 match-1-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Calm Summary")
     (output-confidence-vocabulary= usual-3-val)
     (features= (ask-user "Do you want to calm down before a big event?")
                (ask-user "Tired and want to drift off to sleep?")
                (ask-user "Want to slow down the pace?"))
     (patterns= (( yes ?   ?  ) => yes)
                (( ?   yes ?  ) => yes)
                (( ?   ?   yes) => yes))
     (no-match-confidence= no))
;
;
;music sub relax sub calm sub beethoven
;
;
(define-classification-specialist Beethoven
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about Beethoven's 5th Piano Concerto?"))
     (establish-threshold= yes)
     (super-specialists= Calm)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub relax sub calm sub mozart
;
;
(define-classification-specialist Mozart
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
           (ask-user "How about Mozart Overtures?"))
     (establish-threshold= yes)
     (super-specialists= Calm)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub comic
;
;
(define-classification-specialist Comic
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (judge relevant3))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Music)
     (sub-specialists= Mojo Eric)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent relevant3 match-1-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Comic Summary")
     (output-confidence-vocabulary= usual-3-val)
     (features= (ask-user "Do you want to hear something funny?")
                (ask-user "Do you want to hear something crude?"))
     (patterns= (( yes ?  ) => yes)
                (( ?   yes) => yes))
     (no-match-confidence= no))
;
;
;music sub comic sub mojo
;
;
(define-classification-specialist Mojo
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about some Mojo Nixon and Skid Roper?"))
     (establish-threshold= yes)
     (super-specialists= Comic)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub comic sub eric
;
;
(define-classification-specialist Eric
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
          (ask-user "How about something from Eric's Rap collection?"))
     (establish-threshold= yes)
     (super-specialists= Comic)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub bad-news
;
;
(define-classification-specialist Bad-News
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject= (judge badnews))
     (establish-threshold= yes)
     (refine-form= or)
     (super-specialists= Thrash)
     (sub-specialists= NMA Stones)
     (establish-confidence-vocabulary= usual-3-val))
;
;
(define-recognition-agent badnews match-1-recognition-agent
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= "Bad-News Summary")
     (output-confidence-vocabulary= usual-3-val)
     (features= (ask-user "Did you get some bad news?")
                (ask-user "Are you upset and need to let off some steam?"))
     (patterns= (( yes ?  ) => yes)
                (( ?   yes) => yes))
     (no-match-confidence= no))
;
;
;music sub thrash sub bad-news sub nma
;
;
(define-classification-specialist NMA
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
           (ask-user "How about New Model Army's Thunder and Consolation?"))
     (establish-threshold= yes)
     (super-specialists= Bad-News)
     (establish-confidence-vocabulary= usual-3-val))
;
;
;music sub thrash sub bad-news sub stones
;
;
(define-classification-specialist Stones
     (classifier= music-hier)
     (author= "bap")
     (creation-date= "27 April 1990")
     (display-name= " Specialist")
     (establish-reject=
           (ask-user "How about the Rolling Stones Hot Rocks 1964-1971?"))
     (establish-threshold= yes)
     (super-specialists= Bad-News)
     (establish-confidence-vocabulary= usual-3-val))