frinj repl session

frinj-calc.clj

(use 'frinj.repl)
(override-operators!)
 
(fj :inch :to :cm)
 
(fj :centi)
(fj :yottagrams)
(fj :centimeter)
(fj :c)
(fj :mm)
 
(fj :fathom :to :feet)
 
(fj 70 :miles :per :hour)
 
(fj 1 2 1/3)
 
(fj :earthmass :per :moonmass)
 
(fj :englishbeerquart)
 
(fj :Gold :per :Silver)
 
(fj 10 :thousand :SEK :to :GBP)
 
(fj :Milk)
 
;;; -----------------
 
;; energy -- applying the force of 1 Newton through a distance of 1 meter
(fj :N :m)
(fj :J)
(fj :kilo :watt :hours)
 
;; E = m * c^2
 
(fj :water)
(fj :teaspoon)
(add-unit! :twe (fj 1 :teaspoon :water :c :c))
 
(fj :gasoline)
(fj :naturalgas)
 
;; Preassure
(fj :N)                       
(/ (fj :N) (fj :m :m))
(fj :Pa)
(= (fj :Pa) (/ (fj :N) (fj :m :m)))
 
(add-unit! :lpe (fj 1 :litre :gasoline))
 
(fj 2000 :Calories :per :day :to :watts)
(add-unit! :man (fj 2000 :Calories))
(add-unit! :horse (fj 25000 :Calories))
 
(fj :barrel :gasoline :per :horse)
(add-unit! :Gasoline (fj 3.3 :dollars :per :gallon))
(fj 1 :barrel :Gasoline)
 
 
(-> (fj :twe) (to :litre :gasoline))
;; --------------
 
(add-unit! :dyn-stick (fj 0.62 :pounds :TNT))
(fj 90 :kg :gravity :foot)
 
(-> (fj :dyn-stick)
	(to 90 :kg :gravity :meter))
 
(add-unit! :bigmac (fj 500 :Calories))
 
(fj :twe :per :dyn-stick)
(fj :bigmac :per :dyn-stick)
(fj :lpe :per :dyn-stick)