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: How to plot the surface of revolution graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg49288] Re: How to plot the surface of revolution graphics
  • From: "CYSTERNA++" <e_cysterna at wp.pl>
  • Date: Mon, 12 Jul 2004 02:11:29 -0400 (EDT)
  • References: <ccg4la$osp$1@smc.vnet.net> <ccqmet$ged$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi Narasimham G.L.

Thank you for your help. It works properly and it is the best way for me to
solve my problem.

Regards

CYSTERNA++




U¿ytkownik "Narasimham G.L." <mathma18 at hotmail.com> wrote [...]
>
> Clear[r,z,r1,z1,r2,z2];
> z1= 3; r1=0; z2=0; r2=4;
> z= (r-r1) (z2-z1)/(r2-r1)+z1 ;
> one=ParametricPlot3D[{r Cos[th],r Sin[th],z},{r,r1,r2},{th,0,Pi*1.5}];
> Clear[r,z,r1,z1,r2,z2];
> z1= 3; r1=0; z2=11; r2=6;
> z= (r-r1) (z2-z1)/(r2-r1)+z1 ;
> two=ParametricPlot3D[{r Cos[th],r Sin[th],z},{r,r1,r2},{th,0,Pi*1.5}];
> Clear[r,z,r1,z1,r2,z2];
> z1= 0; r1=4 ; z2=8; r2=10;
> z= (r-r1) (z2-z1)/(r2-r1)+z1  ;
> three=ParametricPlot3D[{r Cos[th],r
> Sin[th],z},{r,r1,r2},{th,0,Pi*1.5}];
> Clear[r,z,r1,z1,r2,z2];
> z1= 8; r1=10; z2=11; r2=6;
> z= (r-r1) (z2-z1)/(r2-r1)+z1 ;
> four=ParametricPlot3D[{r Cos[th],r
> Sin[th],z},{r,r1,r2},{th,0,Pi*1.5}];
> Show[{one,two,three,four},ViewPoint->{1.5,-1.5,1},
> PlotRange->{{-12,12},{0,12},{-4,12}}];

>



  • Prev by Date: Re: Incomplete simplification
  • Next by Date: Re: Incomplete simplification
  • Previous by thread: Re: How to plot the surface of revolution graphics
  • Next by thread: AW: factorial analysis