%PSTricks content-type (pstricks.sty package needed)
%Add \usepackage{pstricks} in the preamble of your LaTeX file
%You can rescale the whole picture (to 80% for instance) by using the command \def\JPicScale{0.8}

\ifx\JPicScale\undefined\def\JPicScale{1}\fi
\def\JPicScale{0.7}
\psset{unit=\JPicScale mm}
\psset{linewidth=0.3,dotsep=1,hatchwidth=0.3,hatchsep=1.5,shadowsize=1,dimen=middle}
\psset{dotsize=0.7 2.5,dotscale=1 1,fillcolor=black}
\psset{arrowsize=1 2,arrowlength=1,arrowinset=0.25,tbarsize=0.7 5,bracketlength=0.15,rbracketlength=0.15}
%\begin{pspicture}(0,0)(222.5,82.5)
\begin{pspicture}(10,0)(200.5,82.5)
\psline[linewidth=0.75](9.34,49.61)(18.42,77.89)
\psline[linewidth=0.75](20.26,76.84)(12.23,52.11)
\psline[linewidth=0.5,linestyle=dotted](22.76,78.82)(28.55,51.58)
\rput{0}(10.2,49.88){\psellipse[linewidth=0.75,fillstyle=solid](0,0)(2.5,2.5)}
\rput{0}(20.14,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(30.3,49.56){\psellipse[linewidth=0.5,linestyle=dotted,fillstyle=solid](0,0)(2.5,2.5)}
\psline[linewidth=0.75](11.97,49.74)(37.37,79.21)
\rput{0}(50,50){\psellipse[linewidth=0.5,linestyle=dotted,fillstyle=solid](0,0)(2.5,2.5)}
\psline[linewidth=0.5,linestyle=dotted](42.76,79.47)(49.61,52.11)
\rput{0}(40.14,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(0,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(60,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\psline[linewidth=0.5,linestyle=dotted](32.76,49.61)(42.5,79.08)
\psline[linewidth=0.5,linestyle=dotted](30.26,48.29)(39.61,76.84)
\psline[linewidth=0.5,linestyle=dotted](28.29,49.08)(38.03,78.55)
\psline[linewidth=0.5,linestyle=dotted](51.97,50.66)(60.66,77.37)
\psline[linewidth=0.5,linestyle=dotted](49.74,51.05)(58.55,77.89)
\psline[linewidth=0.5,linestyle=dotted](27.63,50.66)(1.71,78.03)
\psline[linewidth=0.5,linestyle=dotted](89.34,49.61)(98.42,77.89)
\psline[linewidth=0.5,linestyle=dotted](100.26,76.84)(92.23,52.11)
\psline[linewidth=0.75](102.76,78.82)(108.55,51.58)
\rput{0}(90.2,49.88){\psellipse[linewidth=0.5,linestyle=dotted,fillstyle=solid](0,0)(2.5,2.5)}
\rput{0}(100.13,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(110.3,49.56){\psellipse[linewidth=0.75,fillstyle=solid](0,0)(2.5,2.5)}
\psline[linewidth=0.5,linestyle=dotted](91.97,49.74)(117.37,79.21)
\rput{0}(130,50){\psellipse[linewidth=0.5,linestyle=dotted,fillstyle=solid](0,0)(2.5,2.5)}
\psline[linewidth=0.5,linestyle=dotted](122.76,79.47)(129.61,52.11)
\rput{0}(120.13,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(80.01,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(140,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\psline[linewidth=0.75](112.76,49.61)(122.5,79.08)
\psline[linewidth=0.75](110.26,48.29)(119.61,76.84)
\psline[linewidth=0.75](108.29,49.08)(118.03,78.55)
\psline[linewidth=0.5,linestyle=dotted](131.97,50.66)(140.66,77.37)
\psline[linewidth=0.5,linestyle=dotted](129.74,51.05)(138.55,77.89)
\psline[linewidth=0.75](107.63,50.66)(81.71,78.03)
\psline[linewidth=0.5,linestyle=dotted](169.34,49.61)(178.42,77.89)
\psline[linewidth=0.5,linestyle=dotted](180.26,76.84)(172.23,52.11)
\psline[linewidth=0.5,linestyle=dotted](182.76,78.82)(188.55,51.58)
\rput{0}(170.2,49.88){\psellipse[linewidth=0.5,linestyle=dotted,fillstyle=solid](0,0)(2.5,2.5)}
\rput{0}(180.14,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(190.3,49.56){\psellipse[linewidth=0.5,linestyle=dotted,fillstyle=solid](0,0)(2.5,2.5)}
\psline[linewidth=0.5,linestyle=dotted](171.97,49.74)(197.37,79.21)
\rput{0}(210,50){\psellipse[linewidth=0.75,fillstyle=solid](0,0)(2.5,2.5)}
\psline[linewidth=0.75](202.76,79.47)(209.61,52.11)
\rput{0}(200.14,79.87){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(160,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\rput{0}(220,80){\psellipse[linewidth=0.75](0,0)(2.5,2.5)}
\psline[linewidth=0.5,linestyle=dotted](192.76,49.61)(202.5,79.08)
\psline[linewidth=0.5,linestyle=dotted](190.26,48.29)(199.61,76.84)
\psline[linewidth=0.5,linestyle=dotted](188.29,49.08)(198.03,78.55)
\psline[linewidth=0.75](211.97,50.66)(220.66,77.37)
\psline[linewidth=0.75](209.74,51.05)(218.55,77.89)
\psline[linewidth=0.5,linestyle=dotted](187.63,50.66)(161.71,78.03)
\end{pspicture}

\vspace{-2cm}
%\begin{center}
{\small{\bf Fig 3}\pointir \it Coding the diagram of fig 2 by a word of monomials. The code here is 
$[x_2^2x_3\ ,\ x_1x_2x_3^3\ ,\ x_3x_4^2]$}
%\end{center}
