(FILECREATED "16-Feb-86 17:29:19" {QV}<IDL>SOURCES>BENCHMARK.;3
 3656   

      changes to:  (FNS BENCHMARK)

      previous date: "14-Feb-86 16:29:55" {QV}<IDL>SOURCES>BENCHMARK.;2)


(* Copyright (c) 1984, 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT BENCHMARKCOMS)

(RPAQQ BENCHMARKCOMS
 ((FNS BENCHMARK)))
(DEFINEQ

(BENCHMARK

  [LAMBDA NIL                                                (* edited: "16-Feb-86 17:28")


          (* * benchmark test for IDL system)


                                                             (* Standard IDL Benchmark on Dempster Egg Data)

    (
LOAD?
 (
PACKFILENAME
 (
QUOTE
 DIRECTORY)
			     IDLSOURCEDIRECTORY
			     (
QUOTE
 BODY)
			     (
QUOTE
 EGGS.DATA)))
    (
RESETLST
 (
RESETSAVE
 PROMPT#FLG)
		(
RESETSAVE
 (
OUTPUT
 T))
		(
MAPC
 [
QUOTE
 ((
PPA
 S)
				   [
PPA
 (
MPROD
 (
QUOTE
 ((2 -1 3)
							      (1 -2 -1)))
						   (
QUOTE
 ((3 -1)
							      (1 2)
							      (-1 1]
				   [
PPA
 (
TRANSLATE
 [
AT
 S (
QUOTE
 ((FURROW]
						       (
QUOTE
 ((NIL 2 1)
								  (3 4 2)
								  (5 NIL 3]
				   [
SETQ
 TABLE (
COUNTS
 (
GROUP

							     (
AT
 S (
QUOTE
 (ALL (ROW COLOR]
				   (
PPA
 TABLE)
				   (
SETQ
 ROWTOT (
RPLUS
 (
KEEP
 TABLE 1)))
				   (
PPA
 ROWTOT)
				   (
SETQ
 COLTOT (
RPLUS
 (
KEEP
 TABLE 2)))
				   (
PPA
 COLTOT)
				   (
PPA
 (
QUOTIENT
 (
KEEP
 TABLE 2)
						      COLTOT))
				   (
SETQ
 D (
DEAL
 7))
				   (
PPA
 D)
				   (
SETQ
 L (
GENVEC
 1 13))
				   (
PPA
 L)
				   [
PPA
 (
RESHAPE
 L (
QUOTE
 (5 2 2]
				   (
SETQ
 NEWS (
COPYIDLARRAY
 S))
				   (
ASSIGN
 (
AT
 NEWS (
LABEL
 2 (
QUOTE
 FURROW)))
					     (
QUOTE
 HALF))
				   [
ASSIGN
 (
AT
 NEWS (
QUOTE
 (ALL HALF)))
					     ([ELAMBDA ((A SCALAR))
                                                (
COND

						  ((
LESSP
 A 4)
						    1)
						  (T 2))]
					      (
AT
 NEWS (
QUOTE
 (ALL HALF]
				   [
ASSIGN
 (
AT
 NEWS (
CODE
 (
QUOTE
 HALF)))
					     (
QUOTE
 ((1 LEFT)
							(2 RIGHT]
				   (
PPA
 NEWS)
				   [
SETQ
 PAR (
MOMENTS
 (
GROUP
 [
AT
 NEWS
									 (
QUOTE

									   (ALL (ROW HALF]
								   (
AT
 NEWS (
QUOTE
 (ALL VOLUME]
				   (
SETQQ
 PRECISION (3 7))
				   (
PPA
 PAR)
				   (
SETQQ
 PRECISION (4 3))
				   (
SETQ
 AN.VAR (
ANOVA
 PAR))
				   (
PPA
 AN.VAR)
				   [
PPA
 (
QUOTIENT
 TABLE (
RPLUS
 (
KEEP
 TABLE 1]
				   [
SETQ
 CR (
COVAR
 (
AT
 S (
QUOTE
 (ALL (WIDTH LENGTH VOLUME]
				   (
PPA
 CR)
				   (
PPA
 (
NORM
 CR))
				   (
SETQ
 REGR (
SWEEP
 CR 1))
				   (
PPA
 REGR)
				   (
SETQ
 REGR (
SWEEP
 REGR (
QUOTE
 LENGTH)))
				   (
PPA
 REGR)
				   (
SETQ
 REGR (
SWEEP
 REGR NIL 2))
				   (
PPA
 REGR)
				   [
SETQ
 COEF (
AT
 REGR (
QUOTE
 (VOLUME WIDTH]
				   [
SETQ
 CONST (
AT
 REGR (
QUOTE
 (VOLUME Constant]
				   (
SETQ
 RESID (
DIFFERENCE

				       (
AT
 S (
QUOTE
 (ALL VOLUME)))
				       (
PLUS
 [
TIMES
 COEF (
AT
 S (
QUOTE
 (ALL WIDTH]
					       CONST)))
				   (
PPA
 RESID)
				   (
SETQ
 L (
PLUS
 L 8))
				   (
SETQ
 L (
TIMES
 L 8))
				   (
SETQ
 L (
DIFFERENCE
 L 8))
				   (
SETQ
 L (
QUOTIENT
 L 8]
			(
FUNCTION
 (LAMBDA (FORM)
			    (
TERPRI
)
			    (
TERPRI
)
			    (
PRIN1
 "←")
			    (
PRINT
 (
EVAL
 (
PROGN
 (
PRINTDEF
 FORM 2)
						      (
TERPRI
)
						      FORM])
)
(PUTPROPS BENCHMARK COPYRIGHT ("Xerox Corporation" 1984 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (339 3571 (BENCHMARK 349 . 3569)))))
STOP