[?] Solve a differential algebraic equation?

I’m trying to obtain a solution to the differential equation as a function, however I keep getting $Failed in return. I’d greatly appreciate if someone could point out what I’m doing wrong and how I can correct this while maintaining the original flexibility of it being a function.
Below is the attached .nb file I’m working with. Thank you for your time and consideration.

Kepler’s Derivation.nb (16 KB)

Adjustment:

Kepler’s Derivation ver3.nb (13 KB)

Look more carefully at the documentation on NDSolve. With NDSolve you get replacement rules which need to be used to access the solution. With NDSolveValue you get the solutions. The attached notebook gives both approaches. Also, it is best to not begin user variables with capitals since they can conflict with reserved names.

Kind regards,

David

Kepler’s Derivation DK.nb (73.2 KB)

Mariusz,

I was writing my response while you posted yours. I like yours better. But why do we obtain different plots???

David

Hi David.

A small mistake occurred in my differential equations,I corrected, and now solution is the same as yours.

Regards Mariusz.

Ahh, my mistake was so simple, I should slap myself. Thank you, I spent a few hours looking over this thing trying to figure out my error just to simply find out (because of the .nb file that was provided) that instead of putting {X[t], Y[t]} I was putting {X,Y} so it was reading it incorrectly, again, thank you for your time! I appreciate it :3