RocketWorkbench/rockflight/test/runflight.m

  altitude  = 0; # altitude in meter
  latitude  = 15; # latitude in decimal degree
  longitude = 0;    # longitude in decimal degree

  velocity  = 1000; # magnitude of the initial velocity in meter/s
  angle     = 0;   # angle with the horizontal in degree
  direction = 90;   # direction (0=east 90=north 180=west 270=south)

  R = 6.37e6; # earth radius in meter

  r = R + altitude;
  r_dot = velocity*sin(angle*pi/180);
  u_dot = velocity*cos(angle*pi/180)*cos(direction*pi/180)/(r*cos(latitude*pi/180));
  l_dot = velocity*cos(angle*pi/180)*sin(direction*pi/180)/r;

  init = [ r; latitude*pi/180; longitude*pi/180; r_dot; l_dot; u_dot; ];

  t = 0:0.1:200;

  y = lsode('flight_vacuum', init, t);

  hold off
  plot(y(:,1).*cos(y(:,2)), y(:,1).*sin(y(:,2)));
  hold on;
  plot(R*cos(y(:,2)), R*sin(y(:,2)));

  #plot(y(:,3)*180/pi, y(:,2)*180/pi);