(FILECREATED "18-Dec-85 01:49:12" {QV}<PEDERSEN>LISP>REEXPRESS.;1
 1763   

      changes to:  (VARS REEXPRESSCOMS))


(PRETTYCOMPRINT REEXPRESSCOMS)

(RPAQQ REEXPRESSCOMS
 ((FNS MATCHPLOT POWER0 POWER1 POWER2 POWERHALF POWERM1 POWERM2)))
(DEFINEQ

(MATCHPLOT

  [LAMBDA (P STYLE)                                          (* jop: "18-Dec-85 01:35")

    (
PLOTGRAPH
 P (
QUOTE
 POWER2)
		 NIL 2 STYLE)
    (
PLOTGRAPH
 P (
QUOTE
 POWER1)
		 NIL 1 STYLE)
    (
PLOTGRAPH
 P (
QUOTE
 POWERHALF)
		 NIL .5 STYLE)
    (
PLOTGRAPH
 P (
QUOTE
 POWER0)
		 NIL 0 STYLE)
    (
PLOTGRAPH
 P (
QUOTE
 POWERM1)
		 NIL -1 STYLE)
    (
PLOTGRAPH
 P (
QUOTE
 POWERM2)
		 NIL -2 STYLE])

(POWER0

  [LAMBDA (X)                                                (* jop: "18-Dec-85 01:18")

    (
TIMES
 100 (
PLUS
 1 (
LOG
 (
QUOTIENT
 X 100])

(POWER1

  [LAMBDA (X)                                                (* jop: "18-Dec-85 01:00")

    X])

(POWER2

  [LAMBDA (X)                                                (* jop: "18-Dec-85 01:15")

    (
TIMES
 50 (
PLUS
 1 (
QUOTIENT
 (
TIMES
 X X)
				      10000])

(POWERHALF

  [LAMBDA (X)                                                (* jop: "18-Dec-85 01:17")

    (
TIMES
 100 (
DIFFERENCE
 (
TIMES
 2 (
QUOTIENT
 (
SQRT
 X)
						      10))
			       1])

(POWERM1

  [LAMBDA (X)                                                (* jop: "18-Dec-85 01:19")

    (
TIMES
 100 (
PLUS
 2 (
MINUS
 (
QUOTIENT
 100 X])

(POWERM2

  [LAMBDA (X)                                                (* jop: "18-Dec-85 01:27")

    (
TIMES
 50 (
PLUS
 3 (
MINUS
 (
QUOTIENT
 10000 (
TIMES
 X X])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (247 1741 (MATCHPLOT 257 . 708) (POWER0 710 . 875) (POWER1 877 . 988) (POWER2 990 . 1171
) (POWERHALF 1173 . 1385) (POWERM1 1387 . 1555) (POWERM2 1557 . 1739)))))
STOP