Temperature conversion: Difference between revisions
Content added Content deleted
(add tinybasic) |
(→{{header|Mathematica}}: use built-in function) |
||
| Line 1,990: | Line 1,990: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |
||
<lang Mathematica>tempConvert[t_] := |
<lang Mathematica>tempConvert[t_] := # -> Thread@UnitConvert[#, |
||
{"DegreesFahrenheit", "DegreesCelsius", "DegreesRankine"} |
|||
Grid[Transpose@{{"K", "C", "F", "R"}, |
|||
] &@Quantity[N@t, "Kelvins"] |
|||
Round[{t, t - 273.15, 9 t/5 - 459.67, 9 t/5}, .01]}] |
|||
tempConvert[21]</lang> |
tempConvert[21]</lang> |
||
{{out}}<pre> |
{{out}}<pre>21.K -> {-421.87°F,-252.15°C,37.8°R}</pre> |
||
K 21. |
|||
C -252.15 |
|||
F -421.87 |
|||
R 37.8 |
|||
</pre> |
|||
=={{header|min}}== |
=={{header|min}}== |
||