From 7bcc6b29e853351e4a95b0aebcb6f2765450e86c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 12 Jun 2010 23:32:15 +0000 Subject: pst-magneticfield update (12jun10) git-svn-id: svn://tug.org/texlive/trunk@18922 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/generic/pst-magneticfield/Changes | 2 + .../pst-magneticfield/pst-magneticfield-docDE.pdf | Bin 1921039 -> 1935584 bytes .../pst-magneticfield/pst-magneticfield-docDE.tex | 3 +- .../pst-magneticfield/pst-magneticfield-docEN.pdf | Bin 1918514 -> 1932614 bytes .../pst-magneticfield/pst-magneticfield-docEN.tex | 1 - .../pst-magneticfield/pst-magneticfield-docFR.pdf | Bin 1919464 -> 1989800 bytes .../pst-magneticfield/pst-magneticfield-docFR.tex | 253 ++++++++++++++++++--- .../dvips/pst-magneticfield/pst-magneticfield.pro | 14 +- .../source/generic/pst-magneticfield/Makefile | 3 +- .../pst-magneticfield/pst-magneticfield.tex | 12 +- Master/tlpkg/libexec/ctan2tds | 1 + 11 files changed, 241 insertions(+), 48 deletions(-) (limited to 'Master') 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 Binary files a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf and b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docDE.pdf 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 Binary files a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf and b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docEN.pdf 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 Binary files a/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf and b/Master/texmf-dist/doc/generic/pst-magneticfield/pst-magneticfield-docFR.pdf 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 \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 \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 \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 \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 +%% version 0.02 / 2010-06-11 Herbert Voss %% % /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} diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index ee0bf90bad6..39c5ad32a7b 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -128,6 +128,7 @@ $Master = "$mydir/../.."; 'c90', "&MAKEc90", 'cachepic', "&MAKEcopy", 'calendar', "die 'skipping, nosell license'", + 'cascover', "die 'skipping, license unclear, ancient'", 'camel', "die 'skipping, nosell license'", 'cassette', "die 'skipping, nonfree license'", 'cassette-shipunov', "die 'skipping, use shipunov'", -- cgit v1.2.3