Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; Tetens's formula
- (defun E (T)
- (* 6.11
- (expt 10
- (/ (* T 7.5)
- (+ T 237.3)))))
- (defun invE (e)
- (let ((a (/ (log10 (/ e 6.11)) 7.5)))
- (/ (* a 237.3) (- 1 a))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
