From c02dece30f877532eb9b7883730edbc9f1cdd362 Mon Sep 17 00:00:00 2001 From: bnewbold Date: Fri, 8 May 2009 07:38:15 -0400 Subject: split out examples --- final_project/work/disovery-mech-play.scm | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 final_project/work/disovery-mech-play.scm (limited to 'final_project/work/disovery-mech-play.scm') diff --git a/final_project/work/disovery-mech-play.scm b/final_project/work/disovery-mech-play.scm deleted file mode 100644 index c2d5013..0000000 --- a/final_project/work/disovery-mech-play.scm +++ /dev/null @@ -1,24 +0,0 @@ - -(load "discovery") -;Loading "discovery.scm"... done -;Value: discover:named-opers - -(discover:named-opers) -;Value: (+ one-like cos dot-product expt one? * gcd partial-derivative acos exp atan2 cosh imag-part one = conjugate zero? / zero-like abs sinh identity? sin asin derivative angle magnitude inexact? type apply identity make-polar arity real-part - invert negate identity-like trace determinant sqrt zero log square make-rectangular type-predicate atan1) - -(discover:named-opers-for 1) -;Value: (one-like cos one? acos exp cosh imag-part conjugate zero? zero-like abs sinh identity? sin asin angle magnitude inexact? type arity real-part invert negate identity-like trace determinant sqrt log square type-predicate atan1) - -(discover:named-opers-for (matrix-by-rows '(1 0 0) - '(0 1 0) - '(0 0 1))) -;Value: (one-like cos exp conjugate zero? zero-like identity? sin inexact? type arity invert negate identity-like trace determinant type-predicate) - -(discover:named-opers-for 1 2) -;Value: (+ dot-product expt * gcd atan2 = / apply make-polar - make-rectangular) - -(discover:named-opers-for 'a) -;Value: (one-like cos acos exp cosh imag-part conjugate zero-like sinh sin asin angle magnitude inexact? type arity real-part invert negate identity-like sqrt log type-predicate atan1) - -(discover:named-opers-for (compose sin cos)) -;Value: (one-like cos acos exp cosh imag-part zero-like abs sinh sin asin angle magnitude inexact? type arity real-part invert negate identity-like sqrt log square type-predicate atan1) -- cgit v1.2.3