<font color='black' size='2' face='Arial, Helvetica, sans-serif'><font size="2"><font face="Arial, Helvetica, sans-serif">Dear Thomas,<br>
<br>
</font></font><font color="black"><font size="2"><font face="Arial, Helvetica, sans-serif">Concerning your problem about the circuits RL, this study which I had made some years ago must correspond, perhaps, to what you search?</font></font></font><font color="black" face="Arial, Helvetica, sans-serif" size="2"><br>
<br>
(in french)<br>
<br>
http://manuel.luque.perso.neuf.fr/RL/<br>
<div> <br>
</div>
<div> best regards,<br>
<br>
M.L</div>
<br>
<div> <br>
</div>
<div style="font-family: arial,helvetica; font-size: 10pt; color: black;">-----E-mail d'origine-----<br>
De : Thomas Söll 1und1 <Thomas.Soell@onlinehome.de><br>
A : pstricks@tug.org<br>
Envoyé le : Mercredi, 23 Février 2011 22:42<br>
Sujet : [pstricks] Function of the current in a coil<br>
<br>
<div id="AOLMsgPart_3_a8626acc-05fb-48ba-a637-a4bcadb7b159">
<div><font face="Calibri">Hallo,</font></div>
<div> </div>
<div><font face="Calibri">I want to draw the current through a coil. The example
shows my result. It seems to be ok.</font></div>
<div><font face="Calibri">The problem comes, if I want to draw the current
for parameters where the maximal current is not reached, as shown in the last
example.</font></div>
<div><font face="Calibri">Then the parts of the function are not
continual.</font></div>
<div> </div>
<div><font face="Calibri">The endpoints should be calculated and this gives the
startpoint from the next curve and so on.</font></div>
<div> </div>
<div><font face="Calibri">Does anybody knows a solution?</font></div>
<div> </div>
<div><pre>Thanks for help<br>
<br>
Thomas</pre><pre> </pre><pre> </pre><pre>\documentclass[a4paper,12pt]{article}<br>
\usepackage[T1]{fontenc}<br>
\usepackage[latin1]{inputenc}<br>
\usepackage{ngerman}<br>
\usepackage{fancyhdr}<br>
\usepackage{amsmath,amsthm}<br>
\usepackage{enumerate}<br>
\usepackage{alphalph}<br>
\usepackage{calc} % From LaTeX distribution<br>
\usepackage{multido} % >From PSTricks<br>
\usepackage{ifthen} % From LaTeX distribution<br>
\usepackage{array}<br>
\usepackage[dvips]{graphics}<br>
%\usepackage[dvips,usenames,dvipsnames]{xcolor} %% Farben sind im Dokument xcolor.pdf definiert<br>
\usepackage[dvips]{changebar}<br>
\usepackage{pstricks}<br>
\usepackage{pst-plot}<br>
\usepackage{pst-node}<br>
\usepackage{pst-tree}<br>
\usepackage{pst-eps}<br>
\usepackage{pst-ghsb}<br>
\usepackage[tiling]{pst-fill}<br>
\usepackage{pst-text}<br>
\usepackage{pst-blur}<br>
%\usepackage{pst-all}<br>
\usepackage{pst-osci,pst-circ}<br>
\usepackage{pst-poly} % From pstricks/contrib/pst-poly<br>
\usepackage{pst-optic}<br>
\usepackage{pst-eucl}<br>
\usepackage{pst-math}<br>
\usepackage{pst-func}<br>
%\usepackage{pst-3dplot}<br>
\usepackage{pst-electricfield}<br>
\usepackage{pstricks-add}</pre><pre><br>
%\input{dokdef0}</pre><pre> </pre><pre>\begin{document}</pre><pre><br>
\section*{Selbstinduktion}<br>
%</pre><pre>\begin{pspicture}(-6,-1)(4,5)<br>
\newpsstyle{Red}{plotstyle=line,linecolor=red,linewidth=0.15,plotpoints=2500}<br>
\newpsstyle{Blau}{plotstyle=line,linecolor=blue,linewidth=0.15,plotpoints=2500}<br>
\newpsstyle{Green}{plotstyle=line,linecolor=green,linewidth=0.15,plotpoints=2500}<br>
%\psgrid[subgriddiv=5,gridcolor=lightgray,griddots=10,gridlabels=10pt](-4,-1)(4,5)<br>
\pnode(0,0){A}<br>
\pnode(0,4){B}<br>
\pnode(4,4){C}<br>
\pnode(4,0){D}<br>
\pnode(-3,0){E}<br>
\pnode(-3,4){F}<br>
% Dipole node connection<br>
\transformer[primarylabel=$n_1$,secondarylabel=$n_1$,arrows=-o,arrowscale=1.7](B)(A)(C)(D){}<br>
% Wire to complete circuit<br>
\wire[arrows=o-,arrowscale=1.7](F)(B)%<br>
\resistor[labeloffset=0,arrows=o-,arrowscale=1.7](E)(1,4|E){$R$}%<br>
\rput(4.5,1.9){%<br>
\psscalebox{0.2}{%<br>
\Oscillo[amplitude1=-3.5,phase1=90,period1= 2E30,damping1=0.02,plotstyle1=Green]}}%<br>
\rput(-0.6,1.4){%<br>
\psscalebox{0.15}{%<br>
\Oscillo[amplitude1=0,offset2=3,amplitude2=-3,period2= 2E31,damping2=0.02,phase2=90,plotstyle2=Blau]}}<br>
\rput(-2.8,2.0){%<br>
\psscalebox{0.15}{%<br>
\Oscillo[ Wave1= \RectangleA,period1=25,amplitude1=1,offset1=1,plotstyle1=Red]}}<br>
%\wire(A)(B)<br>
\qdisk(A){2pt}<br>
\qdisk(-2,0){2pt}<br>
\pnode(-2,0){M}<br>
\pnode(4.18,1.0){G} \ncangles[angleA=0, armA=1.7cm,angleB=-90,linearc=0.2]{-o}{C}{G}<br>
\pnode(4,1.0){H} \nccurve[angleA=90,angleB=-90]{-o}{D}{H}<br>
\pnode(-0.85,0.73){I} \nccurve[angleA=90,angleB=-90,arrowscale=.85]{-o}{A}{I}<br>
\pnode(-1.05,0.73){J} \nccurve[angleA=90,angleB=-90,arrowscale=.85]{-o}{M}{J}<br>
\pnode(-3.3,1.33){K} \ncangles[angleA=180, armA=.8cm,angleB=-90,linearc=0.2,arrowscale=.85]{-o}{F}{K}<br>
\pnode(-3.1,1.33){L} \nccurve[angleA=90,angleB=-90,arrowscale=.85]{-o}{E}{L}<br>
\end{pspicture}</pre><pre> </pre><pre>\begin{center}<br>
\begin{pspicture}(-1,-1)(12,5)<br>
\psframe*[linecolor=green!20](-0.8,-0.8)(12.5,4.6)<br>
\psframe*[linecolor=white](0,0)(12,4.0)<br>
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0,xunit=1,yunit=1.333](0,0)(11.5,3.0)<br>
\psset{xAxisLabel=$t$, yAxisLabel=$U$,arrowscale=2}<br>
\begin{psgraph}{->}(0,-0.5)(12,1.0){12cm}{4cm}<br>
\makeatletter<br>
\psplot[plotpoints=20,linecolor=red,linewidth=2pt]{0}{11.5}<br>
[ /yMax 0.5 def /T0 2 def /T1 T0 def ]% <=== this is new !!!!<br>
{ x T1 gt {<br>
T1 yMax \tx@ScreenCoor<br>
2 copy 4 2 roll L neg L<br>
/yMax yMax neg def /T1 T1 T0 add def } if yMax }<br>
\end{psgraph}<br>
\end{pspicture}<br>
\end{center}</pre><pre>\begin{center}<br>
\begin{pspicture}(-1,-0.5)(12,4)<br>
\psframe*[linecolor=green!20](-0.8,-0.5)(12.5,4.6)%<br>
\psframe*[linecolor=white](0,0)(12,4)<br>
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0](0,0)(12,4)<br>
\psset{xAxisLabel=$t$, yAxisLabel=$I$,arrowscale=2}<br>
\def\R{120}% Widerstand<br>
\def\L{0.16}% Induktivität<br>
\def\t{0.004}% Zeitkonstante<br>
\def\A{1}% Amplitude<br>
\begin{psgraph}{->}(0,0)(0,-.5)(12,1.5){12cm}{4cm}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{0}{2}<br>
{\A*(1-2.7182818^(-x*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{4}{6}<br>
{\A*(1-2.7182818^(-(x-4)*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{8}{10}<br>
{\A*(1-2.7182818^(-(x-8)*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{2}{4}<br>
{\A*2.7182818^(-(x-2)*\t*\R/\L)}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{6}{8}<br>
{\A*2.7182818^(-(x-6)*\t*\R/\L)}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{10}{11.5}<br>
{\A*2.7182818^(-(x-10)*\t*\R/\L)}<br>
\end{psgraph}<br>
\end{pspicture}<br>
\end{center}</pre><pre><br>
\begin{center}<br>
\begin{pspicture}(-1,-1)(12,6)<br>
\psframe*[linecolor=green!20](-0.8,-0.4)(12.5,6.8)<br>
\psframe*[linecolor=white](0,0)(12,6)<br>
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0](0,0)(12,6)<br>
\psset{xAxisLabel=$t$, yAxisLabel=$U_{\text{ind}}$,arrowscale=2}<br>
\def\R{120}% Widerstand<br>
\def\L{0.16}% Induktivität<br>
\def\t{0.004}% Zeitkonstante<br>
\def\A{1}% Amplitude<br>
\def\B{1}% Amplitude<br>
\begin{psgraph}{->}(0,0)(0,-1.5)(12,1.5){12cm}{6cm}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=green,yMaxValue=5,yMinValue=-2]{0}{2}<br>
{\A*(-2.7182818^(-x*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=green,yMaxValue=5,yMinValue=-2]{4}{6}<br>
{\A*(-2.7182818^(-(x-4)*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=green,yMaxValue=5,yMinValue=-2]{8}{10}<br>
{\A*(-2.7182818^(-(x-8)*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=green,yMaxValue=1.5,yMinValue=-2]{2}{4}<br>
{\B*2.7182818^(-(x-2)*\t*\R/\L)}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=green,yMaxValue=1.5,yMinValue=-2]{6}{8}<br>
{\B*2.7182818^(-(x-6)*\t*\R/\L)}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=green,yMaxValue=1.5,yMinValue=-2]{10}{11.5}<br>
{\B*2.7182818^(-(x-10)*\t*\R/\L)}<br>
% \psline[linewidth=1pt,linecolor=blue](2,0)(2,1.5)%<br>
% \psline[linewidth=1pt,linecolor=blue](6,0)(6,1.5)%<br>
% \psline[linewidth=1pt,linecolor=blue](10,0)(10,1.5)%<br>
\end{psgraph}<br>
\end{pspicture}<br>
\end{center}</pre><pre><br>
\begin{center}<br>
\begin{pspicture}(-1,-0.5)(12,4)<br>
\psframe*[linecolor=green!20](-0.8,-0.5)(12.5,4.6)%<br>
\psframe*[linecolor=white](0,0)(12,4)<br>
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0](0,0)(12,4)<br>
\psset{xAxisLabel=$t$, yAxisLabel=$I$,arrowscale=2}<br>
\def\R{120}% Widerstand<br>
\def\L{0.5}% Induktivität<br>
\def\t{0.004}% Zeitkonstante<br>
\def\A{1}% Amplitude<br>
\begin{psgraph}{->}(0,0)(0,-.5)(12,1.5){12cm}{4cm}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{0}{2}<br>
{\A*(1-2.7182818^(-x*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{4}{6}<br>
{\A*(1-2.7182818^(-(x-4)*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{8}{10}<br>
{\A*(1-2.7182818^(-(x-8)*\t*\R/\L))}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{2}{4}<br>
{\A*2.7182818^(-(x-2)*\t*\R/\L)}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{6}{8}<br>
{\A*2.7182818^(-(x-6)*\t*\R/\L)}<br>
\psplot[linewidth=1pt,algebraic=true,plotpoints=500,linecolor=blue,yMaxValue=5,yMinValue=-2]{10}{11.5}<br>
{\A*2.7182818^(-(x-10)*\t*\R/\L)}<br>
\end{psgraph}<br>
\end{pspicture}<br>
\end{center}</pre><pre><br>
\end{document} </pre></div>
</div>
<!-- end of AOLMsgPart_3_a8626acc-05fb-48ba-a637-a4bcadb7b159 -->
<div id="AOLMsgPart_7_a8626acc-05fb-48ba-a637-a4bcadb7b159" style="margin: 0px; font-family: Tahoma,Verdana,Arial,Sans-Serif; font-size: 12px; color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);">
<pre style="font-size: 9pt;"><tt>_______________________________________________<br>
PSTricks mailing list<br>
<a href="mailto:PSTricks@tug.org">PSTricks@tug.org</a><br>
<a href="http://tug.org/mailman/listinfo/pstricks" target="_blank">http://tug.org/mailman/listinfo/pstricks</a><br>
archive: <a href="http://www.tug.org/pipermail/pstricks/" target="_blank">http://www.tug.org/pipermail/pstricks/</a><br>
</tt></pre>
</div>
<!-- end of AOLMsgPart_7_a8626acc-05fb-48ba-a637-a4bcadb7b159 -->
</div>
</font></font>