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: [mg99152] Manipulate + ListPlot3D +.....
  • From: Ossama Kullie <okullie at chimie.u-strasbg.fr>
  • Date: Tue, 28 Apr 2009 04:48:45 -0400 (EDT)
  • References: <gsrqml$r4n$1@smc.vnet.net>

Dear Mathematica group,

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 geomtry. I want to 
include the atoms, point-like at the four top points of the pyramids, 
which can move when the structure of the molecules changes with 
manipulate.
Can you help me please?

Best Regards,
   O. Kullie
  Laboratoire de Chimie Quantique
  CNRS et Universit=E9 de Strasbourg




  • Prev by Date: Re: Mathematica crashed -- where did my notebook go?
  • Next by Date: Re: combine tabled graphics
  • Previous by thread: Re: Internet connectivity -- CountryData
  • Next by thread: Simplify exponents in output