Re: blurry ellipse
- To: mathgroup at smc.vnet.net
- Subject: [mg92198] Re: blurry ellipse
- From: "Solomon, Joshua" <J.A.Solomon at city.ac.uk>
- Date: Tue, 23 Sep 2008 07:29:19 -0400 (EDT)
- References: <gat9g4$ec5$1@smc.vnet.net> <gavqku$emm$1@smc.vnet.net>
thanks. but notice, intensity also varies as you go around your ellipse. j On 19/09/2008 10:16, in article gavqku$emm$1 at smc.vnet.net, "dh" <dh at metrohm.ch> wrote: > n=100; > > pict=Table[0,{n},{n}]; > > Scan[(pict[[Round[n/2+n/5 Sin[#]],Round[n/2+2 > > n/5Cos[#]]]]=1)&,Range[0,2Pi,0.01]]; > > Graphics[Raster[pict]] > > kernel={{1,1},{1,1}}; pict=ListConvolve[kernel,pict];pict=pict/Max[pict]; > > Graphics[Raster[pict]] > > kernel={{1,1,1},{1,1,1},{1,1,1}}; > > pict=ListConvolve[kernel,pict];pict=pict/Max[pict]; > > Graphics[Raster[pict]] > > kernel={{1,1,1,1},{1,1,1,1},{1,1,1,1},{1,1,1,1}}; > > pict=ListConvolve[kernel,pict];pict=pict/Max[pict]; > > Graphics[Raster[pict]]