# test_patch_system.maple -- test function for  test_fd_grid
# $Id$

# test function
fn := exp(sin(rho)) * tanh(sin(sigma)^2);

# 1st derivatives
simplify(diff(fn, rho));		codegen[C](%);
simplify(diff(fn, sigma));		codegen[C](%);

# 2nd derivatives
simplify(diff(fn, rho,rho));		codegen[C](%);
simplify(diff(fn, rho,sigma));		codegen[C](%);
simplify(diff(fn, sigma,sigma));	codegen[C](%);