You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
1.6 KiB
27 lines
1.6 KiB
#!/usr/local/bin/bc -l |
|
|
|
### Thermometer.BC - Conversions of temperature scales to other scales |
|
|
|
# Caution: These functions will not operate correctly if ibase is not |
|
# set to base ten (A) nor if scale is set too low |
|
|
|
define celcius_to_farenheit( c ) { return (c * 1.8 + 32) } |
|
define celcius_to_kelvin( c ) { return (c + 273.15) } |
|
define celcius_to_reamur( c ) { return (c * 0.8) } |
|
define celcius_to_rankine( c ) { return (c * 1.8 + 491.67) } |
|
define farenheit_to_celcius( f ) { return ((f - 32)/1.8) } |
|
define farenheit_to_kelvin( f ) { return ((f + 459.67)/1.8) } |
|
define farenheit_to_reamur( f ) { return ((f - 32)/2.25) } |
|
define farenheit_to_rankine( f ) { return (f + 459.67) } |
|
define kelvin_to_celcius( k ) { return (k - 273.15) } |
|
define kelvin_to_farenheit( k ) { return (k * 1.8 - 459.67) } |
|
define kelvin_to_reamur( k ) { return ((k - 273.15)*0.8) } |
|
define kelvin_to_rankine( k ) { return (k * 1.8) } |
|
define reamur_to_celcius( r ) { return (r / 0.8) } |
|
define reamur_to_farenheit( r ) { return (r * 2.25 + 32) } |
|
define reamur_to_kelvin( r ) { return (r / 0.8 + 273.15) } |
|
define reamur_to_rankine( r ) { return (r * 2.25 + 491.67) } |
|
define rankine_to_celcius( r ) { return (r / 1.8 + 273.15) } |
|
define rankine_to_farenheit( r ) { return (r - 459.67) } |
|
define rankine_to_kelvin( r ) { return (r / 1.8) } |
|
define rankine_to_reamur( r ) { return ((r / 1.8 + 273.15)*0.8) }
|
|
|