MathGroup Archive 2009

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

Search the Archive

Re: Manipulate + ListPlot3D +...


Thank you a lot for all your suggestions,

I think the following seems ok ?

---------------------------------------

CreateDocument[{Manipulate[
    Show[ListPointPlot3D[LuF3Csa[1.9745, \[Alpha]],
      PlotStyle -> {AbsolutePointSize[15]},
      ColorFunction -> Function[{x, y, z}, Hue[x]],
      AxesOrigin -> {0, 0, 0}],
     ListPlot3D[{LuF3Csa[1.9745, \[Alpha]],
       Table[{x, 0, z}, {x, -1, 2}, {z, -1, 0}]}, MeshStyle -> Yellow,
      Axes -> True, Boxed -> True, PlotRangePadding -> None,
      PlotRange -> All]], {\[Alpha], 100 (Pi/180), (2 Pi/3)},
    Control[{\[Alpha], Table[n*(Pi/180), {n, 100, 120, 5}]}]],
   Button["Close", NotebookClose[]]}, WindowSize -> {700, 700}]

------------------------------------------------
   Best Regards,
    Ossama kullie




  • Prev by Date: Introducing the Wolfram Mathematica Tutorial Collection
  • Next by Date: Re: How do I send the palette behind other windows?
  • Previous by thread: Re: Introducing the Wolfram Mathematica Tutorial Collection
  • Next by thread: Re: why is this happening?