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
- References: <000301beadd5$495b6bc0$0201a8c0@zoualg.net.agat.net>
- 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