From 103a61bcf8648c50b5999cdb526464d44c75dfe1 Mon Sep 17 00:00:00 2001 From: root Date: Tue, 27 Jan 2009 14:52:07 -0500 Subject: Added some demo files, journal, tweaks --- work/calculus_play.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 work/calculus_play.scm (limited to 'work') diff --git a/work/calculus_play.scm b/work/calculus_play.scm new file mode 100644 index 0000000..7a043df --- /dev/null +++ b/work/calculus_play.scm @@ -0,0 +1,17 @@ + +;;; Jan 26th + +(declare (usual-integrations)) +(load "~/thesis/scmutils/src/calculus/load.scm") + + +(define R2 (make-manifold R^n-type 2)) +(define U (patch 'origin R2)) + +(load "~/thesis/scmutils/src/general/canonicalizer.scm") + +(define d/dx (coordinate-basis-vector-field cart + +(define J (- (* x d/dy) (* y (d/dx)))) + +(define omega (literal-1form-field 'a R2-rect)) \ No newline at end of file -- cgit v1.2.3