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: [mg99241] Re: Manipulate + ListPlot3D +...
  • From: dh <dh at metrohm.com>
  • Date: Thu, 30 Apr 2009 06:26:06 -0400 (EDT)
  • References: <gt90ng$l49$1@smc.vnet.net>


Hi Ossama,

you may add the additional points with e.g.:

Graphics3D[Sphere[#, 0.1] & /@ LuF3Csa[1.9745, \[Alpha]]]

and use Show to combine it with the other graphics.

Note that the lower level of alpha and the specification of Control[..] 

are conflicting. I set the lower level in agreement with Control[..]

==================================

R =.; \[Alpha] =.;

LuF3Csa[R_, \[Alpha]_] := {{0, 0, 0}, {(2*R*Sin[\[Alpha]/2])/Sqrt[3],

    0, -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/

       Sqrt[3])}, {-(R*Sin[\[Alpha]/2])/Sqrt[3],

    R*Sin[\[Alpha]/2], -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/

       Sqrt[3])}, {-(R*Sin[\[Alpha]/2])/Sqrt[3], -R*

     Sin[\[Alpha]/2], -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/Sqrt[3])}}



CreateDocument[{Manipulate[

    Show[ListPlot3D[{LuF3Csa[1.9745, \[Alpha]],

       Table[{x, 0, z}, {x, -1, 2}, {z, -1, 0}]},

      PlotStyle -> {PointSize[0.05]}, AxesOrigin -> {0, 0, 0},

      PlotStyle -> {PointSize[0.05]}, AxesOrigin -> {0, 0, 0},

      MeshStyle -> Yellow, Axes -> True, Boxed -> True,

      PlotRangePadding -> None, PlotRange -> All],

     Graphics3D[

      Sphere[#, 0.1] & /@ LuF3Csa[1.9745, \[Alpha]]]], {\[Alpha],

     105 (Pi/180), 2 Pi/3},

    Control[{\[Alpha], {105 (Pi/180), 110 (Pi/180), 115 (Pi/180),

       2 Pi/3}}]], Button["Close", NotebookClose[]]},

  WindowSize -> {700, 700}]

==================================

Daniel







Ossama Kullie wrote:

> Dear Mathematica user,

> 

> I have the following graphics,

> 

> --------------------------------------------cut here

> 

> R =.; \[Alpha] =.;

> LuF3Csa[R_, \[Alpha]_] := {{0 , 0, 0}, {(2*R*Sin[\[Alpha]/2])/Sqrt[3],

>      0, -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/

>        Sqrt[3])}, {-(R*Sin[\[Alpha]/2])/Sqrt[3],

>     R*Sin[\[Alpha]/2], -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/

>        Sqrt[3])}, {-(R*Sin[\[Alpha]/2])/Sqrt[3], -R*

>      Sin[\[Alpha]/2], -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/Sqrt[3])}}

> 

> CreateDocument[{Manipulate[

>     ListPlot3D[{LuF3Csa[1.9745, \[Alpha]],

>       Table[{x, 0, z}, {x, -1, 2}, {z, -1, 0}]},

>      PlotStyle -> {PointSize[0.05]}, AxesOrigin -> {0, 0, 0},

>      PlotStyle -> {PointSize[0.05]}, AxesOrigin -> {0, 0, 0},

>      MeshStyle -> Yellow, Axes -> True, Boxed -> True,

>      PlotRangePadding -> None, PlotRange -> All], {\[Alpha],

>      110 (Pi/180), 2 Pi/3},

>     Control[{\[Alpha], {105 (Pi/180), 110 (Pi/180), 115 (Pi/180),

>        2 Pi/3}}]], Button["Close", NotebookClose[]]},

>   WindowSize -> {700, 700}]

> 

> --------------------------------------------------------------

> 

> It is the  molecule LuF3 with a pyramid shape geometry. I want to 

> include the atoms, point-like at the four top points of the pyramids, 

> which can move with the shape pf the molecule when the structure of 

> the molecules changes with manipulate.

> Can you help me please?

> 

> Best Regards,

>    O. Kullie

> 

> 

> 




  • Prev by Date: Re: Manipulate + ListPlot3D +...
  • Next by Date: Re: Re: Select and Cases Give Different Answers
  • Previous by thread: Re: Manipulate + ListPlot3D +...
  • Next by thread: why is this happening?