MathGroup Archive 1998

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

Search the Archive

Re: creating distributions


Hi Naum,
try
pointlist=Table[{ArcSin[Random[Real,{-1,1}],
Random[Real,{-pi,pi}]},{density}]

Jurgen


Naum Phleger wrote:
> 
>     I want to distribute vectors for a given vector field evenly over
> the surface of a sphere.  The easiest way that I have come up with is
> to generate a random list of {theta,fi} pairs.  This makes the field
> too dense at the north and south poles.  I would like to use a cosine
> distribution to be used in my random number generator so that I get a
> more uniform distribution.  Here is my code now, and what I would like
> it to look more like.
> 
> density is the total number of vectors
> 
> NOW:
>     pointlist=Table[{Random[Real,{ -pi/2 , pi/2 }], Random[Real,{ -pi ,
> pi }]},{density,i}]
> 
> DESIRED
>     pointlist=Table[{Random[CosDistribution,{ -pi/2 , pi/2 }],
> Random[Real,{ -pi , pi }]},{density,i}]
> 
>               -NAUM



  • Prev by Date: Re: Non-linear differential equation
  • Next by Date: Mathematica Lightning Model?
  • Previous by thread: creating distributions
  • Next by thread: Simple MathLink question