Relative humidity now calculated (apparently) correctly.
This commit is contained in:
parent
d679bcf781
commit
be68481d06
6 changed files with 52 additions and 24 deletions
|
|
@ -8,6 +8,6 @@
|
|||
(let [min-expected 39.58
|
||||
max-expected 39.59
|
||||
actual (abs-humidity :relative-humidity 100
|
||||
:saturation-pressure 56.29
|
||||
:saturation-vapour-pressure 56.29
|
||||
:temperature-kelvin (+ 35 celsius-offset))]
|
||||
(is (< min-expected actual max-expected)))))
|
||||
|
|
|
|||
|
|
@ -1,9 +1,14 @@
|
|||
(ns humidity.relative-test
|
||||
(:require [clojure.test :refer [deftest is testing]]
|
||||
[humidity.constants :refer [celsius-offset]]
|
||||
[humidity.relative :refer [rel-humidity]]))
|
||||
[humidity.relative :refer [rel-humidity rel-humidity-2]]))
|
||||
|
||||
(deftest relative-humidity-test
|
||||
(testing "definitional"
|
||||
(let [min-expected 99
|
||||
max-expected 101
|
||||
actual (rel-humidity-2 :absolute-humidity 39.58 :saturation-vapour-pressure 5622.49 :temperature-kelvin (+ 35 celsius-offset))]
|
||||
(is (< min-expected actual max-expected))))
|
||||
(testing "Online examples"
|
||||
(let [min-expected 99
|
||||
max-expected 101
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue