3D plot of coupled differential equation

Questions
, ,
1

Hello All.

I am trying to plot a 3D graph for which I have written code. But I am not getting the output. The code is attached below. Can anyone help me get the plot?

Thanks

graph 1.nb (89.3 KB)

2

You can do away with Show and Evaluate, but the code works fine for me:

Plot3D[Abs[F2[r][\[Xi]]], {r, -1, 1}, {\[Xi], 0, 5}, PlotRange -> All]
3

Sir,
Code is working and showing no errors but the plot is blanck with no output