List[Null, Null, Null, Null, Null, Null, Null, Notebook[List[Cell[CellGroupData[List[Cell["Subtype and Supertype", "Title"], Cell[CellGroupData[List[Cell["Connector Classes", "Section"], Cell["type Voltage = Real(unit = \"V\");", "ModelicaInput"], Cell["", "Text"], Cell["type Current = Real(unit = \"A\");", "ModelicaInput"], Cell["", "Text"], Cell["connector Pin\n  Voltage \t\tv;\n  flow Current \ti;\nend Pin;\t\t\t\t", "ModelicaInput"]], Open]], Cell[CellGroupData[List[Cell["Resistor", "Section"], Cell[TextData[List["The subtype relation between types is analogous to the subset relation between sets. If we have one type Temperature that contains all temperature values and another type Winter-Temperature that contains only negative temperature values, then we say that Temperature is a supertype of Winter-Temperature. This also implies that Winter-Temperature is a subtype of Temperature.\n\nThe supertype relation, on the other hand, is the inverse of the subtype relation. Since ", StyleBox["TempResistor", Rule[FontFamily, "Courier"]], " is a subtype of ", StyleBox["Resistor", Rule[FontFamily, "Courier"]], ", then ", StyleBox["Resistor", Rule[FontFamily, "Courier"]], " is a supertype of ", StyleBox["TempResistor", Rule[FontFamily, "Courier"]], ". \n"]], "Text"], Cell["model Resistor\t\n  Pin \t\t\tp, n\t\t\t\t\t\t\t\t\"Positive and Negative Pins\";\n  Voltage \t\tv;\n  Current \t\ti;\n  parameter Real R(unit = \"Ohm\")\t\t\t\t\t\"Resistance\";\nequation \n  v = R*i;\nend Resistor;", "ModelicaInput"], Cell["", "Text"], Cell["model TempResistor\t\t\t\t\t\t\t\t\t\"Temperature dependent Resistor\"\n  Pin \t\t\tp, n\t\t\t\t\t\t\t\t\"Positive and Negative Pins\";\n  Voltage \t\tv;\n  Current \t\ti;\n  parameter Real R(unit = \"Ohm\")\t\t\t\t\t\"Resistance at reference Temperature\";\n  parameter Real RT(unit = \"Ohm/degC\") \t= 0 \t\t\"Temperature dependent Resistance\";\n  parameter Real Tref(unit = \"degC\") \t= 20\t\t\"Reference Temperature\";\n  Real \t\t\t Temp \t\t\t\t\t= 20\t\t\"Actual Temperature\";\nequation \n  v = i*(R + RT*(Temp - Tref));\nend TempResistor;", "ModelicaInput"]], Open]]], Open]]], Rule[FrontEndVersion, "5.0 for Microsoft Windows"], Rule[ScreenRectangle, List[List[0, 1600], List[0, 1127]]], Rule[WindowSize, List[911, 881]], Rule[WindowMargins, List[List[1, Automatic], List[Automatic, 0]]], Rule[StyleDefinitions, "MathModelica.nb"]], Null, Null, Null, Null, Null]