Download - Wolfram Research

350 3. Reference Manual
Draw a Nyquist plot of
H jΩ.
In[5]:= NyquistPlot[H2[I w], {w, 0.01, 100}, PlotRange −> All]
-1 -0.5 0.5 1 1.5
-0.5
Im
Re
-1
-1.5
-2
-2.5
-3
Out[5]= Graphics
This produces a Nyquist
plot of H jΩ and H jΩ.
In[6]:= NyquistPlot[{H1[I w], H2[I w]}, {w, 0.01, 100},
PlotRange −> All]
-1 -0.5 0.5 1 1.5
-0.5
Im
Re
-1
-1.5
-2
-2.5
-3
Out[6]= Graphics
This defines an RLC filter
circuit.
Set up modified nodal
equations.
In[7]:= 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[8]:= eqsrlcf = CircuitEquations[rlcf]
Out[8]= DAEAC, 4 4