MathGroup Archive 2003

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

Search the Archive

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>


  • Prev by Date: Re: Re: New version, new bugs
  • Next by Date: Re: Can plot take limits? Or something like it ...
  • Previous by thread: Merging objects before tumbling animation
  • Next by thread: RE: Merging objects before tumbling animation