Temperature conversion: Difference between revisions

Content added Content deleted
Line 2,200: Line 2,200:
</pre>
</pre>


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>tempConvert[t_] := # -> Thread@UnitConvert[#,
<lang Mathematica>tempConvert[t_] := # -> Thread@UnitConvert[#,{"DegreesFahrenheit", "DegreesCelsius", "DegreesRankine"}]&@Quantity[N@t, "Kelvins"]
{"DegreesFahrenheit", "DegreesCelsius", "DegreesRankine"}
] &@Quantity[N@t, "Kelvins"]
tempConvert[21]</lang>
tempConvert[21]</lang>
{{out}}
{{out}}<pre>21.K -> {-421.87°F,-252.15°C,37.8°R}</pre>
<pre>21.K -> {-421.87°F,-252.15°C,37.8°R}</pre>


=={{header|min}}==
=={{header|min}}==