Formule de Magnus-Tetens

α(T, RH) = (17.27 * T / (237.7 + T)) + log(RH)
T_r(T, RH) = (237.7 * α(T, RH) / (17.27 - α(T, RH)))
RH = 0.4 (slider from 0.01 to 1, step 0.01)
f(T) = (237.7 * α(T, RH) / (17.27 - α(T, RH)))
RH_%: (RH * 100)
texte3: "humidité relative : " + RH_% + " %"
liste1 = Sequence((237.7 * α(x, RH) / (17.27 - α(x, RH))), RH, 0.1, 1, 0.1)
A = (4.9843922323504835, 36.047771437952214)
B = (30.03258732957794, 36.04777143795222)
C = (4.984392232350483, 64.15264953983862)
D = Point(f)
texte1: "" + RH_% + "%"
M = Point(f)
g = OrthogonalLine(M, xAxis)
h = OrthogonalLine(M, yAxis)
E = Intersect(h, yAxis)
F = Intersect(g, xAxis)
i = Segment(M, F)
j = Segment(M, E)
a: x(M)
b: y(M)
texte5: "" + b + " °C"
texte2: "" + a + " °C"
texte6: "T \; = \; " + (LaTeX[a]) + " \; °C"
texte7: "T_{rosée} \; = \; " + (LaTeX[b]) + " \; °C"