http://melusine.eu.org/syracuse/G/pstricks/pst-mirror/
ChampAuCrepuscule.tex
jeudi 22 novembre 2012
Paysages au crépuscule peints avec PSTricks
Un paysage crépusculaire, les silhouettes d'une ville se dessinent sur l'horizon, Vénus brille dans le ciel. C'est une réalisation de Thomas Söll qui utilise pour les dégradés du ciel le package pst-slpe.
Les fichiers (Sonnenuntergang.pdf Sonnenuntergang.tex) sont dans l'archive :
Cet envoi de Thomas m'a fait souvenir que j'avais réalisé, il y a quelques années, un exemple avec une idée identique : un champ moissonné, avec les ballots de paille bien alignés, au crépuscule. Cet exemple utilise le package pst-mirror que nous avions revu et complété en 2011 avec Jean-Michel Sarlat et Gilg Jürgen :
http://melusine.eu.org/syracuse/G/pstricks/pst-mirror/
ChampAuCrepuscule.tex
http://melusine.eu.org/syracuse/G/pstricks/pst-mirror/
ChampAuCrepuscule.tex
dimanche 18 novembre 2012
Expérience de l'anneau sauteur d'Elihu Thomson illustrée par Thomas Söll
Expérience de l'anneau sauteur de Elihu Thomson, qui met en jeu : induction électromagnétique, et force de Laplace sur l'anneau sauteur.
Une vidéo très démonstrative sur youtube : "Physics Demo -- Jumping Ring"
http://www.youtube.com/watch?v=Pl7KyVIJ1iE
Voici des éléments d'une illustration de cette expérience historique réalisée par Thomas Söll avec pst-solides3d. C'est un montage un peu différent : l'axe de la bobine et de l'anneau est ici horizontal.
Attention : la compilation ps2pdf dure une dizaine de minutes.
Les fichiers (Thomson-Ring.pdf Thomson-Ring.tex) sont dans le répertoire :
\documentclass{article}
%Thomas Söll
%Thomas.Soell@onlinehome.de
\usepackage{pst-solides3d}
\begin{document}
\begin{center}
\begin{pspicture}(-2,-5)(8,8)
\psset{viewpoint=20 40 15 rtp2xyz,lightsrc=20 45 50 rtp2xyz,Decran=30}
\psset{solidmemory}
%------------------------------------ Zylinder -------------------------------------------------------------------------
\psSolid[opacity=0.5,incolor=red,fillcolor=cyan!50,object=cylindre,h=5,r=0.8,ngrid=20 120,grid=false,action=none,name=Z1](0,0,0)
\psSolid[object=anneau,fillcolor=green!50!cyan!60,incolor=yellow,h=0.5,R=1.2,r=1,ngrid=150,grid=false,action=none,name=R1](0,0,4.5)%
%--------------------------------------- wire -----------------------------------------------------------------------------
{\defFunction[algebraic]{helice}(t){0.95*cos(80*t)}{0.95*sin(80*t)}{4.5*t}
\psSolid[object=courbe,r=0,range=0 0.58905,linecolor=red!60,linewidth=0.5pt,resolution=720,
function=helice,action=none,name=wendel1,r=0.05,fillcolor=red!60,incolor=red!60,ngrid=360 40](0,0,0)}%
%------------------------------------ Compose -------------------------------------------------------------------------
\psSolid[object=fusion,base=Z1 R1 wendel1,grid=false,linecolor=gray,name=ThomsonRing,RotX=-90,RotY=90]
\composeSolid
%
\psSolid[object=line,linewidth=3pt,linecolor=black,args=0.5 4.5 1.1 1.5 4.5 5]
\psSolid[object=line,linewidth=3pt,linecolor=black,args=-0.5 4.5 1.1 -1.5 4.5 5]
\end{pspicture}
\end{center}
\begin{center}
\begin{pspicture}(-4,-1)(4,9)
\psset{viewpoint=20 90 10 rtp2xyz,lightsrc=20 45 50 rtp2xyz,Decran=30}
\psset{solidmemory}
\psSolid[opacity=0.5,incolor=red,fillcolor=cyan!50,object=cylindre,h=5,r=0.8,ngrid=20 120,grid=false,action=none,name=Z1](0,0,0)
\psSolid[object=anneau,fillcolor=green!50!cyan!60,incolor=yellow,h=0.5,R=1.2,r=1,ngrid=150,grid=false,action=none,name=R1](0,0,4.5)%
\psSolid[object=fusion,base=Z1 R1,grid=false,linecolor=gray,name=ThomsonRing,RotX=-90,RotY=90]
\composeSolid
%
\psSolid[object=line,linewidth=3pt,linecolor=black,args=0.5 4.5 1.1 1.5 4.5 5]
\psSolid[object=line,linewidth=3pt,linecolor=black,args=-0.5 4.5 1.1 -1.5 4.5 5]
\end{pspicture}
\end{center}
\end{document}
Une vidéo très démonstrative sur youtube : "Physics Demo -- Jumping Ring"
http://www.youtube.com/watch?v=Pl7KyVIJ1iE
Voici des éléments d'une illustration de cette expérience historique réalisée par Thomas Söll avec pst-solides3d. C'est un montage un peu différent : l'axe de la bobine et de l'anneau est ici horizontal.
Attention : la compilation ps2pdf dure une dizaine de minutes.
\documentclass{article}
%Thomas Söll
%Thomas.Soell@onlinehome.de
\usepackage{pst-solides3d}
\begin{document}
\begin{center}
\begin{pspicture}(-2,-5)(8,8)
\psset{viewpoint=20 40 15 rtp2xyz,lightsrc=20 45 50 rtp2xyz,Decran=30}
\psset{solidmemory}
%------------------------------------ Zylinder -------------------------------------------------------------------------
\psSolid[opacity=0.5,incolor=red,fillcolor=cyan!50,object=cylindre,h=5,r=0.8,ngrid=20 120,grid=false,action=none,name=Z1](0,0,0)
\psSolid[object=anneau,fillcolor=green!50!cyan!60,incolor=yellow,h=0.5,R=1.2,r=1,ngrid=150,grid=false,action=none,name=R1](0,0,4.5)%
%--------------------------------------- wire -----------------------------------------------------------------------------
{\defFunction[algebraic]{helice}(t){0.95*cos(80*t)}{0.95*sin(80*t)}{4.5*t}
\psSolid[object=courbe,r=0,range=0 0.58905,linecolor=red!60,linewidth=0.5pt,resolution=720,
function=helice,action=none,name=wendel1,r=0.05,fillcolor=red!60,incolor=red!60,ngrid=360 40](0,0,0)}%
%------------------------------------ Compose -------------------------------------------------------------------------
\psSolid[object=fusion,base=Z1 R1 wendel1,grid=false,linecolor=gray,name=ThomsonRing,RotX=-90,RotY=90]
\composeSolid
%
\psSolid[object=line,linewidth=3pt,linecolor=black,args=0.5 4.5 1.1 1.5 4.5 5]
\psSolid[object=line,linewidth=3pt,linecolor=black,args=-0.5 4.5 1.1 -1.5 4.5 5]
\end{pspicture}
\end{center}
\begin{center}
\begin{pspicture}(-4,-1)(4,9)
\psset{viewpoint=20 90 10 rtp2xyz,lightsrc=20 45 50 rtp2xyz,Decran=30}
\psset{solidmemory}
\psSolid[opacity=0.5,incolor=red,fillcolor=cyan!50,object=cylindre,h=5,r=0.8,ngrid=20 120,grid=false,action=none,name=Z1](0,0,0)
\psSolid[object=anneau,fillcolor=green!50!cyan!60,incolor=yellow,h=0.5,R=1.2,r=1,ngrid=150,grid=false,action=none,name=R1](0,0,4.5)%
\psSolid[object=fusion,base=Z1 R1,grid=false,linecolor=gray,name=ThomsonRing,RotX=-90,RotY=90]
\composeSolid
%
\psSolid[object=line,linewidth=3pt,linecolor=black,args=0.5 4.5 1.1 1.5 4.5 5]
\psSolid[object=line,linewidth=3pt,linecolor=black,args=-0.5 4.5 1.1 -1.5 4.5 5]
\end{pspicture}
\end{center}
\end{document}
Transformateur et une expérience pour illustrer la Force de Laplace par Thomas Söll
Toujours finement dessiné par Thomas Söll avec pst-solides3d, voici le schéma du principe d'un transformateur :
mardi 30 octobre 2012
pst-solve : recherche d’une racine simple par dichotomie
En essayant de dessiner une mosaïque vue sur une maison de Brionne, uniquement constituée d’arcs de cercle -à part le contour, je me suis aperçu qu’il y avait beaucoup de calculs à faire ! J’aurais pu confier la résolution des différentes équations à un logiciel spécialisé, mais je me suis souvenu que j’avais déjà réalisé, en août 2003, une série de macros qui justement permettaient de trouver et d’afficher la solution d’une équation dans une intervalle donné :
Comme Herbert Voss a repris la méthode d’affichage des valeurs dans le package pst-tools en lui apportant quelques améliorations comme le choix de la fonte des nombres, j’ai uniquement réécrit la macro dédiée au calcul d’une solution et j’ai utilisé la package pst-tools pour l’affichage.
Les valeurs indiquées sont obtenues avec la macro. Pour comparer les valeurs calculées avec Maple sont : -2.036983004, -0.3192114863
Quelques étapes de la construction :
Les fichiers :
La macro \psSolve[options](t1,t2)(f(t),t){nom} permet de calculer une solution de l’équation f(t)=0 dans l’intervalle [t1,t2]. La fonction peut-être écrite en mode algébrique avec l’option [algebraic] et sa variable doit être précisée après la virgule : on peut choisir celle que l’on veut (t , x, y . . .). Le dernier paramètre indiquera le nom de la variable postscript dans laquelle sera stocké le résultat pour une utilisation ultérieure.
C’est une macro très rudimentaire et il faut avoir une idée de l’intervalle où peut se trouver une solution. Pour cela, on trace, évidemment, le graphe de la fonction.
Quelques étapes de la construction :
ou
lundi 29 octobre 2012
Géométrie élémentaire avec PSTricks et AcroteX par Thomas Söll
Un peu de géométrie élémentaire avec PSTricks par Thomas Söll
Ces illustrations montrant comment dessiner des parallèles à l'aide d'une équerre et d'un rapporteur sont dessinées très finement par Thomas Söll.
Les fichiers (Geodr-Stift-Lineal.tex Geodr-Stift-Lineal.pdf) sont dans :
mercredi 17 octobre 2012
“Swinging Atwood’s Machine” : animation en 3D
Les calculs ont été faits avec pst-ode, l'animation avec animate et l'affichage avec pst-solides3d. La macro \listplotIIID a été réécrite.
Les fichiers"animate_atwood_3d.pdf" et "animate_atwood_3d.tex" sont dans le répertoire :
Les autres fichiers sont dans le mêm répertoire
L'animation au format Gif animé :
Inscription à :
Articles (Atom)