diff options
author | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2001-09-09 14:04:04 +0000 |
---|---|---|
committer | jthorn <jthorn@f88db872-0e4f-0410-b76b-b9085cfa78c5> | 2001-09-09 14:04:04 +0000 |
commit | 16062edd6380d54e4e9fe57c7865b4b27d4d5cb8 (patch) | |
tree | 0dc70ef3a55fd8d55c8bb4e46a1eac698da9f960 /src/patch/test_patch_system.out | |
parent | 676474029e39da6c5c399dfb9a67aa0afac1d714 (diff) |
revise to use fn(x,y,z) for fn and ghost-zone tests,
fn(rho,sigma) for FD tests
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@303 f88db872-0e4f-0410-b76b-b9085cfa78c5
Diffstat (limited to 'src/patch/test_patch_system.out')
-rw-r--r-- | src/patch/test_patch_system.out | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/src/patch/test_patch_system.out b/src/patch/test_patch_system.out index 5dda17b..afb6f86 100644 --- a/src/patch/test_patch_system.out +++ b/src/patch/test_patch_system.out @@ -1,18 +1,19 @@ - |\^/| Maple 6 (DEC ALPHA UNIX) -._|\| |/|_. Copyright (c) 2000 by Waterloo Maple Inc. + |\^/| Maple 7 (DEC ALPHA UNIX) +._|\| |/|_. Copyright (c) 2001 by Waterloo Maple Inc. \ MAPLE / All rights reserved. Maple is a registered trademark of <____ ____> Waterloo Maple Inc. | Type ? for help. # test_patch_system.maple -- test function for test_fd_grid -# $Id: test_patch_system.maple,v 1.1 2001/07/18 16:16:53 jthorn Exp $ +# $Id: test_patch_system.maple,v 1.2 2001/07/18 16:20:05 jthorn Exp $ > # test function -> fn := proc(x,y) exp(sin(x)) * tanh(sin(y)^2) end; - fn := proc(x, y) exp(sin(x))*tanh(sin(y)^2) end proc +> fn := exp(sin(rho)) * tanh(sin(sigma)^2); + 2 + fn := exp(sin(rho)) tanh(sin(sigma) ) > # 1st derivatives -> simplify(diff(fn(rho,sigma), rho)); codegen[C](%); +> simplify(diff(fn, rho)); codegen[C](%); 2 cos(rho) exp(sin(rho)) sinh(-1 + cos(sigma) ) - --------------------------------------------- @@ -21,7 +22,7 @@ t0 = -cos(rho)*exp(sin(rho))*sinh(-1.0+pow(cos(sigma),2.0))/cosh(-1.0+pow (cos(sigma),2.0)); -> simplify(diff(fn(rho,sigma), sigma)); codegen[C](%); +> simplify(diff(fn, sigma)); codegen[C](%); exp(sin(rho)) sin(sigma) cos(sigma) 2 ----------------------------------- 2 2 @@ -31,7 +32,7 @@ ,2.0)),2.0); > # 2nd derivatives -> simplify(diff(fn(rho,sigma), rho,rho)); codegen[C](%); +> simplify(diff(fn, rho,rho)); codegen[C](%); 2 2 exp(sin(rho)) sinh(-1 + cos(sigma) ) (sin(rho) - cos(rho) ) ----------------------------------------------------------- @@ -40,8 +41,7 @@ t0 = exp(sin(rho))*sinh(-1.0+pow(cos(sigma),2.0))*(sin(rho)-pow(cos(rho), 2.0))/cosh(-1.0+pow(cos(sigma),2.0)); -> simplify(diff(fn(rho,sigma), rho,sigma)); codegen[C](%); -bytes used=2000576, alloc=1703624, time=0.28 +> simplify(diff(fn, rho,sigma)); codegen[C](%); cos(rho) exp(sin(rho)) sin(sigma) cos(sigma) 2 -------------------------------------------- 2 2 @@ -49,7 +49,8 @@ bytes used=2000576, alloc=1703624, time=0.28 t0 = 2.0*cos(rho)*exp(sin(rho))*sin(sigma)*cos(sigma)/pow(cosh(-1.0+pow( cos(sigma),2.0)),2.0); -> simplify(diff(fn(rho,sigma), sigma,sigma)); codegen[C](%); +> simplify(diff(fn, sigma,sigma)); codegen[C](%); +bytes used=2000632, alloc=1834672, time=0.14 2 2 -2 exp(sin(rho)) (-4 sinh(-1 + cos(sigma) ) cos(sigma) @@ -68,4 +69,4 @@ sigma),2.0)+4.0*sinh(-1.0+pow(cos(sigma),2.0))*pow(cos(sigma),4.0)-2.0*pow(cos( sigma),2.0)*cosh(-1.0+pow(cos(sigma),2.0))+cosh(-1.0+pow(cos(sigma),2.0)))/pow( cosh(-1.0+pow(cos(sigma),2.0)),3.0); > quit -bytes used=2655448, alloc=1703624, time=0.39 +bytes used=2313224, alloc=1834672, time=0.17 |