Défi 2012

Discussions générales concernant les mathématiques et n'entrant pas dans les catégories suivantes.
[participation réservée aux utilisateurs inscrits]
Règles du forum
Merci de soigner la rédaction de vos messages et de consulter ce sujet avant de poster. Pensez également à utiliser la fonction recherche du forum.
rebouxo
Modérateur honoraire
Modérateur honoraire
Messages : 6962
Inscription : mercredi 15 février 2006, 13:18
Localisation : le havre
Contact :

Défi 2012

Message non lu par rebouxo »

Je suis en train de taper ce sujet. Et je lance un petit défi amical au TiKz boyz et asymptote girlz (ou l'inverse, je ne suis pas sectaire :D )

Il s'agit de refaire la figure de l'annexe 2, et de faire l'exo, parce que j'ai un doute sur ma construction des points de distance. Je les ai construits à partir de diagonales des faces. J'ai jamais touché à ça, c'est dommage c'est intéressant.

J'ai fait la construction en pstricks, je n'ai pas utilisé de 3D, parce que je ne sais pas si on peut faire une projection centrale avec pstricks, et puis j'ai ne trouve pas les outils de 3D de pstricks très pratique. En fait, pour faire du fil de fer, ils ne sont pas du tout adapter. Mais, je n'ai rien contre.

Mon code :

Code : Tout sélectionner

\begin{pspicture*}(0,0)(20,15)
         \psset%
         {%
           % xunit=1,%
           % yunit=1,%
            %PointSymbol=none,%
            %PointName=none,%
           % algebraic=true,%
         }% 
         \pstGeonode[PosAngle=90](12,12){o}
         \pstGeonode[PosAngle=90](19.5,12){d_2}
         \pstGeonode[PosAngle=-90,PointName=a](3,4){a}
         \pstGeonode[PosAngle=-90,PointName=b](6.5,4){b} 
         \pstRotation[RotAngle=90,PosAngle=135,PointName=d]{a}{b}[d]
         \pstTranslation[PosAngle=0,PointName=c]{a}{d}{b}[c]
         \pspolygon(a)(b)(c)(d)
         \pstInterLL[PointName=f]{a}{d_2}{b}{o}{f}
         \pstInterLL[PointName=g]{d}{d_2}{c}{o}{g}
         \pstTranslation[PointName=none]{b}{a}{g}[H]
         \pstInterLL[PosAngle=135,PointName=h]{d}{o}{g}{H}{h}
         \pspolygon(b)(c)(g)(f)
         \pspolygon(c)(g)(h)(d)
         \pstInterLL[PosAngle=90]{c}{h}{o}{d_2}{d_1}
         \pstTranslation[PosAngle=-90,PointName=e]{g}{h}{f}[e]
         \psline[linestyle=dashed](h)(e)(a)
         \psline[linestyle=dashed](e)(f)
         % Solution. 
         \pstInterLL{f}{d_1}{e}{o}{i}
         \pstInterLL{e}{d_2}{f}{o}{j}
         \pstRotation[RotAngle=90]{i}{j}[l]
         \pstTranslation{i}{j}{l}[k]
         \pspolygon(f)(j)(k)(g)
         \pspolygon(g)(k)(l)(h)
         \psline[linestyle=dashed](l)(i)(e)
         \psline[linestyle=dashed](i)(j)
         \pstMiddleAB{d}{g}{I}
         \pstTranslation{a}{d}{I}[s]
         \pspolygon(c)(s)(g)
         \psline(s)(d)
         \psline[linestyle=dashed](s)(h)
         \pstLineAB[nodesep=-4]{d_1}{d_2}
         \psset%
         {%
           linestyle=dotted,%
           nodesep=-1,%
         }% 
         \pstLineAB{o}{i}
         \pstLineAB{o}{j}
         \pstLineAB{c}{d_1}
         \pstLineAB{b}{d_1}
         \pstLineAB{d}{d_2}
         \pstLineAB{a}{d_2}
       \end{pspicture*}
Mon résultat :

Il doit vraiment y avoir des problèmes intéressants à faire. C'est plein de Thalès.

Happy TeXing

Olivier
Pièces jointes
figure.png
Répondre