Re: Graphics--ContourPlot output varies drastically with PlotPoints.

*To*: mathgroup at smc.vnet.net*Subject*: [mg70998] Re: Graphics--ContourPlot output varies drastically with PlotPoints.*From*: dh <dh at metrohm.ch>*Date*: Sat, 4 Nov 2006 04:08:09 -0500 (EST)*References*: <eiepg9$l2l$1@smc.vnet.net>

Hi Subimal, look at your wavelength. It is much too small to be resolved by the screen resolution. What you are seeing is an effect called aliasing due to a small sample rate. If you increase the wavelength you will get reasonable pictures. Daniel subimaldeb at rediffmail.com wrote: > Hello, > > I am new to this forum. > > The following code should produce the interference of two plane waves. The output should not show as much variation as the following code shows. Please help me understand where I have gone wrong. > > cm = 1.0; > fld[E0_, r : {_, _, _}, k : {_, _, _}, ph_] := E0*Exp[I*(k.r + ph)]; > > \[Lambda] = .0001*cm; > k = 2. \[Pi]/\[Lambda]; > z = 100.*cm; > > Table[ > > ListContourPlot[ > Table[ > Abs[ > fld[1, {x, y, z}, {0, k, 0.}, 0.] > + fld[1, {x, y, z}, {k, k, 0.}, 0.] > ]^2, > {x, -.5*cm, .5*cm, 1*cm/i}, {y, -.5*cm, .5*cm, 1*cm/i}], > ContourLines -> False, > Contours -> 100, > Frame -> True, > Background -> None]; > , {i, 10, 200, 20}]; > > > > With my regards, > Subimal > > Link to the forum page for this post: > http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Special:Forum_ViewTopic&pid=14998#p14998 > Posted through http://www.mathematica-users.org [[postId=14998]] > >