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
And this is interesting as well......
Manipulate[ Plot[ff[x, u, v], {x, -2, 10}, PlotStyle -> {Thick, Red}], {{u, 0}, -5, 5}, {{v, 0}, -5, 5}]
Maybe it gives a clue to the solution of the original question.
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?
