Return to Question

I have a list of {x,y,z} pairs representing points in R^3. For every unique value of z there are many {x,y} pairs defining a polygon/contour in that particular z-plane. My dataset looks like this:

Input:= Take[ptv, 3]
Output= {{61.52, -217.26, -80}, {63.48, -217.64, -80}, {65.43, -217.64, -80}}

These are the coordinates of points existing in the z=-80 plane. There are other pairs for z=-75, etc. Therefore ptv is of the form:

ptv: {{$x_1$,$y_1$,-80}, {$x_2$,$y_2$,-80}, ..., {$x_k$,$y_k$,-80}, ..., {$x_1$,$y_1$,-75}, ...}}

My goal is to create a 3D surface where:

1. the points in every z-plane are connected into a polygon/contour and
2. the points in every z-plane are connected with their neighbors in the previous (say above) and next (say below) plane.

Currently I have achieved 1., via:

Graphics3D[Line[ptv], Point /@ ptv}]

The result looks like this: https://i.sstatic.net/IF5Gk.png

If I, instead, use ListSurfacePlot3D[]:

ListSurfacePlot3D[ptv, AxesLabel->{"x","y","z"}]

I get some ugly artifacts (edges at the boundaries of the volume) as shown here: https://i.sstatic.net/SMwHg.png

Whereas I was expecting a more "smooth" surface. Any hints on:

1. Whether ListSurfacePlot3D[] is the proper function to call (e.g. in the documentation it is mentioned that ListSurfacePlot3D may "fold" over) or
2. What other alternatives I need to consider ?

Thanks!

I have a list of {x,y,z} pairs representing points in $R^3$. For every unique value of z there are many {x,y} pairs defining a polygon/contour in that particular z-plane. My dataset looks like this:

Input:= Take[ptv, 3]
Output= {{61.52, -217.26, -80}, {63.48, -217.64, -80}, {65.43, -217.64, -80}}

These are the coordinates of points existing in the z=-80 plane. There are other pairs for z=-75, etc. Therefore ptv is of the form:

ptv: {{$x_1$,$y_1$,-80}, {$x_2$,$y_2$,-80}, ..., {$x_k$,$y_k$,-80}, ..., {$x_1$,$y_1$,-75}, ...}}

My goal is to create a 3D surface where:

1. the points in every z-plane are connected into a polygon/contour and
2. the points in every z-plane are connected with their neighbors in the previous (say above) and next (say below) plane.

Currently I have achieved 1., via:

Graphics3D[Line[ptv], Point /@ ptv}]

The result looks like this: https://i.sstatic.net/IF5Gk.png

If I, instead, use ListSurfacePlot3D[]:

ListSurfacePlot3D[ptv, AxesLabel->{"x","y","z"}]

I get some ugly artifacts (edges at the boundaries of the volume) as shown here: https://i.sstatic.net/SMwHg.png

Whereas I was expecting a more "smooth" surface. Any hints on:

1. Whether ListSurfacePlot3D[] is the proper function to call (e.g. in the documentation it is mentioned that ListSurfacePlot3D may "fold" over) or
2. What other alternatives I need to consider ?

Thanks!

I have a list of {x,y,z} pairs representing points in R^3. For every unique value of z there are many {x,y} pairs defining a polygon/contour in that particular z-plane. My dataset looks like this:

Input:= Take[ptv, 3]
Output= {{61.52, -217.26, -80}, {63.48, -217.64, -80}, {65.43, -217.64, -80}}

These are the coordinates of points existing in the z=-80 plane. There are other pairs for z=-75, etc.

My goal is to create a 3D surface where:

1. the points in every z-plane are connected into a polygon/contour and
2. the points in every z-plane are connected with their neighbors in the previous (say above) and next (say below) plane.

Currently I have achieved 1., via:

Graphics3D[Line[ptv], Point /@ ptv}]

The result looks like this: https://i.sstatic.net/IF5Gk.png

If I, instead, use ListSurfacePlot3D[]:

ListSurfacePlot3D[ptv, AxesLabel->{"x","y","z"}]

I get some ugly artifacts (edges at the boundaries of the volume) as shown here: https://i.sstatic.net/SMwHg.png

Whereas I was expecting a more "smooth" surface. Any hints on:

