(*  Numerical calcuration of a response of an osciloscope for Load RL under a volt ... oString[N[tau1]] <>"  "<>ToString[N[tau2]]}, PlotRange -> {0, 2}]

[Graphics:HTMLFiles/OscProbe_2.gif]

- Graphics -

grph1[[1, 1, 1, 1]]

(* Results *)

Cell[GraphicsData[PostScript, %!<br />%%Creator: Mathematica<br />%%AspectRatio: .61803 <br ... ooo`00o`3ooolQ0?ooo`00], ImageRangeCache -> {{{80.625, 310.}, {248.313, 107.}} -> {0, 1, 0, 0}}]

Cell[GraphicsData[PostScript, %!<br />%%Creator: Mathematica<br />%%AspectRatio: .61803 <br ... ?l0oooo8@3oool00001], ImageRangeCache -> {{{80.625, 310.}, {429.625, 288.313}} -> {0, 4, 0, 0}}]

Cell[GraphicsData[PostScript, %!<br />%%Creator: Mathematica<br />%%AspectRatio: .61803 <br ... `00o`3ooolQ0?ooo`00], ImageRangeCache -> {{{80.625, 310.}, {610.938, 469.625}} -> {0, 8, 0, 0}}]

(* ' DSolve ' Version causes Error !! *) r = 1 ; RL = 100 ; RA = 9 * 10^9 ; RB = 1 * 10^9 ... VB[t]/.sol1[[1]] Plot[(VB[t] - VB[t - tw] * UnitStep[t - tw]), {t, 0, 1}, PlotRange -> {-1, 3}]

Created by Mathematica  (December 21, 2005) Valid XHTML 1.1!