I looked at the recent online documentation for the Mathematica symbolic regression function called FindFormula. It seems a bit more free-form now than I recall. I should be able to do FindFormula with a set of paired data points and it now appears to return a formula.

So the test would be to create a set of points from Table[{x, N[Sin[10 * Sin[x]]]}, {x, 0, 20, .1}] and see if it returns Sin(10 * Sin(x)). Eureqa could do this, which I always found amazing. It would try any combination no matter how weird.

But FindFormula doesn't seem to work with Alpha Pro like it does with Mathematica, so I can't test it.