RE: Re: How to plot the surface of revolution graphics

• To: mathgroup at smc.vnet.net
• Subject: [mg49264] RE: [mg49250] Re: How to plot the surface of revolution graphics
• From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
• Date: Sat, 10 Jul 2004 02:48:34 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Perhaps it's worth considering first

In[9]:= << Graphics`SurfaceOfRevolution`

In[20]:=
dat = {{2., 2., 0}, {3., 1., 0}, {7., 5., 0}, {6., 6., 0}};

In[26]:=
ListSurfaceOfRevolution[dat, {t, 0, 2 Pi}, RevolutionAxis -> {1, 1, 0},
PlotRange -> All, ViewPoint -> {0, -2.4, 2.}]

At least I can see your cylinder. For the rest of your problem, communicate it!

--
Hartmut Wolf

>-----Original Message-----
>From: CYSTERNA++ [mailto:e_cysterna at wp.pl]
To: mathgroup at smc.vnet.net
>Sent: Friday, July 09, 2004 8:26 AM
>To: mathgroup at smc.vnet.net
>Subject: [mg49264] [mg49250] Re: How to plot the surface of revolution graphics
>
>
>Hi
>
>Thank You Jens for your answer but it doesn't work. I tried this but I
>failed. I don't know why ???
>If you want, You can see my screenshot ->
>I don't understand it bacause I've never used <<
>NumericalMath`SplineFit`
>
>thanks
>
>Regards
>
>CYSTERNA++
>
>
>
>
>
>U¿ytkownik "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
>napisa³ w
>> Hi,
>>
>> something like:
>>
>> << NumericalMath`SplineFit`
>>
>> points = {{2, 2}, {6, 6}, {7, 5}, {3, 1}};
>>
>> ParametricPlot3D[
>>   (tmp = spline[u]; {tmp[[1]], t, tmp[[2]]}), {t, 0., 4}, {u, 0, 4},
>>   Compiled -> False]
>>
>> Regards
>>   Jens
>
>
>
>

```

• Prev by Date: Re: How to plot the surface of revolution graphics
• Next by Date: Font Name Change
• Previous by thread: Re: How to plot the surface of revolution graphics
• Next by thread: Re: How to plot the surface of revolution graphics