blob: 17cacefdc65434d3a302c91c2373794b36103349 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# test_patch_system.maple -- test function for test_fd_grid
# $Id$
# test function
fn := exp(sin(1.38*rho)) * tanh(0.17+0.83*sin(sigma)^2);
# 1st derivatives
diff(fn, rho); codegen[C](%);
diff(fn, sigma); codegen[C](%);
# 2nd derivatives
diff(fn, rho,rho); codegen[C](%);
diff(fn, rho,sigma); codegen[C](%);
diff(fn, sigma,sigma); codegen[C](%);
|