(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 46915, 1199] NotebookOptionsPosition[ 44395, 1120] NotebookOutlinePosition[ 44825, 1137] CellTagsIndexPosition[ 44782, 1134] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Math 481A California State University Northridge Bisection Algorithm v6 Compatible\ \>", "Section", CellChangeTimes->{{3.397782478387594*^9, 3.397782485155143*^9}}], Cell["\[Copyright] 2007 B.E.Shapiro", "Section", CellChangeTimes->{{3.397782466315711*^9, 3.397782467562607*^9}}], Cell[CellGroupData[{ Cell["Bisect", "Section", CellChangeTimes->{{3.3977824517953377`*^9, 3.397782452930057*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"bisect", "[", RowBox[{"f_", ",", " ", "ain_", ",", "bin_", ",", RowBox[{"\[Epsilon]_:", "0.001"}], ",", RowBox[{"Nmax_:", "100"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]", ",", " ", "r", ",", " ", "a", ",", "b", ",", "i"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]", "=", "Infinity"}], ";", RowBox[{"a", "=", "ain"}], ";", RowBox[{"b", "=", "bin"}], ";", RowBox[{"i", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], RowBox[{"f", "[", "b", "]"}]}], ">", "0"}], ",", " ", RowBox[{"Return", "[", "Indeterminate", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Return", "[", "a", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "b", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Return", "[", "b", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]", ">", "\[Epsilon]"}], " ", "\[And]", " ", RowBox[{ RowBox[{"i", "++"}], "<", "Nmax"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< \>\"", ",", "a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "r"}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "r", "]"}], "\[Equal]", "0"}], ",", " ", RowBox[{"Return", "[", "r", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], RowBox[{"f", "[", "r", "]"}]}], "<", "0"}], ",", " ", RowBox[{"b", "=", "r"}], ",", " ", RowBox[{"a", "=", "r"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "2"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "\"\< \>\"", ",", "a", ",", "\"\< \>\"", ",", "b", ",", "\"\< \>\"", ",", "r"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "r", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "use bisection to find ", Cell[BoxData[ FormBox[ SqrtBox["2"], TraditionalForm]]], " to 10 significant figures" }], "Section"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"x", "^", "2"}], "-", "2"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z", "=", RowBox[{"bisect", "[", RowBox[{"f", ",", "1.0`25", ",", "2.0`25", ",", RowBox[{"10", "^", RowBox[{"-", "10"}]}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.`25.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "2.`25.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.5`24.77815125038364"}], SequenceForm[1, " ", 1.`25., " ", 2.`25., " ", 1.5`24.77815125038364], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716868796377`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.`25.", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.5`24.77815125038364", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.25`24.657577319177793"}], SequenceForm[ 2, " ", 1.`25., " ", 1.5`24.77815125038364, " ", 1.25`24.657577319177793], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271686882152*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.25`24.657577319177793", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.5`24.77815125038364", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.375`24.407924229578636"}], SequenceForm[ 3, " ", 1.25`24.657577319177793, " ", 1.5`24.77815125038364, " ", 1.375`24.407924229578636], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271686885119*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.375`24.407924229578636", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.5`24.77815125038364", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4375`24.188541567605316"}], SequenceForm[ 4, " ", 1.375`24.407924229578636, " ", 1.5`24.77815125038364, " ", 1.4375`24.188541567605316], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.39827168693764*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.375`24.407924229578636", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4375`24.188541567605316", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.40625`24.04361810455012"}], SequenceForm[ 5, " ", 1.375`24.407924229578636, " ", 1.4375`24.188541567605316, " ", 1.40625`24.04361810455012], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271686987702*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.40625`24.04361810455012", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4375`24.188541567605316", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.421875`23.777483618458305"}], SequenceForm[ 6, " ", 1.40625`24.04361810455012, " ", 1.4375`24.188541567605316, " ", 1.421875`23.777483618458305], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716870384407`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.40625`24.04361810455012", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.421875`23.777483618458305", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489"}], SequenceForm[ 7, " ", 1.40625`24.04361810455012, " ", 1.421875`23.777483618458305, " ", 1.4140625`23.65987373246489], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716870878553`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.421875`23.777483618458305", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41796875`23.38610869466565"}], SequenceForm[ 8, " ", 1.4140625`23.65987373246489, " ", 1.421875`23.777483618458305, " ", 1.41796875`23.38610869466565], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716871383944`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41796875`23.38610869466565", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.416015625`23.272772953095824"}], SequenceForm[ 9, " ", 1.4140625`23.65987373246489, " ", 1.41796875`23.38610869466565, " ", 1.416015625`23.272772953095824], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687188583*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.416015625`23.272772953095824", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4150390625`23.22546540403287"}], SequenceForm[ 10, " ", 1.4140625`23.65987373246489, " ", 1.416015625`23.272772953095824, " ", 1.4150390625`23.22546540403287], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687238678*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4150390625`23.22546540403287", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41455078125`23.203591415611044"}], SequenceForm[ 11, " ", 1.4140625`23.65987373246489, " ", 1.4150390625`23.22546540403287, " ", 1.41455078125`23.203591415611044], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687289219*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41455078125`23.203591415611044", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414306640625`23.193048766498208"}], SequenceForm[ 12, " ", 1.4140625`23.65987373246489, " ", 1.41455078125`23.203591415611044, " ", 1.414306640625`23.193048766498208], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687339353*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4140625`23.65987373246489", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414306640625`23.193048766498208", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4141845703125`23.18787055403993"}], SequenceForm[ 13, " ", 1.4140625`23.65987373246489, " ", 1.414306640625`23.193048766498208, " ", 1.4141845703125`23.18787055403993], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716874387407`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4141845703125`23.18787055403993", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414306640625`23.193048766498208", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41424560546875`22.888138789925687"}], SequenceForm[ 14, " ", 1.4141845703125`23.18787055403993, " ", 1.414306640625`23.193048766498208, " ", 1.41424560546875`22.888138789925687], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687489702*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4141845703125`23.18787055403993", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41424560546875`22.888138789925687", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414215087890625`22.79045126017554"}], SequenceForm[ 15, " ", 1.4141845703125`23.18787055403993, " ", 1.41424560546875`22.888138789925687, " ", 1.414215087890625`22.79045126017554], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687539796*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4141845703125`23.18787055403993", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414215087890625`22.79045126017554", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4141998291015625`22.748774900142397"}], SequenceForm[ 16, " ", 1.4141845703125`23.18787055403993, " ", 1.414215087890625`22.79045126017554, " ", 1.4141998291015625`22.748774900142397], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687590399*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4141998291015625`22.748774900142397", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414215087890625`22.79045126017554", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41420745849609375`22.457796333501797"}], SequenceForm[ 17, " ", 1.4141998291015625`22.748774900142397, " ", 1.414215087890625`22.79045126017554, " ", 1.41420745849609375`22.457796333501797], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687640058*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41420745849609375`22.457796333501797", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414215087890625`22.79045126017554", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414211273193359375`22.219138423121116"}], SequenceForm[ 18, " ", 1.41420745849609375`22.457796333501797, " ", 1.414215087890625`22.79045126017554, " ", 1.414211273193359375`22.219138423121116], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716876908283`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414211273193359375`22.219138423121116", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414215087890625`22.79045126017554", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142131805419921875`22.005841535715092"}], SequenceForm[ 19, " ", 1.414211273193359375`22.219138423121116, " ", 1.414215087890625`22.79045126017554, " ", 1.4142131805419921875`22.005841535715092], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687740657*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142131805419921875`22.005841535715092", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414215087890625`22.79045126017554", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421413421630859375`21.806606979079163"}], SequenceForm[ 20, " ", 1.4142131805419921875`22.005841535715092, " ", 1.414215087890625`22.79045126017554, " ", 1.41421413421630859375`21.806606979079163], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687790412*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142131805419921875`22.005841535715092", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421413421630859375`21.806606979079163", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213657379150390625`21.645806797489943"}], SequenceForm[ 21, " ", 1.4142131805419921875`22.005841535715092, " ", 1.41421413421630859375`21.806606979079163, " ", 1.414213657379150390625`21.645806797489943], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687841094*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142131805419921875`22.005841535715092", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213657379150390625`21.645806797489943", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142134189605712890625`21.583329601603996"}], SequenceForm[ 22, " ", 1.4142131805419921875`22.005841535715092, " ", 1.414213657379150390625`21.645806797489943, " ", 1.4142134189605712890625`21.583329601603996], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716878913593`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142134189605712890625`21.583329601603996", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213657379150390625`21.645806797489943", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421353816986083984375`21.29709666744795"}], SequenceForm[ 23, " ", 1.4142134189605712890625`21.583329601603996, " ", 1.414213657379150390625`21.645806797489943, " ", 1.4142135381698608398438`21.29709666744795], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271687956156*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421353816986083984375`21.29709666744795", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213657379150390625`21.645806797489943", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213597774505615234375`21.06055787903892"}], SequenceForm[ 24, " ", 1.4142135381698608398438`21.29709666744795, " ", 1.414213657379150390625`21.645806797489943, " ", 1.414213597774505615234`21.06055787903892], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688007969*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "25", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421353816986083984375`21.29709666744795", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213597774505615234375`21.06055787903892", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135679721832275390625`20.923816219400003"}], SequenceForm[ 25, " ", 1.4142135381698608398438`21.29709666744795, " ", 1.414213597774505615234`21.06055787903892, " ", 1.414213567972183227539`20.923816219400003], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716880584297`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "26", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421353816986083984375`21.29709666744795", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135679721832275390625`20.923816219400003", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421355307102203369140625`20.868799609629043"}], SequenceForm[ 26, " ", 1.4142135381698608398438`21.29709666744795, " ", 1.414213567972183227539`20.923816219400003, " ", 1.414213553071022033691`20.868799609629043], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688107963*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "27", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421355307102203369140625`20.868799609629043", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135679721832275390625`20.923816219400003", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213560521602630615234375`20.58088426539341"}], SequenceForm[ 27, " ", 1.414213553071022033691`20.868799609629043, " ", 1.414213567972183227539`20.923816219400003, " ", 1.414213560521602630615`20.58088426539341], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688157933*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "28", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213560521602630615234375`20.58088426539341", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135679721832275390625`20.923816219400003", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135642468929290771484375`20.343590325961806"}], SequenceForm[ 28, " ", 1.414213560521602630615`20.58088426539341, " ", 1.414213567972183227539`20.923816219400003, " ", 1.414213564246892929077`20.343590325961806], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716882239227`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "29", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213560521602630615234375`20.58088426539341", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135642468929290771484375`20.343590325961806", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356238424777984619140625`20.207328073669967"}], SequenceForm[ 29, " ", 1.414213560521602630615`20.58088426539341, " ", 1.414213564246892929077`20.343590325961806, " ", 1.414213562384247779846`20.207328073669967], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688275589*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "30", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213560521602630615234375`20.58088426539341", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356238424777984619140625`20.207328073669967", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213561452925205230712890625`20.15246571830728"}], SequenceForm[ 30, " ", 1.414213560521602630615`20.58088426539341, " ", 1.414213562384247779846`20.207328073669967, " ", 1.414213561452925205231`20.15246571830728], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.3982716883260727`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "31", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.414213561452925205230712890625`20.15246571830728", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356238424777984619140625`20.207328073669967", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135619185864925384521484375`19.864515351359476"}], SequenceForm[ 31, " ", 1.414213561452925205231`20.15246571830728, " ", 1.414213562384247779846`20.207328073669967, " ", 1.41421356191858649254`19.864515351359476], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688375886*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "32", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135619185864925384521484375`19.864515351359476", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356238424777984619140625`20.207328073669967", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356215141713619232177734375`19.627205736856897"}], SequenceForm[ 32, " ", 1.41421356191858649254`19.864515351359476, " ", 1.414213562384247779846`20.207328073669967, " ", 1.41421356215141713619`19.627205736856897], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.39827168842595*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "33", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356215141713619232177734375`19.627205736856897", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356238424777984619140625`20.207328073669967", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135622678324580192565918`19.41462495197088"}], SequenceForm[ 33, " ", 1.41421356215141713619`19.627205736856897, " ", 1.414213562384247779846`20.207328073669967, " ", 1.41421356226783245802`19.41462495197088], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688476225*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{ "34", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.4142135622678324580192565918`19.41462495197088", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356238424777984619140625`20.207328073669967", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.41421356232604011893272399902`19.215806449785383"}], SequenceForm[ 34, " ", 1.41421356226783245802`19.41462495197088, " ", 1.414213562384247779846`20.207328073669967, " ", 1.41421356232604011893`19.215806449785383], Editable->False]], "Print", CellChangeTimes->{3.397782507396717*^9, 3.398271688525907*^9}] }, Open ]], Cell[BoxData["1.41421356232604011893272399902`19.215806449785383"], "Output", CellChangeTimes->{3.397782508038226*^9, 3.39827168860797*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["bisectPlot", "Section", CellChangeTimes->{{3.398274846467032*^9, 3.398274848254078*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"bisectPlot", "[", RowBox[{"f_", ",", " ", "ain_", ",", "bin_", ",", RowBox[{"\[Epsilon]_:", "0.001"}], ",", RowBox[{"Nmax_:", "100"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[CapitalDelta]", ",", " ", "r", ",", " ", "a", ",", "b", ",", "i", ",", " ", "results", ",", " ", "bisectImage"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalDelta]", "=", "Infinity"}], ";", RowBox[{"a", "=", "ain"}], ";", RowBox[{"b", "=", "bin"}], ";", RowBox[{"i", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], RowBox[{"f", "[", "b", "]"}]}], ">", "0"}], ",", " ", RowBox[{"Return", "[", "Indeterminate", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"{", RowBox[{"a", ",", " ", "b", ",", " ", "a"}], "}"}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "b", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"{", RowBox[{"a", ",", " ", "b", ",", " ", "b"}], "}"}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", " ", "a", ",", " ", "b", ",", " ", RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "2"}]}]}], "}"}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]", ">", "\[Epsilon]"}], " ", "\[And]", " ", RowBox[{ RowBox[{"i", "++"}], "<", "Nmax"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"a", "+", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "r", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], RowBox[{"f", "[", "r", "]"}]}], "<", "0"}], ",", " ", RowBox[{"b", "=", "r"}], ",", " ", RowBox[{"a", "=", "r"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"\[CapitalDelta]", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"results", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "a", ",", " ", "b", ",", " ", RowBox[{"a", "+", "\[CapitalDelta]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"bisectImage", "[", RowBox[{ "iteration_", ",", " ", "a_", ",", " ", "b_", ",", " ", "c_"}], "]"}], ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"pts", ",", "txt", ",", " ", RowBox[{"sep", "=", "0.5"}]}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"line", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "iteration"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"b", ",", "iteration"}], "}"}]}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pts", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "iteration"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"b", ",", " ", "iteration"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"c", ",", " ", "iteration"}], "}"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", " ", RowBox[{"PointSize", "[", ".01", "]"}]}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"txt", " ", "=", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", " ", "18"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ SubscriptBox["\"\\"", RowBox[{"ToString", "[", "iteration", "]"}]], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", RowBox[{"iteration", "-", "0.25"}]}], "}"}]}], "]"}], ",", " ", "\[IndentingNewLine]", " ", RowBox[{"Text", "[", RowBox[{ SubscriptBox["\"\\"", RowBox[{"ToString", "[", "iteration", "]"}]], ",", " ", RowBox[{"{", RowBox[{"b", ",", " ", RowBox[{"iteration", "-", "0.25"}]}], "}"}]}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ SubscriptBox["\"\\"", RowBox[{"ToString", "[", "iteration", "]"}]], ",", " ", RowBox[{"{", RowBox[{"c", ",", " ", RowBox[{"iteration", "-", "0.25"}]}], "}"}]}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"pts", ",", " ", "line", ",", " ", RowBox[{"Graphics", "[", " ", "txt", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"img", "=", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"bisectImage", "@@", "#"}], "&"}], "/@", "results"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "800"}], ",", " ", RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "0.4"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "img", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"z", "=", RowBox[{"bisectPlot", "[", RowBox[{"f", ",", "1.", ",", " ", "2.", ",", RowBox[{"10", "^", RowBox[{"-", "3"}]}], ",", " ", "5"}], "]"}]}]}], "Input", CellChangeTimes->{{3.39827170845756*^9, 3.3982718619671507`*^9}, { 3.398272135178288*^9, 3.398272148386585*^9}, {3.398272260721015*^9, 3.398272265805646*^9}, {3.398272301490629*^9, 3.398272302135475*^9}, { 3.398272773358086*^9, 3.398272870125437*^9}, {3.398272904975296*^9, 3.3982730512713833`*^9}, {3.3982730956427937`*^9, 3.398273102258938*^9}, { 3.3982731324274883`*^9, 3.398273286609746*^9}, 3.398273566172512*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], PointSize[0.01], PointBox[{{1., 0.}, {2., 0.}, {1.5, 0.}}]}, LineBox[{{1., 0}, {2., 0}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"0\"\>"], {1., -0.25}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"0\"\>"], {2., -0.25}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"0\"\>"], {1.5, -0.25}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1., 1.}, {1.5, 1.}, {1.25, 1.}}]}, LineBox[{{1., 1}, {1.5, 1}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"1\"\>"], {1., 0.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"1\"\>"], {1.5, 0.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"1\"\>"], {1.25, 0.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.25, 2.}, {1.5, 2.}, {1.375, 2.}}]}, LineBox[{{1.25, 2}, {1.5, 2}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"2\"\>"], {1.25, 1.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"2\"\>"], {1.5, 1.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"2\"\>"], {1.375, 1.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.375, 3.}, {1.5, 3.}, {1.4375, 3.}}]}, LineBox[{{1.375, 3}, {1.5, 3}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"3\"\>"], {1.375, 2.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"3\"\>"], {1.5, 2.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"3\"\>"], {1.4375, 2.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.375, 4.}, {1.4375, 4.}, {1.40625, 4.}}]}, LineBox[{{1.375, 4}, {1.4375, 4}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"4\"\>"], {1.375, 3.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"4\"\>"], {1.4375, 3.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"4\"\>"], {1.40625, 3.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.40625, 5.}, {1.4375, 5.}, {1.421875, 5.}}]}, LineBox[{{1.40625, 5}, {1.4375, 5}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"5\"\>"], {1.40625, 4.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"5\"\>"], {1.4375, 4.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"5\"\>"], {1.421875, 4.75}]}, FontSize->18]}}, AspectRatio->0.4, Axes->False, ImageSize->800, PlotRange->All, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.3982732291444883`*^9, 3.3982732428477163`*^9}, { 3.398273310160419*^9, 3.3982733124186068`*^9}, 3.398273566799592*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z1", "=", RowBox[{"Show", "[", RowBox[{"z", ",", " ", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], ",", " ", "6"}], "}"}]}], "}"}], "]"}], "]"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"FrameTicks", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1.25", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], ",", " ", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}], ",", " ", "1.5", ",", " ", "1.75", ",", " ", "2"}], "}"}], ",", " ", "False", ",", " ", "False", ",", " ", "False"}], "}"}]}], ",", " ", RowBox[{"FrameStyle", "\[Rule]", " ", RowBox[{"Directive", "[", "18", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.3982733153137503`*^9, 3.3982734972055073`*^9}, { 3.39827354538509*^9, 3.39827355082355*^9}, {3.3982737117442083`*^9, 3.398273716689176*^9}, {3.3982737699404783`*^9, 3.398273771132753*^9}}], Cell[BoxData[ GraphicsBox[{{{ {GrayLevel[0], PointSize[0.01], PointBox[{{1., 0.}, {2., 0.}, {1.5, 0.}}]}, LineBox[{{1., 0}, {2., 0}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"0\"\>"], {1., -0.25}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"0\"\>"], {2., -0.25}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"0\"\>"], {1.5, -0.25}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1., 1.}, {1.5, 1.}, {1.25, 1.}}]}, LineBox[{{1., 1}, {1.5, 1}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"1\"\>"], {1., 0.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"1\"\>"], {1.5, 0.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"1\"\>"], {1.25, 0.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.25, 2.}, {1.5, 2.}, {1.375, 2.}}]}, LineBox[{{1.25, 2}, {1.5, 2}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"2\"\>"], {1.25, 1.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"2\"\>"], {1.5, 1.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"2\"\>"], {1.375, 1.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.375, 3.}, {1.5, 3.}, {1.4375, 3.}}]}, LineBox[{{1.375, 3}, {1.5, 3}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"3\"\>"], {1.375, 2.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"3\"\>"], {1.5, 2.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"3\"\>"], {1.4375, 2.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.375, 4.}, {1.4375, 4.}, {1.40625, 4.}}]}, LineBox[{{1.375, 4}, {1.4375, 4}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"4\"\>"], {1.375, 3.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"4\"\>"], {1.4375, 3.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"4\"\>"], {1.40625, 3.75}]}, FontSize->18]}, { {GrayLevel[0], PointSize[0.01], PointBox[{{1.40625, 5.}, {1.4375, 5.}, {1.421875, 5.}}]}, LineBox[{{1.40625, 5}, {1.4375, 5}}], StyleBox[{InsetBox[ SubscriptBox["\<\"a\"\>", "\<\"5\"\>"], {1.40625, 4.75}], InsetBox[ SubscriptBox["\<\"b\"\>", "\<\"5\"\>"], {1.4375, 4.75}], InsetBox[ SubscriptBox["\<\"p\"\>", "\<\"5\"\>"], {1.421875, 4.75}]}, FontSize->18]}}, LineBox[NCache[{{2^Rational[1, 2], -1}, {2^Rational[1, 2], 6}}, {{ 1.4142135623730951`, -1}, {1.4142135623730951`, 6}}]]}, AspectRatio->0.4, Axes->False, Frame->True, FrameStyle->Directive[18], FrameTicks->{{{1, FormBox["1", TraditionalForm]}, {1.25, FormBox["1.25`", TraditionalForm]}, { NCache[2^Rational[1, 2], 1.4142135623730951`], FormBox[ SqrtBox["2"], TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {1.75, FormBox["1.75`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}}, False, False, False}, ImageSize->800, PlotRange->All, PlotRangeClipping->True]], "Output", CellChangeTimes->{{3.398273351215549*^9, 3.3982734983100033`*^9}, { 3.398273551486389*^9, 3.398273571082006*^9}, 3.398273717498369*^9, 3.39827377193948*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "-", "2"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", " ", "800"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "0.2"}], ",", " ", RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"FrameTicks", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1.25", ",", RowBox[{"{", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], ",", " ", RowBox[{"Sqrt", "[", "2", "]"}]}], "}"}], ",", " ", "1.5", ",", "1.75", ",", " ", "2"}], "}"}], ",", " ", "False", ",", " ", "False", ",", " ", "False"}], "}"}]}], ",", " ", RowBox[{"FrameStyle", "\[Rule]", " ", RowBox[{"Directive", "[", "18", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.3982736105069447`*^9, 3.398273737125749*^9}, { 3.3982737752983932`*^9, 3.398273801648419*^9}, {3.398273846669147*^9, 3.3982738695333548`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1HdQ02cYB/CQYoGYaEUJgnoiYkWwoHWVQH2CehEpULR4BEQosQ7aBgeU 4kANwzpZLlRGGQfIrCDi4HzBU5AwGijCxYKMMMLMICGDJL++6R/vfe/z3r3P 8/3rXcM5eeAomUQi+eFjzK2nzi0gkaSwEegTBCFBBSaqLE8TKaR75R3UaCVo 2e2o7QlkKTiFu4TIlRI0W/Pr8c8XSEGBWAzRpARVzYc2UylS+LglllHfI0Gb /th9y2aZFNSKPu/jlRLknE212uIoheTep6URoRJk35rtcMxfClTPVC68mkEt lLiklCIpnBCpAqkB00izeJghV0uh0PqKr0I/iZaOJO+s85KBiyO32Lt4Aokz ZxP25chgghRALnAZR7tWDK76QioDwZKhF/ebxlDghauaB3vl0G55do+3+ygK Ko9aeyNLDhSzrnBJxTAaKBjLrZmWg6M8g1u7XYTsL1lx8vfMwqKaW2al9wfR +OrWGP7dWfhz53juNdoAykxtFLJHZmH5M9PRDxZ9iDJ87mKJuwLE/R60viIh 0utrf992UwF2lvuePDvTjUq1FVUJIgV4XOf5+010IlbTuLubmxIEr6w6xE3t 6GhwuY3jNSWoW0YmVbbvEVPg5PaxXwmXJ8qDGQ31KIe6ufzdpjlgcud5r+5U o5fOMk701TkgVVvEU2lpqMFWeez6pzm4/NJi8QVyIfgKeEjoogKSX8iR6qgX cOfE+6CpJBXYsRve7y59Cz823ff6pkcFqb58/yubWmH5XEnS5JdqEAzbKhO7 OuCGWawpJ04N7AQbrlzyARL623qWtKthYLT5O79OIex42DeVuE4DzB82xx2m f4Ieh83+Yec1YJeb6BPvNAi632jmUS0aWNaVN/rWWQS9j/NNvO21cPMwhxwd NgKeBW++D47Sgn/boJ939BikR66b6nijBfOup8LexHHIXrGLT7WZBzZ/17uf mifBNWVMdzliHpbzNtDuTU/D+RHW6ef185C40qPj0lop+JBdGRssddBV1iEu ABlQJMH7TTg6CNEOTYUEySHhNbMk87kOJn7eyI1JngVeQGXgaQs9kOx4p5hV CmC09bAswvUQm+u3ZpFcCf1WexLNa/XAmvapKnNVgcU6N7qnmQHSeQcO7zik hhm6eNwj1ABVBfyzKfkaYP+92vJMpQHqPjt976RQC5WBj64uIgygXXovjE3V QcMbATPyIAEGdlr4PyF6YCuSfc0KCYjNpjtYPzRAiblZ5hE9Ae31X/UlKwlo JPNokdinFNU5z7FFOu3FWGxL/l7OEPZK2Uz4LWzmoYyxbXMEJAu719dih1j1 yXuxz5QUVlMM+F6sWOisJsDdh9XyBHuIEurVpCWAzar3qMPujcugyrCjmYyK Rmx++oDAdp6Aiq0uaf9i5+U9CIrEtltFD1xAEGAaXPmLlQ7nzMgQG7txfUS6 sbedOCzgCDbnZVygsde3Q8J3XGzDTM5KY6+Y7rbieGz7nbQiYy/x65rIMmyn 6Bt1xl6mL1wHnmFn0mnxxr1rqh/vb8CmHsrca9wbXJS1tRvnx2ZRp3FvTK51 4QDO7YpHGca5tx+lWU/iTK0PDzXO/evuwmtKnKMu2xyM71pTkrQEzq///88I +A/4rLAP "]]}}, AspectRatio->0.2, Axes->True, AxesOrigin->{1., 0}, Frame->True, FrameStyle->Directive[18], FrameTicks->{{{1, FormBox["1", TraditionalForm]}, {1.25, FormBox["1.25`", TraditionalForm]}, { NCache[2^Rational[1, 2], 1.4142135623730951`], FormBox[ SqrtBox["2"], TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {1.75, FormBox["1.75`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}}, False, False, False}, ImageSize->800, PlotRange->{{1, 2}, {-0.9999999591836732, 1.9999999183673478`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398273869959531*^9}] }, Open ]] }, Open ]] }, WindowSize->{1041, 766}, WindowMargins->{{438, Automatic}, {155, Automatic}}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 176, 7, 152, "Section"], Cell[747, 30, 114, 1, 42, "Section"], Cell[CellGroupData[{ Cell[886, 35, 93, 1, 42, "Section"], Cell[982, 38, 3293, 86, 278, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4312, 129, 150, 6, 80, "Section"], Cell[4465, 137, 147, 5, 37, "Input"], Cell[CellGroupData[{ Cell[4637, 146, 184, 5, 37, "Input"], Cell[CellGroupData[{ Cell[4846, 155, 444, 9, 20, "Print"], Cell[5293, 166, 479, 10, 20, "Print"], Cell[5775, 178, 523, 12, 20, "Print"], Cell[6301, 192, 526, 12, 20, "Print"], Cell[6830, 206, 535, 12, 20, "Print"], Cell[7368, 220, 543, 12, 20, "Print"], Cell[7914, 234, 547, 12, 20, "Print"], Cell[8464, 248, 553, 12, 20, "Print"], Cell[9020, 262, 557, 12, 20, "Print"], Cell[9580, 276, 563, 12, 20, "Print"], Cell[10146, 290, 567, 12, 20, "Print"], Cell[10716, 304, 573, 12, 20, "Print"], Cell[11292, 318, 580, 13, 20, "Print"], Cell[11875, 333, 595, 13, 20, "Print"], Cell[12473, 348, 599, 13, 20, "Print"], Cell[13075, 363, 603, 13, 20, "Print"], Cell[13681, 378, 613, 13, 20, "Print"], Cell[14297, 393, 619, 13, 20, "Print"], Cell[14919, 408, 621, 13, 20, "Print"], Cell[15543, 423, 625, 13, 20, "Print"], Cell[16171, 438, 643, 14, 20, "Print"], Cell[16817, 454, 649, 14, 20, "Print"], Cell[17469, 470, 652, 14, 20, "Print"], Cell[18124, 486, 651, 14, 20, "Print"], Cell[18778, 502, 657, 14, 20, "Print"], Cell[19438, 518, 659, 14, 20, "Print"], Cell[20100, 534, 662, 14, 20, "Print"], Cell[20765, 550, 666, 14, 20, "Print"], Cell[21434, 566, 668, 14, 20, "Print"], Cell[22105, 582, 670, 14, 20, "Print"], Cell[22778, 598, 673, 14, 20, "Print"], Cell[23454, 614, 675, 14, 20, "Print"], Cell[24132, 630, 671, 14, 20, "Print"], Cell[24806, 646, 668, 14, 20, "Print"] }, Open ]], Cell[25489, 663, 140, 1, 37, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25678, 670, 95, 1, 72, "Section"], Cell[CellGroupData[{ Cell[25798, 675, 7693, 188, 452, "Input"], Cell[33494, 865, 2607, 56, 346, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36138, 926, 1299, 32, 53, "Input"], Cell[37440, 960, 3238, 70, 373, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40715, 1035, 1182, 27, 53, "Input"], Cell[41900, 1064, 2467, 52, 213, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)