Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

3dplots again

  • To: mathgroup at smc.vnet.net
  • Subject: [mg32134] 3dplots again
  • From: Erich Neuwirth <erich.neuwirth at univie.ac.at>
  • Date: Sat, 29 Dec 2001 00:46:55 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

the following code produces spherical calottes

but the surface has a strange look, "unsmooth".
it seems the lighting in mathematics does not
there are distict rectangles,
but the color is "jumpy".

is there a way of making this surface looking smoother.
and i think
this time the paramtetrization is not the problem.
the surface is not overlapping.


-=-=-=-=-=-=-=-=-=-

Outline[h_,t_]:=
  If[N[Abs[h]]<0.01,{t,
      0},(h^2+1)/(2*h)*{Sign[h]*Sin[t*(Pi-N[2*ArcTan[1/Abs[h]]])],
          Cos[t*(Pi-N[2*ArcTan[1/Abs[h]]])]}+{0,(h^2+1)/(2*h)-1/h}]

Outline[BaseRadius_,Height_,t_]:=BaseRadius*Outline[Height/BaseRadius,t]

Calotte[h_,u_,v_]:=
  Append[Outline[h,v][[1]]*{Cos[Pi*u],Sin[Pi*u]},Outline[h,v][[2]]]

Calotte[BaseRadius_,Height_,u_,v_]:=
  Append[Append[Outline[BaseRadius,Height,v][[1]]*{Cos[Pi*u],Sin[Pi*u]},
      Outline[BaseRadius,Height,v][[2]]],EdgeForm[]]

ParametricPlot3D[Calotte[1,0.5,u,v],{u,-1,1},{v,0,1},PlotPoints->50]

--
Erich Neuwirth, Computer Supported Didactics Working Group
Visit our SunSITE at http://sunsite.univie.ac.at
Phone: +43-1-4277-38624 Fax: +43-1-4277-9386


  • Prev by Date: Searching for embedded zeros in list
  • Next by Date: Re: ParamtricPlot3D
  • Previous by thread: Re: Re: Searching for embedded zeros in list
  • Next by thread: Re: 3dplots again