User Portlet

s=NDSolve[{y'[x]==y[x]Cos[x+y]],y[0]0==1},y,{x,0,30}] {{y-> InterpolatingFunction[{{0.,30.}}, ]}} f[x_]:=Evaluate[y[x] /. s] f[1] {0.991387} Dear All, I am trying to get the output of a numerical solution to a differential euqation as...