;  $temp(<temperature>,<c|f|k|ran|rea>).<c|f|k|ran|rea>
 
/temp {
  ; Fahrenheit to Celcius/Kelvin/Rankine/Réaumur
  if ($2 == f) {
    if ($prop == c) { return $calc($calc($($1) - 32) * 5/9) degrees Celcius }
    elseif ($prop == k) { return $calc(5/9 * $calc($1 - 32) + 273.15) degrees Kelvin }
    elseif ($prop == ran) { return $calc($1 + 459.67) degrees Rankine }
    elseif ($prop == rea) { return $calc($calc($1 - 32) / 2.25) degrees Réaumur }
  }
  : Celcius to Fahrenheit/Kelvin/Rankine/Réaumur
  elseif ($2 == c) {
    if ($prop == f) { return $calc($calc($1 * 9/5) + 32) degrees Fahrenheit }
    elseif ($prop == k) { return $calc($1 + 273.15) degrees Kelvin }
    elseif ($prop == ran) { return $calc($calc($1 + 273.15) * 9/5) degrees Rankine }
    elseif ($prop == rea) { return  $calc($1 * 0.8) degrees Réaumur }
  }
  : Kelvin to Celcius/Fahrenheit/Rankine/Réaumur
  elseif ($2 == k) {
    if ($prop == c) { return $calc($1 - 273.15) degrees Celcius }
    elseif ($prop == f) { return $calc($calc($1  * 9/5) - 459.67) degrees Fahrenheit }
    elseif ($prop == ran) { return $calc($1 * 9/5) degrees Rankine }
    elseif ($prop == rea) { return $calc($calc($1 - 273.15) * 0.8) degrees Réaumur }
  }
  ; Rankine to Celcius/Fahrenheit/Kelvin/Réaumur
  elseif ($2 == ran) {
    if ($prop == c) { return  $calc($calc($calc($1 - 32) - 459.67) / 9/5) degrees Celcius }
    elseif ($prop == f) { return $calc($1 - 459.67) degrees Fahrenheit }
    elseif ($prop == k) { return $calc($1 / 9/5) degrees Kelvin }
    elseif ($prop == rea) { return $calc($calc($1 - 32 - 459.67) / 9/4) degrees Réaumur }
  }
  ; Réaumur to Celcius/Fahrenheit/Kelvin/Rankine
  elseif ($2 == rea) {
    if ($prop == c) { return $calc($1 * 10/8) degrees Celcius }
    elseif ($prop == f) { return $calc($calc($1 * 9/4) + 32) degrees Fahrenheit }
    elseif ($prop == k) { return $calc($calc($1 * 10/8) + 273.15) degrees Kelvin }
    elseif ($prop == ran) { return $calc($1 * 2.24) degrees Rankine }
  }
}

Commenting Options