Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1999

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

Search the Archive

Re: Strain Ellipsoids

  • To: mathgroup at
  • Subject: [mg17928] Re: Strain Ellipsoids
  • From: Jens-Peer Kuska <kuska at>
  • Date: Sat, 5 Jun 1999 02:56:01 -0400
  • Organization: Universitaet Leipzig
  • References: <7j5alm$>
  • Sender: owner-wri-mathgroup at


You havt to transform the *points* not the polygons
The following works:

    Sphere[]/. Polygon[p_]:> Polygon[Dot[strain,#] & /@ p]

Hope that helps

Mark Lawrence Storch wrote:
> Hi,
>     I am trying to write a code that will draw the strain ellipsoid for
> a given strain tensor.  I was starting with the `Graphics`Shapes package
> to get the Sphere[] function.  I want a function that will return a list
> that I can use with Show[].  Sphere gives me polygons and I have tried
> the following:
> StrainEllipsoid[m_?MatrixQ]:=(m.#)&/@Sphere[]
> but I keep getting an error that reads
> Show::gcomb : An error was encountered in combining the graphics objects
> in Show[{<<1>>}]
> I am new to using # and /@ so any help here would be appreciated.
> Thank you,
> Mark Storch
> Carnegie Mellon University

  • Prev by Date: Re: Algebraic substitutions. HOW?
  • Next by Date: Re: Mathematica and 64-bit computing (... and Unix/Linux)
  • Previous by thread: Re: Algebraic substitutions. HOW?
  • Next by thread: Re: FW: Strain Ellipsoids