Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

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


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

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

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   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
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply


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

>
>






Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.