Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

Re: Special case of plotting a 3D function

  • To: mathgroup at smc.vnet.net
  • Subject: [mg51134] Re: Special case of plotting a 3D function
  • From: mathma18 at hotmail.com (Narasimham G.L.)
  • Date: Tue, 5 Oct 2004 04:37:42 -0400 (EDT)
  • References: <cionfk$rc2$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

fernandoronci at hotmail.com (Fernando Ronci) wrote in message news:<cionfk$rc2$1 at smc.vnet.net>...

Tried in ver 4, but loading obscures the shell. Hope you improve on it. Cheers.

r = 1;  q = 2; L = 4; x = r  Cos[th] ; ; y = L v ; z1 = r  Sin[th] ; z2 = 
  z1 + q*v*(1 - v);
 shell1 = 
    ParametricPlot3D[ {x, y, z1}, {th, 0, Pi}, {v, 0, 1}, Shading -> False];
Load = ParametricPlot3D[ {x, y, z2}, {th, 0, Pi}, {v, 0, 1}, 
      Shading -> False];  Show[shell1, Load];
Clear[th, v, x, y, x1, y1, z1, z2] ;
r = 1;  x = r  Cos[th] /Cos[Pi/4 - th/2]^2/2  ; z1 = 
  r Sin[th]/ Cos[Pi/4 - th/2]^2/2  ; y = L v ; z2 = z1 + q*v*(1 - v);
shell2 = ParametricPlot3D[ {x, y, z1}, {th, 0, Pi}, {v, 0, 1}, 
    Shading -> False];  Show[shell2, Load];


  • Prev by Date: normal distribution random number generation
  • Next by Date: Re: Re: Derivatives of user-defined control-flow functions
  • Previous by thread: Re: Re: Re: Re: normal distribution random number generation
  • Next by thread: keymap and mouse problems with 5.0 frontend under linux