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