Re: Merging objects before tumbling animation
- To: mathgroup at smc.vnet.net
- Subject: [mg43195] Re: Merging objects before tumbling animation
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Mon, 18 Aug 2003 02:50:54 -0400 (EDT)
- References: <bhneq8$48q$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`Graphics`"];
Table[DisplayTogether[
ParametricPlot3D[
{u*Cos[v]*Cos[al]-u^2/2*Sin[al],
u*Sin[v],
u*Cos[v]*Sin[al]+u^2/2*Cos[al]},
{u,0,1},{v,0,2Pi}],
ParametricPlot3D[
{v * Cos[w]*Cos[al]-w*Sin[al],
v * Sin[w],
v * Cos[w]*Sin[al]+w*Cos[al]},
{v,0,1},{w,0,1.2}],
PlotRange->{{-1.2,1.2},{-1.2,1.2},{-1.6,1.6}},
BoxRatios->{1,1,1.75}],
{al,0,2Pi,Pi/8}];
Bob Hanlon
In article <bhneq8$48q$1 at smc.vnet.net>, mathma18 at hotmail.com (Narasimham G.L.)
wrote:
<< In the program below, dish alone can be rotated through a variable
angle al, but I want dish and warp ( diwa) to be together rotated as a
merged object. How is it done?
Since dish and warp anyhow would be seen together later,to avoid
repetition, how can their first ParametricPlot3D graphics output
appearance be suppressed without jeopardy to succeeding code lines
implementation ?
x= u Cos[v]; y=u Sin[v] ; z= u^2/2 ;
dish=ParametricPlot3D[{x,y,z},{u,0,1},{v,0,2 Pi}];
warp=ParametricPlot3D[{v Cos[w], v Sin[w] ,w }, {v,0,1 },{w,0,1.2}];
diwa=Show[dish,warp]
x1=x Cos[al] - z Sin[al]; z1=x Sin[al] + z Cos[al];
Table[ParametricPlot3D[{x1,y,z1},{u,0,1},{v,0,2 Pi},
PlotRange -> {{-1.2, 1.2}, {-1.2, 1.2}, {-1.6, 1.6}},
BoxRatios -> {1, 1, 1.75}], {al, 0,2 Pi,Pi/8}];
>><BR><BR>