aboutsummaryrefslogtreecommitdiff
path: root/src/gr/ellipsoid.out
diff options
context:
space:
mode:
authorjthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5>2002-09-03 15:14:03 +0000
committerjthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5>2002-09-03 15:14:03 +0000
commitc3df52e92cb53823ccc7663cb9658eca7df7ed6c (patch)
tree70baa7adca57f66082e794987ab640593d38d8d5 /src/gr/ellipsoid.out
parent9c3426afc677bfb1f0d0cabf57cd83a0c5d8f354 (diff)
move high-level driver routines from gr/ to new driver/ directory
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@707 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/gr/ellipsoid.out')
-rw-r--r--src/gr/ellipsoid.out38
1 files changed, 0 insertions, 38 deletions
diff --git a/src/gr/ellipsoid.out b/src/gr/ellipsoid.out
deleted file mode 100644
index 4a0ee01..0000000
--- a/src/gr/ellipsoid.out
+++ /dev/null
@@ -1,38 +0,0 @@
- |\^/| Maple 7 (IBM INTEL LINUX)
-._|\| |/|_. Copyright (c) 2001 by Waterloo Maple Inc.
- \ MAPLE / All rights reserved. Maple is a registered trademark of
- <____ ____> Waterloo Maple Inc.
- | Type ? for help.
-# ellipsoid.maple -- compute equations for offset ellipsoid setup
-# $Header: /numrelcvs/ThornburgCVS/AHFinderDirect/src/gr/ellipsoid.maple,v 1.2 2002/04/22 15:10:32 jthorn Exp $
->
-#
-# ellipsoid has center (A,B,C), radius (a,b,c)
-# angular coordinate system has center (U,V,W)
-#
-# direction cosines wrt angular coordinate center are (alpha,beta,gamma)
-# but Maple predefines gamma = Euler's constant, so we use (xcos,ycos,zcos)
-# instead, i.e. a point has coordinates (U+xcos*r, V+ycos*r, W+zcos*r)
-#
-# then the equation of the ellipsoid is
-# (U+xcos*r - A)^2 (V+ycos*r - B)^2 (W+zcos*r - C)^2
-# ----------------- + ---------------- + ----------------- = 1
-# a^2 b^2 c^2
-#
-# to solve this, we introduce intermediate variables
-# AU = A - U
-# BV = B - V
-# CW = C - W
-#
-> eqn := (xcos*r - AU)^2/a^2 + (ycos*r - BV)^2/b^2 + (zcos*r - CW)^2/c^2 = 1;
- 2 2 2
- (xcos r - AU) (ycos r - BV) (zcos r - CW)
- eqn := -------------- + -------------- + -------------- = 1
- 2 2 2
- a b c
-
->
-> read "../maple/util.mm";
-Error, unable to read `../maple/util.mm`
-> quit
-bytes used=129844, alloc=196572, time=0.03