I have been stuck here for almost two weeks! My input is too big and my Mathematica can't run the program fully, yet the result is not the one that I want. can someone help me?

I inserted this kind of precision code and already play around with the coding.

Block[{$MaxExtraPrecision = 5000}, Table[N[{*my very long inputs. 4 of them*}],{x,0,2Pi,Pi/90}]]

and the output that I have is this

N::meprec: "Internal precision limit $MaxExtraPrecision = 5000.` reached while evaluating Log[Cos[\[Pi]/30]^2+Sin[\[Pi]/30]^2]."

N::meprec: "Internal precision limit $MaxExtraPrecision = 5000.` reached while evaluating Log[Cos[\[Pi]/30]^2+Sin[\[Pi]/30]^2]."

N::meprec: "Internal precision limit $MaxExtraPrecision = 5000.` reached while evaluating Log[Cos[\[Pi]/30]^2+Sin[\[Pi]/30]^2]."

General::stop:Further output of N::meprec will be suppressed during this calculation.

What should I do?