Group Abstract Group Abstract

Message Boards Message Boards

Create an animation of planet in an elliptical orbit?

Mohammad Amir Khan, Retired
Posted 7 years ago
POSTED BY: Mohammad Amir Khan
4 Replies
Sort By:

I think the trick is that you should use Show to combine the different graphics. See attached . nb

Attachments:
WCom.nb
POSTED BY: Hans Dolhaine

Thank you very much Hans. This has been extremely helpful. I should have thought about he Show command. Regards. Mohammad
POSTED BY: Mohammad Amir Khan

This code works for me. Btw these days i am reading tutorial/IntroductionToControlObjects

Animate[
 Show[
  {plot1
   , Graphics[{
     RGBColor[0, 0, 1]
     , Disk[{Sqrt[3] Sin[x], Sqrt[3/2] Cos[x]}, 0.1]
     }]
   }, PlotRange -> {{-1.9, 1.9}, {-1.5, 1.5}}
  ], {x, 0, 2 Pi, 0.3}
 ]
POSTED BY: Raspi Rascal

Thank you so much Raspi. This has been a great help. Regards. Mohammad
POSTED BY: Mohammad Amir Khan
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard