diff options
| author | root <root@eta.mit.edu> | 2009-01-27 14:52:07 -0500 |
|---|---|---|
| committer | root <root@eta.mit.edu> | 2009-01-27 14:52:07 -0500 |
| commit | 103a61bcf8648c50b5999cdb526464d44c75dfe1 (patch) | |
| tree | 8d6df95240f60fe3b3c7aa86f057c104b86908c1 /work | |
| parent | a0c4bdb02f19d6a0d17bbea9496c30e96754235b (diff) | |
| download | 8thesis-103a61bcf8648c50b5999cdb526464d44c75dfe1.tar.gz 8thesis-103a61bcf8648c50b5999cdb526464d44c75dfe1.zip | |
Added some demo files, journal, tweaks
Diffstat (limited to 'work')
| -rw-r--r-- | work/calculus_play.scm | 17 |
1 files changed, 17 insertions, 0 deletions
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 |