MathGroup Archive 2004

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

Search the Archive

Re: How to plot the surface of revolution graphics


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