The issue is obvious if you scan over the code. Pay careful attention to red coloring. It shows up in every use of the function Abs, wherein brackets are not used to enclose the arguments.

There are probably numeric problems as well, since there appears to be a mix of exact and approximate methods. Might try wirking with NIntegrate[...] rather than N[Integrate[...]] for example. Or give exact input and use Integrate[...], and don't numericize until necessary. But this might be too slow.

The code as written is quite overly complicated, so it's really hard to say what else might be going on. First thing would be to make appropriate use of Table and get rid of all the For loops.

Maybe.

That's about the best one can say absent serious detail, preferably in the form of Mathematica code. Note that such can be attached as a Mathematica notebook if too large for the post itself.

Dear Daniel, Code is attached herewith. I want to increase 'n' to find 'w' which is required. I kindly request you to please let me know the issue of code.

Attachments: