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 ->
>http://www.paczanga.neostrada.pl/
>I don't understand it bacause I've never used <<
>NumericalMath`SplineFit`
>header.
>I have to read more about this.
>
>thanks
>
>Regards
>
>CYSTERNA++
>
>
>
>
>
>U¿ytkownik "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
>napisa³ w
>wiadomo¶ci news:ccirfb$460$1 at smc.vnet.net...
>> 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
>
>
>
>