Select Code to Download

#/usr/bin/perl
use strict;
...
    my $delta_T = $T_pot - $T_env;
    return $T_pot - ( $delta_T * $cool_factor );
}

********** the evil of an unwarmed pot ... initial temp tea: 84.62C **
+******** 

...
using 300ml in 2 steps 150.0 water each ..   warmed pot: 77.53C temp t
+ea: 94.19C
using 300ml in 3 steps 100.0 water each ...  warmed pot: 87.91C temp t
+ea: 96.45C
using 300ml in 4 steps  75.0 water each .... warmed pot: 92.78C temp t
+ea: 97.51C