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]]
>
>