ClearAll["Global`*"](* Impedance response of series RLC *)
;
R=15;L=0.1;c = 2.53 (10^(-3));
ztot[ω_] = R + I ω L - (I/(ω c)); (* Note that these are LOG plots! *)
ωres=FindMinimum[Abs[ztot[ω]],{ω,70.0}][[2]]
LogLinearPlot[Arg[ztot[ω]]*(180.0/π),{ω,1,5000},PlotRange->{-100,100}, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Z Phase (degrees)"},Axes->False]
LogLinearPlot[Abs[ztot[ω]],{ω,1,5000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Z Magnitude (Ω)"}, Axes-> False]

ClearAll["Global`*"](* Impedance response of series RLC *)
R=15;L=.1; c= 2.53 (10^(-3));v0mag=10.0; v0phase=0.0;
v0=v0mag (E^(I v0phase));
ztot[ω_] = R + I ω L - (I/(ω c));itot[ω_] = (v0/(ztot[ω]));
v1[ω_]=itot[ω] R;dvc[ω_]=itot[ω](- (I/(ω c))); (* these are various Ohm's Laws *)
ωres=FindMaximum[Abs[v1[ω]],{ω,100}][[2]]//Quiet; (* what ω gives biggest v1? *)
ωres=ω/.ωres[[1]];
Print["Value of ω when (Subscript[V, 1]) is maximum: ",ωres]
Print["Value of (Subscript[Z, tot]) for this ω: ",DecimalForm[ztot[ωres],{5,5}]]
LogLinearPlot[Arg[v1[ω]]*(180.0/π),{ω,0.1,1000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Phase of (Subscript[V, 1])(degrees)"},Axes->False]
LogLinearPlot[Abs[v1[ω]],{ω,0.1,1000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Magnitude of (Subscript[V, 1])(V)"}, Axes-> False]
LogLinearPlot[Abs[v1[ω]*itot[ω]],{ω,0.1,1000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Resistor Power (W)"}, Axes-> False]
LogLinearPlot[Abs[v0*itot[ω]],{ω,0.1,1000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Source Power (W)"}, Axes-> False]
LogLinearPlot[((Abs[v1[ω]*itot[ω]])/(Abs[v0*itot[ω]])),{ω,0.1,1000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Relative Power (Subscript[P, R])/(Subscript[P, in])"}, Axes-> False]
LogLinearPlot[((Abs[dvc[ω]])/(Abs[v0])),{ω,0.1,1000},PlotRange->Full, Frame-> True,FrameLabel->{"ω ((s^(-1)))","Capacitor Response (Subscript[V, C])/(Subscript[V, in])"}, Axes-> False]