summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-06-12 23:32:15 +0000
committerKarl Berry <karl@freefriends.org>2010-06-12 23:32:15 +0000
commit7bcc6b29e853351e4a95b0aebcb6f2765450e86c (patch)
treeaa90b1ae4d891202466bfac07aa6d323588d62e1 /Master/texmf-dist
parentf8b2509b17bd7177dc511cbaa7ecd21edea407b1 (diff)
pst-magneticfield update (12jun10)
git-svn-id: svn://tug.org/texlive/trunk@18922 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/Changes2
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdfbin1921039 -> 1935584 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex3
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdfbin1918514 -> 1932614 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex1
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdfbin1919464 -> 1989800 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex253
-rw-r--r--Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro14
-rw-r--r--Master/texmf-dist/source/generic/pst-magneticfield/Makefile3
-rw-r--r--Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex12
10 files changed, 240 insertions, 48 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/Changes b/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
index ab18ab44275..2a27ada9221 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
@@ -3,6 +3,7 @@ pst-magneticfield.sty --------
pst-magneticfield.tex --------
+1.13 2010-06-08 - fixed aspurious blank in \pstmageneticfield
1.12 2010-06-07 - allow density plots
- move PS code into a pro file
1.11 2010-05-20 - change order for the different lines
@@ -11,4 +12,5 @@ pst-magneticfield.tex --------
pst-magneticfield.pro --------
+0.02 2010-06-11 - fix bug with wrong arrow directions
0.01 2010-06-07 - initial pro file
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
index 4fef5b85367..cf430cfddc0 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
index 441d705c0a5..0a171359bbb 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
@@ -429,10 +429,9 @@ M\"{o}glichkeiten zur Gestaltung des Gitternetzes zeigen die folgenden zwei Beis
\end{pspicture}
\end{lstlisting}
-\clearpage
-\section{Feldstärkendichte}
+\section{Feldst\"arkendichte}
\begin{center}
\begin{postscript}
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
index fa7089315ae..b24d1f038e2 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
index 6755a7eaa97..100a0253d56 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
@@ -447,7 +447,6 @@ In the following example we can see the handling of these two psstyles.
\end{pspicture}
\end{lstlisting}
-\clearpage
\section{Density plots}
The optional argument \Lkeyword{StreamDensityPlot} allows to plot the
magnetic field as a colored stream density. A gray colored output is possioble
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
index 4e5dd583c65..239b57cf325 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
index 6b0e5a2b96a..38edd66a0d5 100644
--- a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
+++ b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
@@ -22,21 +22,21 @@
\maketitle
-\clearpage%
+\clearpage%
\begin{abstract}
-Le package \LPack{pst-magneticfield} a pour objet de tracer l'allure des lignes de
-champ d'un solénoïde. Les paramètres physiques du solénoïde sont le rayon, le nombre
+Le package \LPack{pst-magneticfield} a pour objet de tracer l'allure des lignes de
+champ d'un solénoïde. Les paramètres physiques du solénoïde sont le rayon, le nombre
de spires et la longueur, les valeurs par défaut sont données ci-dessous :
\begin{enumerate}
\item le nombre de spires : \LKeyset{N=6} ;
\item le rayon : \LKeyset{R=2} ;
\item la longueur : \LKeyset{L=4}.
\end{enumerate}
-Le tracé a été modélisé avec la méthode de Runge-Kutta 2 qui, après plusieurs essais,
-semble être le meilleur compromis entre rapidité des calculs et précision du tracé.
-Le calcul des intégrales elliptiques nécessaires à l'évaluation du champ magnétique
-a été réalisé par des approximations polynômiales tirées du ``\textit{Handbook of
-Mathematical Functions With Formulas, Graph, And Mathematical Tables}'' de
+Le tracé a été modélisé avec la méthode de Runge-Kutta 2 qui, après plusieurs essais,
+semble être le meilleur compromis entre rapidité des calculs et précision du tracé.
+Le calcul des intégrales elliptiques nécessaires à l'évaluation du champ magnétique
+a été réalisé par des approximations polynômiales tirées du ``\textit{Handbook of
+Mathematical Functions With Formulas, Graph, And Mathematical Tables}'' de
Milton Abramowitz et Irene.A. Stegun \url{http://www.math.sfu.ca/~cbm/aands/}.
\end{abstract}
@@ -54,12 +54,12 @@ Les options de tracé, avec les valeurs par défaut, sont les suivantes :
\item le nombre de lignes de l'ensemble de la bobine : \LKeyset{nL=8} ;
\item le pas du tracé pour les lignes de l'ensemble de la bobine : \LKeyset{PasB=0.02} ;
\item le pas du tracé pour les lignes autour de spires choisies : \LKeyset{PasS=0.00275} ;
- \item la possibilité de choisir individuellement des spires pour améliorer le rendu
- du tracé : \LKeyset{numSpires=\{\}} , on place à la suite du signe ``='' les numéros
- des spires \textsf{1 2 3 etc.} en partant de la spire du haut. Par défaut,
+ \item la possibilité de choisir individuellement des spires pour améliorer le rendu
+ du tracé : \LKeyset{numSpires=\{\}} , on place à la suite du signe ``='' les numéros
+ des spires \textsf{1 2 3 etc.} en partant de la spire du haut. Par défaut,
toutes les spires sont ciblées.
\item Le nombre de lignes de champ autour des spires choisies : \LKeyset{nS=1}.
- \item On peut décider de ne pas représenter le solénoïde avec l'option \LKeyset{drawSelf=false},
+ \item On peut décider de ne pas représenter le solénoïde avec l'option \LKeyset{drawSelf=false},
c'est utile pour la représentation en 3D.
\item les options de tracé des spires (couleur, épaisseur, flèches) sont :
\begin{enumerate}
@@ -72,10 +72,11 @@ Les options de tracé, avec les valeurs par défaut, sont les suivantes :
\newpsstyle{sensCourant}{linecolor=red,linewidth=2\pslinewidth,arrowinset=0.1}
\end{verbatim}
- \item La couleur et l'épaisseur des lignes de champ se règlent avec les paramètres usuels
+ \item La couleur et l'épaisseur des lignes de champ se règlent avec les paramètres usuels
de \LPack{pstricks} : \Lkeyword{linecolor} et \Lkeyword{linewidth}.
+ \item On peut mettre en image de fond la carte de la densité de flux avec l'option \textsf{StreamDensityPlot}, celle-ci est par défaut en couleur, mais il est possible de l'afficher en niveaux de gris avec \textsf{setgray}.
\end{enumerate}
-Une commande \Lcs{psmagneticfieldThreeD} permet la visualisation en 3D du solénoïde et
+Une commande \Lcs{psmagneticfieldThreeD} permet la visualisation en 3D du solénoïde et
des lignes de champ.
\clearpage
@@ -85,10 +86,10 @@ des lignes de champ.
\begin{center}
\begin{postscript}
\psset{unit=0.5cm}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=3,R=2,nS=1](-7,-8)(7,8)
+\begin{pspicture*}(-7,-8)(7,8)
+\psmagneticfield[linecolor={[HTML]{006633}},N=3,R=2,StreamDensityPlot](-7,-8)(7,8)
\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,nS=1]}
+\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,StreamDensityPlot]}
\end{pspicture*}
\begin{pspicture*}[showgrid](-7,-8)(7,8)
\psmagneticfield[linecolor={[HTML]{006633}},L=8,N=3,R=2,nS=1,PasB=0.0025,pointsB=5500](-7,-8)(7,8)
@@ -113,11 +114,11 @@ des lignes de champ.
\end{lstlisting}
-\textbf{Remarque :} pour affiner le tracé du deuxième solénoïde, on a du augmenter
-le nombre de points et diminuer le pas du tracé :
+\textbf{Remarque :} pour affiner le tracé du deuxième solénoïde, on a du augmenter
+le nombre de points et diminuer le pas du tracé :
\begin{postscript}
\Cadre{\textcolor{white}{pointsB=5500,PasB=0.0025}}
-\end{postscript},
+\end{postscript},
ce qui rallonge la durée des calculs.
@@ -194,10 +195,10 @@ ce qui rallonge la durée des calculs.
\clearpage
\section{Les options de tracé}
\subsection{Le nombre de lignes de champ}
-En raison de la symétrie du phénomène le nombre de lignes de champ donné en option
-\Lkeyword{nL} est la moitié du nombre réellement représenté auquel il faut ajouter
-la ligne confondue avec l'axe de révolution. Il faut aussi rajouter les lignes
-autour des spires \Lkeyword{nS}, ces spires pouvant être choisies individuellement
+En raison de la symétrie du phénomène le nombre de lignes de champ donné en option
+\Lkeyword{nL} est la moitié du nombre réellement représenté auquel il faut ajouter
+la ligne confondue avec l'axe de révolution. Il faut aussi rajouter les lignes
+autour des spires \Lkeyword{nS}, ces spires pouvant être choisies individuellement
avec \Lkeyword{numSpires}.
@@ -234,8 +235,8 @@ avec \Lkeyword{numSpires}.
\clearpage
\subsection{Le nombre de points et le pas du tracé}
-Le tracé des lignes de champ est réalisé par une méthode numérique (RK2) et il s'ensuit
-le pas du tracé et le nombre de points choisis influent sur la précision du tracé,
+Le tracé des lignes de champ est réalisé par une méthode numérique (RK2) et il s'ensuit
+le pas du tracé et le nombre de points choisis influent sur la précision du tracé,
comme dans les deux exemples ci-dessous :
\begin{center}
@@ -277,7 +278,7 @@ comme dans les deux exemples ci-dessous :
\end{lstlisting}
-Si les valeurs par défaut ne conviennent pas il faut donc trouver par des
+Si les valeurs par défaut ne conviennent pas il faut donc trouver par des
essais les valeurs qui donnent un tracé correct.
@@ -354,7 +355,7 @@ essais les valeurs qui donnent un tracé correct.
\clearpage
\section{La vue en 3D}
-La vue en 3D utilise la commande
+La vue en 3D utilise la commande
\begin{BDef}
\Lcs{psmagneticfield}\OptArgs\coord1\coord2\\
@@ -362,9 +363,9 @@ La vue en 3D utilise la commande
\end{BDef}
dans laquelle les options sont les paramètres de
-\Lcs{psmagneticfield} et \verb+(x1,y1)(x2,y2)+ les coordonnées des coins
-inférieur gauche et supérieur droit du cadre dans lequel est encapsulée
-la carte du champ comme pour \Lcs{psframe}. On pourra utiliser l'option \Lkeyword{viewpoint} du
+\Lcs{psmagneticfield} et \verb+(x1,y1)(x2,y2)+ les coordonnées des coins
+inférieur gauche et supérieur droit du cadre dans lequel est encapsulée
+la carte du champ comme pour \Lcs{psframe}. On pourra utiliser l'option \Lkeyword{viewpoint} du
package \LPack{pst-3d} pour modifier le point de vue.
Les options du cadre sont, par défaut, les suivantes :
@@ -439,7 +440,6 @@ Ce sont donc celles-ci qu'il faudra modifier si on souhaite en changer, comme da
\end{pspicture}
\end{lstlisting}
-\clearpage
\section{Density plots}
\begin{center}
@@ -494,12 +494,199 @@ Ce sont donc celles-ci qu'il faudra modifier si on souhaite en changer, comme da
\end{pspicture*}
\end{lstlisting}
+\section{Un article très intéressant}
+Il s'agit de celui paru dans le bulletin de l'union des physiciens \no{}918(2) de novembre 2009 : \textit{Intégrales elliptiques et champ magnétique créé par une spire circulaire}, dans lequel Thierry PRÉ démontre l'expression des composantes du champ magnétique de deux façons, à partir de la loi de Biot-Savart, puis à partir du potentiel vecteur ; il donne aussi différentes représentations des lignes de champ de plusieurs configurations de spires, obtenues à l'aide du logiciel \textit{Mathematica}.
+\url{http://www.udppc.asso.fr/bupdoc/textes/fichierjoint/918/0918D119.zip}
+
+Thierry met les sources \textsf{Mathematica} des figures illustrant son article à la disposition de ceux qui ont la chance de posséder ou de pouvoir utiliser ce logiciel :
+\begin{verbatim}
+Commandes à copier dans mathematica pour les figures de mon article .........
+
+**************************************************************************************************************
+bx[x_, y_, a_, R_, I_] :=
+ I*(y - R)/x/
+ Sqrt[(a + Abs[x])^2 + (y - R)^2]*(-EllipticK[
+ 4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)] + (a^2 +
+ Abs[x]^2 + (y - R)^2)/((a - Abs[x])^2 + (y - R)^2)*
+ EllipticE[4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)])
+**************************************************************************************************************
+by[x_, y_, a_, R_, I_] :=
+ I/Sqrt[(a + Abs[x])^2 + (y - R)^2]*(EllipticK[
+ 4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)] + (a^2 -
+ Abs[x]^2 - (y - R)^2)/((a - Abs[x])^2 + (y - R)^2)*
+ EllipticE[4*a*Abs[x]/((a + Abs[x])^2 + (y - R)^2)])
+**************************************************************************************************************
+StreamPlot[{bx[x, y, 1, 0, 1], by[x, y, 1, 0, 1]}, {x, -4, 4}, {y, -4,
+ 4}]
+
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 0, 1], by[x, y, 1, 0, 1]}, {x, -4,
+ 4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1],
+ by[x, y, 1, -1, 1] + by[x, y, 1, 1, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1] +
+ bx[x, y, 1, 0, 1],
+ by[x, y, 1, -1, 1] + by[x, y, 1, 1, 1] + by[x, y, 1, 0, 1]}, {x, -4,
+ 4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 1, -0.5, 1] +
+ bx[x, y, 1, 1.5, 1] + bx[x, y, 1, -1.5, 1],
+ by[x, y, 1, 0.5, 1] + by[x, y, 1, -0.5, 1] + by[x, y, 1, 1.5, 1] +
+ by[x, y, 1, -1.5, 1]}, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large,
+ StreamStyle -> Black, ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1] +
+ bx[x, y, 1, 2, 1] + bx[x, y, 1, -2, 1] + bx[x, y, 1, 0, 1],
+ by[x, y, 1, 1, 1] + by[x, y, 1, -1, 1] + by[x, y, 1, 2, 1] +
+ by[x, y, 1, -2, 1] + by[x, y, 1, 0, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> Hue ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 1.5, 1] + bx[x, y, 1, -1.5, 1],
+ by[x, y, 1, -1.5, 1] + by[x, y, 1, 1.5, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 1, 1] + bx[x, y, 1, -1, 1],
+ by[x, y, 1, -1, 1] + by[x, y, 1, 1, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 1, -0.5, 1],
+ by[x, y, 1, -0.5, 1] + by[x, y, 1, 0.5, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.25, 1] + bx[x, y, 1, -0.25, 1],
+ by[x, y, 1, -0.25, 1] + by[x, y, 1, 0.25, 1]}, {x, -4, 4}, {y, -4,
+ 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{bx[x, y, 1, 0.125, 5] + bx[x, y, 1, -0.125, 5],
+ by[x, y, 1, -0.125, 5] + by[x, y, 1, 0.125, 5]}, {x, -4, 4}, {y, -4,
+ 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> "Rainbow" ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 1, -0.5, -1],
+ by[x, y, 1, -0.5, -1] + by[x, y, 1, 0.5, 1]}, {x, -4, 4}, {y, -4,
+ 4}, ImageSize -> Large, StreamStyle -> Black, ColorFunction -> Hue ,
+ StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 4] + bx[x, y, 1, -0.5, 2] +
+ bx[x, y, 1, 1.5, 8] + bx[x, y, 1, -1.5, 1],
+ by[x, y, 1, 0.5, 4] + by[x, y, 1, -0.5, 2] + by[x, y, 1, 1.5, 8] +
+ by[x, y, 1, -1.5, 1]}, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large,
+ StreamStyle -> Black, ColorFunction -> Hue ,
+ StreamPoints -> Fine]
+
+**************************************************************************************************************
+StreamDensityPlot[{bx[x, y, 1, 0.5, 1] + bx[x, y, 0.5, -0.5, 1] +
+ bx[x, y, 2, 1.5, 1] + bx[x, y, 0.25, -1.5, 1],
+ by[x, y, 1, 0.5, 1] + by[x, y, 0.5, -0.5, 1] + by[x, y, 2, 1.5, 1] +
+ by[x, y, 0.25, -1.5, 1]}, {x, -4, 4}, {y, -4, 4},
+ ImageSize -> Large, StreamStyle -> Black, ColorFunction -> Hue ,
+ StreamPoints -> Fine]
+**************************************************************************************************************
+
+StreamDensityPlot[{
+ bx[x - 2, y, 0.5, 0, 1]
+ - by[-y + 2, x, 0.5, 0, 1]
+ - bx[x + 2, y, 0.5, 0, 1] +
+ by[-y - 2, x, 0.5, 0, 1]
+ ,
+ by[x - 2, y, 0.5, 0, 1] +
+ bx[-y + 2, x, 0.5, 0, 1]
+ - by[x + 2, y, 0.5, 0, 1]
+ - bx[-y - 2, x, 0.5, 0, 1]
+ }, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> Hue ,
+ StreamPoints -> Fine]
+
+**************************************************************************************************************
+
+StreamDensityPlot[{
+ bx[x - 2, y, 0.5, 0, 1]
+ - by[-y + 2, x, 0.5, 0, 1]
+ - bx[x + 2, y, 0.5, 0, 1] +
+ by[-y - 2, x, 0.5, 0, 1] +
+ bx[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+ 0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 -
+ by[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+ 0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+ -bx[-0.707*(x + 2*0.707) +
+ 0.707*(y - 2*0.707), -0.707*(y - 2*0.707) -
+ 0.707*(x + 2*0.707), 0.5, 0, 1]*0.707 -
+ by[-0.707*(x + 2*0.707) +
+ 0.707*(y - 2*0.707), -0.707*(y - 2*0.707) - 0.707*(x + 2*0.707),
+ 0.5, 0, 1]*0.707 +
+ -bx[-0.707*(x + 2*0.707) -
+ 0.707*(y + 2*0.707), -0.707*(y + 2*0.707) +
+ 0.707*(x + 2*0.707), 0.5, 0, 1]*0.707 +
+ by[-0.707*(x + 2*0.707) -
+ 0.707*(y + 2*0.707), -0.707*(y + 2*0.707) + 0.707*(x + 2*0.707),
+ 0.5, 0, 1]*0.707 +
+ bx[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+ 0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+ by[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+ 0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707
+ ,
+ by[x - 2, y, 0.5, 0, 1] +
+ bx[-y + 2, x, 0.5, 0, 1]
+ - by[x + 2, y, 0.5, 0, 1]
+ - bx[-y - 2, x, 0.5, 0, 1] +
+ bx[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+ 0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+ by[0.707*(x - 2*0.707) + 0.707*(y - 2*0.707),
+ 0.707*(y - 2*0.707) - 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+ bx[-0.707*(x + 2*0.707) +
+ 0.707*(y - 2*0.707), -0.707*(y - 2*0.707) - 0.707*(x + 2*0.707),
+ 0.5, 0, 1]*0.707 -
+ by[-0.707*(x + 2*0.707) +
+ 0.707*(y - 2*0.707), -0.707*(y - 2*0.707) - 0.707*(x + 2*0.707),
+ 0.5, 0, 1]*0.707 +
+ -bx[-0.707*(x + 2*0.707) -
+ 0.707*(y + 2*0.707), -0.707*(y + 2*0.707) +
+ 0.707*(x + 2*0.707), 0.5, 0, 1]*0.707 -
+ by[-0.707*(x + 2*0.707) -
+ 0.707*(y + 2*0.707), -0.707*(y + 2*0.707) + 0.707*(x + 2*0.707),
+ 0.5, 0, 1]*0.707 +
+ -bx[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+ 0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707 +
+ by[0.707*(x - 2*0.707) - 0.707*(y + 2*0.707),
+ 0.707*(y + 2*0.707) + 0.707*(x - 2*0.707), 0.5, 0, 1]*0.707
+ }, {x, -4, 4}, {y, -4, 4}, ImageSize -> Large, StreamStyle -> Black,
+ ColorFunction -> Hue ,
+ StreamPoints -> Fine
+ ]
+**************************************************************************************************************
+\end{verbatim}
\clearpage
-\section{List of all optional arguments for \texttt{pst-magneticfield}}
+\section{Liste des arguments optionnels pour \texttt{pst-magneticfield}}
\xkvview{family=pst-magneticfield,columns={key,type,default}}
diff --git a/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro b/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
index fdd24b8217c..1d3cab3a66f 100644
--- a/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
+++ b/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
@@ -1,4 +1,4 @@
-%% $Id: pst-magneticfield.pro 339 2010-06-07 20:50:23Z herbert $
+%% $Id: pst-magneticfield.pro 346 2010-06-11 06:12:08Z herbert $
%%
%% This is file `pst-magneticfield.pro',
%%
@@ -16,7 +16,7 @@
%% DESCRIPTION:
%% `pst-magneticfield' is a PSTricks package to draw fields of Helmholtz coils
%%
-%% version 0.01 / 2010-06-07 Herbert Voss <hvoss _at_ tug.org>
+%% version 0.02 / 2010-06-11 Herbert Voss <hvoss _at_ tug.org>
%%
%
/tx@MFieldDict 60 dict def
@@ -29,13 +29,17 @@ tx@MFieldDict begin
gsave
x2 y2 moveto
y2 y1 sub x2 x1 sub atan rotate % 1 1 scale
- -1 CLW mul 2 CLW mul rlineto
- 7 CLW mul -2 CLW mul rlineto
- -7 CLW mul -2 CLW mul rlineto
+% -1 CLW mul 2 CLW mul rlineto
+% 7 CLW mul -2 CLW mul rlineto
+% -7 CLW mul -2 CLW mul rlineto
+ 1 CLW mul 2 CLW mul rlineto
+ -7 CLW mul -2 CLW mul rlineto
+ 7 CLW mul -2 CLW mul rlineto
closepath
fill
grestore
} def
+%
/Calcul_B_Spires {
/Bx 0 def
/By 0 def
diff --git a/Master/texmf-dist/source/generic/pst-magneticfield/Makefile b/Master/texmf-dist/source/generic/pst-magneticfield/Makefile
index 5ab44b5e071..05debd66904 100644
--- a/Master/texmf-dist/source/generic/pst-magneticfield/Makefile
+++ b/Master/texmf-dist/source/generic/pst-magneticfield/Makefile
@@ -5,7 +5,7 @@
PACKAGE = pst-magneticfield
MAIN = $(PACKAGE)-doc
-LANGUAGES = FR
+LANGUAGES = DE EN FR
empty=
space=$(empty) $(empty)
@@ -18,6 +18,7 @@ TDS = ~/PSTricks/PSTricks-TDS
LATEX = pst2pdf
PDFLATEX = pdflatex
OPTIONS= --Iext=.png --Iscale=0.5 --DPI=150
+#--noImages
ARCHNAME = $(PACKAGE)-$(shell date +%Y%m%d)
diff --git a/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex b/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
index 417a78dade5..be716d75a51 100644
--- a/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
+++ b/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
@@ -20,8 +20,8 @@
\ifx\MultidoLoaded\endinput\else \input multido.tex\fi
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
%
-\def\fileversion{1.12}
-\def\filedate{2010/06/07}
+\def\fileversion{1.13}
+\def\filedate{2010/06/11}
\message{`pst-magneticfield' v\fileversion, \filedate\space (ml,jg,hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -67,7 +67,7 @@
\def\psmagneticfield@ii(#1,#2){\@ifnextchar({\psmagneticfield@iii(#1,#2)}{\psmagneticfield@iii(#1,#2)(6,5)}}
\def\psmagneticfield@iii(#1,#2)(#3,#4){%
\pst@killglue%
- \ifPst@AntiHelmholtz\addto@par{N=2}\fi
+ \ifPst@AntiHelmholtz\addbefore@par{N=2}\fi%
\begin@SpecialObj%
\pst@Verb{% make it global
/NombreSpires \psk@magneticfieldN\space def
@@ -109,7 +109,7 @@
/StreamDensityPlot \ifPst@StreamDensityPlot true \else false \fi def
/Setgray \ifPst@setgray true \else false \fi def
}%
- \addto@pscode{ \tx@MFieldDict MagneticField end}
+ \addto@pscode{ \tx@MFieldDict MagneticField end }%
\ifPst@drawSelf
\ifPst@AntiHelmholtz
\psline[style=\psk@styleSpire](!Radius neg Radius 2 div)(!Radius Radius 2 div)
@@ -120,8 +120,8 @@
\multido{\i=1+1}{\psk@magneticfieldN}{% numero de la spire
\pst@Verb{ /Yspire yA \i\space 1 sub inter mul sub def } % position de la spire
\psline[style=\psk@styleSpire](! Radius neg Yspire)(! Radius Yspire)
- \psline[style=\psk@styleCourant]{->}(!-0.2 Yspire)(!0.2 Yspire)}
- \fi
+ \psline[style=\psk@styleCourant]{->}(! -0.2 Yspire)(! 0.2 Yspire)}
+ \fi%
\fi%
\end@SpecialObj%
\ignorespaces}