Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Spot diagram for spherical aberration' topicStudent Support Forum > General > Archives > "Spot diagram for spherical aberration"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
yehuda ben-shimol
09/23/07 11:35am

Hi,
Using x:= means that each time you call for x a new value is generated. The same for y, x1, y1, etc.
try using the modified code given here (in InoutForm)


makePoint :=
Module[{\[Theta] = RandomReal[{0, 2*Pi}], \[Rho] = RandomReal[]^2,
p}, p = \[Rho]*{Cos[\[Theta]], Sin[\[Theta]]}; p . p*p]
t4 = ListPlot[Table[If[(z = makePoint) . z < 1, z], {4000}],
PlotRange -> {{-1, 1}, {-1, 1}}, AspectRatio -> 1]

good luck
yehuda

URL: ,

Subject (listing for 'Spot diagram for spherical aberration')
Author Date Posted
Spot diagram for spherical aberration J.E 09/21/07 00:17am
Re: Spot diagram for spherical aberration yehuda ben-s... 09/23/07 11:35am
Re: Re: Spot diagram for spherical aberration J.E 09/23/07 5:02pm
Re: Re: Re: Spot diagram for spherical aberration yehuda ben-s... 09/24/07 00:27am
Re: Re: Re: Re: Spot diagram for spherical aber... J.E 09/24/07 11:58am
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic