Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: constructing a continuous region from 2D data using
Replies: 4   Last Post: Jul 21, 2013 4:16 AM

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: constructing a continuous region from 2D data using
Posted: Jul 21, 2013 4:16 AM

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@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
> >
> >

>
>

Date Subject Author
7/18/13 Bob Hanlon
7/20/13 ommair@uok.edu.pk
7/18/13 Sseziwa Mukasa
7/21/13 Bob Hanlon