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