Added in/mm conversions

diff --git a/work-eqs.el b/work-eqs.el
index f5e5a2c2834eedc4fa61473795fc9b9dce9e3efe..05729592e06b15189bd1f43cc694cf6739971f6f 100644 (file)
--- a/work-eqs.el
+++ b/work-eqs.el
@@ -58,6 +58,14 @@ Returns a list of Sat. Water Press., Hum. Ratio, and Gns water/lb air."
        (let ((gns-water-lb-air (* hum-ratio 7000)))
          (list sat-water-press hum-ratio gns-water-lb-air))))))
 
+(defun mm-to-in (mm)
+  "Convert milimeters to inches."
+  (/ mm 25.4))
+
+(defun in-to-mm (in)
+  "Convert milimeters to inches."
+  (* in 25.4))
+
 (defun k-to-c (tempk)
   "Convert degrees Kelvin to degrees Celsius."
   (- tempk 273.15))