Re: Filled Ellipsoid
- To: mathgroup at smc.vnet.net
- Subject: [mg27534] Re: [mg27505] Filled Ellipsoid
- From: Tomas Garza <tgarza01 at prodigy.net.mx>
- Date: Sat, 3 Mar 2001 03:40:15 -0500 (EST)
- References: <200103010853.DAA19886@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Well, there goes a very simple idea: once you have your ellipsoid plot, take
the plot points and construct the Polygon joining them, filled with the
color you like. I illustrate with the numerical data given in the Add-On
Statistics`MultiDescriptiveStatistics`:
In[1]:=
<< Statistics`MultiDescriptiveStatistics`;
In[2]:=
data = {{1232, 4175}, {1115, 6652}, {2205, 7612},
{1897, 10914}, {1932, 10850}, {1612, 7627}, {1598, 6954},
{1804, 8365}, {1752, 9469}, {2067, 6410}, {2365, 10327},
{1646, 7320}, {1579, 8196}, {1880, 9709}, {1773, 10370},
{1712, 7749}, {1932, 6818}, {1820, 9307}, {1900, 6457},
{2426, 10102}, {1558, 7414}, {1470, 7556}, {1858, 7833},
{1587, 8309}, {2208, 9559}, {1487, 6255}, {2206, 10723},
{2332, 5430}, {2540, 12090}, {2322, 10072}} // N;
In[3]:=
t = EllipsoidQuartiles[data];
In[4]:=
s = Show[Graphics[t[[1]]]];
In[4]:=
points = Cases[FullForm[s][[1, 1]], {x_, y_}, Infinity];
In[5]:=
Show[Graphics[{GrayLevel[0.8], Polygon[points]}]];
This gives you the ellipsoid filled with a nice soft gray color.
Tomas Garza
Mexico City
----- Original Message -----
From: "Boris Breznen" <bbreznen at vis.caltech.edu>
To: mathgroup at smc.vnet.net
Subject: [mg27534] [mg27505] Filled Ellipsoid
> Is there a siple way to plot filled ellipsoid in Mathematica ? The basic
> Ellipsoid function, included in
> the Statistics`MultiDescriptiveStatistics` package plots a contour. I
would
> like to
> fill it (simmilar to what Disc does with respect to Circle).
>
> Thank you,
>
> Boris Breznen
> bbreznen at vis.caltech.edu
>
>
>
>
- References:
- Filled Ellipsoid
- From: "Boris Breznen" <bbreznen@vis.caltech.edu>
- Filled Ellipsoid