(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18276,        451]
NotebookOptionsPosition[     16933,        421]
NotebookOutlinePosition[     17366,        438]
CellTagsIndexPosition[     17323,        435]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"Exercise", " ", "02"}], "*)"}],
   FontSize->24], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ClearAll", "[", 
    RowBox[{"tt", ",", "sol1"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Input", " ", "Part"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tt", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"i", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1998", ",", "2025"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pp", "=", 
     RowBox[{"{", 
      RowBox[{
      "48", ",", "50", ",", "55", ",", "55", ",", "59", ",", "69", ",", "82", 
       ",", "91", ",", "102", ",", "110", ",", "115", ",", "120", ",", "125", 
       ",", "133", ",", "145", ",", "159", ",", "150", ",", "177", ",", "117",
        ",", "117", ",", "142", ",", "133", ",", "137", ",", "157", ",", 
       "303", ",", "355", ",", "355", ",", "309"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Calculation", " ", "Part"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "i"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ttpp", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"tt", ",", "pp"}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gttpp", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ttpp", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<Time(year)\>\"", ",", "\"\<Petrol Prices (Rs)\>\""}], 
         "}"}]}], ",", 
       RowBox[{
       "PlotLabel", "\[Rule]", "\"\<Petrol Prices (Rs) vs Time\>\""}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "ii"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fttpp", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{"ttpp", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"t", "^", "3"}], ",", 
         RowBox[{"t", "^", "2"}], ",", "t", ",", "1"}], "}"}], ",", "t"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gfttpp", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"fttpp", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"tt", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Last", "[", "tt", "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "iii"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"fttpp", "/.", 
      RowBox[{"t", "->", 
       RowBox[{"{", 
        RowBox[{"2026", ",", "2027", ",", "2028", ",", "2029", ",", "2030"}], 
        "}"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "iv"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol1", "=", 
     RowBox[{"fttpp", "/.", 
      RowBox[{"t", "\[Rule]", "2050"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Output", " ", "Part"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 2-part (i)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "gttpp", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 2-part (ii)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Suitable Model is \>\"", ",", "fttpp"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"gttpp", ",", "gfttpp"}], "}"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 2-part (iii)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Average Petrol Prices in 2026, 2027, 2028, 2029, and 2030 are \>\"", 
     ",", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<, \>\"", ",", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<, \>\"", ",", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", "\"\<, \>\"", ",", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", "\"\<,\>\"", ",", "\"\< and \>\"", 
     ",", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", "\"\< respectively.\>\""}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 2-part (iv)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"\"\<Average Petrol Prices in 2050 is \>\"", ",", "sol1"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.9638825427116547`*^9, 3.9638825527889853`*^9}, {
  3.963958373053817*^9, 3.963958645797905*^9}, {3.9639586973355975`*^9, 
  3.9639587398024974`*^9}, {3.963959095916276*^9, 3.963959156103348*^9}, {
  3.9639591918135834`*^9, 3.9639592262793245`*^9}, {3.963959289922927*^9, 
  3.9639595491747913`*^9}, {3.963959636573987*^9, 3.963959826153702*^9}, {
  3.9639602781224585`*^9, 3.963960287869212*^9}, {3.9639607251988087`*^9, 
  3.963961221246603*^9}, {3.963972724471305*^9, 3.9639727252261486`*^9}, {
  3.9726489514781113`*^9, 
  3.972648954850275*^9}},ExpressionUUID->"f40e98a1-e8f3-4e7b-92ae-\
e0839890dfd2"],

Cell[BoxData[
 StyleBox["\<\"Exercise 2-part (i)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.9639727294444294`*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"819edb6c-4e1f-42e3-9ae0-49c36961ab82"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQYW8x0gDA8IbQPje0JoByi/wRtCu6DxPWB8Xwjt
A+U7BELoAJh8CIQOgfIPhEHoCJh8JISOgfGjIXQCTH0MhE6BuS8OQmfA7IuH
0DlQ/oIECF0A5SskQegSKP9BMoSugJkPla+BqU+DugNmfiyEbkHjd8D0J0Lo
HjT7J8DMg8pPgclD7Z8B5X8ogtBzoHyDMqg6NP4SKD+g2AEARflDLw==
      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"Petrol Prices (Rs)\"", TraditionalForm]},
  AxesOrigin->{1997.578125, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"Petrol Prices (Rs) vs Time\"", TraditionalForm],
  PlotRange->{{1998., 2025.}, {0, 355.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.963959476300799*^9, 3.9639595120880585`*^9}, 
   3.963959551539488*^9, 3.963959660132297*^9, {3.9639597041402884`*^9, 
   3.963959720024516*^9}, 3.9639598264764576`*^9, 3.9639602995187883`*^9, 
   3.96396073050488*^9, 3.9639608699476833`*^9, {3.9639610292058306`*^9, 
   3.9639610403112564`*^9}, {3.963961074153158*^9, 3.963961115844035*^9}, 
   3.9639612223992615`*^9, 3.9639727294509916`*^9},
 CellLabel->
  "Out[791]=",ExpressionUUID->"878b7814-81ab-4fec-bd0f-cebaf3665c2e"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Exercise 2-part (ii)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.9639727294570055`*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"94af1f93-7f11-4777-8e76-4d854659f196"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Suitable Model is \"\>", "\[InvisibleSpace]", 
   RowBox[{
    RowBox[{"-", "4.523718228847354`*^8"}], "+", 
    RowBox[{"675446.8800355215`", " ", "t"}], "-", 
    RowBox[{"336.1757454018745`", " ", 
     SuperscriptBox["t", "2"]}], "+", 
    RowBox[{"0.05577263764250475`", " ", 
     SuperscriptBox["t", "3"]}]}]}],
  SequenceForm[
  "Suitable Model is ", -4.523718228847354*^8 + 
   675446.8800355215 $CellContext`t - 336.1757454018745 $CellContext`t^2 + 
   0.05577263764250475 $CellContext`t^3],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.963972729459013*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"5f8a86a8-cd34-40bd-9a50-42e26ff11b63"]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQAWIQDQYW8x0gDA8IbQPje0JoByi/wRtCu6DxPWB8Xwjt
A+U7BELoAJh8CIQOgfIPhEHoCJh8JISOgfGjIXQCTH0MhE6BuS8OQmfA7IuH
0DlQ/oIECF0A5SskQegSKP9BMoSugJkPla+BqU+DugNmfiyEbkHjd8D0J0Lo
HjT7J8DMg8pPgclD7Z8B5X8ogtBzoHyDMqg6NP4SKD+g2AEARflDLw==
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwl1Xs0lekeB/DNDO1owpySRAcN4zjWUYmhhvNFziC5bmq/2/tKyHWK7L0r
oT0k1+YU1bQ4yW2SaKHRGibk3jQpM3OKieLEmalcqlONJE2nfs8f73rfz/p+
f8+z1t7vxXT7roBIdZFIlPP2eHdWzH0kEjmcxtvLBy7v2cLLbSJZzCw/t9YW
Jvl1v+syW6pvt0Wf8fpJU2ajA+22MHPxHXBjzq9LWYcfs/bVZjF7TP/PDtZL
b2zVcSSnPO13wJjNnoaV68nKAc4ZCxf1iOM+JS9Wdm5EfMYH4UecyenNezyR
t/HMzDmQg+6Wb0ZE7frVz1zfWeX3w6Af9tVdjV/iTnnlhkMB8JRKfMM/I/fE
m0lw09smrsqTvF/rYBCKh9/P7d5E802tFcEw1hvw0fGh/GVqwxYM3yvTt/Uj
x5jlbIVkvnWZdwD1u4ecpJDKuLVBZNGFWkghfDfjLbC8JMVNiqi9NukJzHv1
PaVIfl46dYw5cK1EirKpjI67bH6PdqwUj+54xu0KJAtex6TIbr3VViAhT60Z
l2JOM82pmPkf4b9KEe9n0VLBvKzwvhS+48rmRrLK8tGkFPoLDRoHWL604LkU
lRKu2jCI3HdUg0P75EhhOVnlo7TgMLv8QfSFYPIhUQSH9wMsSy6RRd+9juSg
lxv9725m4WUUB6u5B06DzPOTcRz4oYcfzjNXtyVx6CyabHHfQm4wzOBweMVj
3dvMlY2lHMyMZ5rebCXbVA9yCD6xokssJU+63uaQo+NyXY85cniIwxO1/Hur
yKqvxCMcLv9mquXBrC35L4eQ+s2yI6yvV/+Ew3G3r1+bcGS/DLEM4liJq6uM
+vV962Q4ez2z3ossuqVpL4Pnmm9XBjIvwycy5M4ufxXO/KLOUYZFWaPfZLL5
DZnOMuhWxppfZXm2pocMy0dUYr8QyitjOBmsAs7f4Hly/90UGTTvqalVhVI/
4VSbDCu1/e2vhlHu1vlMhifDxXrLIyhf6WQZgrQZewthB+UL0rgQeNT2OaVE
U957MS8EfWLh1ZVY8qnIKyHIF01cmoqnvixPzKMg8adVv5NFB8oW8jg51pT3
mjmySYtHZXeWbPHn1Fc8WMSjJdv8lQ1ZdNlfj8ekbtj6JOYyT0MeXqa/NL1k
fcOb1jzErr0XNXeRAw5IeFSXud/UIYtm7we97av1PDVgbvbfwiO/vcvmr8xF
lhwPnb93VPsyj42H8tD/tOXUSeb9R+N4rLK/kGmVQK7pz+DhbFUS5JNI+xXp
NPHwlv/ll2CyaLq6mQfX1siFMie6X+KhCLgWmsCsqWrjUZs8G1PAXPBeDw/D
awFpA8y3Nv7M40XcgiphN/n8xWke9ecTZncmkbtSLQVIfytcs5f5XKGVAPU/
fxv7BfPqGmsBgUde3ykkqz4aXS1gZnduRxPLf+AcBWxwqMxVl1P+sMxLQG/n
oNEJOft9lTsF3B10dmlVUB6VdElArf9nvr3Md6ZbBaRc8+X7ySKz2HYBRpe3
7bvHbB7dI4A7k96goSR/nNwvYFDea+rD/GhmXMBPej7qo8wctzgUPZv4LtFe
8qs/okPxkFN6GCfTfpqOS7bhe928pKiUd4aG1pfbMB5WVJabRv214R+GoXn+
pbhCRbm9XVUYvJyD9B+ms+fnbuh2LFtRYyHOpPWuHl8VjpKS+TuSLLKR/Z8i
ENbqcSI5h9ymWhyJUfNfs4/nkdv9TXbAwC7VdOQwrR8xFhOFw6M6rW/+Sfnz
ttZotKwu+cOngPabMA+MRdW1lH2Fx6gvPyOOxw214Bf1J8gT3T2fo27EasX8
SXZ/Vf28C33Bcy4mxeRw7WcJ+NrAsNzxFPv/OrR3w+ELu7Oq0zR/eigwCQsy
NzWUlrH7aeZfcmh1Zf7tHLnd/H65HIvU2mu+Ybnu0Fk5dFPXnell+caeRjkM
FMbFU+RS+4Y+OSwjHx90KKd+6ui8HJ7uhVt/JKuyvhIU8M64fus2y9M6IxTw
6VgQOM7s8ThWgQCnlM0z5P8E++xRgLOLdDWqoPkYsyMKxJp/Yh1dwd4PZp0K
xIcnVieSSydiv1dgZ1mNxX5yu87FGwrsNjYx/ZK8bcxnWIHkpQv1G9l6DSef
K5AS6FbYSkbP4zkF0o6m6l5h8xc81JRI/+Cp1hDbz/jtFxwHN1lnj7N+kbBE
iUM5OzSmWf9pm6ES2VdK02fY+hampkrkaQy/ecNyu8yPlfg/5sY7WA==
        "]]},
      Annotation[#, "Charting`Private`Tag$19817#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"Petrol Prices (Rs)\"", TraditionalForm]},
  AxesOrigin->{1997.578125, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"Petrol Prices (Rs) vs Time\"", TraditionalForm],
  PlotRange->{{1998., 2025.}, {0, 355.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.963959476300799*^9, 3.9639595120880585`*^9}, 
   3.963959551539488*^9, 3.963959660132297*^9, {3.9639597041402884`*^9, 
   3.963959720024516*^9}, 3.9639598264764576`*^9, 3.9639602995187883`*^9, 
   3.96396073050488*^9, 3.9639608699476833`*^9, {3.9639610292058306`*^9, 
   3.9639610403112564`*^9}, {3.963961074153158*^9, 3.963961115844035*^9}, 
   3.9639612223992615`*^9, 3.9639727294605174`*^9},
 CellLabel->
  "Out[794]=",ExpressionUUID->"a4ebffc0-fdb6-484e-9925-8041d6a54c23"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Exercise 2-part (iii)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.9639727294605174`*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"16d0e4e8-523e-4fb5-8724-68d114e45a8d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Average Petrol Prices in 2026, 2027, 2028, 2029, and 2030 are \
\"\>", "\[InvisibleSpace]", "400.29670321941376`", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", 
   "451.7440528869629`", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "509.1467306613922`", 
   "\[InvisibleSpace]", "\<\", \"\>", "\[InvisibleSpace]", 
   "572.8393723964691`", "\[InvisibleSpace]", "\<\",\"\>", 
   "\[InvisibleSpace]", "\<\" and \"\>", "\[InvisibleSpace]", 
   "643.1566141843796`", "\[InvisibleSpace]", "\<\" respectively.\"\>"}],
  SequenceForm[
  "Average Petrol Prices in 2026, 2027, 2028, 2029, and 2030 are ", 
   400.29670321941376`, ", ", 451.7440528869629, ", ", 509.1467306613922, 
   ", ", 572.8393723964691, ",", " and ", 643.1566141843796, " respectively."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.9639727294605174`*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"9cc511fb-1c31-4a3f-816e-7ad3798b44e9"],

