On Mon, 12 Aug 2002 03:36:10 -0400, "Timothy R. Cook"
<tim### [at] scifi-fantasycom> wrote:

> randomize timer

#declare Seed=seed(SeedNr);

> for n=1 to 23

#declare N=1;
#while(N<=23)

>     theta%=(rnd*36)*20

#declare Theta=rand(Seed)*36*20;

>     r = rnd*0.24

#declare R=rand(Seed)*24;

>     x = r*COS(theta%)

#declare X=R*cos(Theta);

>     y = r*SIN(theta%)

#declare Y=R*sin(Theta);

>     z = (rnd*0.5)+1.25

#declare Z=rand(Seed)*0.5+1.25;

>     ? USING "X = +#.#####  Y = +#.#####  Z = +#.#####";x,y,z

#debug concat(
         "  X = ",str(X,0,-1),
         "  Y = ",str(Y,0,-1),
         "  Z = ",str(Z,0,-1),
       "\n")

> next n

#declare N=N+1;
#end

Is it readable and sufficient or do you need some addition ?

ABX

Post a reply to this message