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

MathGroup Archive 2011

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

Search the Archive

Re: Problem displaying user-created .cdf files

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123017] Re: Problem displaying user-created .cdf files
  • From: Gary <gpalmerlv at gmail.com>
  • Date: Sun, 20 Nov 2011 05:38:39 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <ja2pvl$mak$1@smc.vnet.net> <ja85eh$iks$1@smc.vnet.net>

OK, I discovered the Open Option feature also resides in the Format
menu, so I do have access to the options. But the drama continues. I
restored the visible brackets to the .nb file and I find that
evaluation now produces a fine looking but non-functioning Manipulate
plot. To the best of my knowledge, I changed nothing in the code
itself, which formerly produced a notebook plot with working sliders.
I wonder if there is an option that I have set to the wrong value.

(* Rotation on arbitrary axes *)

(* Note that in Mathematica 3D graphics, the standard viewpoint has \
the x axis nearly horizontal and the y axis nearly vertical. *)

Clear[xV, yV, zV, originC, vDiskAxis]

(* Cartesian frame and origin *)
xV = {1, 0, 0};
yV = {0, 1, 0};
zV = {0, 0, 1};
originC = {0, 0, 0};

(* Line, arrow, disk functions defined to use vector parameters. *)
(* \
o, origin; vAxis, axis; len, cylinder length; r, cylinder radius *)

vLine[o_, v_, len_] := Line[{o, o + len*Normalize[v]}];

vArrow[o_, v_, len_] := Arrow[{o, o + len*Normalize[v]}];

vCylinder[o_, vAxis_, len_, r_] :=

  Cylinder[{o, o + len*Normalize[vAxis]}, r];

(* len in vFrame3D is length from origin; total length = 2*len *)

vFrame3D[len_] := {
   Thick, Black,
   vLine[-len*Normalize[xV], xV, 2*len],
   vLine[-len*Normalize[yV], yV, 2*len],
   vLine[-len*Normalize[zV], zV, 2*len],

   Text[Style["X", 16, Bold], (11/10)*len*Normalize[xV ]],
   Text[Style["Y", 16, Bold], (11/10)*len*Normalize[yV ]],
   Text[Style["Z", 16, Bold], (11/10)*len*Normalize[zV ]]
   };


vDiskAxis = {1, 1, 1};

demoObjects = {

   Thick, Red,
   vArrow[originC, xV, 5],
   vArrow[originC, yV, 5],
   vArrow[originC, zV, 5],

   Thick, Orange, vArrow[originC, vDiskAxis, 5],
   Magenta, vCylinder[originC, vDiskAxis, .2, .5],
   Blue, Specularity[1], Sphere[{2, 3, 2}, .5]

   };

Manipulate[
 Graphics3D[
  {
   vFrame3D[5], (* frame does not rotate *)
   Rotate[
    Rotate[
     Rotate[
      Rotate[
       demoObjects,
       w, vDiskAxis, originC
       ],
      x, {1, 0, 0}, originC
      ],
     y, {0, 1, 0}, originC
     ],
    z, {0, 0, 1}, originC
    ]
   },

  (* Parameters and ranges for Graphics3D[] *)

  ViewPoint -> {2, 3/4, .2},
  Background -> LightYellow,
  Boxed -> False,
  ImageSize -> Full,
  PlotRange -> {{-5, 5}, {-5, 6}, {-5, 5}}
  (* Alert: To avoid box shifting,
  specify PlotRange for x,y,and z axis. *)

  ],

 (* Parameters and ranges for Manipulate[] *)

 Style["\n\n\nROTATIONS\n", 16, Bold],

 Style["on disk axis", 16, Bold], {{w, 0}, 0, 2*Pi, 2*Pi/90},
 Style["on x axis", 16, Bold], {{x, 0}, 0, 2*Pi, 2*Pi/90},
 Style["on y axis", 16, Bold], {{y, 0}, 0, 2*Pi, 2*Pi/90},
 Style["on z axis", 16, Bold], {{z, 0}, 0, 2*Pi, 2*Pi/90},

 ContentSize -> 425,
 ControlPlacement -> Right,
 SaveDefinitions -> True

 ]

On Nov 19, 3:54 am, Gary <gpalme... at gmail.com> wrote:
> I should add to the previous, that not only is the Open Option
> Inspector button grayed out, but the entire Preferences dialog appears
> to be frozen.




  • Prev by Date: Re: Timing graphics in the real world
  • Next by Date: Re: NIntegrate to compute LegendreP approximations to functions
  • Previous by thread: Re: Problem displaying user-created .cdf files
  • Next by thread: Re: Problem displaying user-created .cdf files