texlive[49738] Master/texmf-dist: pst-magneticfield (17jan19)
commits+karl at tug.org
commits+karl at tug.org
Thu Jan 17 22:28:05 CET 2019
Revision: 49738
http://tug.org/svn/texlive?view=revision&revision=49738
Author: karl
Date: 2019-01-17 22:28:05 +0100 (Thu, 17 Jan 2019)
Log Message:
-----------
pst-magneticfield (17jan19)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
trunk/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
trunk/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
Added Paths:
-----------
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README.md
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
trunk/Master/texmf-dist/source/generic/pst-magneticfield/
Modified: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-magneticfield/Changes 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/doc/generic/pst-magneticfield/Changes 2019-01-17 21:28:05 UTC (rev 49738)
@@ -3,6 +3,8 @@
pst-magneticfield.tex --------
+1.15 2019-01-17 - added bar magnet
+1.14 2011-05-01 - allow arrow definition for the current
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
Deleted: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README 2019-01-17 21:28:05 UTC (rev 49738)
@@ -1,23 +0,0 @@
-The files ----------------
-Save the files pst-magneticfield.sty|tex in a directory, which is part of your
-local TeX tree.
-Then do not forget to run texhash to update this tree.
-For more information see the documentation of your LATEX distribution
-on installing packages into your LATEX distribution or the
-TeX Frequently Asked Questions:
-(http://www.tex.ac.uk/cgi-bin/texfaq2html?label=instpackages).
-
-
-The documentation -------------------
-To get a smaller size of the generated pdf file run the
-Makefile or by hand
-"pst2pdf <file> --Iext=.png --Iscale=0.5 --DPI=150". This will
-create eps/pdf/png images in a subdirectory images/ and then
-using only the png ones for the last _pdflatex_ run. The
-file size can be reduced to about 20% of the one created with
-ps2pdf. The pdf file is saved as yfile>-pdf.pdf.
-
-When running the documentation in a traditional way, then
-uncomment the line (in the preamble)
-
-%\newenvironment{postscript}{}{} % uncomment, when running with latex
Added: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README.md (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README.md 2019-01-17 21:28:05 UTC (rev 49738)
@@ -0,0 +1,21 @@
+# pst-magnetiocfield: creating magnetic field lines in 2D and 3D
+
+Save the files pst-magneticfield.sty|pro|tex in a directory, which is part of your
+local TeX tree. The pro file should go into $TEXMF/dvips/pstricks/
+Then do not forget to run texhash to update this tree.
+
+pst-magneticfield needs pstricks, which should
+be part of your local TeX installation, otherwise get it from a
+CTAN server, http://mirror.ctan.org
+
+PSTricks is PostScript Tricks, the documentation cannot be run
+with pdftex, use the sequence latex->dvips->ps2pdf or
+pdflatex with package auto-pst-pdf or xelatex.
+
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+
+
+%% $Id: README.md 912 2019-01-17 10:46:15Z herbert $
+
Property changes on: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/README.md
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Deleted: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf
===================================================================
(Binary files differ)
Deleted: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.tex 2019-01-17 21:28:05 UTC (rev 49738)
@@ -1,502 +0,0 @@
-%% $Id: pst-magneticfield-docDE.tex 343 2010-06-10 15:08:37Z herbert $
-\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
- headexclude,footexclude,oneside]{pst-doc}
-\usepackage[latin1]{inputenc}
-\usepackage{pst-magneticfield}
-\let\pstMFfv\fileversion
-
-%\newenvironment{postscript}{}{} % uncomment, when running with latex
-
-\lstset{pos=t,language=PSTricks,
- morekeywords={psmagneticfield,psmagneticfieldThreeD},basicstyle=\footnotesize\ttfamily}
-\newcommand\Cadre[1]{\psframebox[fillstyle=solid,fillcolor=black,linestyle=none,framesep=0]{#1}}
-\def\bgImage{}
-%
-\begin{document}
-
-\title{\texttt{pst-magneticfield}}
-\subtitle{Magnetische Feldlinien einer langgestreckten Spule; v.\pstMFfv}
-\author{J\"{u}rgen Gilg\\ Manuel Luque\\Herbert Vo\ss}
-%\docauthor{J\"{u}rgen Gilg\\Manuel Luque\\Herbert Vo\ss}
-\date{\today}
-\maketitle
-
-
-\clearpage%
-\begin{abstract}
-Das Paket \LPack{pst-magneticfield} zeichnet magnetische Feldlinien einer langgestreckten Spule.
-Die physikalischen Gr\"{o}{\ss}en sind: Radius der Spule, ihre L\"{a}nge und die Anzahl ihrer
-Windungen. Die voreingestellten Werte sind:
-
-\begin{enumerate}
- \item Anzahl der Windungen: \LKeyset{N=6};
- \item Radius: \LKeyset{R=2};
- \item L\"{a}nge: \LKeyset{L=4}.
-\end{enumerate}
-
-Die magnetischen Feldlinien wurden mit dem Runge-Kutta 2 Verfahren angen\"{a}hert, welches sich
-nach einigen anderen Versuchen als der beste Kompromiss zwischen Re\-chen\-ge\-schwin\-dig\-keit und
-Zeichengenauigkeit der Linien erwies. Die Berechnung der notwendigen elliptischen Integrale
-wurden mit einer polynomialen N\"{a}herung aus dem "Handbook of Mathematical Functions
-With Formulas, Graph, And Mathematical Tables" von Milton Abramowitz und Irene.\,A. Stegun
-(\url{http://www.math.sfu.ca/~cbm/aands/})~\cite{abramowitz} realisiert.
-\end{abstract}
-
-\clearpage
-\tableofcontents
-
-\clearpage
-\section{Einleitung}
-
-Im Folgenden stellen wir die Optionen mit ihren voreingestellten Werten vor:
-\begin{enumerate}
- \item Die Maximalzahl von Berechnungspunkten einer jeden Feldlinie um die gesamte Spule: \LKeyset{pointsB=500};
- \item die Maximalzahl von Berechnungspunkten einer jeden Feldlinie um die Windungen: \LKeyset{pointsS=1000};
- \item die Anzahl der Feldlinien um die gesamte Spule: \LKeyset{nL=8};
- \item Schrittweite f\"{u}r die Feldlinien um die gesamte Spule: \LKeyset{PasB=0.02};
- \item Schrittweite f\"{u}r die Feldlinien um die Windungen: \LKeyset{PasS=0.00275};
- \item nur Feldlinien um individuell ausgew\"{a}hlte Windungen: \LKeyset{numSpires=\{\}}, nach dem Gleichheitsszeichen "=" schreiben wir die Nummer(n) der Windung(en) \textsf{1 2 3 etc.} ausgehend von der obersten Windung. Voreingestellt ist, dass bei allen Windungen die Feldlinien gezeichnet werden.
- \item Die Anzahl der Feldlinien um die gew\"{a}hlten Windungen: \LKeyset{nS=1}.
- \item Falls wir die Spule selbst nicht zeichnen m\"{o}chten, erledigt dies die Option \LKeyset{drawSelf=false} (hilfreich bei 3D-Ansichten).
- \item Die Optionen der Spule (Farbe, Linienst\"{a}rke, Pfeile) sind:
- \begin{enumerate}
- \item Die Farbe und Linienst\"{a}rke der Spule: \Lkeyset{styleSpire=styleSpire};
- \item die Stromst\"{a}rkepfeile: \Lkeyset{styleCourant=sensCourant}.
- \end{enumerate}
-\begin{verbatim}
-\newpsstyle{styleSpire}{linecap=1,linecolor=red,linewidth=2\pslinewidth}
-\newpsstyle{sensCourant}{linecolor=red,linewidth=2\pslinewidth,arrowinset=0.1}
-\end{verbatim}
-
- \item Die Farbe und Linienst\"{a}rke der Feldlinien can mit den g\"{a}ngigen Parametern von \LPack{pstricks} eingestellt werden: \Lkeyword{linecolor} und \Lkeyword{linewidth}
-\end{enumerate}
-
-Der Befehl \Lcs{psmagneticfieldThreeD} erlaubt eine 3D-Ansicht der Spule und der magnetischen Feldlinien.
-
-\clearpage
-\section{Einfluss der physikalischen Gr\"{o}{\ss}en auf das Erscheinungsbild der Feldlinien}
-\subsection{Die L\"{a}nge der Spule}
-
-\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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,nS=1]}
-\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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=8}},N=3,R=2,nS=1]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,nS=1]}
-\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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=8}},N=3,R=2,nS=1]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-\textbf{Anmerkung:} Um das Erscheinungsbild der zweiten Spule zu verbessern, mussten wir die Anzahl der Berechungspunkte erh\"{o}hen und die Schrittweite verkleinern,
- \begin{postscript}
-\Cadre{\textcolor{white}{pointsB=5500,PasB=0.0025}}
-\end{postscript},
-was jedoch eine Erh\"{o}hung der Rechenzeit mit sich brachte.
-
-
-\clearpage
-
-\subsection{Die Anzahl der Windungen}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=1,R=2,nS=0](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=1}},R=2,nS=0]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=2,R=2,L=2,PasS=0.003,nS=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=2}},R=2,L=2,PasS=0.003,nS=2]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=1,R=2,nS=0](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=1}},R=2,nS=0]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=2,R=2,L=2,PasS=0.003,nS=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=2}},R=2,L=2,PasS=0.003,nS=2]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=4,R=2,numSpires=2 3](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=4}},R=2,L=4]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=5,R=2,L=5,PasS=0.004,numSpires=2 3 4](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=5}},R=2,L=5]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=4,R=2,numSpires=2 3](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=4}},R=2,L=4]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=5,R=2,L=5,PasS=0.004,numSpires=2 3 4](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=5}},R=2,L=5]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-
-\clearpage
-\section{Optionen f\"{u}r die Linien}
-\subsection{Die Anzahl der Feldlinien}
-
-Auf Grund der Symmetrie des Problems ist die gew\"{a}hlte Anzahl der Feldlinien \Lkeyword{nL} nur die H\"{a}lfte der tats\"{a}chlich gezeichneten Feldlinien. Hinzu kommt noch eine Feldlinie, die in Richtung der Symmetrieachse der Spule zeigt. Die Anzahl der Feldlinien um die Windungen herum \Lkeyword{nS} kommen auch noch hinzu, diese k\"{o}nnen jedoch mit \Lkeyword{numSpires} individuell ausgew\"{a}hlt werden.
-
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=8}},N=1,R=2]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2,nL=12](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=12}},N=1,R=2]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=8}},N=1,R=2]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2,nL=12](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=12}},N=1,R=2]}
-\end{pspicture*}
-\end{lstlisting}
-
-\clearpage
-\subsection{Die Anzahl der Berechnungspunkte und die Schrittweite}
-
-Die Feldlinien wurden mit einem numerischen Verfahren (Runge-Kutta 2) berechnet und dementsprechend h\"{a}ngt die Genauigkeit der Linien entscheidend ab von der Schrittweite und der Anzahl der Berechnungspunkte, wie in den folgenden zwei Beispielen gezeigt wird:
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.1,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasB=0.1,nL=4,pointsB=100}}]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.4,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasS=0.4,pointsB=100}}]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.1,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasB=0.1,nL=4,pointsB=100}}]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.4,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasS=0.4,pointsB=100}}]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-Sollten die voreingestellten Werte f\"{u}r eine individuelle Gestaltung nicht passen, dann muss man mit den Werten \Lkeyword{pasB}, \Lkeyword{pointsB} (bzw. \Lkeyword{pasS}, \Lkeyword{pointsS}) spielen, bis es passt.
-
-
-
-
-\clearpage
-
-\section{Der Parameter \nxLkeyword{numSpires}}
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-8,-10)(8,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,nS=1,numSpires=1 3 6 8,PasB=0.075](-8,-10)(8,10)
-\psframe*[linecolor={[HTML]{99FF66}}](-8,-10)(8,-9)
-\rput(0,-9.5){[\Cadre{\textcolor{white}{numSpires=1 3 6 8}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}\quad
-\begin{pspicture*}[showgrid](0,-10)(16,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,numSpires=,nS=1,PasB=0.075](0,-10)(16,10)
-\psframe*[linecolor={[HTML]{99FF66}}](0,-10)(16,-9)
-\rput(8,-9.5){[\Cadre{\textcolor{white}{numSpires=all}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-8,-10)(8,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,nS=1,numSpires=1 3 6 8,PasB=0.075](-8,-10)(8,10)
-\psframe*[linecolor={[HTML]{99FF66}}](-8,-10)(8,-9)
-\rput(0,-9.5){[\Cadre{\textcolor{white}{numSpires=1 3 6 8}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}\quad
-\begin{pspicture*}[showgrid](0,-10)(16,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,numSpires=,nS=1,PasB=0.075](0,-10)(16,10)
-\psframe*[linecolor={[HTML]{99FF66}}](0,-10)(16,-9)
-\rput(8,-9.5){[\Cadre{\textcolor{white}{numSpires=all}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}
-\end{lstlisting}
-
-\clearpage
-\section{Der Parameter \nxLkeyword{AntiHelmholtz}}
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture*}[showgrid](-7,-6)(7,6)
-\psframe*[linecolor={[HTML]{996666}}](-7,6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}}]
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.75,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture*}[showgrid](-7,-6)(7,6)
-\psframe*[linecolor={[HTML]{996666}}](-7,6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}}]
-\end{pspicture*}
-\end{lstlisting}
-
-
-\clearpage
-\section{3D-Ansichten}
-3D-Ansichten sind mit den zwei folgenden Makros m\"{o}glich
-
-\begin{BDef}
-\Lcs{psmagneticfield}\OptArgs\coord1\coord2\\
-\Lcs{psmagneticfieldThreeD}\OptArgs\coord1\coord2
-\end{BDef}
-
-in denen die in den vorigen Abschnitten besprochenen Parameter die Optionen von \Lcs{psmagneticfield} darstellen und mit \verb+(x1,y1)(x2,y2)+ werden die
-Koordinaten der linken unteren und rechten oberen Ecke des Gitternetzes festgelegt, welches das Feldlinienbild einrahmt wie mit \Lcs{psframe}. Wir k\"{o}nnen die Option \Lkeyword{viewpoint} des Pakets \LPack{pst-3d} nutzen, um den Ansichtspunkt zu w\"{a}hlen/\"{a}ndern.
- Die voreingestellten Parameter f\"{u}r das Gitternetz sind:
-
-\begin{verbatim}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=lightgray,griddots=10}
-\newpsstyle{cadre}{linecolor=green!20}
-\end{verbatim}
-
-M\"{o}glichkeiten zur Gestaltung des Gitternetzes zeigen die folgenden zwei Beispiele:
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.7cm}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=8,R=2,L=8,pointsB=1200,linecolor=blue,pointsS=2000](-7,-6)(7,6)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.7cm}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=8,R=2,L=8,pointsB=1200,linecolor=blue,pointsS=2000](-7,-6)(7,6)
-\end{pspicture}
-\end{lstlisting}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.7cm}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=2,R=2,L=2,linecolor=blue](-7,-6)(7,6)
-\ThreeDput{\rput(0,-7){\textbf{Bobines de HELMHOLTZ}}}
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.7cm}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=2,R=2,L=2,linecolor=blue](-7,-6)(7,6)
-\ThreeDput{\rput(0,-7){\textbf{Bobines de HELMHOLTZ}}}
-\end{pspicture}
-\end{lstlisting}
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75cm,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[linecolor={[HTML]{660066}}](-7,-6)(7,6)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.75cm,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[linecolor={[HTML]{660066}}](-7,-6)(7,6)
-\end{pspicture}
-\end{lstlisting}
-
-
-
-\section{Feldst\"arkendichte}
-
-\begin{center}
-\begin{postscript}
-\begin{pspicture}(-6,-4)(6,4)
-\psmagneticfield[N=3,R=2,L=2,StreamDensityPlot](-6,-4)(6,4)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\begin{pspicture}(-6,-4)(6,4)
-\psmagneticfield[N=3,R=2,L=2,StreamDensityPlot](-6,-4)(6,4)
-\end{pspicture}
-\end{lstlisting}
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75}
-\begin{pspicture}(-6,-5)(6,5)
-\psmagneticfield[N=2,R=2,L=1,StreamDensityPlot,setgray](-6,-5)(6,5)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.75}
-\begin{pspicture}(-6,-5)(6,5)
-\psmagneticfield[N=2,R=2,L=1,StreamDensityPlot,setgray](-6,-5)(6,5)
-\end{pspicture}
-\end{lstlisting}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75,AntiHelmholtz,
- R=2,pointsB=500,pointsS=2000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\begin{pspicture*}(-7,-6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}},StreamDensityPlot](-7,-6)(7,6)
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-
-\begin{lstlisting}
-\psset{unit=0.75,AntiHelmholtz,
- R=2,pointsB=500,pointsS=2000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\begin{pspicture*}(-7,-6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}},StreamDensityPlot](-7,-6)(7,6)
-\end{pspicture*}
-\end{lstlisting}
-
-
-\clearpage
-\section{Liste aller optionalen Parameter von \texttt{pst-magneticfield}}
-
-\xkvview{family=pst-magneticfield,columns={key,type,default}}
-
-\nocite{*}
-\bgroup
-\raggedright
-\bibliographystyle{plain}
-\bibliography{pst-magneticfield-doc}
-\egroup
-
-\printindex
-\end{document}
\ No newline at end of file
Modified: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf
===================================================================
(Binary files differ)
Modified: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.tex 2019-01-17 21:28:05 UTC (rev 49738)
@@ -1,17 +1,19 @@
-%% $Id: pst-magneticfield-docEN.tex 343 2010-06-10 15:08:37Z herbert $
-\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
+%% $Id: pst-magneticfield-docEN.tex 912 2019-01-17 10:46:15Z herbert $
+\documentclass[11pt,english,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings,
headexclude,footexclude,oneside]{pst-doc}
-\usepackage[latin1]{inputenc}
\usepackage{pst-magneticfield}
\let\pstMFfv\fileversion
+\usepackage{graphicx}
\lstset{pos=t,language=PSTricks,
morekeywords={psmagneticfield,psmagneticfieldThreeD},basicstyle=\footnotesize\ttfamily}
-%\newenvironment{postscript}{}{} % uncomment, when running with latex
+\newenvironment{postscript}{}{} % uncomment, when running with latex
\newcommand\Cadre[1]{\psframebox[fillstyle=solid,fillcolor=black,linestyle=none,framesep=0]{#1}}
\def\bgImage{}
-%
+
+\addbibresource{pst-magneticfield-doc.bib}
+
\begin{document}
\title{\texttt{pst-magneticfield}}
@@ -506,6 +508,126 @@
\clearpage
+\section{Stream density}
+
+
+\begin{center}
+\begin{postscript}
+\begin{pspicture}(-6,-4)(6,4)
+\psmagneticfield[N=3,R=2,L=2,StreamDensityPlot](-6,-4)(6,4)
+\end{pspicture}
+\end{postscript}
+\end{center}
+
+\begin{lstlisting}
+\begin{pspicture}(-6,-4)(6,4)
+\psmagneticfield[N=3,R=2,L=2,StreamDensityPlot](-6,-4)(6,4)
+\end{pspicture}
+\end{lstlisting}
+
+\begin{center}
+\begin{postscript}
+\psset{unit=0.75}
+\begin{pspicture}(-6,-5)(6,5)
+\psmagneticfield[N=2,R=2,L=1,StreamDensityPlot,setgray](-6,-5)(6,5)
+\end{pspicture}
+\end{postscript}
+\end{center}
+
+\begin{lstlisting}
+\psset{unit=0.75}
+\begin{pspicture}(-6,-5)(6,5)
+\psmagneticfield[N=2,R=2,L=1,StreamDensityPlot,setgray](-6,-5)(6,5)
+\end{pspicture}
+\end{lstlisting}
+
+
+\begin{center}
+\begin{postscript}
+\psset{unit=0.75,AntiHelmholtz,
+ R=2,pointsB=500,pointsS=2000,PasB=0.02,PasS=0.00275,nS=10,
+ nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
+\begin{pspicture*}(-7,-6)(7,6)
+\psmagneticfield[linecolor={[HTML]{660066}},StreamDensityPlot](-7,-6)(7,6)
+\end{pspicture*}
+\end{postscript}
+\end{center}
+
+
+\begin{lstlisting}
+\psset{unit=0.75,AntiHelmholtz,
+ R=2,pointsB=500,pointsS=2000,PasB=0.02,PasS=0.00275,nS=10,
+ nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
+\begin{pspicture*}(-7,-6)(7,6)
+\psmagneticfield[linecolor={[HTML]{660066}},StreamDensityPlot](-7,-6)(7,6)
+\end{pspicture*}
+\end{lstlisting}
+
+
+
+\section{Bar magnet}
+The magnetic field of a bat magnet can be simulated. There is one macro for the bar magnet, which will be
+put over one of the above created mnagnetic fields.
+
+\begin{BDef}
+\Lcs{psBarMagnet}\OptArgs\OptArg{\Largr{$x,y$}}
+\end{BDef}
+
+\begin{LTXexample}
+\begin{pspicture}(-1,-2)(12,2)
+\psBarMagnet% (0,0) is assumed
+\psBarMagnet(2,0.5)
+\psBarMagnet*(4,0)
+\psBarMagnet[rot=90](7,0)
+\psBarMagnet[rot=45](10,0)
+\end{pspicture}
+\end{LTXexample}
+
+
+Bar magnet and field can be put of the other by single commands:
+
+
+\begin{LTXexample}
+\begin{pspicture*}[showgrid=false](-5,-8)(5,8)
+\psset{linecolor=blue}
+\psscalebox{0.8 1.2}{\psmagneticfield[R=1,L=5,N=5,pointsS=200,nL=9,nS=0,PasB=0.1,numSpires=0](-8,-10)(8,10)}
+\rput(0,0){\psscalebox{2.2 3.0}{\psBarMagnet}}
+\end{pspicture*}
+\end{LTXexample}
+
+
+or by using the optional argument \Lkeyword{showField}:
+
+\begin{LTXexample}
+\begin{pspicture*}(-5,-8)(5,8)
+\psBarMagnet[showField](0,0)
+\end{pspicture*}
+\end{LTXexample}
+
+A rotation has to be done with the command \Lcs{rotatebox} from package \LPack{graphicx}:
+
+
+\begin{LTXexample}
+\begin{pspicture*}(-5,-8)(5,8)
+\rotatebox{180}{\psBarMagnet[showField](0,0)}
+\end{pspicture*}
+\end{LTXexample}
+
+
+Scaling is possible with the optional argument \Lkeyword{magnetscale} and all options which
+are valid for
+
+
+\begin{LTXexample}
+\begin{pspicture*}(-5,-8)(5,8)
+\psBarMagnet[showField,nL=18,magnetScale=1 1.5](0,0)
+\end{pspicture*}
+\end{LTXexample}
+
+
+
+
+\clearpage
\section{List of all optional arguments for \texttt{pst-magneticfield}}
\xkvview{family=pst-magneticfield,columns={key,type,default}}
@@ -513,8 +635,7 @@
\nocite{*}
\bgroup
\raggedright
-\bibliographystyle{plain}
-\bibliography{pst-magneticfield-doc}
+\printbibliography
\egroup
Deleted: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf
===================================================================
(Binary files differ)
Deleted: trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.tex 2019-01-17 21:28:05 UTC (rev 49738)
@@ -1,706 +0,0 @@
-%% $Id: pst-magneticfield-docFR.tex 343 2010-06-10 15:08:37Z herbert $
-\documentclass[11pt,english,french,BCOR10mm,DIV12,bibliography=totoc,parskip=false,smallheadings
- headexclude,footexclude,oneside]{pst-doc}
-\usepackage[latin1]{inputenc}
-\usepackage{pst-magneticfield}
-\let\pstMFfv\fileversion
-
-%\newenvironment{postscript}{}{} % uncomment, when running with latex
-
-\lstset{pos=t,language=PSTricks,
- morekeywords={psmagneticfield,psmagneticfieldThreeD},basicstyle=\footnotesize\ttfamily}
-\newcommand\Cadre[1]{\psframebox[fillstyle=solid,fillcolor=black,linestyle=none,framesep=0]{#1}}
-\def\bgImage{}
-%
-\begin{document}
-
-\title{\texttt{pst-magneticfield}}
-\subtitle{Magnetic field lines of a solenoid; v.\pstMFfv}
-\author{Juergen Gilg\\ Manuel Luque\\Herbert Vo\ss}
-%\docauthor{Juergen Gilg\\Manuel Luque\\Herbert Vo\ss}
-\date{\today}
-\maketitle
-
-
-\clearpage%
-\begin{abstract}
-Le package \LPack{pst-magneticfield} a pour objet de tracer l'allure des lignes de
-champ d'un sol\xE9no\xEFde. Les param\xE8tres physiques du sol\xE9no\xEFde sont le rayon, le nombre
-de spires et la longueur, les valeurs par d\xE9faut sont donn\xE9es 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\xE9 a \xE9t\xE9 mod\xE9lis\xE9 avec la m\xE9thode de Runge-Kutta 2 qui, apr\xE8s plusieurs essais,
-semble \xEAtre le meilleur compromis entre rapidit\xE9 des calculs et pr\xE9cision du trac\xE9.
-Le calcul des int\xE9grales elliptiques n\xE9cessaires \xE0 l'\xE9valuation du champ magn\xE9tique
-a \xE9t\xE9 r\xE9alis\xE9 par des approximations polyn\xF4miales tir\xE9es 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}
-
-\clearpage
-\tableofcontents
-
-
-\clearpage
-
-\section{Introduction}
-Les options de trac\xE9, avec les valeurs par d\xE9faut, sont les suivantes :
-\begin{enumerate}
- \item Le nombre de points maximum sur chaque ligne de l'ensemble de la bobine : \LKeyset{pointsB=500} ;
- \item le nombre de points maximum sur des lignes autour de spires choisies : \LKeyset{pointsS=1000} ;
- \item le nombre de lignes de l'ensemble de la bobine : \LKeyset{nL=8} ;
- \item le pas du trac\xE9 pour les lignes de l'ensemble de la bobine : \LKeyset{PasB=0.02} ;
- \item le pas du trac\xE9 pour les lignes autour de spires choisies : \LKeyset{PasS=0.00275} ;
- \item la possibilit\xE9 de choisir individuellement des spires pour am\xE9liorer le rendu
- du trac\xE9 : \LKeyset{numSpires=\{\}} , on place \xE0 la suite du signe ``='' les num\xE9ros
- des spires \textsf{1 2 3 etc.} en partant de la spire du haut. Par d\xE9faut,
- toutes les spires sont cibl\xE9es.
- \item Le nombre de lignes de champ autour des spires choisies : \LKeyset{nS=1}.
- \item On peut d\xE9cider de ne pas repr\xE9senter le sol\xE9no\xEFde avec l'option \LKeyset{drawSelf=false},
- c'est utile pour la repr\xE9sentation en 3D.
- \item les options de trac\xE9 des spires (couleur, \xE9paisseur, fl\xE8ches) sont :
- \begin{enumerate}
- \item La couleur et l'\xE9paisseur du trait des spires : \Lkeyset{styleSpire=styleSpire} ;
- \item le fl\xE9chage du sens du courant : \Lkeyset{styleCourant=sensCourant}.
- \end{enumerate}
-
-\begin{verbatim}
-\newpsstyle{styleSpire}{linecap=1,linecolor=red,linewidth=2\pslinewidth}
-\newpsstyle{sensCourant}{linecolor=red,linewidth=2\pslinewidth,arrowinset=0.1}
-\end{verbatim}
-
- \item La couleur et l'\xE9paisseur des lignes de champ se r\xE8glent avec les param\xE8tres usuels
- de \LPack{pstricks} : \Lkeyword{linecolor} et \Lkeyword{linewidth}.
- \item On peut mettre en image de fond la carte de la densit\xE9 de flux avec l'option \textsf{StreamDensityPlot}, celle-ci est par d\xE9faut 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\xE9no\xEFde et
-des lignes de champ.
-
-\clearpage
-\section{Influence des param\xE8tres physiques sur la carte du champ magn\xE9tique}
-\subsection{La longueur du sol\xE9no\xEFde}
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5cm}
-\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,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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=8}},N=3,R=2,nS=1]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=4}},N=3,R=2,nS=1]}
-\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)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{L=8}},N=3,R=2,nS=1]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-\textbf{Remarque :} pour affiner le trac\xE9 du deuxi\xE8me sol\xE9no\xEFde, on a du augmenter
-le nombre de points et diminuer le pas du trac\xE9 :
-\begin{postscript}
-\Cadre{\textcolor{white}{pointsB=5500,PasB=0.0025}}
-\end{postscript},
-ce qui rallonge la dur\xE9e des calculs.
-
-
-
-\clearpage
-
-\subsection{Le nombre de spires}
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=1,R=2,nS=0](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=1}},R=2,nS=0]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=2,R=2,L=2,PasS=0.003,nS=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=2}},R=2,L=2,PasS=0.003,nS=2]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=1,R=2,nS=0](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=1}},R=2,nS=0]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=2,R=2,L=2,PasS=0.003,nS=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=2}},R=2,L=2,PasS=0.003,nS=2]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=4,R=2,numSpires=2 3](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=4}},R=2,L=4]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=5,R=2,L=5,PasS=0.004,numSpires=2 3 4](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=5}},R=2,L=5]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=4,R=2,numSpires=2 3](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=4}},R=2,L=4]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{006633}},N=5,R=2,L=5,PasS=0.004,numSpires=2 3 4](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{99FF66}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{N=5}},R=2,L=5]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-\clearpage
-\section{Les options de trac\xE9}
-\subsection{Le nombre de lignes de champ}
-En raison de la sym\xE9trie du ph\xE9nom\xE8ne le nombre de lignes de champ donn\xE9 en option
-\Lkeyword{nL} est la moiti\xE9 du nombre r\xE9ellement repr\xE9sent\xE9 auquel il faut ajouter
-la ligne confondue avec l'axe de r\xE9volution. Il faut aussi rajouter les lignes
-autour des spires \Lkeyword{nS}, ces spires pouvant \xEAtre choisies individuellement
-avec \Lkeyword{numSpires}.
-
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=8}},N=1,R=2]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2,nL=12](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=12}},N=1,R=2]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=8}},N=1,R=2]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{000099}},N=1,R=2,nL=12](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{3399FF}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{nL=12}},N=1,R=2]}
-\end{pspicture*}
-\end{lstlisting}
-
-\clearpage
-\subsection{Le nombre de points et le pas du trac\xE9}
-Le trac\xE9 des lignes de champ est r\xE9alis\xE9 par une m\xE9thode num\xE9rique (RK2) et il s'ensuit
-le pas du trac\xE9 et le nombre de points choisis influent sur la pr\xE9cision du trac\xE9,
-comme dans les deux exemples ci-dessous :
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.1,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasB=0.1,nL=4,pointsB=100}}]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.4,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasS=0.4,pointsB=100}}]}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.1,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasB=0.1,nL=4,pointsB=100}}]}
-\end{pspicture*}
-\begin{pspicture*}[showgrid](-7,-8)(7,8)
-\psmagneticfield[linecolor={[HTML]{660066}},N=2,R=2,L=2,PasB=0.4,nS=0,nL=7,pointsB=100](-7,-8)(7,8)
-\psframe*[linecolor={[HTML]{996666}}](-7,7)(7,8)
-\rput(0,7.5){\Cadre{\textcolor{white}{Bobines de Helmholtz}}}
-\psframe*[linecolor={[HTML]{996666}}](-7,-8)(7,-7)
-\rput(0,-7.5){[\Cadre{\textcolor{white}{PasS=0.4,pointsB=100}}]}
-\end{pspicture*}
-\end{lstlisting}
-
-
-Si les valeurs par d\xE9faut ne conviennent pas il faut donc trouver par des
-essais les valeurs qui donnent un trac\xE9 correct.
-
-
-\clearpage
-
-\section{Le param\xE8tre: numSpires}
-\begin{center}
-\begin{postscript}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-8,-10)(8,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,nS=1,numSpires=1 3 6 8,PasB=0.075](-8,-10)(8,10)
-\psframe*[linecolor={[HTML]{99FF66}}](-8,-10)(8,-9)
-\rput(0,-9.5){[\Cadre{\textcolor{white}{numSpires=1 3 6 8}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}\quad
-\begin{pspicture*}[showgrid](0,-10)(16,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,numSpires=,nS=1,PasB=0.075](0,-10)(16,10)
-\psframe*[linecolor={[HTML]{99FF66}}](0,-10)(16,-9)
-\rput(8,-9.5){[\Cadre{\textcolor{white}{numSpires=all}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-
-\begin{lstlisting}
-\psset{unit=0.5}
-\begin{pspicture*}[showgrid](-8,-10)(8,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,nS=1,numSpires=1 3 6 8,PasB=0.075](-8,-10)(8,10)
-\psframe*[linecolor={[HTML]{99FF66}}](-8,-10)(8,-9)
-\rput(0,-9.5){[\Cadre{\textcolor{white}{numSpires=1 3 6 8}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}\quad
-\begin{pspicture*}[showgrid](0,-10)(16,10)
-\psset{linecolor=blue}
-\psmagneticfield[R=2,L=12,N=8,pointsS=500,nL=14,numSpires=,nS=1,PasB=0.075](0,-10)(16,10)
-\psframe*[linecolor={[HTML]{99FF66}}](0,-10)(16,-9)
-\rput(8,-9.5){[\Cadre{\textcolor{white}{numSpires=all}},R=2,L=14]}
-\multido{\i=0+1}{8}{\rput[l](!6 6 12 7 div \i\space mul sub){\the\multidocount}}
-\end{pspicture*}
-\end{lstlisting}
-
-\clearpage
-\section{Le param\`etre \nxLkeyword{AntiHelmholtz}}
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture*}[showgrid](-7,-6)(7,6)
-\psframe*[linecolor={[HTML]{996666}}](-7,6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}}]
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.75,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture*}[showgrid](-7,-6)(7,6)
-\psframe*[linecolor={[HTML]{996666}}](-7,6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}}]
-\end{pspicture*}
-\end{lstlisting}
-
-
-\clearpage
-\section{La vue en 3D}
-La vue en 3D utilise la commande
-
-\begin{BDef}
-\Lcs{psmagneticfield}\OptArgs\coord1\coord2\\
-\Lcs{psmagneticfieldThreeD}\OptArgs\coord1\coord2
-\end{BDef}
-
-dans laquelle les options sont les param\xE8tres de
-\Lcs{psmagneticfield} et \verb+(x1,y1)(x2,y2)+ les coordonn\xE9es des coins
-inf\xE9rieur gauche et sup\xE9rieur droit du cadre dans lequel est encapsul\xE9e
-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\xE9faut, les suivantes :
-\begin{verbatim}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=lightgray,griddots=10}
-\newpsstyle{cadre}{linecolor=green!20}
-\end{verbatim}
-
-Ce sont donc celles-ci qu'il faudra modifier si on souhaite en changer, comme dans l'exemple ci-dessous.
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.7cm}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=8,R=2,L=8,pointsB=1200,linecolor=blue,pointsS=2000](-7,-6)(7,6)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.7cm}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=8,R=2,L=8,pointsB=1200,linecolor=blue,pointsS=2000](-7,-6)(7,6)
-\end{pspicture}
-\end{lstlisting}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.7cm}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=2,R=2,L=2,linecolor=blue](-7,-6)(7,6)
-\ThreeDput{\rput(0,-7){\textbf{Bobines de HELMHOLTZ}}}
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.7cm}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[N=2,R=2,L=2,linecolor=blue](-7,-6)(7,6)
-\ThreeDput{\rput(0,-7){\textbf{Bobines de HELMHOLTZ}}}
-\end{pspicture}
-\end{lstlisting}
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75cm,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[linecolor={[HTML]{660066}}](-7,-6)(7,6)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.75cm,AntiHelmholtz,N=2,
- R=2,pointsB=500,pointsS=1000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf,styleSpire=styleSpire,styleCourant=sensCourant}
-\newpsstyle{grille}{subgriddiv=0,gridcolor=blue!50,griddots=10}
-\newpsstyle{cadre}{linecolor=yellow!50}
-\begin{pspicture}(-7,-6)(7,6)
-\psmagneticfieldThreeD[linecolor={[HTML]{660066}}](-7,-6)(7,6)
-\end{pspicture}
-\end{lstlisting}
-
-
-\section{Density plots}
-\begin{center}
-\begin{postscript}
-\begin{pspicture}(-6,-4)(6,4)
-\psmagneticfield[N=3,R=2,L=2,StreamDensityPlot](-6,-4)(6,4)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\begin{pspicture}(-6,-4)(6,4)
-\psmagneticfield[N=3,R=2,L=2,StreamDensityPlot](-6,-4)(6,4)
-\end{pspicture}
-\end{lstlisting}
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75}
-\begin{pspicture}(-6,-5)(6,5)
-\psmagneticfield[N=2,R=2,L=1,StreamDensityPlot,setgray](-6,-5)(6,5)
-\end{pspicture}
-\end{postscript}
-\end{center}
-
-\begin{lstlisting}
-\psset{unit=0.75}
-\begin{pspicture}(-6,-5)(6,5)
-\psmagneticfield[N=2,R=2,L=1,StreamDensityPlot,setgray](-6,-5)(6,5)
-\end{pspicture}
-\end{lstlisting}
-
-
-\begin{center}
-\begin{postscript}
-\psset{unit=0.75,AntiHelmholtz,
- R=2,pointsB=500,pointsS=2000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\begin{pspicture*}(-7,-6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}},StreamDensityPlot](-7,-6)(7,6)
-\end{pspicture*}
-\end{postscript}
-\end{center}
-
-
-\begin{lstlisting}
-\psset{unit=0.75,AntiHelmholtz,
- R=2,pointsB=500,pointsS=2000,PasB=0.02,PasS=0.00275,nS=10,
- nL=2,drawSelf=true,styleSpire=styleSpire,styleCourant=sensCourant}
-\begin{pspicture*}(-7,-6)(7,6)
-\psmagneticfield[linecolor={[HTML]{660066}},StreamDensityPlot](-7,-6)(7,6)
-\end{pspicture*}
-\end{lstlisting}
-
-\section{Un article tr\xE8s int\xE9ressant}
-Il s'agit de celui paru dans le bulletin de l'union des physiciens \no{}918(2) de novembre 2009 : \textit{Int\xE9grales elliptiques et champ magn\xE9tique cr\xE9\xE9 par une spire circulaire}, dans lequel Thierry PR\xC9 d\xE9montre l'expression des composantes du champ magn\xE9tique de deux fa\xE7ons, \xE0 partir de la loi de Biot-Savart, puis \xE0 partir du potentiel vecteur ; il donne aussi diff\xE9rentes repr\xE9sentations des lignes de champ de plusieurs configurations de spires, obtenues \xE0 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 \xE0 la disposition de ceux qui ont la chance de poss\xE9der ou de pouvoir utiliser ce logiciel :
-\begin{verbatim}
-Commandes \xE0 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{Liste des arguments optionnels pour \texttt{pst-magneticfield}}
-
-\xkvview{family=pst-magneticfield,columns={key,type,default}}
-
-\nocite{*}
-\bgroup
-\raggedright
-\bibliographystyle{plain}
-\bibliography{pst-magneticfield-doc}
-\egroup
-
-
-\printindex
-
-
-
-
-\end{document}
Modified: trunk/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/dvips/pst-magneticfield/pst-magneticfield.pro 2019-01-17 21:28:05 UTC (rev 49738)
@@ -1,10 +1,10 @@
%% $Id: pst-magneticfield.pro 346 2010-06-11 06:12:08Z herbert $
%%
-%% This is file `pst-magneticfield.pro',
+%% This is file pst-magneticfield.pro,
%%
%% IMPORTANT NOTICE:
%%
-%% Package `pst-magneticfield.tex'
+%% Package pst-magneticfield.tex
%% Jürgen Gilg
%% Manuel Luque
%% Herbert Voss
Modified: trunk/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex 2019-01-17 20:35:29 UTC (rev 49737)
+++ trunk/Master/texmf-dist/tex/generic/pst-magneticfield/pst-magneticfield.tex 2019-01-17 21:28:05 UTC (rev 49738)
@@ -17,11 +17,13 @@
% Requires some packages
\ifx\PSTricksLoaded\endinput\else \input pstricks \fi
\ifx\PSTthreeDLoaded\endinput\else\input pst-3d \fi
+\ifx\PSTnodesLoaded\endinput\else \input pst-node \fi
+\ifx\PSTarrowLoaded\endinput\else \input pst-arrow \fi
\ifx\MultidoLoaded\endinput\else \input multido.tex\fi
\ifx\PSTXKeyLoaded\endinput\else \input pst-xkey \fi
%
-\def\fileversion{1.13}
-\def\filedate{2010/06/11}
+\def\fileversion{1.15}
+\def\filedate{2019/01/17}
\message{`pst-magneticfield' v\fileversion, \filedate\space (ml,jg,hv)}
%
\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
@@ -55,10 +57,12 @@
\define at boolkey[psset]{pst-magneticfield}[Pst@]{AntiHelmholtz}[true]{}
\define at boolkey[psset]{pst-magneticfield}[Pst@]{StreamDensityPlot}[true]{}
\define at boolkey[psset]{pst-magneticfield}[Pst@]{setgray}[true]{}
+\define at boolkey[psset]{pst-magneticfield}[Pst@]{changeNS}[true]{}
%
\psset[pst-magneticfield]{R=1,L=4,N=6,pointsB=500,pointsS=1000,
PasB=0.02,PasS=0.00275,nS=1,nL=8,drawSelf,styleSpire=styleSpire,
- styleCourant=sensCourant,AntiHelmholtz=false,StreamDensityPlot=false,setgray=false}
+ styleCourant=sensCourant,AntiHelmholtz=false,StreamDensityPlot=false,setgray=false,
+ changeNS=false}
%
\def\tx at MFieldDict{ tx at MFieldDict begin }
%
@@ -109,21 +113,34 @@
/StreamDensityPlot \ifPst at StreamDensityPlot true \else false \fi def
/Setgray \ifPst at setgray true \else false \fi def
}%
- \addto at pscode{ \tx at MFieldDict MagneticField end }%
+ \addto at pscode{ \tx at MFieldDict %\pst at magnetrotate rotate
+ MagneticField end }%
\ifPst at drawSelf
\ifPst at AntiHelmholtz
\psline[style=\psk at styleSpire](!Radius neg Radius 2 div)(!Radius Radius 2 div)
- \psline[style=\psk at styleCourant]{<-}(!-0.2 Radius 2 div)(!0.2 Radius 2 div)
\psline[style=\psk at styleSpire](!Radius neg Radius 2 div neg)(!Radius Radius 2 div neg)
- \psline[style=\psk at styleCourant]{->}(!-0.2 Radius 2 div neg)(!0.2 Radius 2 div neg)
+ \ifPst at changeNS
+ \psline[style=\psk at styleCourant]{->}(!-0.2 Radius 2 div)(!0.2 Radius 2 div)
+ \psline[style=\psk at styleCourant]{<-}(!-0.2 Radius 2 div neg)(!0.2 Radius 2 div neg)
+ \else
+ \psline[style=\psk at styleCourant]{<-}(!-0.2 Radius 2 div)(!0.2 Radius 2 div)
+ \psline[style=\psk at styleCourant]{->}(!-0.2 Radius 2 div neg)(!0.2 Radius 2 div neg)
+ \fi
\else
- \multido{\i=1+1}{\psk at magneticfieldN}{% numero de la spire
- \pst at Verb{ /Yspire yA \i\space 1 sub inter mul sub def } % position de la spire
- \psline[style=\psk at styleSpire](! Radius neg Yspire)(! Radius Yspire)
- \psline[style=\psk at styleCourant]{->}(! -0.2 Yspire)(! 0.2 Yspire)}
- \fi%
- \fi%
- \end at SpecialObj%
+ \ifPst at changeNS
+ \multido{\i=1+1}{\psk at magneticfieldN}{% numero de la spire
+ \pst at Verb{ /Yspire yA \i\space 1 sub inter mul sub def } % position de la spire
+ \psline[style=\psk at styleSpire](! Radius neg Yspire)(! Radius Yspire)
+ \psline[style=\psk at styleCourant]{<-}(! -0.2 Yspire)(! 0.2 Yspire)}%
+ \else
+ \multido{\i=1+1}{\psk at magneticfieldN}{% numero de la spire
+ \pst at Verb{ /Yspire yA \i\space 1 sub inter mul sub def } % position de la spire
+ \psline[style=\psk at styleSpire](! Radius neg Yspire)(! Radius Yspire)
+ \psline[style=\psk at styleCourant]{->}(! -0.2 Yspire)(! 0.2 Yspire)}%
+ \fi
+ \fi
+ \fi
+ \end at SpecialObj
\ignorespaces}
%
\newpsstyle{grille}{subgriddiv=0,gridcolor=lightgray,griddots=10}
@@ -176,6 +193,43 @@
\fi
\endgroup}
%
+\define at boolkey[psset]{pst-magneticfield}[Pst@]{showField}[true]{}
+\define at boolkey[psset]{pst-magneticfield}[Pst@]{showPoleLabels}[true]{}
+\define at key[psset]{pst-magneticfield}{fontstyle}[\large\bfseries\sffamily]{\def\psk at label@fontstyle{#1}}
+\define at key[psset]{pst-magneticfield}{magnetScale}[1 1]{\pst at getscale{#1}\pst at magnetscale}
+\psset[pst-magneticfield]{showPoleLabels,fontstyle=\large\bfseries\sffamily,showField=false,
+ magnetScale=1}
+
+\def\ps at Bar@Magnet{%
+ \psscalebox{\pst at magnetscale}{%
+ \psframe*[linecolor=Green](-0.5,-1.5)(0.5,0)%
+ \psframe*[linecolor=BrickRed](-0.5,0)(0.5,1.5)%
+ \ifPst at showPoleLabels
+ \rput{0}(0,1){\textcolor{white}{\psk at label@fontstyle N}}%
+ \rput{0}(0,-1){\textcolor{white}{\psk at label@fontstyle S}}%
+ \fi}%
+}%
+
+\def\psBarMagnet{\pst at object{psBarMagnet}}
+\def\psBarMagnet at i{\@ifnextchar(\psBarMagnet at ii{\psBarMagnet at ii(0,0)}}%
+\def\psBarMagnet at ii(#1){%
+ \pst at killglue
+ \begingroup
+ \addbefore at par{R=0.8,L=3,N=4,pointsS=200,nL=9,nS=0,PasB=0.1,numSpires=0}%
+ \use at par
+ \ifPst at showField
+ \rput(#1){%
+ \psscalebox{0.4 0.7}{\psmagneticfield(-8,-10)(8,10)}%
+ \multido{\rA=0.3+0.3,\rB=0.8+0.1,\iA=-60+20,\iB=60+-20}{4}{%
+ \pccurve[ncurv=\rB,linewidth=0.1\pslinewidth,angleA=\iA,angleB=\iB,ArrowInside=->](0.5,\rA)(0.5,-\rA)
+ \psscalebox{-1 1}{\pccurve[ncurv=\rB,linewidth=0.1\pslinewidth,angleA=\iA,angleB=\iB,ArrowInside=->](0.5,\rA)(0.5,-\rA)}%
+ }}%
+ \fi
+ \rput(#1){\ps at Bar@Magnet}%
+ \endgroup
+ \ignorespaces
+}
+%
\catcode`\@=\PstAtCode\relax
%
%% END
More information about the tex-live-commits
mailing list