% ex01.m4
\psset{unit=1in,cornersize=absolute,dimen=middle}%
\begin{pspicture}(-0.222222,0)(2.382738,1.3125)%
% dpic version 2014.03.24 option -p for PSTricks 0.93a or later
\psset{linewidth=0.8pt}%
\psset{linewidth=0.8pt}%
\psset{arrowsize=1.1pt 4,arrowlength=1.64,arrowinset=0}%
\psline(0,0)(0,0.375)
\pscircle(0,0.5625){0.1875}
\psline(0,0.75)(0,1.125)
\uput{2.5bp}[dl](0,0.375){$ -$}
\uput{2.5bp}[l](-0.1875,0.5625){$ v_s$}
\uput{2.5bp}[ul](0,0.75){$ +$}
\psline(0,1.125)(0.25,1.125)
\psline(0.25,1.125)(0.4375,1.3125)
\pscustom[linewidth=0pt,fillstyle=solid,fillcolor=black,linecolor=black]{%
\psarcn(0.102049,0.943004){0.355099}{34.780608}{22.077452}
\psarc(0.087444,1.165846){0.355099}{-14.577452}{-0.979566}
\closepath}%
\psarc[linewidth=0.8pt](0.076773,1.053247){0.355099}{9.416621}{41.25}
\psline(0.5,1.125)(0.75,1.125)
\uput{2.5bp}[d](0.375,1.092441){$ t = 0$}
\psline(0.75,1.125)(0.9375,1.125)
(0.96875,1.1875)
(1.03125,1.0625)
(1.09375,1.1875)
(1.15625,1.0625)
(1.21875,1.1875)
(1.28125,1.0625)
(1.3125,1.125)
(1.5,1.125)
\uput{2.5bp}[u](1.125,1.1875){$ 47\,\Omega$}
\psline[arrowsize=0.05in 0,arrowlength=2,arrowinset=0]{<-}(0.908333,1.125)(0.808333,1.125)
\uput{2.5bp}[ul](0.858333,1.125){$ i_R\strut$}
\psline(1.5,1.125)(1.875,1.125)
(1.875,0.9375)
\psline(2.241319,0.9375)(2.241319,0.7751)
\psarc[linewidth=0.4pt](2.241319,0.7751){0.002778}{180}{295}
\psarcn[linewidth=0.8pt](2.273016,0.707127){0.075}{115}{-140}
\psarcn[linewidth=0.4pt](2.215562,0.658918){0.002778}{-140}{-220}
\psarcn[linewidth=0.8pt](2.273016,0.610709){0.075}{140}{-140}
\psarcn[linewidth=0.4pt](2.215562,0.5625){0.002778}{-140}{-220}
\psarcn[linewidth=0.8pt](2.273016,0.514291){0.075}{140}{-140}
\psarcn[linewidth=0.4pt](2.215562,0.466082){0.002778}{-140}{-220}
\psarcn[linewidth=0.8pt](2.273016,0.417873){0.075}{140}{-115}
\psarcn[linewidth=0.4pt](2.241319,0.3499){0.002778}{180}{65}
\psline(2.241319,0.3499)(2.241319,0.1875)
\uput{2.5bp}[r](2.348016,0.5625){$ L$}
\psline[arrowsize=0.05in 0,arrowlength=2,arrowinset=0]{<-}(2.241319,0.800585)(2.241319,0.900585)
\uput{2.5bp}[r](2.241319,0.850585){$ i_L$}
\psline(1.508681,0.9375)(1.508681,0.6)
\psline(1.414931,0.6)(1.602431,0.6)
\psarcn[linewidth=0.8pt](1.508681,0.36262){0.1875}{120}{60}
\psline(1.508681,0.55012)(1.508681,0.1875)
\uput{2.5bp}[ul](1.508681,0.6){$ +$}
\uput{2.5bp}[l](1.414931,0.5625){$ v_C$}
\uput{2.5bp}[dl](1.508681,0.525){$ -$}
\uput{2.5bp}[dr](1.508681,0.525){$ \;C$}
\psline(1.508681,0.9375)(1.508681,0.9375)
\psline(1.508681,0.9375)(2.241319,0.9375)
\psline(1.508681,0.1875)(1.508681,0.1875)
\psline(1.508681,0.1875)(2.241319,0.1875)
\psline(1.875,0.1875)(1.875,0)
(0,0)
\pscustom[linewidth=0pt,fillstyle=solid,fillcolor=black,linecolor=black]{%
\psarcn(1.964407,0.525916){0.1875}{71.987664}{44.036243}
\psarc(1.918932,0.604682){0.1875}{15.963757}{47.461963}
\closepath}%
\psarc[linewidth=0.8pt](1.936821,0.5625){0.1875}{43.928594}{330}
\rput(1.936821,0.5625){$i_2$}
\pscustom[linewidth=0pt,fillstyle=solid,fillcolor=black,linecolor=black]{%
\psarcn(0.805172,0.489333){0.375}{58.833785}{44.036243}
\psarc(0.714221,0.646864){0.375}{15.963757}{31.71286}
\closepath}%
\psarc[linewidth=0.8pt](0.75,0.5625){0.375}{36.965099}{330}
\rput(0.75,0.5625){$i_1$}
\end{pspicture}%
\begin{document}
\begin{pspicture}(-0.222222,0)(2.382738,1.3125)%
% dpic version 2014.03.24 option -p for PSTricks 0.93a or later
\psset{linewidth=0.8pt}%
\psset{linewidth=0.8pt}%
\psset{arrowsize=1.1pt 4,arrowlength=1.64,arrowinset=0}%
\psline(0,0)(0,0.375)
\pscircle(0,0.5625){0.1875}
\psline(0,0.75)(0,1.125)
\uput{2.5bp}[dl](0,0.375){$ -$}
\uput{2.5bp}[l](-0.1875,0.5625){$ v_s$}
\uput{2.5bp}[ul](0,0.75){$ +$}
\psline(0,1.125)(0.25,1.125)
\psline(0.25,1.125)(0.4375,1.3125)
\pscustom[linewidth=0pt,fillstyle=solid,fillcolor=black,linecolor=black]{%
\psarcn(0.102049,0.943004){0.355099}{34.780608}{22.077452}
\psarc(0.087444,1.165846){0.355099}{-14.577452}{-0.979566}
\closepath}%
\psarc[linewidth=0.8pt](0.076773,1.053247){0.355099}{9.416621}{41.25}
\psline(0.5,1.125)(0.75,1.125)
\uput{2.5bp}[d](0.375,1.092441){$ t = 0$}
\psline(0.75,1.125)(0.9375,1.125)
(0.96875,1.1875)
(1.03125,1.0625)
(1.09375,1.1875)
(1.15625,1.0625)
(1.21875,1.1875)
(1.28125,1.0625)
(1.3125,1.125)
(1.5,1.125)
\uput{2.5bp}[u](1.125,1.1875){$ 47\,\Omega$}
\psline[arrowsize=0.05in 0,arrowlength=2,arrowinset=0]{<-}(0.908333,1.125)(0.808333,1.125)
\uput{2.5bp}[ul](0.858333,1.125){$ i_R\strut$}
\psline(1.5,1.125)(1.875,1.125)
(1.875,0.9375)
\psline(2.241319,0.9375)(2.241319,0.7751)
\psarc[linewidth=0.4pt](2.241319,0.7751){0.002778}{180}{295}
\psarcn[linewidth=0.8pt](2.273016,0.707127){0.075}{115}{-140}
\psarcn[linewidth=0.4pt](2.215562,0.658918){0.002778}{-140}{-220}
\psarcn[linewidth=0.8pt](2.273016,0.610709){0.075}{140}{-140}
\psarcn[linewidth=0.4pt](2.215562,0.5625){0.002778}{-140}{-220}
\psarcn[linewidth=0.8pt](2.273016,0.514291){0.075}{140}{-140}
\psarcn[linewidth=0.4pt](2.215562,0.466082){0.002778}{-140}{-220}
\psarcn[linewidth=0.8pt](2.273016,0.417873){0.075}{140}{-115}
\psarcn[linewidth=0.4pt](2.241319,0.3499){0.002778}{180}{65}
\psline(2.241319,0.3499)(2.241319,0.1875)
\uput{2.5bp}[r](2.348016,0.5625){$ L$}
\psline[arrowsize=0.05in 0,arrowlength=2,arrowinset=0]{<-}(2.241319,0.800585)(2.241319,0.900585)
\uput{2.5bp}[r](2.241319,0.850585){$ i_L$}
\psline(1.508681,0.9375)(1.508681,0.6)
\psline(1.414931,0.6)(1.602431,0.6)
\psarcn[linewidth=0.8pt](1.508681,0.36262){0.1875}{120}{60}
\psline(1.508681,0.55012)(1.508681,0.1875)
\uput{2.5bp}[ul](1.508681,0.6){$ +$}
\uput{2.5bp}[l](1.414931,0.5625){$ v_C$}
\uput{2.5bp}[dl](1.508681,0.525){$ -$}
\uput{2.5bp}[dr](1.508681,0.525){$ \;C$}
\psline(1.508681,0.9375)(1.508681,0.9375)
\psline(1.508681,0.9375)(2.241319,0.9375)
\psline(1.508681,0.1875)(1.508681,0.1875)
\psline(1.508681,0.1875)(2.241319,0.1875)
\psline(1.875,0.1875)(1.875,0)
(0,0)
\pscustom[linewidth=0pt,fillstyle=solid,fillcolor=black,linecolor=black]{%
\psarcn(1.964407,0.525916){0.1875}{71.987664}{44.036243}
\psarc(1.918932,0.604682){0.1875}{15.963757}{47.461963}
\closepath}%
\psarc[linewidth=0.8pt](1.936821,0.5625){0.1875}{43.928594}{330}
\rput(1.936821,0.5625){$i_2$}
\pscustom[linewidth=0pt,fillstyle=solid,fillcolor=black,linecolor=black]{%
\psarcn(0.805172,0.489333){0.375}{58.833785}{44.036243}
\psarc(0.714221,0.646864){0.375}{15.963757}{31.71286}
\closepath}%
\psarc[linewidth=0.8pt](0.75,0.5625){0.375}{36.965099}{330}
\rput(0.75,0.5625){$i_1$}
\end{pspicture}
\end{document}