model FromKelvin "Conversion from Kelvin to degRankine"
parameter Integer n = 1 "Only kept for backwards compatibility (parameter is not used in the model and will be removed in a future version)"
annotation (Dialog(enable = false));
Modelica.Blocks.Interfaces.RealInput Kelvin(unit = "K") annotation (Placement(transformation(extent = {
{-140, -20},
{-100, 20}})));
Modelica.Blocks.Interfaces.RealOutput Rankine(unit = "degRk") annotation (Placement(transformation(extent = {
{100, -10},
{120, 10}})));
equation
Rankine = Modelica.SIunits.Conversions.to_degRk(Kelvin);
annotation (
Icon(
coordinateSystem(
preserveAspectRatio = true,
extent = {
{-100, -100},
{100, 100}}),
graphics = {
Text(
extent = {
{-150, 90},
{150, 50}},
textString = "%name",
lineColor = {0, 0, 255}),
Ellipse(
extent = {
{-40, 40},
{40, -40}},
lineThickness = 0.5,
fillColor = {255, 255, 255},
fillPattern = FillPattern.Solid),
Text(
extent = {
{-54, -38},
{-162, -90}},
textString = "K"),
Text(
extent = {
{142, -48},
{26, -91}},
textString = "degRk"),
Line(
points = {
{-40, 0},
{-100, 0}},
color = {0, 0, 255}),
Line(
points = {
{40, 0},
{100, 0}},
color = {0, 0, 255})}),
Diagram(graphics = {
Ellipse(
extent = {
{-40, 40},
{40, -40}},
lineThickness = 0.5,
fillColor = {255, 255, 255},
fillPattern = FillPattern.Solid),
Text(
extent = {
{-42, -41},
{-101, -98}},
textString = "K"),
Text(
extent = {
{100, -40},
{30, -100}},
textString = "degRk"),
Line(
points = {
{-100, 0},
{-40, 0}},
color = {0, 0, 255}),
Line(
points = {
{40, 0},
{100, 0}},
color = {0, 0, 255})}),
Documentation(info = "<html>\n<p>\nThis component converts all input signals from Kelvin to Rankine\nand provides them as output signals.\n</p>\n</html>"));
end FromKelvin;