Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Graphics--ContourPlot output varies drastically with PlotPoints.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70977] Graphics--ContourPlot output varies drastically with PlotPoints.
  • From: subimaldeb at rediffmail.com
  • Date: Fri, 3 Nov 2006 01:39:28 -0500 (EST)

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



  • Prev by Date: Re: SchematicSolver and MathModelica
  • Next by Date: Re: Context
  • Previous by thread: Re: Workbench: get nb's into a project & compare them
  • Next by thread: Re: Graphics--ContourPlot output varies drastically with PlotPoints.