12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182 |
- #| -*-Scheme-*-
- Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
- 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
- 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013 Massachusetts
- Institute of Technology
- This file is part of MIT/GNU Scheme.
- MIT/GNU Scheme is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or (at
- your option) any later version.
- MIT/GNU Scheme is distributed in the hope that it will be useful, but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with MIT/GNU Scheme; if not, write to the Free Software
- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
- USA.
- |#
- ;; FBE
- ;; (environment-define system-global-environment 'SO3-environment
- ;; (extend-top-level-environment
- ;; (access generic-environment scmutils-base-environment)))
- (with-working-directory-pathname "." ;(directory-pathname (current-load-pathname))
- (lambda ()
- ;;(load* "coord" scmutils-base-environment) ; FBE
- (load* "fbe-coord" scmutils-base-environment)
- (load* "dgutils" generic-environment)
- (load* "indexed" generic-environment)
- (load* "manifold" generic-environment)
- (load* "vector-fields" generic-environment)
- (load* "form-fields" generic-environment)
- (load* "basis" generic-environment)
- (load* "wedge" generic-environment)
- (load* "exterior-derivative" generic-environment)
- (load* "Lie" generic-environment)
- (load* "interior-product" generic-environment)
- (load* "ode" generic-environment)
- (load* "maps" generic-environment)
- (load* "covariant-derivative" generic-environment)
- (load* "curvature" generic-environment)
- (load* "metric" generic-environment)
- ;; Connection derived from metric
- (load* "connection" generic-environment)
- ;; Hodge star depends on metric
- (load* "gram-schmidt" generic-environment)
- ;; gram-schmidt runs very slowly!
- (load* "hodge-star" generic-environment)
- (load* "tensors" generic-environment)
- (load* "vector-calculus" generic-environment)
- ;;(load* "so3" SO3-environment) ; FBE
- ;; special relativity
- (load* "frame-maker" scmutils-base-environment)
- ;; FBE
- (environment-update-from-child generic-environment scmutils-base-environment
- '(frame-maker))
- (load* "SR-boost" generic-environment)
- (load* "SR-frames" generic-environment)
- ))
|