Re: Thick surface cordinates along surface normal.

• To: mathgroup at smc.vnet.net
• Subject: [mg132476] Re: Thick surface cordinates along surface normal.
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 27 Mar 2014 04:59:13 -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: <20140326072229.A5FBC69E6@smc.vnet.net>

```pp3d1 = ParametricPlot3D[
{u Cos[v], v, u Sin[v]},
{u, -1, 1}, {v, 0, 1.5 Pi},
PlotStyle -> Thickness[.4],
Axes -> None,
Boxed -> False]

The outer points are

pts1 = Cases[pp3d1,
GraphicsComplex[v_, __] :> v][[1]];

pts1 === pp3d1[[1, 1]]

True

Length[pts1]

4592

For center points

pp3d2 = ParametricPlot3D[
{u Cos[v], v, u Sin[v]},
{u, -1, 1}, {v, 0, 1.5 Pi},
PlotStyle -> AbsoluteThickness[1],
Axes -> None,
Boxed -> False]

pts2 = pp3d2[[1, 1]];

Length[pts2]

2164

Drawing inner surface between two transparent outer layers

pp3d1 = ParametricPlot3D[{
{u Cos[v], v, u Sin[v]},
{u Cos[v], v, u Sin[v]}},
{u, -1, 1}, {v, 0, 1.5 Pi},
PlotStyle -> {
{Opacity[.1], Thickness[.4]},
AbsoluteThickness[1]},
Axes -> None,
Boxed -> False]

Bob Hanlon

On Wed, Mar 26, 2014 at 3:22 AM, Narasimham <mathma18 at gmail.com> wrote:

> The following shows an example of a surface made of point coordinates at
> half thickness distance on each side of surface along  normal.How to get a
> table of these coordinates on which it is based for any surface?
>
> ParametricPlot3D[{u Cos[v], v, u Sin[v]}, {u, -1, 1}, {v, 0,1.5 Pi},
> PlotStyle -> Thickness[.4], Axes -> None, Boxed -> False]
>
> Narasimham
>
>

```

• Prev by Date: Re: Problems with Solve
• Next by Date: Re: Combinatorica versus new graphs in V8
• Previous by thread: Thick surface cordinates along surface normal.
• Next by thread: Re: Thick surface cordinates along surface normal.