MathGroup Archive 2009

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

Search the Archive

3D model problem - translating figure off center

  • To: mathgroup at smc.vnet.net
  • Subject: [mg103588] 3D model problem - translating figure off center
  • From: canopus56 <canopus56 at yahoo.com>
  • Date: Tue, 29 Sep 2009 07:38:51 -0400 (EDT)

Dear group,

I am attempting to make a simple 3D model of an impact plume, sun
angle lighting and lunar crater Cabeus (98km dia., depth 5.1km).
While it is simple to build all of the components and to put them into
one image, I am unable to move the plume figure off center to 49,49,0
(into the green sunlight plane).  Any ideas on how to approach this 3D
graphics translation problem within Mathematica? Thanks - Kurt

Show[
 RevolutionPlot3D[x^2/(5.1*91.35), {x, 0, 49}, Mesh -> None,
  PlotStyle -> Directive[Opacity[1.0], Gray],
  MeshShading -> {Gray, Automatic} , BoxRatios -> {1, 1, 0.05} ],
 Plot3D[Tan[8.27 Degree]* x - 1.8, {x, 0, 49}, {y, -49, 49},
  Mesh -> None,
  PlotStyle ->
   Directive[Yellow, Specularity[White, 20], Opacity[0.4]],
  BoxRatios -> {1, 1, 0.05}],
 RevolutionPlot3D[2*(x - 2.5), {x, 2.5, 5.0}, Mesh -> None,
  PlotStyle -> Directive[Opacity[0.5], Red],
  MeshShading -> {Gray, Automatic} , BoxRatios -> {1, 1, 0.05} ]
 ]


  • Prev by Date: Re: BarChart Range
  • Next by Date: Help generalizing Liouville's Polynomial Identity
  • Previous by thread: Re: reference manager in Mathematica?
  • Next by thread: Help generalizing Liouville's Polynomial Identity