Re: FW: Strain Ellipsoids

• To: mathgroup at smc.vnet.net
• Subject: [mg17932] Re: FW: [mg17924] Strain Ellipsoids
• From: Jean-Marie Thomas <jmthomas at agat.net>
• Date: Sat, 5 Jun 1999 02:56:03 -0400
• Organization: TeA
• Sender: owner-wri-mathgroup at wolfram.com

```Sphere is in fact a graphic object :

<<Graphics`Shapes`

s=Sphere[1,24,24];

Show at Graphics3D@s;

Shallow[s,{6,5}] (*shows you the structure of object*)

If I remember, a strain tensor is a symmetrical 3x3 matrix (if it is not, the
method is unchanged !)
strainTensorGenerator[]:=Module[{r},
r=Table[Random[],{3},{3}];
r+Transpose at r
]

myTensor=strainTensorGenerator[]

Shallow[r=Map[myTensor.#&,s,{3}],{5,5}]

Show at Graphics3D@r

Hope this helps,

jmt

On Thu, 03 Jun 1999, Jean-Marie THOMAS wrote:
> -----Original Message-----
> From: Mark Lawrence Storch [mailto:mscc+ at andrew.cmu.edu]
To: mathgroup at smc.vnet.net
> Sent: jeudi 3 juin 1999 08:58
> To: mathgroup at smc.vnet.net
> Subject: [mg17932] [mg17924] Strain Ellipsoids
>
>
> 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: Mathematica and 64-bit computing (... and Unix/Linux)
• Next by Date: Re: problem with 'FortranForm' of Mathematica 3.0
• Previous by thread: Re: Strain Ellipsoids
• Next by thread: Re: Mathematica and 64-bit computing (... and Unix/Linux)