I want to plot the following function with different values of the parameter $b$:
a = -0.1 Sqrt[0.001^2 + b^2];
M[t_] := NIntegrate[10w E^(-w/50)((1-Cos[(w+a)t])/(w+a)^2),{w,0,-a,∞},
MaxRecursion -> 100, AccuracyGoal -> 10, Method -> "PrincipalValue"]
Plot[M[t],{t,0,1000}]
How can I code different plots for different values of parameter $b$ in a single plot?
Note: My actual code is pretty bigger than this. So I cannot define a new series of variables and functions for each value of the parameter and then plot them simultaneously.
M[t_, b_] := With[{a = -0.1 Sqrt[0.001^2 + b^2]}, (* stuff *)]
, then useTable[]
withinPlot[]
. $\endgroup$