Elliptical Orbits. Orbital Mechanics for Engineering Students

Elliptical Orbits. Orbital Mechanics for Engineering Students By Howard D Curtis 4th Edition

In this video I am explaining how to get to the various formulas presented in the book.
Note: cos(θ) = -cos(180-θ) in the cosine rule. θ is from rp to r.

*********************matlab script**********************
function elliptical_orbits

GMe = 10000; %3.986004418e14;
b = 4;
a = 8;
e = sqrt(1-b^2/a^2);
h = sqrt(GMe * a *(1-e^2));
ra = R(180)
rp = R(0)
va = V(ra)
vp = V(rp)
rp = R_h(0)


function r = R_h(theta)
r = h^2/GMe* ( 1 / (1+e*cosd(theta)));
end
function r = R(theta)
r = (a*(1-e^2)) / (1+e*cosd(theta));
end
function v = V(r)
v = sqrt(GMe*(2/r-1/a));
end
end