function Ft = thrust_3DOF(t,ox,oy,oz)

%	This function gives a shape to the thrust curve
%	This function is in the SECOND ORDER stage of development.

%	VARIABLES and UNITS
%
%	conventions:	Large arrays are in all caps
%						Vectors and other variables are in mixed case, as appropriate





%	CONSTANTS




%	MAIN PROGRAM

if (t < .5)
   Ft = 8400;
elseif (t < 1)
   Ft = 7300;
elseif (t < 1.5)
   Ft = 6200;
elseif (t < 2)
   Ft = 5100;
elseif (t < 2.5)
   Ft = 4000;
else
   Ft = 3500;
end


Ft = [Ft*ox Ft*oy Ft*oz];