hohmann.m

来自「航天工程工具箱」· M 代码 · 共 14 行

function dv=hohmann(r,mu)
%HOHMANN  Hohmann orbit transfer.
%   DV = HOHMANN(R,MU) where R = [Rp,Ra] (Rp<Ra), MU = G*M
%   and DV is a vector containing the velocity changes needed for
%   the two transfer phases.
%
%   See also SATVIS.

% Copyright (c) 2003-04-22, B. Rasmus Anthin.

a=mean(r);
c=fliplr(sqrt(r/a));
v=sqrt(mu./r);
dv=v.*[1-c].*[-1 1];