<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=text/html;charset=iso-8859-1 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>Hallo,</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </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><FONT face=Calibri></FONT> </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><FONT face=Calibri></FONT> </DIV>
<DIV><FONT face=Calibri>Does anybody knows a solution?</FONT></DIV>
<DIV><FONT face=Calibri></FONT> </DIV>
<DIV><PRE>Thanks for help
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></BODY></HTML>