(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 84338, 2194] NotebookOptionsPosition[ 66503, 1914] NotebookOutlinePosition[ 68027, 1949] CellTagsIndexPosition[ 67948, 1944] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"0ca68ffa-99b0-4f8c-a3c4-9a377a0adab2"], Cell[TextData[{ "T01: COORDINATE GEOMETRY\n", StyleBox["Please upload your completed notebook to Google Classroom.\nIf you \ get stuck, use your cheat notes which is in the back of your bound reference.\ \nAlso ADD to your cheat notes.\n", FontSize->18] }], "Title", CellChangeTimes->{{3.7279707503831663`*^9, 3.7279708781502123`*^9}, { 3.727970977404798*^9, 3.727971014758781*^9}}, TextAlignment->Center,ExpressionUUID->"918ece12-553c-4fe6-9a79-a897f057ed97"], Cell["\<\ Question 1 For each of the following, find the gradient of the line that passes through \ the two points. a) (5, 125) and (4, 64)\ \>", "Subtitle", CellChangeTimes->{{3.727971027129232*^9, 3.7279710316941643`*^9}, { 3.7279711347637463`*^9, 3.7279711948761597`*^9}},ExpressionUUID->"e4d68c8f-602e-49d8-a4ee-\ c264c7e728d9"], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{"125", "-", "64"}], RowBox[{"5", "-", "4"}]]], "Input", CellChangeTimes->{ 3.727971193158146*^9, 3.727972160088315*^9, {3.728606912780585*^9, 3.728606932524068*^9}},ExpressionUUID->"74510b55-aa69-47ed-838d-\ 46321ded7e50"], Cell[BoxData["61"], "Output", CellChangeTimes->{ 3.7286069350594854`*^9},ExpressionUUID->"b3a5c223-dce4-48a0-9de3-\ e6c04518a8af"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"f70969a0-bc92-465b-98df-\ 45d7545856c8"], Cell["m = 61", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.728606977774156*^9, 3.7286069798102245`*^9}, { 3.7286611135674534`*^9, 3.7286611145003896`*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"e0b9bce6-48de-4b19-9daa-b9125ec7eef4"], Cell[CellGroupData[{ Cell["\<\ b) (1, -7) and (1, -5)\ \>", "Subtitle", CellChangeTimes->{{3.727971330733582*^9, 3.7279713317825947`*^9}, { 3.727971363783347*^9, 3.727971381178582*^9}, {3.72798346667908*^9, 3.727983476806858*^9}},ExpressionUUID->"138eeb6e-02c4-4cb0-adfd-\ ef63597a0bc2"], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "7"}], "+", "5"}], RowBox[{"1", "-", "1"}]]], "Input", CellChangeTimes->{ 3.7279713839197197`*^9, 3.727972157289156*^9, {3.7286071992205*^9, 3.72860723665379*^9}},ExpressionUUID->"bb97a03d-4d45-4894-b24c-\ a5ce3f82075a"], Cell[BoxData[ TemplateBox[{ "Power","infy", "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \ encountered.\"",2,2,1,17461729171678525653,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7286072387730517`*^9},ExpressionUUID->"a4cb2bbd-34a7-42a3-a8f2-\ 3372680f004f"], Cell[BoxData["ComplexInfinity"], "Output", CellChangeTimes->{ 3.7286072391207523`*^9},ExpressionUUID->"2782a5c0-fa54-41fa-bca4-\ 15863e2df5af"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"4d33a4e6-acee-4901-b805-\ 8ce809c207c9"], Cell["m = undefined ", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.728607246048181*^9, 3.728607255079732*^9}, { 3.7286611068667355`*^9, 3.728661108101468*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"84bcaefa-fbaa-458a-a4bc-bff0797d0825"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ c) (4, -2) and (3, -2)\ \>", "Subtitle", CellChangeTimes->{{3.727971398139172*^9, 3.7279714085261793`*^9}, { 3.727983506421014*^9, 3.7279835141084223`*^9}},ExpressionUUID->"1ebca780-4769-4745-93cb-\ e96560154c56"], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "2"}], "+", "2"}], RowBox[{"4", "-", "3"}]]], "Input", CellChangeTimes->{ 3.727971410901361*^9, 3.727972155439168*^9, {3.7286072611303644`*^9, 3.7286072699125524`*^9}},ExpressionUUID->"1c46a65a-28b7-4ce4-b1be-\ e0660acc1560"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.728607271268449*^9},ExpressionUUID->"48a2cac4-a602-44c8-af6c-\ c897111e6604"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"71951684-f6a2-45d7-ad0f-\ 81af43c0cb73"], Cell["m = 0", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.7286072750468073`*^9, 3.7286072761481066`*^9}, { 3.728661098601757*^9, 3.728661101370626*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"aac88e76-3ed4-4973-983f-beb6c1cc6818"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\nQuestion 2\nFind the gradient \n\na) at an angle of ", Cell[BoxData[ FormBox[ RowBox[{"45", "\[Degree]"}], TraditionalForm]],ExpressionUUID-> "2e21b9a4-a85d-4216-a85e-17e82107ef3c"], " to the positive direction of the x-axis." }], "Subtitle", CellChangeTimes->{{3.727971423524769*^9, 3.727971502597418*^9}},ExpressionUUID->"c0805919-2ad8-4394-9220-\ e9135c13f48e"], Cell[BoxData[ ButtonBox["hint", ButtonFunction:>CreateDocument[{ Cell[ "In Mathematica, you need to specify what \[OpenCurlyDoubleQuote]kind\ \[CloseCurlyDoubleQuote] of value you are entering. So, for a degree, you \ must state it.", "Subtitle", CellChangeTimes -> {{3.7279849173330193`*^9, 3.727984938351527*^9}, { 3.727984973153408*^9, 3.727984977969174*^9}}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Sin", "[", RowBox[{"60", "Degree"}], "]"}]], "Input", CellChangeTimes -> {{3.7279849828138866`*^9, 3.727985008551776*^9}}], Cell[ BoxData[ FractionBox[ SqrtBox["3"], "2"]], "Output", CellChangeTimes -> {3.727985009891577*^9}]}, Open]], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Sin", "[", RowBox[{"60", "\[Degree]"}], "]"}]], "Input", CellChangeTimes -> {{3.727985013968562*^9, 3.727985021117309*^9}}], Cell[ BoxData[ FractionBox[ SqrtBox["3"], "2"]], "Output", CellChangeTimes -> {3.7279850217541533`*^9}]}, Open]]}, WindowTitle -> "hint", WindowSize -> {800, 600}, Magnification -> 1.25, StyleDefinitions -> "Creative/PastelColor.nb"], Evaluator->Automatic, FrameMargins->4, Method->"Queued"]], "NonPrintButton",ExpressionUUID->"cc0806af-cfba-40df-\ aba8-1588554af19c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Tan", "[", RowBox[{"45", "Degree"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.727984909155157*^9, 3.72798490981776*^9}, { 3.728283162893242*^9, 3.7282831706991425`*^9}, {3.7282833088647537`*^9, 3.72828333535509*^9}},ExpressionUUID->"cbbe0656-5a2e-413f-99da-\ 4882bb82bb15"], Cell[BoxData["1.`"], "Output", CellChangeTimes->{{3.728283316702513*^9, 3.728283336657106*^9}},ExpressionUUID->"4b26962e-d648-425d-aca3-\ c345f8a20ad5"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"4a3b32a4-4e33-4b57-90c3-\ ab5b336f997b"], Cell["m = 1", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{ 3.7282833437073774`*^9, {3.7282837399445257`*^9, 3.728283744847878*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"46992a8b-b38b-46ce-b555-84df728b87fc"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ b) at an angle of 67\[Degree] to the positive direction of the x-axis.\ \>", "Subtitle", CellChangeTimes->{{3.727971755506178*^9, 3.7279717703220453`*^9}},ExpressionUUID->"173ce4a1-abc8-4554-924b-\ dd8a09c72ad7"], Cell[BoxData[ ButtonBox["hint", ButtonFunction:>CreateDocument[{ Cell[ "Mathematica will always compute an exact answer to begin with. If you \ want a decimal answer, there are many ways you can do this.", "Subtitle", CellChangeTimes -> {{3.727971820304278*^9, 3.727971845043044*^9}}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Sin", "[", "23", "]"}]], "Input", CellChangeTimes -> {{3.727971849034485*^9, 3.727971862220145*^9}}], Cell[ BoxData[ RowBox[{"Sin", "[", "23", "]"}]], "Output", CellChangeTimes -> {3.727971862873312*^9}]}, Open]], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ RowBox[{"Sin", "[", "23", "]"}], "//", "N"}]], "Input", CellChangeTimes -> {{3.727971864781192*^9, 3.727971868741942*^9}}], Cell[ BoxData[ RowBox[{"-", "0.8462204041751706`"}]], "Output", CellChangeTimes -> {3.727971869358906*^9}]}, Open]], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"N", "[", RowBox[{"Sin", "[", "23", "]"}], "]"}]], "Input", CellChangeTimes -> {{3.7279718710953207`*^9, 3.727971886507413*^9}}], Cell[ BoxData[ RowBox[{"-", "0.8462204041751706`"}]], "Output", CellChangeTimes -> {3.727971887068405*^9}]}, Open]], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Sin", "[", "23.", "]"}]], "Input", CellChangeTimes -> {{3.727971889208091*^9, 3.727971891677539*^9}}], Cell[ BoxData[ RowBox[{"-", "0.8462204041751706`"}]], "Output", CellChangeTimes -> {3.727971892254594*^9}]}, Open]]}, WindowTitle -> "hint", WindowSize -> {800, 600}, Magnification -> 1.25, StyleDefinitions -> "Creative/PastelColor.nb"], Evaluator->Automatic, FrameMargins->4, Method->"Queued"]], "NonPrintButton",ExpressionUUID->"8fbffdc6-1a54-4f30-\ 87db-82905ae0b963"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Tan", "[", RowBox[{"67", "Degree"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{ 3.727971778508852*^9, 3.727972148823605*^9, {3.7282833531124763`*^9, 3.728283365623089*^9}},ExpressionUUID->"7f30bf41-375e-423d-859e-\ 1ca283219e6d"], Cell[BoxData["2.3558523658237527`"], "Output", CellChangeTimes->{ 3.7282833669082947`*^9},ExpressionUUID->"5b03e7ef-e928-466d-9a31-\ 1d50067ec377"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"09473dd4-fd2b-4ce5-84f0-\ 27cecc381be6"], Cell["m = 2.36", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.728283373479739*^9, 3.7282833772312098`*^9}, { 3.7282837516053286`*^9, 3.7282837539705586`*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"723559fa-cd93-4b22-b93e-a2d1e1b3b9c2"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ c) at an angle of 120\[Degree] to the positive direction of the x-axis\ \>", "Subtitle", CellChangeTimes->{{3.727971517164712*^9, 3.727971539204413*^9}, { 3.7279718035885487`*^9, 3.727971803939479*^9}},ExpressionUUID->"883eb5bb-041c-41b3-8e8c-\ 6a828e886c13"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Tan", "[", RowBox[{"120", "Degree"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{ 3.727971541691627*^9, 3.727972146330497*^9, {3.7282834247323465`*^9, 3.728283436229082*^9}},ExpressionUUID->"011354bf-86bb-4461-8cf1-\ 84e61d46d54c"], Cell[BoxData[ RowBox[{"-", "1.7320508075688772`"}]], "Output", CellChangeTimes->{ 3.7282834373607464`*^9},ExpressionUUID->"88360778-43dc-4717-97fc-\ 3554fea50c9a"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"e297e134-5b4e-4792-b590-\ 0cd38468fb0c"], Cell["m = -1.73", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.7282837616577544`*^9, 3.728283775755186*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"84318b03-6536-4b42-a6fb-fc8c1f8ea686"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\nQuestion 3\nFind the angle, correct to two decimal places, that the lines \ joining the given points make with the ", StyleBox["positive direction", FontWeight->"Bold", FontVariations->{"Underline"->True}], " of the x-axis.\n\na) (0, 5) and (-5, 0)" }], "Subtitle", CellChangeTimes->{{3.7279719929549837`*^9, 3.727972079903449*^9}},ExpressionUUID->"0583e8d7-c7a8-4006-ad9e-\ 064e9867f634"], Cell[BoxData[ ButtonBox["hint", ButtonFunction:>CreateDocument[{ Cell[ "When you inverse Sine, Cosine or Tan, another name for it is ArcSine or \ ArcCosine or ArcTan. These commands can be found in Basic Commands on the \ Classroom Assistant.\n\nYou will notice that Mathematica will give you an \ answer that does not look like an angle. It isn\[CloseCurlyQuote]t an angle \ but it is a radian answer. Which is still correct! But more of that in Term \ 3 when you learn Circular Functions.", "Subtitle", CellChangeTimes -> {{3.727972305664619*^9, 3.7279724650448523`*^9}, 3.727972574859233*^9}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"ArcSin", "[", FractionBox["1", SqrtBox["2"]], "]"}]], "Input", CellChangeTimes -> {{3.727972473593828*^9, 3.727972561851214*^9}}], Cell[ BoxData[ FractionBox["\[Pi]", "4"]], "Output", CellChangeTimes -> {{3.7279724924311*^9, 3.727972562459282*^9}}]}, Open]], Cell[ CellGroupData[{ Cell[ "\nTo convert it to a degree, divide by Degree. \ Don\[CloseCurlyQuote]t forget to add //N", "Subtitle", CellChangeTimes -> {{3.72797259571819*^9, 3.727972608617087*^9}, { 3.7279726404889593`*^9, 3.7279726785802526`*^9}}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{ FractionBox[ RowBox[{"ArcSin", "[", FractionBox["1", SqrtBox["2"]], "]"}], "Degree"], "//", "N"}]], "Input", CellChangeTimes -> {{3.727972613386993*^9, 3.727972637461267*^9}}], Cell[ BoxData["45.`"], "Output", CellChangeTimes -> {{3.727972634130966*^9, 3.727972637998393*^9}}]}, Open]]}, Open]]}, WindowTitle -> "hint", WindowSize -> {800, 600}, Magnification -> 1.25, StyleDefinitions -> "Creative/PastelColor.nb"], Evaluator->Automatic, FrameMargins->4, Method->"Queued"]], "NonPrintButton",ExpressionUUID->"e56bd71b-1c57-4c1b-\ 9ff1-83308302a5e6"], Cell[BoxData[ FractionBox[ RowBox[{"5", "-", "0"}], RowBox[{"0", "+", "5"}]]], "Input", CellChangeTimes->{{3.72797214235356*^9, 3.72797214440559*^9}, { 3.7286073045273733`*^9, 3.7286073108408737`*^9}},ExpressionUUID->"dbafabce-9002-4e21-8290-\ 76a9c67f5fee"], Cell[CellGroupData[{ Cell[BoxData[{"1", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", "1", "]"}], "/", "Degree"}], "//", "N"}]}], "Input",\ CellChangeTimes->{{3.7286073385327907`*^9, 3.728607341792875*^9}, { 3.72866069050578*^9, 3.728660735672511*^9}, {3.7286607730556183`*^9, 3.7286607944383183`*^9}},ExpressionUUID->"0796cd9c-b35b-42f2-a9b3-\ 65aac2eaf2be"], Cell[BoxData["45.`"], "Output", CellChangeTimes->{3.7286607374033084`*^9, 3.7286607957386494`*^9},ExpressionUUID->"8bd3cfe2-4e03-42e1-b51a-\ 8ed9b4a868bf"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}, { 3.7286606224764643`*^9, 3.7286606873073225`*^9}},ExpressionUUID->"5123bea4-2d03-41ae-b679-\ 699fccf6585b"], Cell["45Degrees", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.7286608076615334`*^9, 3.7286608129207993`*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"9dc6ce65-b369-4195-aba2-cb4833cd543f"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ b) (-4, -3) and (2, 4)\ \>", "Subtitle", CellChangeTimes->{{3.727972189716556*^9, 3.727972202874354*^9}},ExpressionUUID->"ce576c6b-c9db-46ef-b8eb-\ 7df39cb5363e"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "3"}], "-", "4"}], RowBox[{ RowBox[{"-", "4"}], "-", "2"}]]], "Input", CellChangeTimes->{{3.72797214235356*^9, 3.72797214440559*^9}, { 3.7286608373124466`*^9, 3.7286608480650587`*^9}},ExpressionUUID->"2364ef9d-33d9-4200-86db-\ 88261d0ed5f6"], Cell[CellGroupData[{ Cell[BoxData[{ FractionBox["7", "6"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", FractionBox["7", "6"], "]"}], "/", "Degree"}], "//", "N"}]}], "Input", CellChangeTimes->{{3.728660857032586*^9, 3.7286608822091665`*^9}},ExpressionUUID->"d3553827-95c1-41b5-a9ac-\ b21f1429a402"], Cell[BoxData[ FractionBox["7", "6"]], "Output", CellChangeTimes->{ 3.728660883512373*^9},ExpressionUUID->"a7dbe399-fc28-4f53-91fb-\ 6fba5ce5bf66"], Cell[BoxData["49.398705354995535`"], "Output", CellChangeTimes->{ 3.728660883512373*^9},ExpressionUUID->"a6ef7c7c-b28d-449b-b9b7-\ 9be940aac2e9"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"527b6cd5-4b40-4d07-b7df-\ beef3fa69775"], Cell["49.39 Degrees ", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.7286608918001785`*^9, 3.7286609006349*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"4c9aed96-f1b6-467e-851d-d93a194fdd7c"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ c) (c, b) and (b, c)\ \>", "Subtitle", CellChangeTimes->{{3.727972189716556*^9, 3.727972221935112*^9}, { 3.7279722593338833`*^9, 3.727972266760619*^9}},ExpressionUUID->"b92c8d2b-0461-4e44-a7cd-\ 069c2027e714"], Cell[BoxData[ FractionBox[ RowBox[{"b", "-", "c"}], RowBox[{"c", "-", "b"}]]], "Input", CellChangeTimes->{{3.72797214235356*^9, 3.72797214440559*^9}, { 3.728660910655602*^9, 3.7286609198042684`*^9}},ExpressionUUID->"90e809da-18e2-4873-9c36-\ fcbecf32336e"], Cell[CellGroupData[{ Cell[BoxData[{ FractionBox[ RowBox[{"b", "-", "c"}], RowBox[{ RowBox[{"-", "b"}], "+", "c"}]], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"-", "1"}], "]"}], "/", "Degree"}], "//", "N"}]}], "Input", CellChangeTimes->{{3.7286609942461834`*^9, 3.7286610207041597`*^9}},ExpressionUUID->"338b8289-b944-466e-8d78-\ 804950023ed6"], Cell[BoxData[ FractionBox[ RowBox[{"b", "-", "c"}], RowBox[{ RowBox[{"-", "b"}], "+", "c"}]]], "Output", CellChangeTimes->{ 3.728661021760378*^9},ExpressionUUID->"236a7419-66ed-4e54-8023-\ 98a4a8bc94f7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"-", "45.`"}], "\[IndentingNewLine]", RowBox[{"180", "-", "45"}]}], "Input", CellChangeTimes->{{3.728661063985174*^9, 3.728661068333235*^9}},ExpressionUUID->"256451e8-fe85-42ea-bb0f-\ 98c6209d23d7"], Cell[BoxData[ RowBox[{"-", "45.`"}]], "Output", CellChangeTimes->{ 3.7286610696518583`*^9},ExpressionUUID->"8eb8ee40-00d1-4dda-a200-\ 276e35c52ac3"], Cell[BoxData["135"], "Output", CellChangeTimes->{ 3.7286610696674767`*^9},ExpressionUUID->"92d9d8c5-7c02-4c92-9196-\ bdde0b50622c"] }, Open ]], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"9c2602bb-42a0-428b-bf16-\ 5cb060db1313"], Cell["135 Degrees ", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, CellChangeTimes->{{3.7286610757498007`*^9, 3.728661079119563*^9}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"5d68682d-96c9-46d5-87bc-c054b7ece0f7"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"1aff1550-11af-49a4-a25f-d94eacb94e4d"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"185ca7f1-2874-4218-a8a2-f11602a8abac"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"b3076009-5ece-4616-903d-f5fb23538152"], Cell[TextData[{ "Question 4\nPlot the following linear relations on the one axes. Comment \ on what you notice.\n\na) y=4x+1 and ", Cell[BoxData[ FormBox[ RowBox[{"y", "=", RowBox[{ RowBox[{"4", "x"}], "-", "3"}]}], TraditionalForm]],ExpressionUUID-> "97823f1d-12e6-4b0e-8ac4-b2b3968b2803"], " and y=4x+5" }], "Subtitle", CellChangeTimes->{{3.7279796761894093`*^9, 3.7279797664382143`*^9}},ExpressionUUID->"104c5ccf-b47e-4795-b137-\ 17f305b9f26e"], Cell[BoxData[ ButtonBox["hint", ButtonFunction:>CreateDocument[{ Cell[ "When using the command Plot[~~], to ensure that your plot is symmetric \ and not distorted, add a PlotRange and AspectRatio\[Rule]Automatic.", "Subtitle", CellChangeTimes -> {{3.727980020665208*^9, 3.72798007573355*^9}}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "-", "2"}], ",", RowBox[{"x", "-", "3"}], ",", RowBox[{"x", "-", "4"}], ",", RowBox[{"x", "+", "2"}], ",", RowBox[{"x", "+", "3"}], ",", RowBox[{"x", "+", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes -> {{3.7279800781420307`*^9, 3.7279801231151333`*^9}}], Cell[ BoxData[ GraphicsBox[{{{}, {}, TagBox[{ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt1H0wG3YcBnBS1kRSKuIlaZoffo4uLtUriwlrvq1mXA81ih07NqVVpUyd clo9o5R1ajTUS9Yqy2oZer1jbWfNb2Qok1q9rVO7eX/rSjReTllmvTx3z33+ ff567KKTgmIpBgYG3tv9X93bIGLwNg4kc/GDhOIJRB6v8YRdGkweXKiMbzrO Iy88/ZuHnTAJKAmx/beCS5ye8Hfr/OyJj+znAN+XHFKnjnRySLMj8s6MofMR bNI/4bXwsMGWRObesHx611ovIlmf7mikW1jp5REDAVJ6X2Hp5ZI/v6zIVwwy 9XII1ySuXnvEXC+bnH2PbzzCNSMtHOkXiUXW5KT7X3fb2+nk/p6kgbExS8JP F+nO1VGJpZfssnsQi9SMBqsyDhuTvlfvjrfeZpKZbEsvHxsK0RKTbzDDnDyS 7pPMhm4pR4/dsE9VmJIDc8+1LrJV5U1twkZ5AJ0cfTRC2wpdUtqP/pOb5Uwl yfVN6+YWE8pP5p2zVCojEnoK1zy7+EQZK2Tye8sNSedvzwtdg7vEpzvqiipW NpUiwS/3A8snxCfP3JKHua0qKWmWL2LYS+JNi0EfYe+icicjMDv61ap4eSZq S4THlTl/D3mn1G6JZ9/4jiVOtinvVeUFZi0bgsFPZ6hTTk/FSXdidk+GGkNr Qcnh4ogpcWR85d78bCq0Drh5mu7QiAs+SvNwraYDs/Zlyqn318RGLOn05Q1T oO7j9+q0W+LhnitLuWbm0FhOH6MhCoRkRgsr25nw/aoqwS3fGBLoC/bqcBb8 YTUkqW6mAlJ0lL0zbwmHQr8S7BqgQ+YD72CzKmtYTc6X84RmkCxPaBG6sPWa A4PiHr1/iqOXCZLEE1J+KVcvC2we7k2SOPD0WkFJytWvDwwjvdYQlHdcIGux hTrGrXBRIhv4EbkhdZfs4EQLVeH7hgND07Q7pSH28EOvxVEnBRfU0VOHmQhD 9a/dOQ6HeDBm9N261B5DGy1A4yzhgVYe18R2xDDr/3ukqx8P2AsLXDsBhoND wx5HwnkQc355zcUTQ9f05GJUGg82cnQN/mEYtDt1EVWNPHD8ls0puI7B75ir GxMh8PAZ6WOUYkgpaqlhOyLwm6vOLy7DcPOZh5mdAMHnAtuVchmG8XCYd/FE 0Nrs2CdXYEg/63/bPwxBUIdrnqoTQ92104yC6whi41a8fHswdPfNZxSXIUg3 +fF1jxrDEuvcTLkMgSxA9Fn/IAaRLLVNrkAwOwRe4xMY+hqy01WdCDbSKa9j Z7b3aoyme9QIdu1R1c/NY+AIrwb3DyI4GOVjrdFgiHlctH98AoHEkKZOXcFQ SGFWz80j+Li2O3d9HcO9D6U0jQZBvOSa58VNDAOFNhfW1xFcmvFf1ukwbKir Jrd/Av4DejLpjw== "]]}, Annotation[#, "Charting`Private`Tag$8232#1"]& ], TagBox[{ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtzn8w23ccx3HiZ4iSREi+XwQf05VL46qL8+PkXZpxLWp+dYfTTVld69e0 Z7ToDPWjSs2wIlu1ltZlytlqq9PlM7LqaDMrYqpbS/yMzoQw1VnWXb3unvf4 9+WUmBGRTNHT04NX/e/r2eHXuuAg8d2w4OcEblUk7HbJRlgykKs8HcfBIyq/ pTvtzjih+DPWLzdtMT9gsOLEqBMueM/gljnTBgs79cdLqE5Yj8eVBZZY44/r q5+2BDjixxevlErHGDs6YDuzlDZtAH1He3zqLTejSTtL3E3UfZJWReLjXn/c 7O83x11kxujUFAe75fjo0ltNMctPfN4rgo1bfo+U5x4wwsPLe6Z7r9rg+UKW XxCbgrXY7AtEY+GeujdFCzHbsvQ3DtF7opnYY3FCyxdvyELOCrYP36Djgz2T 1O2YFVnNcnaAjGWFM9s6NulMlSxe7V4gl9NwzAeo5VHez7JkAcPtYQMVDzyY qPCMvC/cfzxi4MFZY+zD+7ErvEEl7Pr2yIg7YYAp2awnSZwV4b/latQ0p5OZ 0MILE5c3hC/WOgrE9BeyomfKwKzr28J87p7eS/Grss6mC+EFq/oANbN3jQUL soxrSVYzMUZQ9vxx3tPgMVnCyUb70kJTwIdDv1F5dArL38n29mw2h+DKrqEr U0+EhtZ1c+e3doFVeFSjbnFJOD5UslJsSYd4vm0f018rjD6XKGjsZ0DUn+UT KbteClPNl5wVsdbwm41S1HxbD7jSe/XGahb4x1ziWYwawLnvAyMtm2xhI7NU 4iAwgUxJareAz4FnIROpaQlmQKN4Je6dJYBtmC6PH7QAUVpUnVut3Y5WwL5j nyFycdiRAZ9mldV4jHN3ZELEhSM8cbcjtNK+jPVJY4FbXHF0a74TRHWbSoNf 2oByjnqtNtoZvn7IPLhbygZF4uwBBhdB80+DRS7+BEwZ3tisc0bQRw3TuIsI 0EpSOjiuCBZCf03wDCGAs7Rk58RDsE857h0QS0DS6dW/+b4I7s/N/HUsm4Ct Il176FEEWhNdXNMtAly/4hDl1QhCDnnuZ3BJ8A6aHKbVIsiq6m7huJIQsthc erkeweePvC2deCR8yHNcbxAjmI4FNd+XhN7brsMSKYKcU6FXQ4+SEHHP84J8 AEFr5QlaeTUJySnrfsFDCAaH1bmX60nIMftubUiBYMU6fb5BTII4zOf9kTEE PuIzfRIpCQtK8JtWIRhuL8yRD5CwlUNZS55/9VdjODekIMGClLctqhEQgrLI kTES9h0LstVoECT9ULV3WkWCSJ+qOLOOoILCaF5Uk/Du9cHizU0EnW/XUTUa Ek6KKn3z/kEwWsH+aHOThPz50FWdDsGWomlGpyPhPzaTzpI= "]]}, Annotation[#, "Charting`Private`Tag$8232#2"]& ], TagBox[{ RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB8QMO/CFib1JlAgAAAD4AAAACAAAAAAAAAAAAGMAAAAAAAAAkwF6ElBXP qBfAL0LKimfUI8B+YAOuCxMWwD+wAdeFCSPAAC0fv0OFFMCAlo/foUIiwNqL mYer1RLA7cXMw9VqIcAcCmip9EIRwA4FtFR6oSDAazUqBdscD8C2GpWCbY4f wGM33qjDwwvAshtv1OHhHcAqeDr/bqQIwBU8nX83UhzAod1TxHlBBcDQ7ini vKAawOeBFTxHGALA9MAKniMMGcC6lShF6Fb9v24lShG6VRfAMOnZ9C+d9r9M ejb9S6cVwES62wn9VvC/ke52Qr8VFMBwqa/4ERPjvy71FT9iYhLAVmYjodJ8 yb8zGwmV5ssQwMfM2YozU8g/NGNSx8x6DsA6LcGyUJfjP7K0T9MrGgvAAnYV 3GQZ8D//RPWRTfMHwAcMUIFi7vY//PlXv86IBMCD4NZDcqP9P76PFN5GLgHA sJuGUH7yAUCgyPJeAxv8v2+iZBDkVgVAIrs23zdS9b9eapodh4EIQIhWlonj +e2/iVF2OTOcC0DcuSYaM4/hvwQUleZ/+g5AwL+ulgFYwL/Xy4XwhA8RQHC9 XAhP+NA/VXtiNprDEkCo2hOz0RzmP2wL6yLOWhRAsC2sizhr8T8fq8aWBuoV QHysGlsaqPc/e7hDUw+bF0Ds4Q5NPWz+P3CmbLY2LxlA4EzZbG1eAkAMAjdi LuUaQBgEbsRcygVARW1UlSqTHECK2qgqVSYJQBi5HW9FJB5AMHI73opIDECS coiRMNcfQCTlECNhrg9AUoZPLZ22IECkDJ9aOm0RQCpbhFWkfSFAVLYIq0j7 EkDW5gmik1UiQKzNE0QnqxRAzmLlQRIfI0CcxcqDJD4WQOEEp/iVIiNAwglO 8StFFkD0pmivGSYjQOhN0V4zTBZAGevrHCEtI0Ay1tc5QloWQGRz8vcvOyNA yObk7192FkD6g/+tTVcjQPQH/1ubrhZAJqUZGomPI0BMSjM0Eh8XQDlH29AM kyNAco62oRkmF0BM6ZyHkJYjQJjSOQ8hLRdAcS0g9ZedI0DiWkDqLzsXQLy1 JtCmqyNAeGtNoE1XF0BSxjOGxMcjQKSMZwyJjxdAZWj1PEjLI0DK0Op5kJYX QHgKt/PLziNA8BRu55edF0CdTjph09UjQDqddMKmqxdA6NZAPOLjI0DQrYF4 xMcXQPp4AvNl5yNA9PEE5svOF0ANG8Sp6eojQBo2iFPT1RdAMl9HF/HxI0Bk vo4u4uMXQEUBCc509SNAigISnOnqF0BYo8qE+PgjQLBGlQnx8RdAakWMO3z8 I0DUihh3+PgXQH3nTfL//yNA+s6b5P//F0CDXr4/ "]]}, Annotation[#, "Charting`Private`Tag$8232#3"]& ], TagBox[{ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtxQss1AEcwPG743TdWefOnet0/I9/GUpEuGvV/1cy18vj6Np6rYnWJGdX o6aURVc0K3nEqZWsqethrUVU/18d6YHUiqSHJSdpUYoYrsf+3+27j0e8XpvI YbFYC//+zwN9a3/YbCSOt5o+2WwEWjNcfnVNkNg8Ou9LzRiBkU4fRmvGSCxX 3hvUDxOoVKdO6odJBEP3+AcrgQ9yC3jdVhKzpXNE2EIgb36HO7aQ6LTp2pJD JgIL92xdfchEonc/FrNCCTSzd1eyQknU2Vk17BR35CZGBMo3eyL/SX5CYJ0C nV83Jlec9ECv6rzOFeQs1FrKtvk8UWLlkeAmbaEcMwaXJJ/oIRhlWJtelnQ9 yp3RBSML1imnShWMEow4czdS89WVUYwXm/a1794oZxThluxC6bMqGd7h+cw9 GyPEzK121wTOLjiBDptkXo7I8iPosBwJsjYszTTyp+ObvFKj+ZUYb8qChOvN XFTwd1z6uVyEKkmbtj+HgzuDfbldCiG2J8Xxb6mn6G2h76ssFgE+TLkTYzSO 0r57F9lSKnkYN7Rn6p3mO33+XWzDvmVczE6LEvVxe+m+LOniiJkcVAmvdKsf tNF1Rd7hn3WTdIC2vv2uppEK6O/86X9mhD7nt8blXONHakVd1/RJ3RC9N0/z lasdpFIvXf8tcu6hNXOr7NLTRijddvL8i/2P6eBTXebEtgmqqbkzNyj2EdVc flUVlMOGRX73b0SX9FCRq6vnvey1B06a9G2CfIhi1/NTbjjyYJpjdFb8txHK 3qEKFqQL4HB3e5jhwiS1PHXA4/bzGVBtOhKd+YMNr9eGeVNjTqCvSHD6pOOC KiaQZzCLYUtSmZsxiwf+wS35FpDAsZg0dVC5ABq868vlrVKwlxRZD47PAE7u qmHqgAw6nuYMZQtFjHJYlxEfUmYRM7pCsmDAs3WDhFEBhPlhscMXKaMbZNSG xQpNMkYCUi8m3wrxl4MqNmSjqUQJjpzQ+Pm9ruCQNWtBicEDwnfFFfmeUkBF yOVVRSs9YeZtN334bHc4/ja/xlNMQoHh6MmADgJWqhs0pwdIYP1PyTgb/gDR rHbp "]]}, Annotation[#, "Charting`Private`Tag$8232#4"]& ], TagBox[{ RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtxQtQywEcwPH/Nptp0da21vrXWv3p5pFUV0se/x8hJ9JDu0McK3TZqSvP G2mndHISF9HKibh2UZ1z1RX+PxZ5VJyTSlF3sXlLLxWZx+17972PlzYlZhub IAj/v//zkHXNgM1G4Xir8a3NRqJF7zLc9YvC5h9zPtaOkRgp7PlRO0ZhsfLO t5RBEpXzUydSBimEtN7xHguJ93JP83stFGZJZ4iwhUT+3HYFtlAojK9clGkk sWD3lohMI4WqD3iWUJNYwUovI9QUajiWlaxdbsjdFh4g3+SNDo/zEgPqXVHc cV936ZQX+lQf71xGyTDGXJQw87ESy44GNcUUSFH/bZEuv8/Trhjr9hUlV61V 2HXGyNNxyt/n3e0KMbzkduTKz26YF6ovye+YilebDrxM3yjH1ScHr1lrHHBz VoH0abkMb/Fnzr4QPRkztnAqBWIX/IW8eJnPJCR8PZmwbAkSGxZn5Diw8NXx 8zkVbc6Y5LddUan5ybg7JJmGloowVXXxynPBMLMzaBa3y90Jr7WVS3Tpn5kE 9Ztys1mArg3fV3go3jCz9ofadpXxEbhrrT0nbjKlr2MbDyzh4qjz1tf+Q220 1SBdGO7KxsRRk1PfBStdf0a1/L1mglmR3F4vMw3Q8z50DvmVjDDPXHwEz7Rj 9LL6rikTmn7m1vLpI2yTjU41VY2KxH1MmfSFYcECDmi2U6XPDz5ijI++tAUk 8aCpuTM3MPYh3Vx8PSQwewqE+t69EVXYR0dGVM958c4R2Hul3YnyfjpzE1e9 nieEyY5RBu3XEZrNWXfxXIMIjvS+DEu7PEF71Q3ndyeJodp4NCpjgAUda8JU 9JgEUi4lCt9quBASHcBPq3CBzclFHjkGPvgFteSZwRWORe+dH1gsgEZVQ7G8 VQ6TJGcsh8enATt31SB9iIT2J9n9WU4iux4Qp9cGF5md7SpAJ/jk3bpBAjXZ e0Q7fJXgWfHgLO+jFPLjEiI4w0rQ14XFOhllsLi71JTT4gWpV3U1wX5yCIkN 3mgs9AZHtlo7950b8Aykf2EaBSziX+7wH2I6/AEo4GZH "]]}, Annotation[#, "Charting`Private`Tag$8232#5"]& ], TagBox[{ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwBAQP+/CFib1JlAgAAAC8AAAACAAAAfedN8v//I8D6zpvk//8XwOZ7FvXb /CPAzPcs6rf5F8BOEN/3t/kjwJwgvu9v8xfAIDlw/W/zI8BAcuD63+YXwMKK kgjg5iPAhBUlEcDNF8AILtcewM0jwBBcrj2AmxfAlHRgS4CbI8Ao6cCWADcX wKsBc6QANyPAVgPmSAFuFsAFZUcyGV0iwArKjmQyuhTAE9jFbKKRIcAmsIvZ RCMTwFLDmmMpyiDApIY1x1KUEcB77z1skOMfwPbee9ggxw/AuHeaaq9PHsBw 7zTVXp8MwE6SVSD+mRzAnCSrQPwzCcBHnb1OSOwawI46e52Q2AXApsd51nNb GcBMj/Os57YCwF6ElBXPqBfAeBFSVjyj/r9+YAOuCxMWwPiBDbguTPi/AC0f v0OFFMAAtHz8DhXyv9qLmYer1RLA0F7MPFyt5r8cCmip9EIRwMChgJZKL9S/ azUqBdscD8CgUrlan2S8P2M33qjDwwvAdCKHXPHw4D8qeDr/bqQIwFgfFgNE bu0/od1TxHlBBcC+RFh3DH31P+eBFTxHGALAMvzUh3HP+z+6lShF6Fb9vyO1 a92LVAFAMOnZ9C+d9r9oC5MFaLEEQES62wn9VvC/3iISe4HUB0Bwqa/4ERPj v6QV1IE7OwtAVmYjodJ8yb+bye3VMmgOQMfM2YozU8g/Zs5WnJnCEEA6LcGy UJfjP6clWBbqchJAAnYV3GQZ8D+AXQU3WQYUQAcMUIFi7vY/AgNUoJi7FUCD 4NZDcqP9PyG49ZDcaBdAsJuGUH7yAUDYTUMoP/kYQG+iZBDkVgVAOFEyCHKr GkBeapodh4EIQC81zY7DQBxAiVF2OTOcC0DEKLucGc4dQAQUleZ/+g5AAopK 8z99H0DXy4XwhA8RQOzlQnjChyBAVXtiNprDEkCqPTEbzWEhQGwL6yLOWhRA toV1EWctIkAfq8aWBuoVQJBVY0sD9SJAe7hDUw+bF0A+3KGph80jQP////// /xdAAAAAAAAAJEADg2Ht "]]}, Annotation[#, "Charting`Private`Tag$8232#6"]& ]}, {}, {}}, Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImagePadding -> All, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-9.999999591836735, 9.999999591836735}, {-10, 10}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}]], "Output", CellChangeTimes -> {3.727980123992197*^9}]}, Open]]}, WindowTitle -> "hint", WindowSize -> {800, 600}, Magnification -> 1.25, StyleDefinitions -> "Creative/PastelColor.nb"], Evaluator->Automatic, FrameMargins->4, Method->"Queued"]], "NonPrintButton",ExpressionUUID->"6f990c7f-cad4-4555-\ bc6b-04aee64c6f5e"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.72798001235844*^9, 3.7279800132259703`*^9}},ExpressionUUID->"05c29065-2753-44a4-ad59-\ b91b2e5c2889"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"c9128043-bccb-4981-a623-\ 6ced4eb0f055"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"ef941a7e-d84b-47e8-bfe7-9d042fe01d64"], Cell[CellGroupData[{ Cell["\<\ b) -2x+3y=10 and -3x-2y+8=0\ \>", "Subtitle", CellChangeTimes->{{3.7279797861096478`*^9, 3.7279798492104607`*^9}},ExpressionUUID->"7074e5db-7e6c-43c0-b5a4-\ 0ba3d0fbd276"], Cell[BoxData[ ButtonBox["hint", ButtonFunction:>CreateDocument[{ Cell[ "When plotting an equation with x and y\[CloseCurlyQuote]s in it, you \ can rearrange the equations in terms of y (use Reduce[eq,y] )or Contour Plot \ is very useful.", "Subtitle", CellChangeTimes -> {{3.727979877137019*^9, 3.727979899306055*^9}, { 3.7279801517650223`*^9, 3.7279801771152983`*^9}}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "+", "y"}], "==", "2"}], ",", RowBox[{ RowBox[{"x", "-", "y"}], "==", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes -> {{3.7279801806347857`*^9, 3.727980246665907*^9}}], Cell[ BoxData[ GraphicsBox[ GraphicsComplexBox[CompressedData[" 1:eJxdV0trnVUUvTeJSdO08d6b+87NfUZbcGLnyrcnVWsVVHAuQkGosSrO/AGO xL7BkT+go5ZSqyBn0/4AoSBUr60ooogDi7a+StS611rf4ISEnXz3nHXW2Y+1 vkxePfHSsYVKpXLjwc//EV/bhjj2j3fmV3bmM4twZeRvRJxZhJ2Rn94+8uB7 ZhFODz3C9szwfOiPxIOpPRsPtvzr2Dc14A64f8r9A+JPDOs2HfsmdjYW9B28 JuTX91g2H5Nfz8/EurHh3K7fBk9D7BBvRD4d7h8aYpvnbxliyw+AlyE2iT8w xKb/G1+bhrjhVwOnb4gNfxO8DLHO+/d4v7o/Ezx6hljn/bq8X80/AS97O/bv Zz7b5L/fTwWPtk3j+T7er0V+ex01bdpSxD283wbPX/GvIm7Y5ThnmfVoMH9L fhS87Hw8X2A/1Jifqs9iXc2einVVfr7Oz3fTQfCyF+LzvxLutc+qEf9MN+P8 NbsY+35P6J9V8v81fQpe9mOs+zmB37Jh3U/peJzzkF2IdT8k3GuR/TlPz4GX eey7ltBnFTsZv1xKf6NwBXjdfAL77hc4/0bxGXgV78Xf3xW4170C+fm+GEW8 W1zH+cS5U0Y91zrtE45wdY7OFQ/xEk/x1j10L91T91YelBflSXlTHpVX5Vl5 Vx1UF9VJdVMdVVfVWXVXH6gv1CfqG/WR+kp9pr5TH6ov1afqW/Wx+lp9rr7X HGguNCeaG82R5kpzprnTHGouNaeaW82x5lpzrrmXDkgXpBPSDemIdEU6I92R DkmXpFPSLemYdE06J92TDkoXpZPSTemodFU6K92VDkuXpdPSbem4dF06L92X D8gX5BPyDfmIfEU+I9/JfYh/e7beMzzPzvOMD+u4xXVT5mVAnKln92XfbfLc CZ/3iTdhXXvKp2f5Jl6X+8Y8p1PyPsJ6Io48qzfxWozi3Sx5nmI/IQ486zfi NBj7xKmXPOfsZ8SeZ/3u/wTOw8Tr+OucF/F8mvOE+W57Nm9+kvMIvBbxVkqe X3KewWfDs3kn3hLxGsRbKHkep56AT80zvfHXqEfAXffD1CvxvB88/ki7Edc8 0zt/n3oI3FX/nHopnk9STz+Annqmt36degy8RX+Fei2ej1PPwafimd6nC/SD L+AH6SP6hXgeop/gnvdS5jdpmT50N+B+SY/Rh8TzHfpQDzgp87v0LX3oXfBI iyBo4nmQPnQH9ygyvy1u04d+Qx6Kt+hD4nmOPvQy8lhkfk+8VfsQdSDemonn In1oBb5UyIdeRJ2Jt264527xKH1IPK/Sh8Cratn7DvWxYcBdslv0IfE8QR/6 Bn1s2fsW8VrE20u8tonnAfrQ85gjy973iNdlrBGvV/K8RR9CrFv2vkm8PmOD OIOS5zn6EGLTsvdd4mwxtogzLHkepQ8hdix73zb5EPLeZb7HJc8qfQh8+pa9 7zO/E+Jt8vm05CkfAp+BZf9vMM7IY2jyIfoE8Wclb/kQno8s8yH7D3any38= "], {{}, {}, TagBox[ TooltipBox[{ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], StyleBox[ LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105}], FontFamily -> "Arial"]}, RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ TagBox["x", HoldForm], "+", TagBox["y", HoldForm]}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{ TagBox["x", HoldForm], "-", TagBox["y", HoldForm]}], "\[Equal]", "2"}]}], "}"}]], Annotation[#, { HoldForm[$CellContext`x] + HoldForm[$CellContext`y] == 2, HoldForm[$CellContext`x] - HoldForm[$CellContext`y] == 2}, "Tooltip"]& ], TagBox[ TooltipBox[{ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], StyleBox[ LineBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210}], FontFamily -> "Arial"]}, RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ TagBox["x", HoldForm], "+", TagBox["y", HoldForm]}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{ TagBox["x", HoldForm], "-", TagBox["y", HoldForm]}], "\[Equal]", "2"}]}], "}"}]], Annotation[#, { HoldForm[$CellContext`x] + HoldForm[$CellContext`y] == 2, HoldForm[$CellContext`x] - HoldForm[$CellContext`y] == 2}, "Tooltip"]& ]}], AspectRatio -> 1, Axes -> True, AxesLabel -> {None, None}, AxesOrigin -> {0., 0.}, BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> True, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "GridLinesInFront" -> True}, PlotRange -> {{-10, 10}, {-10, 10}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}]], "Output", CellChangeTimes -> {{3.7279802319426126`*^9, 3.727980247537572*^9}}]}, Open]]}, WindowTitle -> "hint", WindowSize -> {800, 600}, Magnification -> 1.25, StyleDefinitions -> "Creative/PastelColor.nb"], Evaluator->Automatic, FrameMargins->4, Method->"Queued"]], "NonPrintButton",ExpressionUUID->"cc032797-f742-4000-\ b96d-146d97b12203"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727989953699844*^9, 3.7279899550770187`*^9}},ExpressionUUID->"28833d69-1fdd-4a92-a311-\ c822ffb45c45"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"5d49994c-3ad1-4ea2-bb84-\ e5ab9a0ca049"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"3fafb114-0a98-4f45-9b8d-968a5ed2ecbf"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"57f1576b-0716-4a6a-ac82-b2ec945bbc5e"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"7a3ff20e-bdc1-4e2c-b742-729267586794"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"4f56e4ce-bd11-4a9b-8ec7-f5fd12a63861"], Cell["\<\ Question 5 Find the midpoint of the line segment joining A(2, 6) and B(-3, -4).\ \>", "Subtitle", CellChangeTimes->{{3.727980289938694*^9, 3.727980334937901*^9}, 3.727990152378162*^9},ExpressionUUID->"f9e5afa3-803e-4606-b842-\ f1fc3163a687"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7279803368497868`*^9, 3.7279803372376947`*^9}},ExpressionUUID->"bd61228d-5059-41c2-8fc2-\ e65e0f93d5fd"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"c39b92e3-2850-4b7e-88c6-\ 3562de83ce5e"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"81b680a2-f444-452f-94f8-417946c6c753"], Cell[CellGroupData[{ Cell["\<\ Question 6 Calculate the distance EF if E is (-3, 2) and F is (4, -2) to two decimal \ places.\ \>", "Subtitle", CellChangeTimes->{{3.7279803522173*^9, 3.727980389583288*^9}},ExpressionUUID->"97ad0854-44c4-4854-8afb-\ eb3479f7f609"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"40dfe8de-bfe9-43a4-abf9-\ 5ae7693bdb7d"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"7b2481af-e959-440f-86e2-\ 9ce4fdeb88cb"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"1001c758-26be-4c92-8a7d-5f2c86947f6e"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 7 State the gradient and y-axis intercept of the line 3x+6y=9.\ \>", "Subtitle", CellChangeTimes->{{3.7279804382402143`*^9, 3.7279804739226294`*^9}, { 3.727990140866837*^9, 3.727990141347822*^9}},ExpressionUUID->"add6824b-03b4-4f82-8938-\ 53c58fc8deb4"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"d917fb17-076f-48c7-9c08-\ f89befa4167d"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"f79aa0b8-aae6-4317-b094-\ 4a0bd920ab39"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"e3967243-d547-4182-879b-715255a6a41e"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 8 State the x and y intercepts, in coordinate form, for 6x-5y+7=0\ \>", "Subtitle", CellChangeTimes->{{3.7279805020104322`*^9, 3.727980536326295*^9}, { 3.72808592491671*^9, 3.728085925386547*^9}},ExpressionUUID->"0892b5de-e1f8-4a25-ac78-\ 0e04bfdb5566"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"ad8493e7-ceed-4b6f-98ed-\ 60cc00021ef0"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"46c92c0e-7eca-4c95-8a5a-\ 27c4dc13ecfa"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"d4a70636-f8e6-494b-8016-741fb4e8e7f0"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"461221b6-c3f8-4395-878a-ff75fc6722fa"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"9b9c2fd6-d420-4350-acb8-4e7488c6f8b6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"e2f55745-ea4d-468f-b14e-9390d179735f"], Cell["\<\ Question 9 Points A and B have coordinates (1, 5) and (-3, 7) respectively. Find the \ coordinates of the midpoint M of the line segment AB and find the equation of \ the line which passes through the point M and is perpendicular to the line AB.\ \>", "Subtitle", CellChangeTimes->{{3.727980593139258*^9, 3.727980639618922*^9}},ExpressionUUID->"32aab9ad-94c7-442b-a9a4-\ 2b2e0f3a3c76"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"75e2bb8b-1694-4a8b-ae61-\ e2f5c7d10ff8"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"5c19f3a8-802b-4351-af68-\ 74dd48e8aeba"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"378558f3-c2e5-4bbb-ab8b-fde548b02750"], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"3604fe6f-aabd-48b3-8155-9f236e15f47d"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"ed8462ed-c1e8-4dfe-a14b-bc0f51a0a6be"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"1933d13e-b86f-40e7-bb47-6de7b022cb34"], Cell["\<\ Question 10 A family of lines have equations of the form y=mx+4, where m is a negative \ number. a) Find the x-axis intercept of a line in this family in terms of m.\ \>", "Subtitle", CellChangeTimes->{{3.727980660324881*^9, 3.727980726284151*^9}},ExpressionUUID->"fe6e9d7e-021f-48c1-83bf-\ 034cd945d327"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"feff3569-cf23-46e6-b85c-\ 99c110f18e5e"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"286c1e5d-4a35-4ce9-b58c-\ 212430ed0b60"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"0f29d37c-61ce-4f99-8cf9-37918f393a46"], Cell[CellGroupData[{ Cell["\<\ b) For which values of m is the x-axis intercept greater than 5?\ \>", "Subtitle", CellChangeTimes->{{3.727980735351878*^9, 3.7279807779011908`*^9}},ExpressionUUID->"edd34c12-456a-4367-958a-\ 4d1d63ec8b1a"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"c04b76aa-87c5-4277-9916-\ 6a088f7af16d"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"a4438123-836e-47d9-a3b6-\ fac9c20f9446"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"cc462f9b-5577-4ae0-bce9-d82c56978b8d"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ c) Find the equation of the line perpendicular to the line y=mx+4 at the \ point (0, 4).\ \>", "Subtitle", CellChangeTimes->{{3.727980784885858*^9, 3.727980812331998*^9}},ExpressionUUID->"0603ec57-fada-430c-a70f-\ 9183e2b61551"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"4a35f4e0-a06b-45e1-a182-\ f329e8c553ba"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"7b63201f-9301-4dac-96a8-\ 77783c53e592"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"2ef359ef-e5f9-4d80-96d3-2a86eee2a96f"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"cf135f5d-4276-4c6a-bf38-1ccba3d15f9d"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"7684e356-1b90-487e-ad80-14e5436061d5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"77673e0d-47e0-494d-bd43-daf318106efb"], Cell["\<\ Question 11 A trades person needs to hire a scaffold to work on a doubled-storey house. \ She finds three companies in the nearby neighbourhood that is offer a hiring \ service. The first company charges a flat rate of $200; the second requires \ a non-refundable upfront payment of $100 and charges $15 per day for the \ hire; and the third company also requires $75 upfront and charges $20 per day. a) Form the rules for the cost Company1, Company2 and Company3 of each \ company for the hire of the scaffold for t days.\ \>", "Subtitle", CellChangeTimes->{{3.727980994104892*^9, 3.7279812082162533`*^9}},ExpressionUUID->"42081632-0257-4b9a-a6ad-\ 3a422dc25099"], Cell[BoxData[ ButtonBox["hint", ButtonFunction:>CreateDocument[{ Cell[ "When using many equations defining the equation is very useful. You \ can call your function whatever you like. f[x_]:= or g[x_]:= or a word or \ other variables f[t_]:=. \n\nDon\[CloseCurlyQuote]t forget to clear all your \ variable as well.\n\nDon\[CloseCurlyQuote]t forget to look at your domain and \ range. WHAT MAKES SENSE FOR THE WORDED QUESTION.", "Subtitle", CellChangeTimes -> {{3.727981352860016*^9, 3.727981498152935*^9}, { 3.727981634092105*^9, 3.727981653114135*^9}}], Cell[ BoxData[{ RowBox[{"ClearAll", "[", "\"Global`*\"", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes -> {{3.72798142870947*^9, 3.727981471176222*^9}, 3.727981528487329*^9}], Cell[ BoxData[ RowBox[{ RowBox[{"Minigolf", "[", "t_", "]"}], ":=", RowBox[{ SuperscriptBox["t", "2"], "-", RowBox[{"5", "t"}], "+", "1"}]}]], "Input", CellChangeTimes -> {{3.727981534312161*^9, 3.727981550543841*^9}}], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Minigolf", "[", "10", "]"}]], "Input", CellChangeTimes -> {{3.7279815524951*^9, 3.7279815645026627`*^9}}], Cell[ BoxData["51"], "Output", CellChangeTimes -> {{3.7279815606901407`*^9, 3.727981565278204*^9}}]}, Open]], Cell[ CellGroupData[{ Cell[ BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Minigolf", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "40"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes -> {{3.7279815693605022`*^9, 3.727981627576091*^9}}], Cell[ BoxData[ GraphicsBox[{{{}, {}, TagBox[{ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAANwsYjO/lEMAAAAAAAABEQGs1KgXb HA/AtahmCQXJQUBjN96ow8MLwEKWqS7eZT5AKng6/26kCMA08owYv+M5QKHd U8R5QQXACOvJ/yZYNUDngRU8RxgCwOzjFc3dbDFAupUoRehW/b/OKlJs7Q8r QDDp2fQvnfa/G7jpfAchJEBEutsJ/Vbwv252Mw2xmBxAcKmv+BET478YCgRS wVcRQFZmI6HSfMm/HFphkjVIAECKcXOIkrXIv4ri51IPBQBAvXzDb1Lux7/i DDixH4T/PySTYz7SX8a/XkEaZwp5/j/yv6Pb0ULDv8o9JU+CZvw/HjNILKIR ur96hFUQ/E/4P/CYmWTxmXK/NEkfVxdd8D/HzNmKM1PIPzABe2XP/rU/aHja x1sryT+wTOSKzmisPwgk2wSEA8o/ILZNE82+mT8W8uvXYbfKPwAAAAAAAAAA YcSaQQ== "]], LineBox[{{4.791269839664745, 0.}, {4.8898474671158, 0.4613709160798045}, {5.088676972957597, 1.4512484703209054`}, {5.478540759921798, 3.6217050585155235`}, {5.901425648697223, 6.319696443615321}, {6.296107149487952, 9.160429490393547}, { 6.7238097520899025`, 12.590568821849757`}, {7.143717129972463, 16.314108783199686`}, {7.535421119870328, 20.105465854436147`}, {7.960146211579415, 24.563196651825045`}, {8.356667915303806, 29.050559070149035`}, {8.745394394308807, 33.754951140463874`}, {9.16714197512503, 39.20078211647409}, { 9.225360789870951, 40.}}]}, Annotation[#, "Charting`Private`Tag$11972#1"]& ]}, {}, {}}, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction -> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImagePadding -> All, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-9.999999591836735, 9.999999591836735}, {0, 40}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}]], "Output", CellChangeTimes -> {{3.7279815865708838`*^9, 3.7279816292412252`*^9}}]}, Open]]}, WindowTitle -> "hint", WindowSize -> {800, 600}, Magnification -> 1.25, StyleDefinitions -> "Creative/PastelColor.nb"], Evaluator->Automatic, FrameMargins->4, Method->"Queued"]], "NonPrintButton",ExpressionUUID->"99e7c48c-ac5f-4a57-\ b85a-c4092f673f40"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"42d7c5cc-84b0-42bf-9527-\ 6784813946f2"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"7cd496eb-81fd-4d64-8b7e-\ c6f4070cf3ab"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"92cc4cd5-3184-447b-9e4b-91803d9df65f"], Cell[CellGroupData[{ Cell["\<\ b) Which company is cheapest and which is the most expensive for an 8-day \ hire of the scaffold?\ \>", "Subtitle", CellChangeTimes->{{3.727981215887362*^9, 3.7279812324508266`*^9}},ExpressionUUID->"d2bcf2b2-c4ff-4bfe-adb8-\ 736581d46c97"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"23122932-7528-4f5d-8699-\ 4f0679a98018"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"75c5d4fb-935b-4d3e-ae80-\ 04c90cb49934"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"36b23634-e397-4653-ae04-29acbea2d58d"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ c) On the same axes sketch the three costs against t for an 8-day period.\ \>", "Subtitle", CellChangeTimes->{{3.727981238120788*^9, 3.727981274587515*^9}},ExpressionUUID->"94de5f14-745a-4b2f-93b5-\ 85cc6b3e5833"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"ad615b24-c697-4890-ade1-\ d27d37b50157"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"9be40131-240d-4880-ace5-\ 843bf301de3e"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"b05df4b3-b7fb-4291-a60f-b9e739474c13"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ d) For what values of t do two companies charge the same amount?\ \>", "Subtitle", CellChangeTimes->{{3.727981280899692*^9, 3.72798129444515*^9}},ExpressionUUID->"b4652ebf-3765-4092-ba57-\ 8d6c1cd058a5"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"a160652b-a040-414e-a491-\ eb1bf52b7f71"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"2c28d6ba-e5cf-446d-9770-\ 88f46c86c5dd"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"7d292719-51c2-49e5-8766-e9c8afac6b9a"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ e) The carpenter estimates she will require the scaffold for 6 days. From \ which company should she hire the scaffold in order to minimise the cost?\ \>", "Subtitle", CellChangeTimes->{{3.727981300929823*^9, 3.727981331872818*^9}},ExpressionUUID->"e34661ed-4dc5-4809-9d5a-\ 2a8dac4e85f6"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"24764475-054e-4eba-8ac2-\ 6be010d11255"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"41c9c84d-f3c9-401d-9500-\ a64b462039ff"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"89b81462-d024-48e0-a334-c5cec667f88c"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"8411a368-d149-4d74-8193-92a7c8ef0113"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"1456f0a0-8d60-4fe1-9b1e-a4dbf0e517d2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags-> "SlideShowHeader",ExpressionUUID->"6c31a05b-88dd-4f90-8d45-ccea9a35e98d"], Cell["\<\ Question 12 Consider the pair of lines with equations 8x+py=64 and ax-12y=128. a) What is the relationship between a and p if the lines have the same \ gradients?\ \>", "Subtitle", CellChangeTimes->{{3.727981701461753*^9, 3.727981747271756*^9}},ExpressionUUID->"0d5c2da3-fb2a-4fb9-b44d-\ 3511b22c525f"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"0be03c76-d919-4ca6-8847-\ 702a4dcc85d1"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"51fad37c-0a56-41c6-a912-\ 1fb71ec8f2fd"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"355ddee8-89a6-4f4d-bf33-9faf3ab9c31e"], Cell[CellGroupData[{ Cell["\<\ b) For what value of p will the two lines have the same y-intercept?\ \>", "Subtitle", CellChangeTimes->{{3.727981765320031*^9, 3.7279817828987637`*^9}},ExpressionUUID->"63e85d6c-b944-4ae4-85a5-\ 81ee73e08144"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"2499ba00-f97f-43ec-9a5f-\ 50be0e1d90e3"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"346e427a-b134-4820-8cea-\ 14cae71afb92"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"35c498d5-75e6-415a-b136-9dfe84a89d61"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ c) Hence state the conditions on the values of a and p for which the lines \ 8x+py=64 and ax-12y=128 will have 0, 1 or many intersections, and justify \ your answers.\ \>", "Subtitle", CellChangeTimes->{{3.72798178911943*^9, 3.727981824754939*^9}},ExpressionUUID->"a0ad3154-026a-4001-9b97-\ 0af2c66691aa"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.727980392942667*^9, 3.727980393276269*^9}},ExpressionUUID->"c0d6908b-afdc-43cc-99c0-\ e802b447223b"], Cell["\<\ Answer\ \>", "Text", CellChangeTimes->{{3.7279713217338667`*^9, 3.7279713226476583`*^9}},ExpressionUUID->"8b5b08b7-34a4-46f1-b9d4-\ 4e4a45107fa5"], Cell["", "Text", CellFrame->{{0.5, 3}, {3, 0.5}}, Background->RGBColor[ 1., 1., 0.85],ExpressionUUID->"80712794-e27d-4939-9809-4bb9b2f0c68b"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subtitle",ExpressionUUID->"d9c1a8cc-cfae-498e-8430-00f17a1311dd"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"]], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", Appearance->{Automatic, None}, ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"]] }], "PreviousNext",ExpressionUUID->"bd82502b-76b7-47d3-aa48-09b93d266289"] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowSize->{808, 623}, WindowMargins->{{-9, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[580, 22, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"0ca68ffa-99b0-4f8c-a3c4-9a377a0adab2", CellTags->"SlideShowHeader"], Cell[20953, 691, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"b3076009-5ece-4616-903d-f5fb23538152", CellTags->"SlideShowHeader"], Cell[42826, 1162, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"4f56e4ce-bd11-4a9b-8ec7-f5fd12a63861", CellTags->"SlideShowHeader"], Cell[46984, 1314, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e2f55745-ea4d-468f-b14e-9390d179735f", CellTags->"SlideShowHeader"], Cell[48964, 1374, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1933d13e-b86f-40e7-bb47-6de7b022cb34", CellTags->"SlideShowHeader"], Cell[52339, 1494, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"77673e0d-47e0-494d-bd43-daf318106efb", CellTags->"SlideShowHeader"], Cell[63071, 1795, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"6c31a05b-88dd-4f90-8d45-ccea9a35e98d", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 66914, 1926} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"0ca68ffa-99b0-4f8c-a3c4-9a377a0adab2", CellTags->"SlideShowHeader"], Cell[705, 26, 468, 9, 419, "Title",ExpressionUUID->"918ece12-553c-4fe6-9a79-a897f057ed97"], Cell[1176, 37, 340, 10, 443, "Subtitle",ExpressionUUID->"e4d68c8f-602e-49d8-a4ee-c264c7e728d9"], Cell[CellGroupData[{ Cell[1541, 51, 270, 7, 91, "Input",ExpressionUUID->"74510b55-aa69-47ed-838d-46321ded7e50"], Cell[1814, 60, 133, 3, 56, "Output",ExpressionUUID->"b3a5c223-dce4-48a0-9de3-e6c04518a8af"] }, Open ]], Cell[1962, 66, 161, 6, 87, "Text",ExpressionUUID->"f70969a0-bc92-465b-98df-45d7545856c8"], Cell[2126, 74, 272, 5, 71, "Text",ExpressionUUID->"e0b9bce6-48de-4b19-9daa-b9125ec7eef4"], Cell[CellGroupData[{ Cell[2423, 83, 274, 7, 139, "Subtitle",ExpressionUUID->"138eeb6e-02c4-4cb0-adfd-ef63597a0bc2"], Cell[CellGroupData[{ Cell[2722, 94, 285, 8, 91, "Input",ExpressionUUID->"bb97a03d-4d45-4894-b24c-a5ce3f82075a"], Cell[3010, 104, 318, 8, 66, "Message",ExpressionUUID->"a4cb2bbd-34a7-42a3-a8f2-3372680f004f"], Cell[3331, 114, 146, 3, 56, "Output",ExpressionUUID->"2782a5c0-fa54-41fa-bca4-15863e2df5af"] }, Open ]], Cell[3492, 120, 161, 6, 87, "Text",ExpressionUUID->"4d33a4e6-acee-4901-b805-8ce809c207c9"], Cell[3656, 128, 276, 5, 71, "Text",ExpressionUUID->"84bcaefa-fbaa-458a-a4bc-bff0797d0825"] }, Open ]], Cell[CellGroupData[{ Cell[3969, 138, 231, 7, 139, "Subtitle",ExpressionUUID->"1ebca780-4769-4745-93cb-e96560154c56"], Cell[CellGroupData[{ Cell[4225, 149, 290, 8, 91, "Input",ExpressionUUID->"1c46a65a-28b7-4ce4-b1be-e0660acc1560"], Cell[4518, 159, 130, 3, 56, "Output",ExpressionUUID->"48a2cac4-a602-44c8-af6c-c897111e6604"] }, Open ]], Cell[4663, 165, 161, 6, 87, "Text",ExpressionUUID->"71951684-f6a2-45d7-ad0f-81af43c0cb73"], Cell[4827, 173, 269, 5, 71, "Text",ExpressionUUID->"aac88e76-3ed4-4973-983f-beb6c1cc6818"] }, Open ]], Cell[CellGroupData[{ Cell[5133, 183, 398, 10, 443, "Subtitle",ExpressionUUID->"c0805919-2ad8-4394-9220-e9135c13f48e"], Cell[5534, 195, 1451, 38, 33, "NonPrintButton",ExpressionUUID->"cc0806af-cfba-40df-aba8-1588554af19c"], Cell[CellGroupData[{ Cell[7010, 237, 328, 7, 56, "Input",ExpressionUUID->"cbbe0656-5a2e-413f-99da-4882bb82bb15"], Cell[7341, 246, 156, 3, 56, "Output",ExpressionUUID->"4b26962e-d648-425d-aca3-c345f8a20ad5"] }, Open ]], Cell[7512, 252, 161, 6, 87, "Text",ExpressionUUID->"4a3b32a4-4e33-4b57-90c3-ab5b336f997b"], Cell[7676, 260, 245, 5, 71, "Text",ExpressionUUID->"46992a8b-b38b-46ce-b555-84df728b87fc"] }, Open ]], Cell[CellGroupData[{ Cell[7958, 270, 228, 6, 215, "Subtitle",ExpressionUUID->"173ce4a1-abc8-4554-924b-dd8a09c72ad7"], Cell[8189, 278, 2055, 54, 33, "NonPrintButton",ExpressionUUID->"8fbffdc6-1a54-4f30-87db-82905ae0b963"], Cell[CellGroupData[{ Cell[10269, 336, 281, 7, 56, "Input",ExpressionUUID->"7f30bf41-375e-423d-859e-1ca283219e6d"], Cell[10553, 345, 150, 3, 56, "Output",ExpressionUUID->"5b03e7ef-e928-466d-9a31-1d50067ec377"] }, Open ]], Cell[10718, 351, 161, 6, 87, "Text",ExpressionUUID->"09473dd4-fd2b-4ce5-84f0-27cecc381be6"], Cell[10882, 359, 274, 5, 71, "Text",ExpressionUUID->"723559fa-cd93-4b22-b93e-a2d1e1b3b9c2"] }, Open ]], Cell[CellGroupData[{ Cell[11193, 369, 277, 7, 215, "Subtitle",ExpressionUUID->"883eb5bb-041c-41b3-8e8c-6a828e886c13"], Cell[CellGroupData[{ Cell[11495, 380, 282, 7, 56, "Input",ExpressionUUID->"011354bf-86bb-4461-8cf1-84e61d46d54c"], Cell[11780, 389, 167, 4, 56, "Output",ExpressionUUID->"88360778-43dc-4717-97fc-3554fea50c9a"] }, Open ]], Cell[11962, 396, 161, 6, 87, "Text",ExpressionUUID->"e297e134-5b4e-4792-b590-0cd38468fb0c"], Cell[12126, 404, 222, 4, 71, "Text",ExpressionUUID->"84318b03-6536-4b42-a6fb-fc8c1f8ea686"] }, Open ]], Cell[CellGroupData[{ Cell[12385, 413, 420, 10, 671, "Subtitle",ExpressionUUID->"0583e8d7-c7a8-4006-ad9e-064e9867f634"], Cell[12808, 425, 2171, 52, 33, "NonPrintButton",ExpressionUUID->"e56bd71b-1c57-4c1b-9ff1-83308302a5e6"], Cell[14982, 479, 270, 7, 91, "Input",ExpressionUUID->"dbafabce-9002-4e21-8290-76a9c67f5fee"], Cell[CellGroupData[{ Cell[15277, 490, 370, 8, 92, "Input",ExpressionUUID->"0796cd9c-b35b-42f2-a9b3-65aac2eaf2be"], Cell[15650, 500, 159, 3, 56, "Output",ExpressionUUID->"8bd3cfe2-4e03-42e1-b51a-8ed9b4a868bf"] }, Open ]], Cell[15824, 506, 214, 7, 87, "Text",ExpressionUUID->"5123bea4-2d03-41ae-b679-699fccf6585b"], Cell[16041, 515, 224, 4, 71, "Text",ExpressionUUID->"9dc6ce65-b369-4195-aba2-cb4833cd543f"] }, Open ]], Cell[CellGroupData[{ Cell[16302, 524, 178, 6, 139, "Subtitle",ExpressionUUID->"ce576c6b-c9db-46ef-b8eb-7df39cb5363e"], Cell[16483, 532, 308, 9, 91, "Input",ExpressionUUID->"2364ef9d-33d9-4200-86db-88261d0ed5f6"], Cell[CellGroupData[{ Cell[16816, 545, 313, 8, 151, InheritFromParent,ExpressionUUID->"d3553827-95c1-41b5-a9ac-b21f1429a402"], Cell[17132, 555, 150, 4, 84, "Output",ExpressionUUID->"a7dbe399-fc28-4f53-91fb-6fba5ce5bf66"], Cell[17285, 561, 148, 3, 56, "Output",ExpressionUUID->"a6ef7c7c-b28d-449b-b9b7-9be940aac2e9"] }, Open ]], Cell[17448, 567, 161, 6, 87, "Text",ExpressionUUID->"527b6cd5-4b40-4d07-b7df-beef3fa69775"], Cell[17612, 575, 225, 4, 71, "Text",ExpressionUUID->"4c9aed96-f1b6-467e-851d-d93a194fdd7c"] }, Open ]], Cell[CellGroupData[{ Cell[17874, 584, 227, 7, 139, "Subtitle",ExpressionUUID->"b92c8d2b-0461-4e44-a7cd-069c2027e714"], Cell[18104, 593, 268, 7, 93, "Input",ExpressionUUID->"90e809da-18e2-4873-9c36-fcbecf32336e"], Cell[CellGroupData[{ Cell[18397, 604, 377, 11, 121, InheritFromParent,ExpressionUUID->"338b8289-b944-466e-8d78-804950023ed6"], Cell[18777, 617, 215, 7, 86, "Output",ExpressionUUID->"236a7419-66ed-4e54-8023-98a4a8bc94f7"] }, Open ]], Cell[CellGroupData[{ Cell[19029, 629, 228, 5, 85, InheritFromParent,ExpressionUUID->"256451e8-fe85-42ea-bb0f-98c6209d23d7"], Cell[19260, 636, 152, 4, 56, "Output",ExpressionUUID->"8eb8ee40-00d1-4dda-a200-276e35c52ac3"], Cell[19415, 642, 134, 3, 56, "Output",ExpressionUUID->"92d9d8c5-7c02-4c92-9196-bdde0b50622c"] }, Open ]], Cell[19564, 648, 161, 6, 87, "Text",ExpressionUUID->"9c2602bb-42a0-428b-bf16-5cb060db1313"], Cell[19728, 656, 225, 4, 71, "Text",ExpressionUUID->"5d68682d-96c9-46d5-87bc-c054b7ece0f7"] }, Open ]], Cell[CellGroupData[{ Cell[19990, 665, 75, 0, 63, "Subtitle",ExpressionUUID->"1aff1550-11af-49a4-a25f-d94eacb94e4d"], Cell[20068, 667, 836, 18, 43, "PreviousNext",ExpressionUUID->"185ca7f1-2874-4218-a8a2-f11602a8abac"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20953, 691, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"b3076009-5ece-4616-903d-f5fb23538152", CellTags->"SlideShowHeader"], Cell[21078, 695, 473, 13, 367, "Subtitle",ExpressionUUID->"104c5ccf-b47e-4795-b137-17f305b9f26e"], Cell[21554, 710, 12138, 234, 33, "NonPrintButton",ExpressionUUID->"6f990c7f-cad4-4555-bc6b-04aee64c6f5e"], Cell[33695, 946, 153, 3, 56, "Input",ExpressionUUID->"05c29065-2753-44a4-ad59-b91b2e5c2889"], Cell[33851, 951, 161, 6, 87, "Text",ExpressionUUID->"c9128043-bccb-4981-a623-6ced4eb0f055"], Cell[34015, 959, 145, 3, 71, "Text",ExpressionUUID->"ef941a7e-d84b-47e8-bfe7-9d042fe01d64"], Cell[CellGroupData[{ Cell[34185, 966, 187, 6, 139, "Subtitle",ExpressionUUID->"7074e5db-7e6c-43c0-b5a4-0ba3d0fbd276"], Cell[34375, 974, 6982, 139, 33, "NonPrintButton",ExpressionUUID->"cc032797-f742-4000-b96d-146d97b12203"], Cell[41360, 1115, 154, 3, 56, "Input",ExpressionUUID->"28833d69-1fdd-4a92-a311-c822ffb45c45"], Cell[41517, 1120, 161, 6, 87, "Text",ExpressionUUID->"5d49994c-3ad1-4ea2-bb84-e5ab9a0ca049"], Cell[41681, 1128, 145, 3, 71, "Text",ExpressionUUID->"3fafb114-0a98-4f45-9b8d-968a5ed2ecbf"] }, Open ]], Cell[CellGroupData[{ Cell[41863, 1136, 75, 0, 63, "Subtitle",ExpressionUUID->"57f1576b-0716-4a6a-ac82-b2ec945bbc5e"], Cell[41941, 1138, 836, 18, 43, "PreviousNext",ExpressionUUID->"7a3ff20e-bdc1-4e2c-b742-729267586794"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42826, 1162, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"4f56e4ce-bd11-4a9b-8ec7-f5fd12a63861", CellTags->"SlideShowHeader"], Cell[42951, 1166, 257, 7, 299, "Subtitle",ExpressionUUID->"f9e5afa3-803e-4606-b842-f1fc3163a687"], Cell[43211, 1175, 156, 3, 59, "Input",ExpressionUUID->"bd61228d-5059-41c2-8fc2-e65e0f93d5fd"], Cell[43370, 1180, 161, 6, 87, "Text",ExpressionUUID->"c39b92e3-2850-4b7e-88c6-3562de83ce5e"], Cell[43534, 1188, 145, 3, 71, "Text",ExpressionUUID->"81b680a2-f444-452f-94f8-417946c6c753"], Cell[CellGroupData[{ Cell[43704, 1195, 247, 8, 377, "Subtitle",ExpressionUUID->"97ad0854-44c4-4854-8afb-eb3479f7f609"], Cell[43954, 1205, 152, 3, 59, "Input",ExpressionUUID->"40dfe8de-bfe9-43a4-abf9-5ae7693bdb7d"], Cell[44109, 1210, 161, 6, 87, "Text",ExpressionUUID->"7b2481af-e959-440f-86e2-9ce4fdeb88cb"], Cell[44273, 1218, 145, 3, 71, "Text",ExpressionUUID->"1001c758-26be-4c92-8a7d-5f2c86947f6e"] }, Open ]], Cell[CellGroupData[{ Cell[44455, 1226, 279, 8, 299, "Subtitle",ExpressionUUID->"add6824b-03b4-4f82-8938-53c58fc8deb4"], Cell[44737, 1236, 152, 3, 59, "Input",ExpressionUUID->"d917fb17-076f-48c7-9c08-f89befa4167d"], Cell[44892, 1241, 161, 6, 87, "Text",ExpressionUUID->"f79aa0b8-aae6-4317-b094-4a0bd920ab39"], Cell[45056, 1249, 145, 3, 71, "Text",ExpressionUUID->"e3967243-d547-4182-879b-715255a6a41e"] }, Open ]], Cell[CellGroupData[{ Cell[45238, 1257, 279, 8, 299, "Subtitle",ExpressionUUID->"0892b5de-e1f8-4a25-ac78-0e04bfdb5566"], Cell[45520, 1267, 152, 3, 59, "Input",ExpressionUUID->"ad8493e7-ceed-4b6f-98ed-60cc00021ef0"], Cell[45675, 1272, 161, 6, 87, "Text",ExpressionUUID->"46c92c0e-7eca-4c95-8a5a-27c4dc13ecfa"], Cell[45839, 1280, 145, 3, 71, "Text",ExpressionUUID->"d4a70636-f8e6-494b-8016-741fb4e8e7f0"] }, Open ]], Cell[CellGroupData[{ Cell[46021, 1288, 75, 0, 65, "Subtitle",ExpressionUUID->"461221b6-c3f8-4395-878a-ff75fc6722fa"], Cell[46099, 1290, 836, 18, 41, "PreviousNext",ExpressionUUID->"9b9c2fd6-d420-4350-acb8-4e7488c6f8b6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46984, 1314, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"e2f55745-ea4d-468f-b14e-9390d179735f", CellTags->"SlideShowHeader"], Cell[47109, 1318, 400, 8, 611, "Subtitle",ExpressionUUID->"32aab9ad-94c7-442b-a9a4-2b2e0f3a3c76"], Cell[47512, 1328, 152, 3, 59, "Input",ExpressionUUID->"75e2bb8b-1694-4a8b-ae61-e2f5c7d10ff8"], Cell[47667, 1333, 161, 6, 87, "Text",ExpressionUUID->"5c19f3a8-802b-4351-af68-74dd48e8aeba"], Cell[47831, 1341, 145, 3, 71, "Text",ExpressionUUID->"378558f3-c2e5-4bbb-ab8b-fde548b02750"], Cell[CellGroupData[{ Cell[48001, 1348, 75, 0, 65, "Subtitle",ExpressionUUID->"3604fe6f-aabd-48b3-8155-9f236e15f47d"], Cell[48079, 1350, 836, 18, 41, "PreviousNext",ExpressionUUID->"ed8462ed-c1e8-4dfe-a14b-bc0f51a0a6be"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48964, 1374, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"1933d13e-b86f-40e7-bb47-6de7b022cb34", CellTags->"SlideShowHeader"], Cell[49089, 1378, 321, 9, 533, "Subtitle",ExpressionUUID->"fe6e9d7e-021f-48c1-83bf-034cd945d327"], Cell[49413, 1389, 152, 3, 59, "Input",ExpressionUUID->"feff3569-cf23-46e6-b85c-99c110f18e5e"], Cell[49568, 1394, 161, 6, 87, "Text",ExpressionUUID->"286c1e5d-4a35-4ce9-b58c-212430ed0b60"], Cell[49732, 1402, 145, 3, 71, "Text",ExpressionUUID->"0f29d37c-61ce-4f99-8cf9-37918f393a46"], Cell[CellGroupData[{ Cell[49902, 1409, 222, 6, 221, "Subtitle",ExpressionUUID->"edd34c12-456a-4367-958a-4d1d63ec8b1a"], Cell[50127, 1417, 152, 3, 59, "Input",ExpressionUUID->"c04b76aa-87c5-4277-9916-6a088f7af16d"], Cell[50282, 1422, 161, 6, 87, "Text",ExpressionUUID->"a4438123-836e-47d9-a3b6-fac9c20f9446"], Cell[50446, 1430, 145, 3, 71, "Text",ExpressionUUID->"cc462f9b-5577-4ae0-bce9-d82c56978b8d"] }, Open ]], Cell[CellGroupData[{ Cell[50628, 1438, 244, 7, 299, "Subtitle",ExpressionUUID->"0603ec57-fada-430c-a70f-9183e2b61551"], Cell[50875, 1447, 152, 3, 59, "Input",ExpressionUUID->"4a35f4e0-a06b-45e1-a182-f329e8c553ba"], Cell[51030, 1452, 161, 6, 87, "Text",ExpressionUUID->"7b63201f-9301-4dac-96a8-77783c53e592"], Cell[51194, 1460, 145, 3, 71, "Text",ExpressionUUID->"2ef359ef-e5f9-4d80-96d3-2a86eee2a96f"] }, Open ]], Cell[CellGroupData[{ Cell[51376, 1468, 75, 0, 65, "Subtitle",ExpressionUUID->"cf135f5d-4276-4c6a-bf38-1ccba3d15f9d"], Cell[51454, 1470, 836, 18, 41, "PreviousNext",ExpressionUUID->"7684e356-1b90-487e-ad80-14e5436061d5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52339, 1494, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"77673e0d-47e0-494d-bd43-daf318106efb", CellTags->"SlideShowHeader"], Cell[52464, 1498, 685, 13, 1469, "Subtitle",ExpressionUUID->"42081632-0257-4b9a-a6ad-3a422dc25099"], Cell[53152, 1513, 5439, 116, 37, "NonPrintButton",ExpressionUUID->"99e7c48c-ac5f-4a57-b85a-c4092f673f40"], Cell[58594, 1631, 152, 3, 59, "Input",ExpressionUUID->"42d7c5cc-84b0-42bf-9527-6784813946f2"], Cell[58749, 1636, 161, 6, 87, "Text",ExpressionUUID->"7cd496eb-81fd-4d64-8b7e-c6f4070cf3ab"], Cell[58913, 1644, 145, 3, 71, "Text",ExpressionUUID->"92cc4cd5-3184-447b-9e4b-91803d9df65f"], Cell[CellGroupData[{ Cell[59083, 1651, 255, 7, 299, "Subtitle",ExpressionUUID->"d2bcf2b2-c4ff-4bfe-adb8-736581d46c97"], Cell[59341, 1660, 152, 3, 59, "Input",ExpressionUUID->"23122932-7528-4f5d-8699-4f0679a98018"], Cell[59496, 1665, 161, 6, 87, "Text",ExpressionUUID->"75c5d4fb-935b-4d3e-ae80-04c90cb49934"], Cell[59660, 1673, 145, 3, 71, "Text",ExpressionUUID->"36b23634-e397-4653-ae04-29acbea2d58d"] }, Open ]], Cell[CellGroupData[{ Cell[59842, 1681, 229, 6, 299, "Subtitle",ExpressionUUID->"94de5f14-745a-4b2f-93b5-85cc6b3e5833"], Cell[60074, 1689, 152, 3, 59, "Input",ExpressionUUID->"ad615b24-c697-4890-ade1-d27d37b50157"], Cell[60229, 1694, 161, 6, 87, "Text",ExpressionUUID->"9be40131-240d-4880-ace5-843bf301de3e"], Cell[60393, 1702, 145, 3, 71, "Text",ExpressionUUID->"b05df4b3-b7fb-4291-a60f-b9e739474c13"] }, Open ]], Cell[CellGroupData[{ Cell[60575, 1710, 219, 6, 299, "Subtitle",ExpressionUUID->"b4652ebf-3765-4092-ba57-8d6c1cd058a5"], Cell[60797, 1718, 152, 3, 59, "Input",ExpressionUUID->"a160652b-a040-414e-a491-eb1bf52b7f71"], Cell[60952, 1723, 161, 6, 87, "Text",ExpressionUUID->"2c28d6ba-e5cf-446d-9770-88f46c86c5dd"], Cell[61116, 1731, 145, 3, 71, "Text",ExpressionUUID->"7d292719-51c2-49e5-8766-e9c8afac6b9a"] }, Open ]], Cell[CellGroupData[{ Cell[61298, 1739, 306, 7, 455, "Subtitle",ExpressionUUID->"e34661ed-4dc5-4809-9d5a-2a8dac4e85f6"], Cell[61607, 1748, 152, 3, 59, "Input",ExpressionUUID->"24764475-054e-4eba-8ac2-6be010d11255"], Cell[61762, 1753, 161, 6, 87, "Text",ExpressionUUID->"41c9c84d-f3c9-401d-9500-a64b462039ff"], Cell[61926, 1761, 145, 3, 71, "Text",ExpressionUUID->"89b81462-d024-48e0-a334-c5cec667f88c"] }, Open ]], Cell[CellGroupData[{ Cell[62108, 1769, 75, 0, 65, "Subtitle",ExpressionUUID->"8411a368-d149-4d74-8193-92a7c8ef0113"], Cell[62186, 1771, 836, 18, 41, "PreviousNext",ExpressionUUID->"1456f0a0-8d60-4fe1-9b1e-a4dbf0e517d2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[63071, 1795, 122, 2, 1, "SlideShowNavigationBar",ExpressionUUID->"6c31a05b-88dd-4f90-8d45-ccea9a35e98d", CellTags->"SlideShowHeader"], Cell[63196, 1799, 318, 9, 611, "Subtitle",ExpressionUUID->"0d5c2da3-fb2a-4fb9-b44d-3511b22c525f"], Cell[63517, 1810, 152, 3, 59, "Input",ExpressionUUID->"0be03c76-d919-4ca6-8847-702a4dcc85d1"], Cell[63672, 1815, 161, 6, 87, "Text",ExpressionUUID->"51fad37c-0a56-41c6-a912-1fb71ec8f2fd"], Cell[63836, 1823, 145, 3, 71, "Text",ExpressionUUID->"355ddee8-89a6-4f4d-bf33-9faf3ab9c31e"], Cell[CellGroupData[{ Cell[64006, 1830, 226, 6, 299, "Subtitle",ExpressionUUID->"63e85d6c-b944-4ae4-85a5-81ee73e08144"], Cell[64235, 1838, 152, 3, 59, "Input",ExpressionUUID->"2499ba00-f97f-43ec-9a5f-50be0e1d90e3"], Cell[64390, 1843, 161, 6, 87, "Text",ExpressionUUID->"346e427a-b134-4820-8cea-14cae71afb92"], Cell[64554, 1851, 145, 3, 71, "Text",ExpressionUUID->"35c498d5-75e6-415a-b136-9dfe84a89d61"] }, Open ]], Cell[CellGroupData[{ Cell[64736, 1859, 321, 8, 533, "Subtitle",ExpressionUUID->"a0ad3154-026a-4001-9b97-0af2c66691aa"], Cell[65060, 1869, 152, 3, 59, "Input",ExpressionUUID->"c0d6908b-afdc-43cc-99c0-e802b447223b"], Cell[65215, 1874, 161, 6, 87, "Text",ExpressionUUID->"8b5b08b7-34a4-46f1-b9d4-4e4a45107fa5"], Cell[65379, 1882, 145, 3, 71, "Text",ExpressionUUID->"80712794-e27d-4939-9809-4bb9b2f0c68b"] }, Open ]], Cell[CellGroupData[{ Cell[65561, 1890, 75, 0, 65, "Subtitle",ExpressionUUID->"d9c1a8cc-cfae-498e-8430-00f17a1311dd"], Cell[65639, 1892, 836, 18, 41, "PreviousNext",ExpressionUUID->"bd82502b-76b7-47d3-aa48-09b93d266289"] }, Open ]] }, Open ]] } ] *)