Group Abstract Group Abstract

Message Boards Message Boards

0
|
8.9K Views
|
4 Replies
|
3 Total Likes
View groups...
Share
Share this post:

How to show/plot 3D spheres randomly?

Posted 11 years ago

Hello - newbie here; use very old Rev of Mathematica; am attempting to generate multiple random 3D spheres for molecular and/or astronomical simulations. I am familiar process for generating random "points", "lines", "polygons" and "cuboids". (see below - & attach)

rcoord := {Random[ ], Random[ ], Random[ ]}

Show[Graphics3D[ Table[Cuboid[10 rcoord], {18}] ]

However, am unfamiliar w/'commands'/methodology to produce 'spheres' of any given radius/color. I wud guess that I could use - " ParametricPlot3D[ {Cos[t]...[u]...Sin[t]...[u] ... " after the 'rcoord' input; or, possibly the " SphericalPlot3D[ r, {theta...}, {phi... ] ?? (I could probably have tried these above < time than this silly message !!!! )

Thx for any assistance.

Attachments:
4 Replies
POSTED BY: Marco Thiel
Attachments:

Marco - Just logged on again; see ur rather sophisticated 'rendering' !! Thank u !!! I use Mathematica 2.2 & frankly haven't even looked up ur 'instruction set'/command. Not sure I even HAVE 'bouncing' ; however, will try later 2-nite. THX again !!! RPP

Hi,

try

Graphics3D[Sphere[RandomReal[1, {10, 3}], 0.1]]

enter image description here

Cheers,

Marco

POSTED BY: Marco Thiel
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard