Services & ResourcesWolfram ForumsMathGroup Archive

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

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