31 lines
622 B
Mathematica
31 lines
622 B
Mathematica
|
function [eph]=alm2eph(ID,Health,Eccentricity,TimeOfApp,Inclination,RateOfRightAscen,sqrtA,RightAscen,ArgOfPerigee,MeanAnom,Af0,Af1,week)
|
||
|
|
if nargin<13
|
||
|
|
error('Not enough input');
|
||
|
|
end;
|
||
|
|
eph.IODE_sf2=0;
|
||
|
|
eph.IODE_sf3=0;
|
||
|
|
eph.iDot=0;
|
||
|
|
eph.C_rs=0;
|
||
|
|
eph.deltan=0;
|
||
|
|
eph.M_0=MeanAnom;
|
||
|
|
eph.e=Eccentricity;
|
||
|
|
eph.sqrtA=sqrtA;
|
||
|
|
eph.omega_0=RightAscen;
|
||
|
|
eph.i_0=Inclination;
|
||
|
|
eph.omega=ArgOfPerigee;
|
||
|
|
eph.omegaDot=RateOfRightAscen;
|
||
|
|
eph.weekNumber=1636;
|
||
|
|
eph.accuracy=1;
|
||
|
|
eph.T_GD=0;
|
||
|
|
eph.IODC=512;
|
||
|
|
eph.t_oc=475200;
|
||
|
|
eph.a_f2=0;
|
||
|
|
eph.a_f1=Af1;
|
||
|
|
eph.a_f0=Af0;
|
||
|
|
eph.C_uc=0;
|
||
|
|
eph.C_us=0;
|
||
|
|
eph.C_ic=0;
|
||
|
|
eph.C_is=0;
|
||
|
|
eph.C_rc=0;
|
||
|
|
eph.C_rs=0;
|
||
|
|
eph.t_oe=eph.t_oc;
|