calc-humidity ( report -- humidity/f )

Vocabulary

metar.private

Inputs

report

an object

Outputs

humidity/f

an object

Definition

USING: accessors formatting kernel math math.functions
math.parser splitting ;

IN: metar.private

: calc-humidity ( report -- humidity/f )
    [ dew-point>> ] [ temperature>> ] bi 2dup and [
        [ " " split1 drop string>number ] bi@
        [ [ 17.625 * ] [ 243.04 + ] bi / e^ ] bi@ / 100 *
        round "%d%%" sprintf
    ] [ 2drop f ] if ;