Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl
    use strict;
    ...
        my $delta_T = $T_pot - $T_env;
        return $T_pot - ( $delta_T * $cool_factor );
    }
    
  2. or download this
    ********** 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