I've been doing some experiemting with Mathematica into making interference patterns. The plotted interference patterns can't be seen all that well. I think the problem may be caused by (correct me if I'm wrong) aliasing. How can I get Mathematica to fix the aliasing to really bring out the patterns. Thank you in advance.
In[1]:= Sin[
ArcCos[Sin[\[Theta]] Cos[\[Phi]] Sin[17.20] +
Cos[\[Theta]] Cos[17.20]]]^2
Out[1]= 1 - (-0.0786782 Cos[\[Theta]] -
0.9969 Cos[\[Phi]] Sin[\[Theta]])^2
In[2]:= Sin[
ArcCos[-Sin[\[Theta]] Cos[\[Phi]] Sin[17.20] +
Cos[\[Theta]] Cos[17.20]]]^2
Out[2]= 1 - (-0.0786782 Cos[\[Theta]] +
0.9969 Cos[\[Phi]] Sin[\[Theta]])^2
In[3]:= -Sin[\[Theta]] Cos[\[Phi]] Sin[17.20] +
Cos[\[Theta]] Cos[17.20]
Out[3]= -0.0786782 Cos[\[Theta]] + 0.9969 Cos[\[Phi]] Sin[\[Theta]]
In[6]:= SphericalPlot3D[
Cos[(1.*10^-6 %1 %2)/%3]^2, {\[Theta], 0, \[Pi]}, {\[Phi], 0,
2 \[Pi]}, Mesh -> 100, MeshFunctions -> Automatic,
ViewPoint -> Above]
