Propulsion Assignment – Mathemetica code for Aircraft engine Thrust equation – I. Surya Prabhas 21103100
ClearAll["Global`*"]
(* Define variables *)
T = 120000; (* thrust, N *)
v = 250; (* velocity, m/s *)
m_dot = 2000; (* mass flow rate, kg/s *)
(* Calculate derived quantities *)
F = T - m_dot*v; (* net force, N *)
(* Print results *)
Print["Thrust equation for an aircraft:"]
Print["Thrust: ", T, " N"]
Print["Velocity: ", v, " m/s"]
Print["Mass flow rate: ", m_dot, " kg/s"]
Print["Net force: ", F, " N"]
