10, 100}; logygridlabels = Union[loggrid001, loggrid01]; ampplotlog = LogLogPlot[1/Sqrt[1 + ω^2], {ω, 0.01, 100}, PlotRange -> {{0.01, 100}, {0.01, 1}}...