From f38ce11d45bcbbe1463d7977a08558925dbc9d17 Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 2 Nov 2022 09:24:04 -0400 Subject: [PATCH] No longer tracking work-eqs --- .gitignore | 1 + work-eqs.el | 55 ----------------------------------------------------- 2 files changed, 1 insertion(+), 55 deletions(-) delete mode 100644 work-eqs.el diff --git a/.gitignore b/.gitignore index 835495d..52eba87 100644 --- a/.gitignore +++ b/.gitignore @@ -8,4 +8,5 @@ transient/ url/ ido.last recentf +old-work-eqs.el work-eqs.el \ No newline at end of file diff --git a/work-eqs.el b/work-eqs.el deleted file mode 100644 index ce37016..0000000 --- a/work-eqs.el +++ /dev/null @@ -1,55 +0,0 @@ -;; WORK (NON-EDITING) RELATED DEFUNS -(defun square (x) - "Calculate the square of a value." - (expt x 2)) - -(defun cube (x) - "Calculate the cube of a value." - (expt x 3)) - -(defun scaleval (pmax pmin emax emin &optional ai) - "Calculate the slope and offset given PLC Max/Min and Eng. Max/Min. -With optional argument 'ai', also calculate a final scaled value from an input." - (let ((div (/ (- pmax pmin) (- emax emin)))) - (let ((ofst (- emin (/ pmin div)))) - (if (not (eq nil ai)) - (let ((final (+ ofst (/ ai div)))) - (list div ofst final)) - (list div ofst))))) - -(defun cfm-circ (fpm radius) - "Calculate the CFM of a circular duct given fpm and radius (in)." - (list (* pi fpm (square (/ radius 12))))) - -(defun cfm-rect (fpm width height) - "Calculate the CFM of a circular duct given fpm, width (in) and height (in)." - (list (* fpm (/ width 12) (/ height 12)))) - -(defun pid-tune (Ku Tu p-type) - "Use the Ziegler-Nichols method to tune a P, PI or PID loop. -Takes Ku, Tu and p-type (P, PI, or PID) as arguments, and returns appropriate kp, ki, and kd." - (cond ((or (equal 'p p-type) - (equal 'P p-type)) - (list (* 0.5 Ku))) - ((or (equal 'pi p-type) - (equal 'PI p-type)) - (list (* 0.45 Ku) (/ (* 0.54 Ku) Tu))) - ((or (equal 'pid p-type) - (equal 'PID p-type)) - (list (* 0.6 Ku) (/ (* 1.2 Ku) Tu) (/ (* 3.0 Ku Tu) 40))))) - -(defun gn-water-per-lb (temp humidity) - "Calculate the grains of water per lb of air, given temperature (F) and humidity (%). -Returns a list of Sat. Water Press., Hum. Ratio, and Gns Moisture/lb air." - (let ((sat-water-press (+ .0182795 - (* temp .001029904) - (* (square temp) 0.00002579408) - (* (cube temp) (* 2.400493 (expt 10 -7))) - (* (expt temp 4) (* 8.100939 (expt 10 -10))) - (* (expt temp 5) (* 3.256805 (expt 10 -11))) - (* (expt temp 6) (* -1.001922 (expt 10 -13))) - (* (expt temp 7) (* 2.44161 (expt 10 -16)))))) - (let ((hum-press (* (/ humidity 100.0) sat-water-press))) - (let ((hum-ratio (/ (* hum-press 0.62198) (- 14.7 hum-press)))) - (let ((gns-mstr-lb-air (* hum-ratio 7000))) - (list sat-water-press hum-ratio gns-mstr-lb-air)))))) -- 2.39.5