<font color='black' size='2' face='arial'>
<div> Thomas Söll <Thomas.Soell@lehrer.uka.de><font size="2"><font face="Arial, Helvetica, sans-serif"> a écrit :<br>
> Hallo Herbert<br>
</font></font></div>
<div> <font size="2"><font face="Arial, Helvetica, sans-serif">>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>
/r1 xP xA sub dup mul yP dup mul add sqrt def<br>
/r2 xP xA add dup mul yP dup mul add sqrt def<br>
/V q1 r1 div<br>
q2 r2 div<br>
add def<br>
% Ex=-dV/dx<br>
/Ex q1 xP xA sub mul r1 3 exp div<br>
q2 xP xA add mul r2 3 exp div<br>
add def<br>
% Ey=-dV/dy<br>
/Ey yP<br>
q1 r1 3 exp div<br>
q2 r2 3 exp div<br>
add mul def<br>
/NormeE Ex dup mul Ey dup mul add sqrt def<br>
/dX Ex NormeE div pasX mul def<br>
/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 % les charges<br>
/q2 -0.5 q1 mul def<br>
/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>
/pasX q1 q1 abs div 0.05 mul def<br>
/xP xStart pasX \iA\space cos mul add def<br>
/yP 0 pasX \iA\space sin mul add def}%<br>
\parametricplot[plotpoints=2000,linecolor=blue]{xmin}{xmax}{%<br>
\FieldLines<br>
/xP xP dX add def<br>
/yP yP dY add def<br>
xP yP<br>
}<br>
\pstVerb{/xStart xA neg def<br>
/pasX q2 q2 abs div 0.05 mul def<br>
/xP xStart pasX \iA\space cos mul add def<br>
/yP 0 pasX \iA\space sin mul add def}%<br>
\parametricplot[plotpoints=2000,linecolor=blue]{xmin}{xmax}{%<br>
\FieldLines<br>
/xP xP dX add def<br>
/yP yP dY add def<br>
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>
\FieldLines<br>
/dY Ex NormeE div pasX mul neg def<br>
/dX Ey NormeE div pasX mul def<br>
/xP xP dX add def<br>
/yP yP dY add def<br>
xP yP<br>
}<br>
\parametricplot[plotpoints=1000,linecolor=red]{0}{1}{%<br>
\FieldLines<br>
% on part perpendiculairement aux lignes de champ<br>
/dY Ex NormeE div pasX mul neg def<br>
/dX Ey NormeE div pasX mul def<br>
/xP xP dX add def<br>
/yP yP dY add def<br>
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>