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

MathGroup Archive 2012

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

Search the Archive

Re: How do I create a circular lamina?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg127528] Re: How do I create a circular lamina?
  • From: Mark Green <drmoose94 at gmail.com>
  • Date: Wed, 1 Aug 2012 04:58:11 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <24471452.12823.1343701025853.JavaMail.root@m06> <000101cd6ec6$4dd495d0$e97dc170$@comcast.net>

Hi,

Thanks.  I was aware of Presentations but the problem is that I need to be able to make the file into a CDF that I can share with others taking classes.
  As I understand it, if I used Presentations I would be unable to do this because I would have to include Presentations in the CDF file which I cannot do because it is commercial software. 

Mark

On 31 Jul 2012, at 03:43, "djmpark" <djmpark at comcast.net> wrote:

> The Presentations Application has the following routines that might be
> useful in this regard:
>
> Circle3D[position, normal, radius, anglerange:{0,2\[Pi]}, plotoptions] will
> draw a circle with the specified position and radius. The orientation of the
> circle is given by the normal vector.
>
> Disk3D[position, normal, radius, anglerange:{0,2\[Pi]}, plotoptions] will
> draw a disk with the specified position and radius. The orientation of the
> disk is given by the normal vector.
>
> DrawArrow3DAxes[location, size, headsize:0.35, colors:{Blue,Green,Orange}]
> will draw an orthogonal triad of 3D arrows at location, each arrow being of
> length size. The arrows will point in the x, y and z directions.
>
> DrawLabeled3DAxes[{location, axessize, outlinedirective, fillcolor},
> xspecifications, yspecifications, zspecifications] will draw labeled 3D axes
> centered at location. The xyz-specifications take the form {label,
> labelsize, position, angle, alignment}. The labelsize is the vertical height
> of the label expression, position is in terms of the axessize, angle is the
> rotation of the reading direction from the x axis, and alignment is the rhs
> of an Alignment option.
>
> AngleDisk3D[center, {vector1, vector2}, radius, opts] will draw a disk
> segment of the given radius between vector1 and vector2. Options suitable
> for Disk3D may be passed.
>
> AngleSquare3D[center, {vector1, vector2}, size, sidedirective:EdgeForm[]]
> will draw an outlined square of the given size between vector1 and vector2,
> which are assumed to be at right angles.
>
> EulerAngles[matrix, seqstring, opts] will return the Euler angles
> corresponding to a sequence of axes rotations specified by seqstring. An
> axes sequence of "XYZ" means rotation around the X axis by \[Psi], followed
> by rotation about the Y axis by \[Theta], followed by rotation about the Z
> axis by \[Phi]. Two sets of rotation angles {\[Psi],\[Theta],\[Phi]} are
> returned. The first, canonical set, has -\[Pi]/2 <= \[Theta] <= \[Pi]/2 for
> ABC sequences and 0 <= \[Theta] <= \[Pi] for ABA sequences. The second
> solution corresponds to the other value of \[Theta] in the range -\[Pi] <=
> \[Theta] <= \[Pi]. The answers are in terms of the standard alibi matrices,
> unless alias is specified in the EAMode option. If the option EAMatrixTest
> is set to True, the routine will check if the matrix is a proper rotation
> matrix. If the matrix is degenerate for a given sequence, only \[Psi]
> \[PlusMinus] \[Phi] can be determined. In this case, the \[Phi] = 0 solution
> is returned, with the corresponding second solution. The option
> EADegeneracyCriterion gives the criterion for determining degeneracy.
>
> RotationAngleAndAxis[rotationmatrix] will generate the axis of rotation and
> the associated rotation angle in radians for a 3 x 3 rotation matrix. They
> are returned as {angle, axis}. An equally valid answer is obtained by
> reversing the signs of both the angle and the axis vector.
>
>
> David Park
> djmpark at comcast.net
> http://home.comcast.net/~djmpark/index.html
>
>
>
> From: drmoose94 at gmail.com [mailto:drmoose94 at gmail.com]
>
> Hi,
>
> I want to be able to visualize Euler's Rotation Theorem (I don't think
> there's an existing visualization/demonstration of that anywhere?), but in
> order to do so I need to draw two intersecting great circles of spheres.
>
> I can't see any primitive that allows a circular lamina or disk to be drawn
> in 3D.  There's Disk[] and Circle[] in 2D, but Mathematica won't allow them
> to be converted to 3D.  I can make one via revolution plotting a constant
> but that seems a really ugly hack.
>
> Is there a good way of getting a circular lamina in 3D/
>
>



  • Prev by Date: Re: Fitting part of a List
  • Next by Date: Re: Mathematica as a New Approach to Teaching Maths
  • Previous by thread: Re: How do I create a circular lamina?
  • Next by thread: Re: How do I create a circular lamina?