diff options
author | bnewbold <bnewbold@eta.mit.edu> | 2009-05-04 22:01:44 -0400 |
---|---|---|
committer | bnewbold <bnewbold@eta.mit.edu> | 2009-05-04 22:01:44 -0400 |
commit | ed4b2e746f7110e5c875fc33513426acdbc39e5d (patch) | |
tree | 2ebbbe5007d3fd1de8e95118d5ae48531ef91114 /final_project/work/disovery-mech-play.scm | |
parent | e811f275d54e9b19bcf0c35e4e8a862b9eeff005 (diff) | |
download | 6.945-ed4b2e746f7110e5c875fc33513426acdbc39e5d.tar.gz 6.945-ed4b2e746f7110e5c875fc33513426acdbc39e5d.zip |
yay, play, fun
Diffstat (limited to 'final_project/work/disovery-mech-play.scm')
-rw-r--r-- | final_project/work/disovery-mech-play.scm | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/final_project/work/disovery-mech-play.scm b/final_project/work/disovery-mech-play.scm new file mode 100644 index 0000000..c2d5013 --- /dev/null +++ b/final_project/work/disovery-mech-play.scm @@ -0,0 +1,24 @@ + +(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) |