Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1997
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1997

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

Search the Archive

Re: Help! How can I control the size of individual point?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg8748] Re: Help! How can I control the size of individual point?
  • From: jost at no-junk-mail.fr (Christian Jost)
  • Date: Sat, 20 Sep 1997 22:28:13 -0400
  • Organization: Universite Paris-Sud XI
  • Sender: owner-wri-mathgroup at wolfram.com

In article <5vt903$gjp at smc.vnet.net>, Sanghoon Lee
<hoon at kira.cc.uakron.edu> wrote:

> I have a data file that has coordinates of 3 dimensional spheres and their
> radii.
> 
....
> Can anyone teach me how to draw these spheres in the 3 dimensional space?
> I tried,
> 

Your need graphics primitives, then you can define each individual point
size. Here is an example:

In[12]:=
data={{1,1,1,0.3},{1.1,1,1.5,0.1},{0.9,1.5,0.5,0.6}};

In[13]:=
pointList=({PointSize[#[[4]]],Point[{#[[1]],#[[2]],#[[3]]}]}& /@ data)

Out[13]=
{{PointSize[0.3],Point[{1,1,1}]},{PointSize[0.1],Point[{1.1,1,1.5}]},{
    PointSize[0.6],Point[{0.9,1.5,0.5}]}}

In[14]:=
Show[Graphics3D[pointList]];

Hope that helps, Christian.

*********************************************************************
Christian Jost, Université Paris-Sud XI, Orsay, France

Please don't send any junk mail or advertisements. For personal mail please send to: Christian.Jost at epc.u-psud.fr


  • Prev by Date: Re: Help! How can I control the size of individual point?
  • Next by Date: [Q] error in Integrate
  • Previous by thread: Re: Help! How can I control the size of individual point?
  • Next by thread: how to use server license?