Download - Wolfram Research

3.9 Graphics Functions 337
This produces a Bode plot
of H jΩ and H jΩ.
In[5]:= BodePlot[{H1[I w], H2[I w]}, {w, 0.01, 100}]
Magnitude (dB)
10
0
-10
-20
-30
-40
-50
-60
1.0E-2 1.0E-1 1.0E0 1.0E1 1.0E2
Frequency
Phase (deg)
0
-25
-50
-75
-100
-125
-150
-175
1.0E-2 1.0E-1 1.0E0 1.0E1 1.0E2
Frequency
Out[5]= Graphics
This defines an RLC filter
circuit.
Set up modified nodal
equations.
Do an AC analysis from
Hz to MHz.
Increase the number of
plot points.
In[6]:= rlcf = Netlist[
{V1, {1, 0}, Symbolic −> V, Value −> 1},
{R1, {1, 2}, Symbolic −> R1, Value −> 1000.},
{L1, {2, 3}, Symbolic −> L, Value −> 0.001},
{C1, {3, 0}, Symbolic −> C, Value −> 2.2*10^−6},
{R2, {3, 0}, Symbolic −> R2, Value −> 1000.}
];
In[7]:= eqsrlcf = CircuitEquations[rlcf]
Out[7]= DAEAC, 4 4
In[8]:= acsweep = ACAnalysis[eqsrlcf, {f, 10, 10^6}]
Out[8]=
V$1 InterpolatingFunction10., 1. 10 6 , ,
V$2 InterpolatingFunction10., 1. 10 6 , ,
V$3 InterpolatingFunction10., 1. 10 6 , ,
I$V1 InterpolatingFunction10., 1. 10 6 ,
In[9]:= SetOptions[BodePlot, PlotPoints −> 200];