Re: JESS: manners and waltz test for Jess

2003-01-08 Thread ejfried
I think James C. Owen wrote:
 I see that Ernest answered your email - here's what I did with it sometime
 last year.  Ernest got much better benchmarks than I did but we never could
 determine the reason for it.  Maybe because I was running Win2K and he was
 using something else.  Win2K sucks on performance for Java benchmarks.
 However, Jess did place #2 on my comparisons.  :-)
 
 SDG
 jco
 

Jess 6.1a3 was significantly slower on manners than 6.0 - 6.1a2 were,
and 6.1a4 is only a little better. This has been due to the changes in
Rete network architecture to allow fully nested and/or/not. The next
release 6.1a5 will be back up to speed. If you (or anyone!)
benchmarked either the 6.1a3 or 6.1a4 versions, well, benchmarks of
alpha code aren't worth much! Compare 6.0 to other commercial
offerings to do a fair benchmark.

-
Ernest Friedman-Hill  
Distributed Systems ResearchPhone: (925) 294-2154
Sandia National LabsFAX:   (925) 294-2234
PO Box 969, MS 9012 [EMAIL PROTECTED]
Livermore, CA 94550 http://herzberg.ca.sandia.gov


To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]





Re: JESS: manners and waltz test for Jess

2003-01-08 Thread peter

thanks for the files and info, it helps.  I'm trying
waltz now. My understanding is there's two different
versions. which would you suggest?

peter


--- James C. Owen [EMAIL PROTECTED] wrote:
 I never did convert the Waltz benchmark over to Jess
 nor any other system
 other than OPSJ.  I'll send you that one if you want
 it, but it won't be much
 help.  However, you should already have the link to
 UT for the complete
 compendium.  Enjoy.
 
 BTW, my understanding is that the Waltz benchmark is
 the better benchmark of a
 rulebased system because it places more emphasis on
 finding a solution to a
 far more complex problem.  Well, that's what Dr.
 Forgy said, anyway.  The
 other Ph.D.'s can add their 2 cents; like Richard
 Halsey, I'm just a rule
 mechanic, not a guru.  :-)
 
 SDG
 jco
 
 peter wrote:
 
  I tried to google for a clips version of manners
  benchmark for Jess. Would anyone have a pointer to
 it?
  I did a search for temple university clips manners
  benchmark, but the URL is no longer available.
 
  thanks in advance.
 
  __
  Do you Yahoo!?
  Yahoo! Mail Plus - Powerful. Affordable. Sign up
 now.
  http://mailplus.yahoo.com
 
 


  To unsubscribe, send the words 'unsubscribe
 jess-users [EMAIL PROTECTED]'
  in the BODY of a message to [EMAIL PROTECTED],
 NOT to the list
  (use your own address!) List problems? Notify
 [EMAIL PROTECTED]
 


 
 --
 SDG
 jco
 
 -
 James C. Owen
 Senior KE
 Knowledgebased Systems Corporation
 6314 Kelly Circle
 Garland, TX   75044
 972.530.2895
 


 To unsubscribe, send the words 'unsubscribe
 jess-users [EMAIL PROTECTED]'
 in the BODY of a message to [EMAIL PROTECTED],
 NOT to the list
 (use your own address!) List problems? Notify
 [EMAIL PROTECTED]


 


__
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com


To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]





JESS: manners and waltz test for Jess

2003-01-07 Thread peter

I tried to google for a clips version of manners
benchmark for Jess. Would anyone have a pointer to it?
I did a search for temple university clips manners
benchmark, but the URL is no longer available.

thanks in advance.



__
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com


To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]





Re: JESS: manners and waltz test for Jess

2003-01-07 Thread ejfried
First -- here's the definitive source:

ftp://ftp.cs.utexas.edu/pub/ops5-benchmark-suite

But the manners version isn't in Jess syntax. Attached see my
translations of the program and the data generator.

I think peter wrote:
 
 I tried to google for a clips version of manners
 benchmark for Jess. Would anyone have a pointer to it?
 I did a search for temple university clips manners
 benchmark, but the URL is no longer available.
 
 thanks in advance.
 




