Electrical circuit model for the transistor amplifier.
It is an index 1 DAE, 8 equations
transistor (times = seq(0, 0.2, 0.001), yini = NULL, dyini = NULL, parms = list(), printmescd = TRUE, method = mebdfi, atol = 1e-6, rtol = 1e-6, maxsteps = 1e5, ...)y
    has a name attribute, the names will be used to label the output
    matrix.
  times must be the initial time.
  deSolve with up to as many rows as elements in
  times and as many
  columns as elements in yini, plus an additional column (the first) 
  for the time value.There will be one row for each element in times unless the
  solver returns with an unrecoverable error.  If
  yini has a names attribute, it will be used to label the columns
  of the output value.The default parameters are: ub=6, uf=0.026, alpha=0.99, beta=1e-6, r0=1000, r1=9000, r2=9000, r3=9000, r4 = 9000, r5=9000, r6=9000, r7=9000, r8 = 9000, r9 = 9000, c1=1e-6, c2=2e-6, c3=3e-6, c4=4e-6, c5=5e-6
out <- transistor()
plot(out, lwd = 2)
out[nrow(out),-1]-reference("transistor")
Run the code above in your browser using DataLab