Version 1 of fuel system

mattmaring · May 26, 2020 · e530d73 · e530d73
1 parent 25458e0
commit e530d73
Show file tree

Hide file tree

Showing 5 changed files with 26 additions and 0 deletions.
diff --git a/alternate-fuel-performance.xlsx b/alternate-fuel-performance.xlsx
diff --git a/extra-fuel-performance.xlsx b/extra-fuel-performance.xlsx
diff --git a/final-fuel-performance.xlsx b/final-fuel-performance.xlsx
diff --git a/fuel-performance.xlsx b/fuel-performance.xlsx
diff --git a/fuel.R b/fuel.R
@@ -0,0 +1,26 @@
+#
+# fuel.R
+# Copyright © 2020 Matthew Maring
+#
+# Fuel calculations for the Airbus A320 file
+# Please see ReadMe for details
+#
+
+# read the csv file, pick according to type of calucaltion you want to perform
+fuel <- read.csv(file=file.choose())
+
+# regular fuel, calculates:
+# - fuel usage
+# - fuel correction for weight
+# - trip time
+lm(fuel$Fuel.Usage ~ polym(fuel$Air.Distance, fuel$Flight.Level, degree=6, raw=TRUE))
+lm(fuel$Fuel.Correction ~ polym(fuel$Air.Distance, fuel$Flight.Level, degree=5, raw=TRUE))
+lm(fuel$Time ~ polym(fuel$Air.Distance, fuel$Flight.Level, degree=6, raw=TRUE))
+
+# get time if have fuel
+# must plug-in fuel without correction
+lm(fuel$Fuel.Usage ~ polym(fuel$Time, degree=12, raw=TRUE))
+
+# get fuel if have time
+lm(fuel$Fuel.Usage ~ polym(fuel$Time, fuel$Air.Distance, fuel$Flight.Level, degree=6, raw=TRUE))
+lm(fuel$Fuel.Correction ~ polym(fuel$Time, fuel$Air.Distance, fuel$Flight.Level, degree=5, raw=TRUE))