I wanted to pull some values from mathematica for testing gradients for 3F2 and related functions. It’s been years since I’ve used it and the best I could come up with was

```
Hypergeometric3F2[a1_,a2_,a3_,b1_,b2_,z_]:=HypergeometricPFQ[{a1,a2,a3},{b1,b2},z]
NumberForm[Hypergeometric3F2[1.1, 1.2, 1.3, 4.1, 4.2, 1.0] - Hypergeometric3F2[1.1, 1.2, 1.3, 4.1, 4.2, 1.0-10^-10],20]
```

Anybody know the syntax for the more generic `Grad`

function for evaluating the gradient at a point or something that automatically does decent finite differences in Mathematica (or one of the open source tools)? All I could get was a promise for the function and it never let me substitute in actual values.