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: [mg8734] Re: Help! How can I control the size of individual point?
  • From: tburton at cts.com (Tom Burton)
  • Date: Sat, 20 Sep 1997 22:28:02 -0400
  • Organization: Brahea Consulting
  • Sender: owner-wri-mathgroup at wolfram.com

On 19 Sep 1997 03:18:27 -0400, in comp.soft-sys.math.mathematica you
wrote:

>I have a data file that has coordinates of 3 dimensional spheres and their
>radii.
>
>x1 y1 z1 r1                r1       x1 y1 z1
>x2 y2 z2 r2                r2       x2 y2 z2
>x3 y3 z3 r3        or      r3  and  x3 y3 z3
>..                        ...      ...
>xi yi zi ri                ri       xi yi zi
>..                        ...      ...
>
>I tried,
>
>sphere = ReadList["filename", Point[Table[Number,{3}]
>Show[Graphics3D[{sphere}]]
>
This almost gets it right:

sphereAlmost=
  ReadList["filename",
    {Point[{Number,Number,Number}],PointSize[Number]}]

except that the pointsize should be set before the point is plotted, so

sphere=3DsphereAlmost/.{p_,r_}->{r,p}

Then

Show[Graphics3D[sphere]]

works fine. Hope this helps.

PS: I used to work in the area of Polymer Flow Simulation and was
briefly an employee of a corporate member of the industrial consortium
supporting your lab. Lot's of good stuff. What are you working on?
Tom Burton


  • Prev by Date: Mma: Using FindRoot in NonlinearRegress ?
  • Next by Date: Re: Help! How can I control the size of individual point?
  • Previous by thread: Re: Help! How can I control the size of individual point?
  • Next by thread: Re: Help! How can I control the size of individual point?