<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=text/html;charset=utf-8 http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.7600.16722"></HEAD>
<BODY style="PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 15px"
id=MailContainerBody leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV><FONT face=Calibri>Dear Manuel,</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><FONT face=Calibri>thank you, this is exactly what I search.</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><FONT face=Calibri>best regards,</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><FONT face=Calibri>Thomas</FONT></DIV>
<DIV style="FONT: 10pt Tahoma">
<DIV><BR></DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A
title="mailto:mluque5130@aol.com
STRG + Klicken, um Verknüpfung zu folgen"
href="mailto:mluque5130@aol.com">Manuel Luque</A> </DIV>
<DIV><B>Sent:</B> Thursday, February 24, 2011 8:25 PM</DIV>
<DIV><B>To:</B> <A title=pstricks@tug.org
href="mailto:pstricks@tug.org">pstricks@tug.org</A> </DIV>
<DIV><B>Subject:</B> [pstricks] Re : Function of the current in a
coil</DIV></DIV></DIV>
<DIV><BR></DIV><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 size=2 face="Arial, Helvetica, sans-serif"><BR><BR>(in
french)<BR><BR><A
title="http://manuel.luque.perso.neuf.fr/RL/
STRG + Klicken, um Verknüpfung zu folgen"
href="http://manuel.luque.perso.neuf.fr/RL/">http://manuel.luque.perso.neuf.fr/RL/</A><BR>
<DIV><BR></DIV>
<DIV>best regards,<BR><BR>M.L</DIV><BR>
<DIV><BR></DIV>
<DIV
style="FONT-FAMILY: arial,helvetica; COLOR: black; FONT-SIZE: 10pt">-----E-mail
d'origine-----<BR>De : Thomas Söll 1und1 <<A
href="mailto:Thomas.Soell@onlinehome.de">Thomas.Soell@onlinehome.de</A>><BR>A
: <A href="mailto:pstricks@tug.org">pstricks@tug.org</A><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
style="BACKGROUND-COLOR: rgb(255,255,255); MARGIN: 0px; FONT-FAMILY: Tahoma,Verdana,Arial,Sans-Serif; COLOR: rgb(0,0,0); FONT-SIZE: 12px"
id=AOLMsgPart_7_a8626acc-05fb-48ba-a637-a4bcadb7b159><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>
<P>
<HR>
<P></P>_______________________________________________<BR>PSTricks mailing
list<BR>PSTricks@tug.org<BR>http://tug.org/mailman/listinfo/pstricks<BR>archive:
http://www.tug.org/pipermail/pstricks/</BODY></HTML>