[pstricks] Sieve

David Arnold dwarnold45 at suddenlink.net
Wed May 27 20:08:10 CEST 2009


Nice solution. I wound up with following. Brute force, but it worked.

\documentclass{article}
\usepackage{pstricks-add}
\begin{document}

\begin{center}
\psset{unit=0.25in}
\begin{pspicture}(0,0)(9,10)
\multido{\iA=0+1}{11}{%
	\psline(\iA,0)(\iA,10)}
\multido{\iA=0+1}{11}{%
	\psline(0,\iA)(10,\iA)}
\multido{\rx=0.5+1,\ry=9.5+0,\n=2+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=8.5+0,\n=12+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=7.5+0,\n=22+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=6.5+0,\n=32+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=5.5+0,\n=42+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=4.5+0,\n=52+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=3.5+0,\n=62+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=2.5+0,\n=72+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=1.5+0,\n=82+1}{10}{\rput(\rx,\ry){\n}}
\multido{\rx=0.5+1,\ry=0.5+0,\n=92+1}{9}{\rput(\rx,\ry){\n}}
\def\cross{\psline[linecolor=red](0,0)(1,1)\psline[linecolor=red](1,0) 
(0,1)}
\rput(0,0){\cross}
\rput(1,0){\cross}
\rput(2,0){\cross}
\rput(3,0){\cross}
\rput(4,0){\cross}
\rput(6,0){\cross}
\rput(7,0){\cross}
\rput(8,0){\cross}
\rput(0,1){\cross}
\rput(2,1){\cross}
\rput(3,1){\cross}
\rput(4,1){\cross}
\rput(5,1){\cross}
\rput(6,1){\cross}
\rput(8,1){\cross}
\rput(9,1){\cross}
\rput(0,2){\cross}
\rput(2,2){\cross}
\rput(3,2){\cross}
\rput(4,2){\cross}
\rput(5,2){\cross}
\rput(6,2){\cross}
\rput(8,2){\cross}
\rput(9,2){\cross}
\rput(0,3){\cross}
\rput(1,3){\cross}
\rput(2,3){\cross}
\rput(3,3){\cross}
\rput(4,3){\cross}
\rput(6,3){\cross}
\rput(7,3){\cross}
\rput(8,3){\cross}
\rput(0,4){\cross}
\rput(2,4){\cross}
\rput(3,4){\cross}
\rput(4,4){\cross}
\rput(5,4){\cross}
\rput(6,4){\cross}
\rput(8,4){\cross}
\rput(0,5){\cross}
\rput(2,5){\cross}
\rput(3,5){\cross}
\rput(4,5){\cross}
\rput(6,5){\cross}
\rput(7,5){\cross}
\rput(8,5){\cross}
\rput(9,5){\cross}
\rput(0,6){\cross}
\rput(1,6){\cross}
\rput(2,6){\cross}
\rput(3,6){\cross}
\rput(4,6){\cross}
\rput(6,6){\cross}
\rput(7,6){\cross}
\rput(8,6){\cross}
\rput(0,7){\cross}
\rput(2,7){\cross}
\rput(3,7){\cross}
\rput(4,7){\cross}
\rput(5,7){\cross}
\rput(6,7){\cross}
\rput(8,7){\cross}
\rput(0,8){\cross}
\rput(2,8){\cross}
\rput(3,8){\cross}
\rput(4,8){\cross}
\rput(6,8){\cross}
\rput(8,8){\cross}
\rput(9,8){\cross}
\rput(2,9){\cross}
\rput(4,9){\cross}
\rput(6,9){\cross}
\rput(7,9){\cross}
\rput(8,9){\cross}
\end{pspicture}
\end{center}

\end{document}




On May 27, 2009, at 10:47 AM, Herbert Voss wrote:

> David Arnold schrieb:
>> All, I came up with this:
>>
> [ ... ]
>
> \documentclass{article}
> \usepackage{pstricks-add}
> \begin{document}
>
> \begin{pspicture}(0,0)(10,-10)
> \psgrid[subgriddiv=1,gridlabels=0pt]
> \multido{\iA=2+1}{99}{%
>    \rput(!\iA\space 2 sub 10 mod 0.5 add
>           \iA\space 2 sub 10 div cvi 0.5 add neg){\iA}}
> \end{pspicture}
>
> \end{document}
>
>
> Herbert
> _______________________________________________
> PSTricks mailing list
> PSTricks at tug.org
> http://tug.org/mailman/listinfo/pstricks



More information about the PSTricks mailing list