Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

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

Search the Archive

Simple display questions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126839] Simple display questions
  • From: "Ste[hen Gray" <stevebg at roadrunner.com>
  • Date: Tue, 12 Jun 2012 02:58:57 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

I have this code:

p0 = {{0, 0, 0}, {2,1,2}, {4,1,2}, {3,3,2}, {
    1,2,1}, {2,1,1}};
p = Transpose[{p0, Append[Rest[p0], First[p0]]}];
c = Table[Hue[Mod[i, 7]/7], {i, Length[p]}];
Graphics3D[Thread[{c, Cylinder[#, 0.07] & /@ p}], Boxed -> True,
  Axes -> True, AxesLabel -> {x, y, z}, ViewPoint -> {20, 20, 20},
  AspectRatio -> 1]

I haven't  used Mathematica for 5 years and I have forgotten a lot.

1. How do I get a label on each point? 1,2,3,4,5,6 would be OK.
2. How do I control the size and color, etc. of those labels?
3. When I move the six points (actually I use Manipulate), the size of 
the box changes, making the change in the polygon confusing. How do I 
keep the box from changing?
4. I assume there is no way to drag the points on the display and have 
the coordinates change accordingly. (Maybe it can in 2D displays?)

Thank you for any info.

Steve Gray



  • Prev by Date: EquationForm[] for control systems stateSpaceModel?
  • Next by Date: Re: Splitting sums in mathematica
  • Previous by thread: Re: for control systems stateSpaceModel?
  • Next by thread: Re: Simple display questions