<font color='black' size='2' face='arial'>
<div> Thomas Söll &lt;Thomas.Soell@lehrer.uka.de&gt;<font size="2"><font face="Arial, Helvetica, sans-serif"> a écrit :<br>
&gt; Hallo Herbert<br>
</font></font></div>

<div> <font size="2"><font face="Arial, Helvetica, sans-serif">&gt;ist possible to draw an equipotentialline in your solution of the fildlines through an given point? <br>
<br>
It is not Herbert, but here is a suggestion: you calculate the potential at one point and you draw the line perpendicular to field lines (-dY, dX).<br>
An example to improve.<br>
<br>
Best regards,<br>
<br>
\documentclass{article}<br>
\usepackage{pstricks,pst-plot}<br>
\SpecialCoor<br>
\def\FieldLines{%<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /r1 xP xA sub dup mul yP dup mul add sqrt def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /r2 xP xA add dup mul yP dup mul add sqrt def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /V q1 r1 div<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; q2 r2 div<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; add def<br>
%&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ex=-dV/dx<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /Ex q1 xP xA sub mul r1 3 exp div<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; q2 xP xA add mul r2 3 exp div<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; add def<br>
%&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ey=-dV/dy<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /Ey yP<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; q1 r1 3 exp div<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; q2 r2 3 exp div<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; add mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /NormeE Ex dup mul Ey dup mul add sqrt def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /dX Ex NormeE div pasX mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /dY Ey NormeE div pasX mul def<br>
}<br>
\begin{document}<br>
\begin{center}<br>
\begin{pspicture*}(-6,-8)(10,8)<br>
% les limites<br>
\pstVerb{/xmin -5 def /xmax 5 def /ymin -5 def /ymax 5 def}%<br>
% le pas d'itération<br>
\pstVerb{/pasX 0.025 def}%<br>
\pstVerb{/q1 1 def&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; % les charges<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /q2 -0.5 q1 mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xA -2.5 def}%<br>
% 15 degrés entre chaque ligne (24*15=360)<br>
\multido{\iA=0+24}{15}{% 15 lignes de champ<br>
\pstVerb{/xStart xA def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /pasX q1 q1 abs div 0.05 mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xP xStart&nbsp; pasX \iA\space cos mul add def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /yP 0 pasX \iA\space sin mul add def}%<br>
\parametricplot[plotpoints=2000,linecolor=blue]{xmin}{xmax}{%<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \FieldLines<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xP xP dX add def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /yP yP dY add&nbsp; def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xP yP<br>
}<br>
\pstVerb{/xStart xA neg def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /pasX q2 q2 abs div 0.05 mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xP xStart pasX \iA\space cos mul add def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /yP 0 pasX \iA\space sin mul add def}%<br>
\parametricplot[plotpoints=2000,linecolor=blue]{xmin}{xmax}{%<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \FieldLines<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xP xP dX add def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /yP yP dY add&nbsp; def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xP yP<br>
}}<br>
\pstVerb{/pasX 0.01 def}%<br>
\multido{\rX=-2+0.5}{9}{%<br>
\pstVerb{/xP \rX\space def}%<br>
\parametricplot[plotpoints=1000,linecolor=red]{0}{1}{% <br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \FieldLines<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /dY Ex NormeE div pasX mul neg def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /dX Ey NormeE div pasX mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xP xP dX add def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /yP yP dY add&nbsp; def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xP yP<br>
}<br>
\parametricplot[plotpoints=1000,linecolor=red]{0}{1}{%<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \FieldLines<br>
% on part perpendiculairement aux lignes de champ<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /dY Ex NormeE div pasX mul neg def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /dX Ey NormeE div pasX mul def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /xP xP dX add def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; /yP yP dY add&nbsp; def<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xP yP neg<br>
}}<br>
\pscircle[fillstyle=solid](!xA 0){0.2}\pscircle[fillstyle=solid](!xA neg 0){0.2}<br>
\end{pspicture*}<br>
\end{center}<br>
\end{document}<br>
</font></font></div>

<div style="clear: both;"></div>

<div> <br>
</div>

<div> <br>
</div>

<div style="font-family: helvetica,arial; font-size: 10pt; color: black;"><br>
<!-- end of AOLMsgPart_0_b19bcbac-974c-404b-9f6b-bfc5f3e75880 -->

</div>
</font>