-
Ernest Friedman-Hill  
Distributed Systems ResearchPhone: (925) 294-2154
Sandia National LabsFAX:   (925) 294-2234
PO Box 969, MS 9012 [EMAIL PROTECTED]
Livermore, CA 94550 http://herzberg.ca.sandia.gov

;; Deftemplates

(deftemplate guest (slot name) (slot sex) (slot hobby))

(deftemplate last_seat (slot seat))

(deftemplate seating
  (slot id) (slot pid) (slot seat1) (slot name1) (slot name2) (slot seat2) (slot 
path_done))

(deftemplate path (slot id) (slot name) (slot seat))

(deftemplate chosen (slot id) (slot name) (slot hobby))

(deftemplate count (slot c))

(deftemplate context (slot state))

(defrule assign_first_seat
  ?ctxt - (context (state start))
  (guest (name ?n))
  ?count - (count (c ?c))
  =
  (assert (seating (seat1 1) (name1 ?n) (name2 ?n) (seat2 1) (id ?c) (pid 0) 
(path_done yes)))
  (assert (path (id ?c) (name ?n) (seat 1)))
  (modify ?count (c (+ ?c 1)))
  (printout t seat   1   ?n   ?n   1   ?c   0   1 crlf)
  (modify ?ctxt (state assign_seats)))

