Simulate and visualize a solar planet's motion?

[quantum0430 (Hojun Lee)]

I want to simulate Solar Planet’s motion with mathematica, so I typed like this.

But there were some errors.

I can’t figure out what is wrong and how to fix it.

[gianlucagorni]

Inside Graphics the object should be gathered within curly brackets: Graphics[{....}].

[trounev (Alexander Trounev)]

You did not put the curly braces. After the correction, we get the desired animation

G = 1; M = 1; \[Omega][r_] := Sqrt[G*M/r^3]; t0 = 4*Pi;
Animate[Graphics[{Red, Disk[{0, 0}, .2], Blue, 
   Disk[{Cos[\[Omega](http://community.wolfram.com//c/portal/getImageAttachment?filename=planet.gif&userId=1218692)*t], Sin[\[Omega](http://community.wolfram.com//c/portal/getImageAttachment?filename=planet.gif&userId=1218692)*t]}, .1], Brown, 
   Disk[{1.52*Cos[\[Omega][1.52]*t], 1.52*Sin[\[Omega][1.52]*t]}, .1],
    Black, Line[{{0, 0}, {Cos[\[Omega](http://community.wolfram.com//c/portal/getImageAttachment?filename=planet.gif&userId=1218692)*t], Sin[\[Omega](http://community.wolfram.com//c/portal/getImageAttachment?filename=planet.gif&userId=1218692)*t]}}], 
   Line[{{Cos[\[Omega](http://community.wolfram.com//c/portal/getImageAttachment?filename=planet.gif&userId=1218692)*t], 
      Sin[\[Omega](http://community.wolfram.com//c/portal/getImageAttachment?filename=planet.gif&userId=1218692)*t]}, {1.52*Cos[\[Omega][1.52]*t], 
      1.52*Sin[\[Omega][1.52]*t]}}]}, 
  PlotRange -> {{-2, 2}, {-2, 2}}], {t, 0, t0}]

[wolframcommunity (EDITORIAL BOARD)]

Dear @Hojun Lee, Welcome to Wolfram Community! Please make sure you know the rules: https://wolfr.am/READ-1ST

Please do not post code as images.

The rules explain how to format your code properly. If you do not format code, it may become corrupted and useless to other members. Please EDIT your post and make sure code blocks start on a new paragraph and look framed and colored like this.

int = Integrate[1/(x^3 - 1), x];
Map[Framed, int, Infinity]

[quantum0430 (Hojun Lee)]

Thank you very much.