model ToKelvin "Conversion block from degRankine to Kelvin"
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 Rankine(unit = "degRk") annotation (Placement(transformation(extent = {
{-140, -20},
{-100, 20}})));
Modelica.Blocks.Interfaces.RealOutput Kelvin(unit = "K") annotation (Placement(transformation(extent = {
{100, -10},
{120, 10}})));
equation
Kelvin = Modelica.SIunits.Conversions.from_degRk(Rankine);
annotation (
Diagram(graphics = {
Ellipse(
extent = {
{-40, 40},
{40, -40}},
lineThickness = 0.5,
fillColor = {255, 255, 255},
fillPattern = FillPattern.Solid),
Text(
extent = {
{-40, -50},
{-99, -99}},
textString = "degRk"),
Text(
extent = {
{100, -47},
{44, -100}},
textString = "K"),
Line(
points = {
{-100, 0},
{-40, 0}},
color = {0, 0, 255}),
Line(
points = {
{41, 0},
{100, 0}},
color = {0, 0, 255})}),
Icon(
coordinateSystem(
preserveAspectRatio = true,
extent = {
{-100, -100},
{100, 100}}),
graphics = {
Ellipse(
extent = {
{-40, 40},
{40, -40}},
lineThickness = 0.5,
fillColor = {255, 255, 255},
fillPattern = FillPattern.Solid),
Text(
extent = {
{140, -38},
{56, -94}},
textString = "K"),
Text(
extent = {
{-44, -42},
{-155, -89}},
textString = "degRk"),
Line(
points = {
{-41, 0},
{-100, 0}},
color = {0, 0, 255}),
Line(
points = {
{100, 0},
{40, 0}},
color = {0, 0, 255}),
Text(
extent = {
{-150, 90},
{150, 50}},
textString = "%name",
lineColor = {0, 0, 255})}),
Documentation(info = "<html>\n<p>\nThis component converts all input signals from degree Rankine to Kelvin\nand provides them as output signals.\n</p>\n</html>"));
end ToKelvin;