Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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[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: Nested numerical integration
  • Next by Date: Re: Select and Cases Give Different Answers
  • Previous by thread: Re: NDSolve initial value problem
  • Next by thread: Re: Manipulate + ListPlot3D +...