Cell[BoxData[
 StyleBox["\<\"Exercise 2-part (iv)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.9639727294605174`*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"004d3df5-5282-4a14-9d1b-bab5eb3bce35"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Average Petrol Prices in 2050 is \"\>", "\[InvisibleSpace]", 
   "3956.0065898895264`"}],
  SequenceForm["Average Petrol Prices in 2050 is ", 3956.0065898895264`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.963960869955369*^9, {3.9639610292058306`*^9, 3.9639610403064523`*^9}, {
   3.963961074153158*^9, 3.963961115844035*^9}, 3.963961222397516*^9, 
   3.9639727294766407`*^9},
 CellLabel->
  "During evaluation of \
In[781]:=",ExpressionUUID->"3cdc0aed-5f63-4aec-9a31-c6805fe98bf0"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{951., 477.75},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.4 Inherited,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"0011e975-5c25-4243-8c96-320600fa6f3f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 5498, 139, 851, "Input",ExpressionUUID->"f40e98a1-e8f3-4e7b-92ae-e0839890dfd2"],
Cell[6081, 163, 409, 10, 30, "Print",ExpressionUUID->"819edb6c-4e1f-42e3-9ae0-49c36961ab82"],
Cell[6493, 175, 2031, 48, 311, "Output",ExpressionUUID->"878b7814-81ab-4fec-bd0f-cebaf3665c2e"],
Cell[CellGroupData[{
Cell[8549, 227, 410, 10, 30, "Print",ExpressionUUID->"94af1f93-7f11-4777-8e76-4d854659f196"],
Cell[8962, 239, 879, 21, 32, "Print",ExpressionUUID->"5f8a86a8-cd34-40bd-9a50-42e26ff11b63"]
}, Open  ]],
Cell[9856, 263, 4491, 90, 311, "Output",ExpressionUUID->"a4ebffc0-fdb6-484e-9925-8041d6a54c23"],
Cell[CellGroupData[{
Cell[14372, 357, 411, 10, 30, "Print",ExpressionUUID->"16d0e4e8-523e-4fb5-8724-68d114e45a8d"],
Cell[14786, 369, 1160, 22, 56, "Print",ExpressionUUID->"9cc511fb-1c31-4a3f-816e-7ad3798b44e9"],
Cell[15949, 393, 410, 10, 30, "Print",ExpressionUUID->"004d3df5-5282-4a14-9d1b-bab5eb3bce35"],
Cell[16362, 405, 543, 12, 30, "Print",ExpressionUUID->"3cdc0aed-5f63-4aec-9a31-c6805fe98bf0"]
}, Open  ]]
}, Open  ]]
}
]
*)