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

MathGroup Archive 2009

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

Search the Archive

Re: Manipulate + ListPlot3D +...

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99249] Re: Manipulate + ListPlot3D +...
  • From: Ossama Kullie <okullie at chimie.u-strasbg.fr>
  • Date: Fri, 1 May 2009 05:19:55 -0400 (EDT)
  • References: <gt90ng$l49$1@smc.vnet.net>

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?