   (theta =  atan(G)), camber-function + thickness-function * cos(theta)."
   [individual x]
   (let [thickness (individual :corrected-thickness)]
-  (+ camber-function (* (thickness-function thickness x)
+    (+ camber-function (* (thickness-function thickness x)
                         (Math/cos (Math/atan (gradient-function individual x)))))))
 
 

              (* a-2 (Math/pow x 2))
              (* a-3 (Math/pow x 3))
              (* a-4 (Math/pow x 4))))))

(thickness-function (hash-map :corrected-thickness 40) 0)

(defn camber-function
  "Takes in a corrected maxiumum camber, corrected camber position, and an x value.

  ;;(:require [clojure.algo.generic.math-functions :as trig])
  )

;;---------------- Utilities ---------------
(defn round-double
  "Takes a double and returns a double with four points of accuracy"
  [n]
  (double (/ (int (+ (* n 10000) 0.5)) 10000)))


;;---------------- NACA Functions ---------------
(defn thickness-function
  "Take a corrected thickness and returns the function of thickess around the camber line.
  The thickness equation is (T/.2)(a-0x^.5 + a-1x + a-2x^2 + a-3x^3 + a-4x^4)
