Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• References:
  • Thick surface cordinates along surface normal.
    • From: Narasimham <mathma18@gmail.com>