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
>
>
>