Removed 300 foot minimum altitude threshold.

This commit is contained in:
John Wiseman 2020-07-01 18:40:53 -07:00
parent df8837600a
commit 6079f238cd
1 changed files with 2 additions and 4 deletions

View File

@ -289,14 +289,12 @@
(defn circling? [ac config]
(and (> (geo/flight-curviness (filter #(not (:gnd? %)) (:history ac)))
(:curviness-threshold-degrees config))
(> (:alt ac) 300)))
(:curviness-threshold-degrees config))))
(defn circling2? [ac config]
(let [relevant-history (filter #(not (:gnd? %)) (:history ac))]
(and (> (geo/flight-curviness relevant-history) (:curviness-threshold-degrees config))
(> (:alt ac) 300))))
(and (> (geo/flight-curviness relevant-history) (:curviness-threshold-degrees config)))))
;; Returns a vector of two elements,