       Manipulate + ListPlot3D +...

• To: mathgroup at smc.vnet.net
• Subject: [mg99161] Manipulate + ListPlot3D +...
• From: Ossama Kullie <okullie at chimie.u-strasbg.fr>
• Date: Wed, 29 Apr 2009 03:48:11 -0400 (EDT)

```Dear Mathematica user,

I have the following graphics,

--------------------------------------------cut here

R =.; \[Alpha] =.;
LuF3Csa[R_, \[Alpha]_] := {{0 , 0, 0}, {(2*R*Sin[\[Alpha]/2])/Sqrt,
0, -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/
Sqrt)}, {-(R*Sin[\[Alpha]/2])/Sqrt,
R*Sin[\[Alpha]/2], -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/
Sqrt)}, {-(R*Sin[\[Alpha]/2])/Sqrt, -R*
Sin[\[Alpha]/2], -(Sqrt[R^2*(1 + 2*Cos[\[Alpha]])]/Sqrt)}}

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.