 (ns conexp.layout.force
   (:use conexp.base
         conexp.fca.lattices
+	conexp.layout.util
 	conexp.layout.base
 	[conexp.math.util :only (with-doubles)]
 	conexp.math.optimize

(defn- test-gravitative-force
  "Testing gravitative forces with a tiny example."
  [pos-a]
  (let [information {:upper-neighbours-of-inf-irrs {:a :b},
		     :phi_0 (/ Math/PI 2)},
	layout [{:a pos-a, :b [0 0]}, #{[:a :b]}]]
    [(gravitative-force layout :a 0 information),
     (gravitative-force layout :a 1 information)]))		      

					    (first (lattice-upper-neighbours lattice n)))
					  seq-of-inf-irrs),
		     :inf-irrs seq-of-inf-irrs,
		     :order (order lattice)}
	edges    (edges lattice),

	energy   (fn [& point-coordinates]
