Retour

mol_07.tex

Télécharger le fichier Fichier PDF
Image PNG
\documentclass{article}
\usepackage{pst-solides3d}
\begin{document}
\pagestyle{empty}
 
%\subsection{Modèle éclaté de l'acétylène}
 
\begin{pspicture}(-7,-2.5)(7,3)
\psset{lightsrc=92 16 35,lightintensity=2,linewidth=0.5\pslinewidth,
       viewpoint=100 30 20 rtp2xyz,Decran=30}
\pstVerb{/DarkGray {0.5 setgray} def}%
\codejps{
  /Carbon {
  4 -48.6 48.6 [16 18] newcalottesphere
  {0 90 0 rotateOpoint3d} solidtransform
  dup (DarkGray) outputcolors
  } def
  /Hydrogen {
  3.317 -37.1 90 [16 18] newcalottesphere
  dup videsolid dup (White) outputcolors
  } def
/LiaisonCH {
     0 0.5 9  [10 10] newcylindre
      dup (White) outputcolors
   } def
/LiaisonCC {
     0 0.5 10  [10 10] newcylindre
      dup (White) outputcolors
   } def
/C2H2 {Carbon {-8 0 0 translatepoint3d} solidtransform
     Carbon {8 0 0 translatepoint3d} solidtransform
        solidfuz
     LiaisonCC {0 -90 0 rotateOpoint3d} solidtransform
               {5 0 0 translatepoint3d} solidtransform
       solidfuz
     LiaisonCC {0 -90 0 rotateOpoint3d} solidtransform
               {5 0 1.5 translatepoint3d} solidtransform
       solidfuz
     LiaisonCC {0 -90 0 rotateOpoint3d} solidtransform
               {5 0 -1.5 translatepoint3d} solidtransform
       solidfuz
     LiaisonCH {0 -90 0 rotateOpoint3d} solidtransform
               {-11 0 0 translatepoint3d} solidtransform
      solidfuz
      Hydrogen {0 90 0 rotateOpoint3d} solidtransform
               {22 0 0 translatepoint3d} solidtransform
        solidfuz
      LiaisonCH {0 90 0 rotateOpoint3d} solidtransform
               {11 0 0 translatepoint3d} solidtransform
      solidfuz
      Hydrogen {0 -90 0 rotateOpoint3d} solidtransform
               {-22 0 0 translatepoint3d} solidtransform
        solidfuz } def
C2H2 {0 0 90 rotateOpoint3d} solidtransform drawsolid**}
\psPoint(0,8,5){C2}\psPoint(0,22,5){H2}
\psPoint(0,-8,5){C1}\pcline{<->}(C1)(C2)
\lput*{:U}{\small 12,1 pm}
\pcline{<->}(C2)(H2)\lput*{:U}{\small 10,9 pm}
\axesIIID(2.5,24,2.5)(15,26,10)
\end{pspicture}
 
\end{document}