1. Whether ListSurfacePlot3D[] is the proper function to call (e.g. in the documentation it is mentioned that ListSurfacePlot3D may "fold" over) or
2. What other alternatives I need to consider ?

Thanks!

I have a list of {x,y,z} pairs representing points in R^3. For every unique value of z there are many {x,y} pairs defining a polygon/contour in that particular z-plane. My dataset looks like this:

Input:= Take[ptv, 3]
Output= {{61.52, -217.26, -80}, {63.48, -217.64, -80}, {65.43, -217.64, -80}}

These are the coordinates of points existing in the z=-80 plane. There are other pairs for z=-75, etc. Therefore ptv is of the form:

ptv: {{$x_1$,$y_1$,-80}, {$x_2$,$y_2$,-80}, ..., {$x_k$,$y_k$,-80}, ..., {$x_1$,$y_1$,-75}, ...}}

My goal is to create a 3D surface where:

1. the points in every z-plane are connected into a polygon/contour and
2. the points in every z-plane are connected with their neighbors in the previous (say above) and next (say below) plane.

Currently I have achieved 1., via:

Graphics3D[Line[ptv], Point /@ ptv}]

The result looks like this: https://i.sstatic.net/IF5Gk.png

If I, instead, use ListSurfacePlot3D[]:

ListSurfacePlot3D[ptv, AxesLabel->{"x","y","z"}]

I get some ugly artifacts (edges at the boundaries of the volume) as shown here: https://i.sstatic.net/SMwHg.png

Whereas I was expecting a more "smooth" surface. Any hints on:

1. Whether ListSurfacePlot3D[] is the proper function to call (e.g. in the documentation it is mentioned that ListSurfacePlot3D may "fold" over) or
2. What other alternatives I need to consider ?

Thanks!

I have a list of {x,y,z} pairs representing points in R^3. For every unique value of z there are many {x,y} pairs defining a polygon/contour in that particular z-plane. My dataset looks like this:

Input:= Take[ptv, 3]
Output= {{61.52, -217.26, -80}, {63.48, -217.64, -80}, {65.43, -217.64, -80}}

These are the coordinates of points existing in the z=-80 plane. There are other pairs for z=-75, etc.

My goal is to create a 3D surface where:

1. the points in every z-plane are connected into a polygon/contour and
2. the points in every z-plane are connected with their neighbors in the previous (say above) and next (say below) plane.

Currently I have achieved 1., via:

Graphics3D[Line[ptv], Point /@ ptv}]

The result looks like this: https://i.sstatic.net/IF5Gk.png

If I, instead, use ListSurfacePlot3D[]:

ListSurfacePlot3D[ptv, AxesLabel->{"x","y","z"}]

I get some ugly artifacts (edges at the boundaries of the volume) as shown here: https://i.sstatic.net/SMwHg.png

Whereas I was expecting a more "smooth" surface. Any hints on what I'm doing wrong? Whether ListSurfacePlot3D[] is the proper function to call or what other alternatives I need to consider ?

Thanks!

I have a list of {x,y,z} pairs representing points in R^3. For every unique value of z there are many {x,y} pairs defining a polygon/contour in that particular z-plane. My dataset looks like this:

Input:= Take[ptv, 3]
Output= {{61.52, -217.26, -80}, {63.48, -217.64, -80}, {65.43, -217.64, -80}}

These are the coordinates of points existing in the z=-80 plane. There are other pairs for z=-75, etc.

My goal is to create a 3D surface where:

1. the points in every z-plane are connected into a polygon/contour and
2. the points in every z-plane are connected with their neighbors in the previous (say above) and next (say below) plane.

Currently I have achieved 1., via:

Graphics3D[Line[ptv], Point /@ ptv}]

The result looks like this: https://i.sstatic.net/IF5Gk.png

If I, instead, use ListSurfacePlot3D[]:

ListSurfacePlot3D[ptv, AxesLabel->{"x","y","z"}]

I get some ugly artifacts (edges at the boundaries of the volume) as shown here: https://i.sstatic.net/SMwHg.png

Whereas I was expecting a more "smooth" surface. Any hints on:

1. Whether ListSurfacePlot3D[] is the proper function to call (e.g. in the documentation it is mentioned that ListSurfacePlot3D may "fold" over) or
2. What other alternatives I need to consider ?

Thanks!