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

# test function
f(rho,sigma) := exp(sin(rho) + tanh(sigma));

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

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