How to plot the derivative of NDSolve interpolation function?
Same example only 2D sol1 = NDSolve[{ D[f1[x, \[Xi]], \[Xi]] == g1[x, \[Xi]], D[g1[x, \[Xi]], \[Xi]] == h1[x, \[Xi]], D[h1[x, \[Xi]], \[Xi]] + f1[x, \[Xi]]*h1[x, \[Xi]] == 0, f1[x, 0] == 0, g1[x, 0] == 1, g1[x, 10] == 0, f1[0, \[Xi]] == 0, g1[0, \[Xi]] == 0, h1[0, \[Xi]] == 0 }, {f1, g1, h1}, {x, 0, 1}, {\[Xi], 0, 10}] Plot[D[g1[x, \[Xi]], \[Xi]] /. sol1, {\[Xi], 0, 10}, PlotRange -> All] Plot[h1[x, \[Xi]] /. sol1, {\[Xi], 0, 10}, PlotRange -> All]