Download - Wolfram Research

362 3. Reference Manual
Define netlist description
of a simple diode rectifier
circuit.
Set up system of symbolic
time-domain equations.
Perform numerical
transient analysis.
Display the simulation
result with TransientPlot
for the variables V$1[t]
and V$2[t].
In[4]:= rectifier =
Circuit[
Netlist[
{V0, {1, 0}, Symbolic −> V0,
Value −> 2. Sin[10^6 Time]},
{R1, {2, 0}, Symbolic −> R1, Value −> 100.},
{C1, {2, 0}, Symbolic −> C1, Value −> 1.*^−7},
{D1, {1 −> A, 2 −> C},
Model −> "Diode", Selector −> "Spice"}
]
]
Out[4]= Circuit
In[5]:= rectifiereqs = CircuitEquations[rectifier,
AnalysisMode −> Transient, ElementValues −> Symbolic]
Out[5]= DAETransient, 4 4
In[6]:= tran = NDAESolve[rectifiereqs, {t, 0., 2.*^−5}]
Out[6]=
V$2 InterpolatingFunction0., 0.00002, ,
V$1 InterpolatingFunction0., 0.00002, ,
I$V0 InterpolatingFunction0., 0.00002, ,
I$AC$D1 InterpolatingFunction0., 0.00002,
In[7]:= TransientPlot[tran, {V$1[t], V$2[t]}, {t, 0., 2.*^−5},
Axes −> False, Frame −> True, GridLines −> Automatic]
2
1
0
-1
V$1[t]
V$2[t]
-2
0 -6
5. 10
0.00001 0.000015 0.00002
t
Out[7]= Graphics