<<  Graphics`Graphics`

Q 6.5 Operational amplifier   p.144

dB[z_] = 20 Log[10, Abs[z]] ;     
dg[z_] = 
          Im[Log[z]]/Degree ;

Phase lead

ans = Simplify[
          Solve[{(ei - va)/z1 + (eo - va)/z2 == 0, 
              1/z3 == 1/r1 + c1 s, z1 == z3 + r2, z2 == rf, 
              va == 0}, eo, {va, z1, z2, z3}]][[1]]

para = {r1 ->  160 10^3, c1 -> 0.1 10^-6, 
          r2 ->  100 10^3, 
          rf ->  3000 10^3};
gs = -eo  /.  ans  /. ei ->  1  /. 
        para

LogLinearPlot[{dB[gs /.  s -> I 2 Pi f], 
        dg[gs /. s -> I 2 Pi f]}, {f, 1, 1000}, 
      PlotRange -> {{1, 1000}, {0, 30}}, PlotPoints -> 500, 
      GridLines -> Automatic, 
      PlotStyle ->  {Hue[0.9], Hue[0.7]}]