TCLUG Archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Powers in Perl



I have a little chunk of code below (taken pretty much verbatim from a C
program) for calculating relative humidity using the current temperature
and dewpoint (in degrees C)  The problem is that I need a function that
will do powers of 10, but Perl (the language I'm writing this little
program in) only has exp() for raising e to a power (as far as I know)

Does anyone either know a good trick to use or a function that I may
have missed?  Thanks

    {
      my ($esat, $esurf, $temp, $dewp)
      $temp = $self->{C_TEMP};
      $dewp = $self->{C_DEW};
      
      $esat = 6.11 * pow(10.0, (7.5 * $temp) / (237.7 + $temp)); 
      $esurf = 6.11 * pow(10.0, (7.5 * $dewp) / (237.7 + $dewp));
     
      $self->{HUMIDITY} = sprintf("%3.f",(esurf/esat) * 100));
    }

-- 
 _  _  _  _ _  ___    _ _  _  ___ _ _  __   You're not Dave.  Who are 
/ \/ \(_)| ' // ._\  / - \(_)/ ./| ' /(__   you? 
\_||_/|_||_|_\\___/  \_-_/|_|\__\|_|_\ __)                             
 [ Mike Hicks | http://umn.edu/~hick0088/ | mailto:hick0088@umn.edu ]