blob: 3315922cdf89a2f6d3bf58342457e770c63c1e57 (
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
# $Header$
# 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](%);
|