added plot prop comparison plot

_posts/2021-04-01-air-propulsion-simulation/air-propulsion-simulation.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Air Propulsion Simulation"
 description: |
-  Simulating the performace of an air propulsion system as an alternative to solid rocket motors. 
+  Simulating the performance of an air propulsion system as an alternative to solid rocket motors. 
 author:
   - name: Anson Biggs
     url: https://ansonbiggs.com
@@ -18,13 +18,12 @@ categories:
 bibliography: ../../citations.bib
 ---
 
-Boilerplate intro about why all of this was done
+For my team was tasked with designing a system capable of moving mining equipment and materials around the surface of the Moon using a propolsive landing. The system had to be tested on earth with something that was 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 really just _napkin math_ to determine if the system is even feasibly and is not mean't to be a rigorous study of an air propulsion system which would easily keep a capstone team busy by itself.  
 
 ```{r setup, include=FALSE}
-library(ggplot2)
 knitr::opts_chunk$set(echo = TRUE, results = 'hide')
 library(JuliaCall)
-julia_setup(JULIA_HOME = "/opt/julia-1.6.0/bin/")
+#julia_setup(JULIA_HOME = "/opt/julia-1.6.0/bin/")
 ```
 
 ```{julia, code_folding=TRUE}
@@ -36,9 +35,10 @@ using Unitful
 using DataFrames
 using Measurements
 using Measurements: value, uncertainty
+using CSV
 ```
 
-This code is just the setup, using values scraped from various parts of the world wide web. 
+An off the shelf paintball gun tank was used for the pressure vessel. This was chosen because they are very high pressure for their weight, and are designed to be bumped around. 
 
 ```{julia}
 # Tank https://www.amazon.com/Empire-Paintball-BASICS-Pressure-Compressed/dp/B07B6M48SR/
@@ -46,13 +46,19 @@ V = (85 ± 5)u"inch^3"
 P0 = (4200.0 ± 300)u"psi"
 Wtank = (2.3 ± 0.2)u"lb"
 Pmax = (250 ± 50)u"psi" # Max Pressure that can come out the nozzle
+```
 
-Wsolenoid = 1.5u"kg"
+The nozzle diameter was changed until the air prop system had a _burn time_ similar to a G18ST rocket motor. 
 
+```{julia}
 # Params
 d_nozzle = ((1 // 18) ± 0.001)u"inch"
 a_nozzle = (pi / 4) * d_nozzle^2
+```
 
+These are just universal values for what a normal day would look like in Arizona. [@cengel_thermodynamics]
+
+```{julia}
 # Universal Stuff
 P_amb = (1 ± 0.2)u"atm"
 γ = 1.4 ± 0.05
@@ -62,18 +68,20 @@ T = (300 ± 20)u"K"
 
 This is the actual simulation. Maybe throw some references in and explain some equations.
 
-The rocket equation is pretty sick:
+The following equations also came from [@cengel_thermodynamics]
+
+The rocket equation is pretty sick[@sutton_rocket_2001, eq: 2-14]:
 
 $$T = \dot{m} \cdot v_\text{Exit} + A_\text{Nozzle} \cdot (P - P_\text{Ambient}) $$
-And thats about all you need to get to the moon[@curtis_orbital]. 
+And thats about all you need to get to the Moon[@curtis_orbital]. 
 
 ```{julia}
-let
+df = let
 t = 0.0u"s"
 P = P0 |> u"Pa"
 M = V * (P / (R * T)) |> u"kg"
 ts = 1u"ms"
-global df = DataFrame(Thrust=(0 ± 0)u"N", Pressure=P0, Time=0.0u"s", Mass=M)
+df = DataFrame(Thrust=(0 ± 0)u"N", Pressure=P0, Time=0.0u"s", Mass=M)
   while M > 0.005u"kg"
       # while t < 30u"s"
       # Calculate what is leaving tank
@@ -92,17 +100,28 @@ global df = DataFrame(Thrust=(0 ± 0)u"N", Pressure=P0, Time=0.0u"s", Mass=M)
       df_step = DataFrame(Thrust=Thrust, Pressure=P, Time=t, Mass=M)
       append!(df, df_step)
   end
+  df
 end
 ```
 
+breakdown of the data
+
+```{julia, layout="l-body", echo=FALSE, results='asis'}
+b = IOBuffer();
+t = TextDisplay(b);
+display(t, "text/html", describe(df));
+table = String(take!(b)); # https://stackoverflow.com/a/60443621/8774114
+```
+
+
 Heres the results plotted. Notice the massive error once the tank starts running low.
 
-```{julia, echo=FALSE, results='show'}
+```{julia, code_folding=TRUE, results='show',layout="l-body-outset", fig.cap = "Air Proplsion Simulation"}
 
 thrust_values = df.Thrust .|> ustrip .|> value;
 thrust_uncertainties = df.Thrust .|> ustrip .|> uncertainty;
 
-out = DataFrame(Thrust=thrust_values, Uncertainty=thrust_uncertainties, Time=df.Time .|> u"s" .|> ustrip);
+air = DataFrame(Thrust=thrust_values, Uncertainty=thrust_uncertainties, Time=df.Time .|> u"s" .|> ustrip);
 
 
 plot(df.Time .|> ustrip, thrust_values, 
@@ -111,9 +130,31 @@ plot(df.Time .|> ustrip, thrust_values,
     fillalpha=.2,label="Thrust",
     xlabel="Time (s)", 
     ylabel="Thrust (N)",
+    size = (1200, 800),
     )
 ```
 
 
+Here the air prop is plotted along with rocket motors that are being
+
+```{julia, code_folding=TRUE, results='show',layout="l-body-outset",fig.cap= "Rocket Motor Data: [@thrustcurve]"}
+
+f10 = CSV.read("AeroTech_F10.csv", DataFrame);
+f15 = CSV.read("Estes_F15.csv", DataFrame);
+g8 = CSV.read("AeroTech_G8ST.csv", DataFrame);
+
+
+plot(air.Time, air.Thrust, label="Air Propulsion", fillalpha=.1, legend=:topleft, size = (1200, 800));
+
+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)")
+```
+
+
 Big conclusion about things.