ok. but what exactly is your problem?
So i used manipulate to easly change wl and wp numbers searching for proper outcome, also I changed the function a bit, yet Im not sure but it should close to 0 in hte end too but thats only my calculation problem, Thanks for Help, i add modified file if u wanna check it
Perhaps it may be helpful to get an impression of the behaviour of your function (as defined in the notebook attached to my last post)
Animate[Plot3D[ff[x, u, v], {u, -5, 5}, {v, -5, 5}, PlotRange -> {-10^4, 10^4}], {x, 0, 20, .1}]
That seems to be sort of a difficult problem. I changed your functions to make sure that all parameters are reaching the actual calculation. But I too got lots of errors. So I tried to get som ideas about the magnitude of the numbers involved. Unfortunately I did not find any reasonable approximation of the solution you are looking for. See notebook. Do you have any ideas about the magnitude of wl and wp?
