                                    (filter :ms s)))]
       {target-field r})))
 
+(def chart-opts
+  {:term "dashed size 5.0,3.0"
+   :key "out right center Left box lw 0.5 reverse width -2" #_"bottom right" #_"at 2.6, 445"})
+
 (let [fl 1 bb 2 sa 3 na 4 ah 5 ex 6 da 7]
  (def alg-styles
    {:dijkstra            [fl 1  "UCS"]

    :dash-astar-nos      [da 17 "DAcH-A*"]
    :dash-astar-nods     [da 18 "DAxH-A*"]}))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Nav charts ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(def ns-results
  (->> (str experiments/*default-run-dir* "thesis-ns2/")
       (experiments/read-smart-results (make-ns-exps) )
       delay))

;; Skip: explicit-ah-astar explicit-dash-astar

(def ns-fast-algs [:dash-astar-nods :astar :dash-astar-first :dash-astar  :dash-astar-hoc :dash-astar-nos 
                   :full-ah-astar :dash-astar-ldfs])



(defn make-ns-charts []
  (doseq [[t ks opts]
          [["slower" ns-slow-algs {:xrange "[5:500]" :yrange "[0:50]"}]
           ["faster" ns-fast-algs {:xrange "[5:500]" :yrange "[0:12]"}]]]
    (make-chart
     @ns-results ks :secs
     (assoc opts
       :title (str "random nav-switch problems - " t " algorithms")
       :xlabel "grid size (side length)" :ylabel "runtime (s)"))))

(defn make-ns-charts []
  (let [opts (fn [t yr]
               {:title (str "random nav-switch problems - " t " algorithms")
                :xlabel "grid size (side length)" :ylabel "runtime (s)"
                :xrange "[5:500]" :yrange yr})]
    (make-chart @ns-results ns-slow-algs :secs (opts "slower" "[0:50]"))
    (make-chart @ns-results ns-fast-algs :secs (opts "faster" "[0:12]"))))


; (def ns-res (experiments/read-smart-results (make-ns-exps) (str experiments/*default-run-dir* "thesis-ns/")))
