| 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: , |
|
