List[Null, Null, Null, Null, Null, Null, Null, Notebook[List[Cell[CellGroupData[List[Cell["Exercise 3", "Title"], Cell[CellGroupData[List[Cell["Creating a Function and Making a Function Call", "Section"], Cell[TextData[List["Write a function, ", StyleBox["Average", Rule[FontFamily, "Courier"]], ", that returns the average of two ", StyleBox["Real", Rule[FontFamily, "Courier"]], " values. "]], "Text"], Cell["", "ModelicaInput"], Cell[TextData[List["\n\nMake a function call to ", StyleBox["Average", Rule[FontFamily, "Courier"]], " with the input 4 and 6."]], "Text"], Cell["", "ModelicaInput"], Cell[TextData[List["\n\nEvaluate ", StyleBox["\"MakeAlive[Average]\"", Rule[FontWeight, "Bold"]], ", then you can try your function by writing ", StyleBox["\"Average[number, number]\"", Rule[FontWeight, "Bold"]], " a shown below. We use ", StyleBox["MakeAlive", Rule[FontFamily, "Courier"]], " on functions to see the results. "]], "Text"], Cell[BoxData[RowBox[List["MakeAlive", "[", "Average", "]"]]], "Input"], Cell["", "Text"], Cell[BoxData[RowBox[List["Average", "[", RowBox[List["4", ",", " ", "6"]], "]"]]], "Input"], Cell["", "Text"], Cell[BoxData[RowBox[List["Average", "[", RowBox[List["13.5", ",", " ", "19"]], "]"]]], "Input"], Cell[CellGroupData[List[Cell["Answer", "Subsection"], Cell["function Average\n  input Real a;\n  input Real b;\n  output Real result;\nalgorithm\n  result := (a + b) / 2;  \nend Average;", "ModelicaInput"], Cell["", "Text"], Cell["class AverageTest\n  Real res;\nequation\n  res = Average(4, 6);\t\t\t\t\nend AverageTest;  ", "ModelicaInput"], Cell["", "Text"], Cell[CellGroupData[List[Cell["MakeAlive on Average", "Subsubsection"], Cell[BoxData[RowBox[List["MakeAlive", "[", "Average", "]"]]], "Input"], Cell[BoxData[RowBox[List["Average", "[", RowBox[List["4", ",", " ", "6"]], "]"]]], "Input"], Cell[BoxData[RowBox[List["Average", "[", RowBox[List["13.5", ",", " ", "19"]], "]"]]], "Input"]], Closed]]], Closed]]], Open]]], Open]]], Rule[FrontEndVersion, "5.1 for Microsoft Windows"], Rule[ScreenRectangle, List[List[0, 1280], List[0, 951]]], Rule[WindowSize, List[745, 924]], Rule[WindowMargins, List[List[-3, Automatic], List[Automatic, -1]]], Rule[StyleDefinitions, "MathModelica.nb"]], Null, Null, Null, Null, Null]