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}}];
>