Re: constructing a continuous region from 2D data using
- To: mathgroup at smc.vnet.net
- Subject: [mg131418] Re: constructing a continuous region from 2D data using
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sun, 21 Jul 2013 04:24:37 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <20130717054903.D828E69BD@smc.vnet.net>
Needs["ComputationalGeometry`"]
f[polygonPoints_List, x_] := Module[{
allPts = Append[
polygonPoints,
polygonPoints[[1]]],
fp = FractionalPart[x]},
(1 - fp) allPts[[Floor[x]]] +
fp*allPts[[Ceiling[x]]]] /;
1 <= x <= Length[polygonPoints] + 1
data2 = data[[ConvexHull[data]]];
ListLinePlot[Table[f[data2, x],
{x, 1, Length[data2] + 1, 1/3}],
Frame -> True, Axes -> False,
PlotMarkers -> {Automatic, 4}]
ParametricPlot[f[data2, x],
{x, 1, Length[ch] + 1},
Frame -> True, Axes -> False,
AspectRatio -> 1/GoldenRatio]
Bob Hanlon
On Sat, Jul 20, 2013 at 5:57 AM, <ommair at uok.edu.pk> wrote:
> Dear Bob,
>
> What if I want to create more data points to fill the gap between these
> points so that image represent like continuous region with some boundary.
> >
> > Needs["ComputationalGeometry`"]
> >
> >
> >
> >
> >
> > ch = ConvexHull[data];
> >
> >
> >
> >
> >
> > Graphics[{
> >
> > LightBlue, Polygon[data[[ch]]],
> >
> > Red, AbsolutePointSize[3], Point[data]},
> >
> > AspectRatio -> 1/GoldenRatio, Frame -> True]
> >
> >
> >
> >
> >
> > ListLinePlot[data[[Append[ch, ch[[1]]]]],
> >
> > PlotStyle -> Directive[Blue, Thick],
> >
> > Frame -> True, Axes -> False,
> >
> > Epilog -> {Red, AbsolutePointSize[3], Point[data]}]
> >
> >
> >
> >
> >
> >
> >
> > Bob Hanlon
> >
> >
>
>
- References:
- constructing a continuous region from 2D data using interpolation or
- From: ommair@uok.edu.pk
- constructing a continuous region from 2D data using interpolation or