Simulating the performance of an air propulsion system as an alternative to solid rocket motors.

For Capstone my team was tasked with designing a system capable of moving mining equipment and materials around the surface of the Moon using a propulsive landing. The system had to be tested on Earth with something feasible for our team to build in 2 semesters. One of the first considerations my capstone advisor wanted was to test the feasibility of an air propulsion system instead of the obvious solution that of using solid rocket motors. This document is just *napkin math* to determine if the system is even feasibly and is not meant to be a rigorous study of an air propulsion system that would easily keep a capstone team busy by itself.

```
using Plots
theme(:ggplot2); # In true R spirit
using Unitful
using DataFrames
using Measurements
using Measurements: value, uncertainty
using CSV
```

I chose an off-the-shelf paintball gun tank for the pressure vessel. The primary consideration was the incredible pressure to weight ratio, and the fact that it is designed to be bumped around would be necessary for proving the safety of the system further into the project.

```
# Tank https://www.amazon.com/Empire-Paintball-BASICS-Pressure-Compressed/dp/B07B6M48SR/
= (85 ± 5)u"inch^3"
V = (4200.0 ± 300)u"psi"
P0 = (2.3 ± 0.2)u"lb"
Wtank = (250 ± 50)u"psi" # Max Pressure that can come out the nozzle Pmax
```

The nozzle diameter was changed until the air prop system had a *burn time* similar to a G18ST rocket motor. The propulsion system’s total impulse is not dependant on the nozzle diameter, so this was just done to make it plot nicely with the rest of the rocket motors since, at this time, it is unknown what the optimal thrust profile is.

```
# Params
= ((1 // 18) ± 0.001)u"inch"
d_nozzle = (pi / 4) * d_nozzle^2 a_nozzle
```

These are just universal values for what a typical day would look like during the summer in Northern Arizona. (Çengel and Boles 2015)

```
# Universal Stuff
= (1 ± 0.2)u"atm"
P_amb = 1.4 ± 0.05
γ = 287.05u"J/(kg * K)"
R = (300 ± 20)u"K" T
```

The actual simulation is quite simple. The basic idea is that using the current pressure, you can calculate \(\dot{m}\), which allows calculating the Thrust, and then you can subtract the current mass of air in the tank by \(\dot{m}\) and recalculate pressure using the new mass then repeat the whole process.

The bulk of the equations in the simulation came from (Çengel and Boles 2015), while the Thrust and \(v_e\) equations came from (Sutton and Biblarz 2001, eq: 2-14).

\[ T = \dot{m} \cdot v_\text{Exit} + A_\text{Nozzle} \cdot (P - P_\text{Ambient}) \]

The initial pressure difference is 4190.0 ± 300.0 psi, which is massive, so the area of the nozzle significantly alters the thrust profile. The paintball tanks come with pressure regulators, in our case, 800 psi which is still a huge number compared to atmospheric pressure. While the total impulse of the system doesn’t change with different nozzle areas, the peak thrust and *burn time* vary greatly. One of the benefits of doing air propulsion and the reason it was even considered so seriously is that it should be possible to change the nozzle diameter in flight, allowing thrust to be throttled, making controlled landing easier to control.

```
= let
df = 0.0u"s"
t = P0 |> u"Pa"
P = V * (P / (R * T)) |> u"kg"
M = 1u"ms"
ts = DataFrame(Thrust=(0 ± 0)u"N", Pressure=P0, Time=0.0u"s", Mass=M)
df while M > 0.005u"kg"
# Calculate what is leaving tank
= minimum([P, Pmax])
P = sqrt((2 * γ / (γ - 1)) * R * T * (1 - P_amb / P)^((γ - 1) / γ)) |> u"m/s"
ve = P / (R * T) |> u"kg/m^3"
ρ = ρ * a_nozzle * ve |> u"kg/s"
ṁ
= ṁ * ve + a_nozzle * (P - P_amb) |> u"N"
Thrust
# Calculate what is still in the tank
= M - ṁ * ts |> u"kg"
M = (M * R * T) / V |> u"Pa"
P = t + ts
t
= DataFrame(Thrust=Thrust, Pressure=P, Time=t, Mass=M)
df_step append!(df, df_step)
end
dfend
```

