Relative humidity now calculated (apparently) correctly.

This commit is contained in:
Simon Brooke 2026-08-11 17:55:03 +01:00
parent d679bcf781
commit be68481d06
6 changed files with 52 additions and 24 deletions

View file

@ -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)))))

View file

@ -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