MathGroup Archive 2007

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

Search the Archive

Re: ParametricPlot3D- Line Thickness

  • To: mathgroup at smc.vnet.net
  • Subject: [mg78858] Re: ParametricPlot3D- Line Thickness
  • From: Roger Bagula <rlbagula at sbcglobal.net>
  • Date: Wed, 11 Jul 2007 06:13:33 -0400 (EDT)
  • References: <f6kqr4$kb7$1@smc.vnet.net>

John Wallbank wrote:

>Hi
>
>Does anyone know how to increase the thickness of the lines drawn using ParametricPlot3D in Mathematica 5.2?
>
>Also would I be correct in thinking that there is no way of creating semi-transparent images using version 5.2?
>
>Thanks
>John
>
>  
>
Try this code ( transparency due to Xah Lee's seashell code):

Clear[x, y, z, gp, gp2]
x = 3*Cos[t]/(Sqrt[3] - Cos[p]);
y = 3*Cos[t + 2*Pi/3]/(Sqrt[3] - Cos[p + 2*Pi/3]);
z = 3*Cos[t - 2*Pi/3]/(Sqrt[3] - Cos[p - 2*Pi/3]);
Clear[gp, gp2]
gp = First@ParametricPlot3D[{x, -y, z, {AbsoluteThickness[1],
          Blue}}, {t, -Pi, Pi}, {
        p, 0, Pi}, PlotRange -> All, PlotPoints -> {30, 20}];
gp2 = First@ParametricPlot3D[{x, -y, z}, {
    t, -Pi, Pi}, {p, -Pi, 0}, PlotRange -> All, PlotPoints -> {30, 20}];
Show[Graphics3D[{gp /. Polygon -> Line, EdgeForm[GrayLevel[.8]],
         gp2}, {Boxed -> False}]];


  • Prev by Date: RE: ListPlot replacing MultipleListPlot in version 6.0
  • Next by Date: Re: Contours plot
  • Previous by thread: Re: ParametricPlot3D- Line Thickness
  • Next by thread: Mathematica forgets a solution in DSolve!!!