Below in figure 1, the result of the simulation is plotted. Notice the massive error once the tank starts running low. This is because the calculation for pressure has a lot of very uncertain variables. This is primarily due to air being a compressible fluid, making this simulation challenging to do accurately. The thrust being below 0 N might not make intuitive sense, but it’s technically possible for the pressure to compress, leaving the inside of the rocket nozzle with a pressure that’s actually below atmospheric pressure. The effect would likely last a fraction of a second, but the point stands that this simulation is wildly inaccurate and only meant to get an idea of what an air propulsion system is capable of.

```
= df.Thrust .|> ustrip .|> value;
thrust_values = df.Thrust .|> ustrip .|> uncertainty;
thrust_uncertainties
= DataFrame(Thrust=thrust_values, Uncertainty=thrust_uncertainties, Time=df.Time .|> u"s" .|> ustrip);
air
plot(df.Time .|> ustrip, thrust_values,
="Thrust Over Time",
title=(thrust_uncertainties, thrust_uncertainties),
ribbon=.2,label="Thrust",
fillalpha="Time (s)",
xlabel="Thrust (N)",
ylabel )
```

In Figure 2, the air propulsion simulation is compared to commercially available rocket motors. This early in the project, we have no idea whether short burns or longer burns are ideal for a propulsive landing, so the air propulsion system was compared to a variety of different motors with unique profiles.

```
= CSV.read("AeroTech_F10.csv", DataFrame);
f10 = CSV.read("Estes_F15.csv", DataFrame);
f15 = CSV.read("AeroTech_G8ST.csv", DataFrame);
g8
plot(air.Time, air.Thrust, label="Air Propulsion", legend=:topleft);
for (d, l) in [(f10, "F10"), (f15, "F15"), (g8, "G8ST")]
plot!(d[!,"Time (s)"], d[!, "Thrust (N)"], label=l);
end
title!("Propulsion Comparison");
xlabel!("Time (s)");
ylabel!("Thrust (N)")
```

In the end, the air propulsion system’s performance has a very impressive total impulse and, with more time and resources, could be a serious option for a propulsive landing on Earth. One of the largest abstractions from the Moon mission that the mission here on Earth will have to deal with is the lack of Throttling engines since any propulsion system outside of model rocket motors is well beyond the scope of this Capstone.

After determining that solid model rocket motors are the best option for the current mission scope, the next step is determining what motor to use. There are many great options, and deciding what thrust profile is ideal may have to wait until a Simulink simulation of the landing can be built so that the metrics of each motor can be constrained more. Instead of throttling motors, the current working idea is that thrust vector control may be a way to squeeze a little more control out of a solid rocket motor. Thrust Vector Control will undoubtedly be challenging to control, so another essential piece that needs exploring is whether an LQR controller is feasible or if a PID controller is accurate enough to control our system.

Çengel, Yunus A., and Michael A. Boles. 2015. *Thermodynamics: An Engineering Approach*. Eighth edition. New York: McGraw-Hill Education.

Coker, John. n.d. “Rocket Motor Data.” https://www.thrustcurve.org/.

Sutton, George P., and Oscar Biblarz. 2001. *Rocket Propulsion Elements*. 7th ed. New York: John Wiley & Sons.

If you see mistakes or want to suggest changes, please create an issue on the source repository.

Text and figures are licensed under Creative Commons Attribution CC BY 4.0. Source code is available at https://gitlab.com/lander-team/air-prop-simulation, unless otherwise noted. The figures that have been reused from other sources don't fall under this license and can be recognized by a note in their caption: "Figure from ...".

For attribution, please cite this work as

Biggs (2021, April 1). Anson's Projects: Air Propulsion Simulation. Retrieved from https://projects.ansonbiggs.com/posts/2021-04-01-air-propulsion-simulation/

BibTeX citation

@misc{biggs2021air, author = {Biggs, Anson}, title = {Anson's Projects: Air Propulsion Simulation}, url = {https://projects.ansonbiggs.com/posts/2021-04-01-air-propulsion-simulation/}, year = {2021} }