(defrule find_seating
  ?ctxt - (context (state assign_seats))
  (seating (seat1 ?seat1) (seat2 ?seat2) (name2 ?n2) (id ?id) (pid ?pid) (path_done 
yes))
  (guest (name ?n2) (sex ?s1) (hobby ?h1))
  (guest (name ?g2) (sex ~?s1) (hobby ?h1))
  ?count - (count (c ?c))
  (not (path (id ?id) (name ?g2)))
  (not (chosen (id ?id) (name ?g2) (hobby ?h1)))
  =
  (assert (seating (seat1 ?seat2) (name1 ?n2) (name2 ?g2) (seat2 (+ ?seat2 1)) (id ?c)
   (pid ?id) (path_done no)))
  (assert (path (id ?c) (name ?g2) (seat ( + ?seat2 1
  (assert (chosen (id ?id) (name ?g2) (hobby ?h1)))
  (modify ?count (c (+ ?c 1)))
  (printout t seat   ?seat2   ?n2   ?g2 crlf)
  (modify ?ctxt (state make_path)))

(defrule path_done
  ?ctxt - (context (state make_path))
  ?seat - (seating (path_done no))
  =
  (modify ?seat (path_done yes))
  (modify ?ctxt (state check_done)))


(defrule make_path
  (context (state make_path))
  (seating (id ?id) (pid ?pid) (path_done no))
  (path (id ?pid)(name ?n1) (seat ?s))
  (not (path (id ?id) (name ?n1)))
  =
  (assert (path (id ?id) (name ?n1) (seat ?s

(defrule continue
  ?ctxt - (context (state check_done))
  =
  (modify ?ctxt (state assign_seats)))

(defrule are_we_done
  ?ctxt - (context (state check_done))
  (last_seat (seat ?l_seat))
  (seating (seat2 ?l_seat))
  =
  (printout t crlf Yes, we are done!! crlf)
  (modify ?ctxt (state print_results))
)

(defrule print_results
  (context (state print_results))
  (seating (id ?id) (seat2 ?s2))
  (last_seat (seat ?s2))
  ?path - (path (id ?id) (name ?n) (seat ?s))
  =
  (retract ?path)
  (printout t ?n   ?s crlf))

(defrule all_done
  (context (state print_results))
  =
  (halt))

(set-reset-globals t)
(defglobal ?*t* = (time))
(reset)
(batch mann90.dat)
;; (watch rules) 
;;(printout t (run) crlf)
(run)
(printout t Elapsed time:  (- (time) ?*t*) crlf)
;; (exit)







#include stdio.h
#include math.h

/
  Tim Grose
  January 29, 1991
  Miss Manners Data Generator

  The purpose of this program is to generate a file of make
  statements that can be used as an input data set for the 
  Miss Manners OPS5c program.

  All input to this program will be interactively obtained from
  the user.  The file of make statements will be written to 
  file manners.dat.

  The user specifies how many guests there will be.  Each guest's
  name will be a unique integer.  Each guest is assigned a sex at
  random.  The user can specify the total number of hobbies it is
  possible for a guest to have, and a lower limit of the number
  of hobbies for a guest.  For instance, if the user chooses 10
  hobbies and a lower limit of 3 hobbies, each guest will have
  between 3 and 10 hobbies.  The hobbies will be designated with
  an integer.  Finally, the user can specify the number of seats
  available.

  The sex of the guests is assigned so that approximately half of
  the guests are male and half are female.
*/

main()
{
  FILE *fopen(), *output_file;
  int seed, max_hobby, min_hobby, guest_num, seat_num, max_male, max_female;
  int chosen_hobby, count, number, rand_num, hobby_num, hobby_count;
  int hobbies[100], male_count, female_count;
  char sex,fname[20];
  float num;

  printf(Miss Manners Data Generator\n\n);
  printf(How many guests will there be? );
  scanf(%d,guest_num);

  

Re: JESS: manners and waltz test for Jess

2003-01-07 Thread James C. Owen
I never did convert the Waltz benchmark over to Jess nor any other system
other than OPSJ.  I'll send you that one if you want it, but it won't be much
help.  However, you should already have the link to UT for the complete
compendium.  Enjoy.

BTW, my understanding is that the Waltz benchmark is the better benchmark of a
rulebased system because it places more emphasis on finding a solution to a
far more complex problem.  Well, that's what Dr. Forgy said, anyway.  The
other Ph.D.'s can add their 2 cents; like Richard Halsey, I'm just a rule
mechanic, not a guru.  :-)

SDG
jco

peter wrote:

 I tried to google for a clips version of manners
 benchmark for Jess. Would anyone have a pointer to it?
 I did a search for temple university clips manners
 benchmark, but the URL is no longer available.

 thanks in advance.

 __
 Do you Yahoo!?
 Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
 http://mailplus.yahoo.com

 
 To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
 in the BODY of a message to [EMAIL PROTECTED], NOT to the list
 (use your own address!) List problems? Notify [EMAIL PROTECTED]
 

--
SDG
jco

-
James C. Owen
Senior KE
Knowledgebased Systems Corporation
6314 Kelly Circle
Garland, TX   75044
972.530.2895


To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]





Re: JESS: manners and waltz test for Jess

2003-01-07 Thread James C. Owen
I see that Ernest answered your email - here's what I did with it sometime
last year.  Ernest got much better benchmarks than I did but we never could
determine the reason for it.  Maybe because I was running Win2K and he was
using something else.  Win2K sucks on performance for Java benchmarks.
However, Jess did place #2 on my comparisons.  :-)

SDG
jco

peter wrote:

 I tried to google for a clips version of manners
 benchmark for Jess. Would anyone have a pointer to it?
 I did a search for temple university clips manners
 benchmark, but the URL is no longer available.

 thanks in advance.

 __
 Do you Yahoo!?
 Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
 http://mailplus.yahoo.com

 
 To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
 in the BODY of a message to [EMAIL PROTECTED], NOT to the list
 (use your own address!) List problems? Notify [EMAIL PROTECTED]
 

--
SDG
jco

-
James C. Owen
Senior KE
Knowledgebased Systems Corporation
6314 Kelly Circle
Garland, TX   75044
972.530.2895




manners.clp
Description: application/unknown-content-type-clpfile
   (printout t asserting all guests  crlf )
(guest (name  1) (sex m) (hobby  2) )
(guest (name  1) (sex m) (hobby  1) )
(guest (name  1) (sex m) (hobby  3) )
(guest (name  2) (sex f) (hobby  2) )
(guest (name  2) (sex f) (hobby  1) )
(guest (name  2) (sex f) (hobby  3) )
(guest (name  3) (sex m) (hobby  3) )
(guest (name  3) (sex m) (hobby  2) )
(guest (name  4) (sex m) (hobby  3) )
(guest (name  4) (sex m) (hobby  2) )
(guest (name  4) (sex m) (hobby  1) )
(guest (name  5) (sex m) (hobby  2) )
(guest (name  5) (sex m) (hobby  1) )
(guest (name  5) (sex m) (hobby  3) )
(guest (name  6) (sex m) (hobby  2) )
(guest (name  6) (sex m) (hobby  3) )
(guest (name  6) (sex m) (hobby  1) )
(guest (name  7) (sex f) (hobby  1) )
(guest (name  7) (sex f) (hobby  2) )
(guest (name  7) (sex f) (hobby  3) )
(guest (name  8) (sex m) (hobby  3) )
(guest (name  8) (sex m) (hobby  1) )
(guest (name  9) (sex m) (hobby  2) )
(guest (name  9) (sex m) (hobby  3) )
(guest (name  9) (sex m) (hobby  1) )
(guest (name 10) (sex m) (hobby  3) )
(guest (name 10) (sex m) (hobby  2) )
(guest (name 10) (sex m) (hobby  1) )
(guest (name 11) (sex m) (hobby  1) )
(guest (name 11) (sex m) (hobby  3) )
(guest (name 11) (sex m) (hobby  2) )
(guest (name 12) (sex f) (hobby  3) )
(guest (name 12) (sex f) (hobby  1) )
(guest (name 12) (sex f) (hobby  2) )
(guest (name 13) (sex m) (hobby  2) )
(guest (name 13) (sex m) (hobby  3) )
(guest (name 14) (sex m) (hobby  1) )
(guest (name 14) (sex m) (hobby  2) )
(guest (name 15) (sex m) (hobby  2) )
(guest (name 15) (sex m) (hobby  3) )
(guest (name 15) (sex m) (hobby  1) )
(guest (name 16) (sex f) (hobby  2) )
(guest (name 16) (sex f) (hobby  3) )
(guest (name 17) (sex f) (hobby  3) )
(guest (name 17) (sex f) (hobby  2) )
(guest (name 18) (sex m) (hobby  1) )
(guest (name 18) (sex m) (hobby  3) )
(guest (name 18) (sex m) (hobby  2) )
(guest (name 19) (sex f) (hobby  3) )
(guest (name 19) (sex f) (hobby  1) )
(guest (name 20) (sex f) (hobby  1) )
(guest (name 20) (sex f) (hobby  3) )
(guest (name 20) (sex f) (hobby  2) )
(guest (name 21) (sex m) (hobby  2) )
(guest (name 21) (sex m) (hobby  3) )
(guest (name 22) (sex m) (hobby  2) )
(guest (name 22) (sex m) (hobby  3) )
(guest (name 23) (sex f) (hobby  1) )
(guest (name 23) (sex f) (hobby  2) )
(guest (name 24) (sex f) (hobby  3) )
(guest (name 24) (sex f) (hobby  1) )
(guest (name 24) (sex f) (hobby  2) )
(guest (name 25) (sex f) (hobby  3) )
(guest (name 25) (sex f) (hobby  1) )
(guest (name 25) (sex f) (hobby  2) )
(guest (name 26) (sex m) (hobby  2) )
(guest (name 26) (sex m) (hobby  1) )
(guest (name 26) (sex m) (hobby  3) )
(guest (name 27) (sex f) (hobby  2) )
(guest (name 27) (sex f) (hobby  3) )
(guest (name 27) (sex f) (hobby  1) )
(guest (name 28) (sex m) (hobby  1) )
(guest (name 28) (sex m) (hobby  2) )
(guest (name 29) (sex f) (hobby  2) )
(guest (name 29) (sex f) (hobby  3) )
(guest (name 29) (sex f) (hobby  1) )
(guest (name 30) (sex f) (hobby  2)  )
(guest (name 30) (sex f) (hobby  1)  )
(guest (name 30) (sex f) (hobby  3)  )
(guest (name 31) (sex m) (hobby  1)  )
(guest (name 31) (sex m) (hobby  2)  )
(guest (name 31) (sex m) (hobby  3)  )
(guest (name 32) (sex m) (hobby  1)  )
(guest (name 32) (sex m) (hobby  2)  )
(guest (name 33) (sex m) (hobby  2)  )
(guest (name 33) (sex m) (hobby  3)  )
(guest