(* 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[ 129870, 2810] NotebookOptionsPosition[ 126058, 2677] NotebookOutlinePosition[ 126469, 2695] CellTagsIndexPosition[ 126426, 2692] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scaling Vector", "Section", CellChangeTimes->{{3.426079509553897*^9, 3.42607953415069*^9}, { 3.426079643486648*^9, 3.426079646412459*^9}}], Cell[CellGroupData[{ Cell["Matrices", "Subsection", CellChangeTimes->{{3.426079653769202*^9, 3.426079655085194*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", RowBox[{"-", "2"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0.02669163201881291`", ",", "0.026188780570349884`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "0.03940748766209954`"}], ",", RowBox[{"-", "0.040769035522339014`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4226545372973013`*^9, 3.422654558321837*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", RowBox[{"-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.11751247435095598`"}], ",", RowBox[{"-", "0.10652668959666897`"}], ",", "0.30676124077120465`", ",", "0.35964167838854366`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.18731879383595215`", ",", "0.18181954032277048`", ",", RowBox[{"-", "0.4224381824999862`"}], ",", RowBox[{"-", "0.433225475337907`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422654562927503*^9, 3.4226545742437963`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", "0", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.7071067811865841`", ",", "0", ",", "0.3067612407712861`", ",", RowBox[{"-", "0.3596416783882024`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0.35355339059336993`", ",", "0.42243818250022613`", ",", RowBox[{"-", "0.43322547533688205`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0.47106586494422936`", ",", "0.23604093395898632`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "0.5666158791523569`"}], ",", RowBox[{"-", "0.2916640296146426`"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422654578721531*^9, 3.4226545881665697`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"G", "[", "1", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.11751247435904282`"}], ",", "0.10652668958949803`", ",", "0.026691633234707347`", ",", RowBox[{"-", "0.026188779541901065`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1873187938600181`"}], ",", "0.18181954030143205`", ",", "0.03940749128037211`", ",", RowBox[{"-", "0.040769032461869345`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6669057455800359`", ",", "0", ",", "0.47106586494422936`", ",", RowBox[{"-", "0.23604093395898632`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0.4333094490577162`", ",", "0.5666158791523569`", ",", RowBox[{"-", "0.2916640296146426`"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422654593602936*^9, 3.422654602910308*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Function Values", "Subsection", CellChangeTimes->{{3.426079668423839*^9, 3.426079672418662*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "phi", "]"}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", "0", "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"1.7308078457850338`", ",", "0", ",", "0", ",", "0"}], "}"}], "//", "N"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7308078457850338`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.4226547218274107`*^9, 3.426080713224373*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"phi", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[LessEqual]", RowBox[{"-", "1"}]}], "||", RowBox[{"x", "\[GreaterEqual]", "1"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"phi", "[", "x", "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.422492098737545*^9, 3.4224921028860292`*^9}, { 3.422492256375923*^9, 3.422492258525436*^9}, {3.426079813041006*^9, 3.426079817023744*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "3", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.422492106708912*^9, 3.42249226041698*^9, 3.422521445965222*^9, 3.4260798214133368`*^9, 3.426080714411646*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"fill", "[", "j_", "]"}], ":=", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"phi", "[", "x", "]"}], "=", RowBox[{ SqrtBox["2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"G", "[", "i", "]"}], ".", RowBox[{"phi", "[", RowBox[{ RowBox[{"2", "x"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "j"}]]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "1", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "2", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "3", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "4", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "5", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "6", "]"}]], "Input"], Cell[BoxData[ RowBox[{"fill", "[", "7", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"pts", "[", "i_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"phi", "[", "x", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "7"}]]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.426079837297325*^9, 3.4260798379821587`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", RowBox[{"-", "1"}], "]"}]], "Input", CellChangeTimes->{{3.422654737365137*^9, 3.422654743817855*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.422654744812707*^9, 3.42608072200871*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", RowBox[{"-", FractionBox["3", "4"]}], "]"}]], "Input", CellChangeTimes->{{3.422654746617156*^9, 3.4226547673736877`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.04034697722021757`", ",", RowBox[{"-", "0.04927664598549466`"}], ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.4226547680736923`*^9, 3.426080722979314*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", RowBox[{"-", FractionBox["1", "2"]}], "]"}]], "Input", CellChangeTimes->{{3.422654844159453*^9, 3.422654853334613*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2876390355683096`"}], ",", "0.4585061926436576`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.422654854036673*^9, 3.426080723746429*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", RowBox[{"-", FractionBox["1", "4"]}], "]"}]], "Input", CellChangeTimes->{{3.422654859250844*^9, 3.4226548661426163`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.5374179101164076`", ",", RowBox[{"-", "0.9400701714079028`"}], ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.4226548667685223`*^9, 3.42608072434822*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "0", "]"}]], "Input", CellChangeTimes->{{3.422654871781979*^9, 3.42265487408648*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7308078457856602`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.4226548754680243`*^9, 3.426080725019836*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", FractionBox["1", "4"], "]"}]], "Input", CellChangeTimes->{{3.4226548776208363`*^9, 3.422654884014617*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.5374179100832768`", ",", "0.9400701713545658`", ",", "0.8162032436688507`", ",", RowBox[{"-", "1.0271042373744192`"}]}], "}"}]], "Output", CellChangeTimes->{3.422654884586828*^9, 3.426080725536989*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", FractionBox["1", "2"], "]"}]], "Input", CellChangeTimes->{{3.422654891674651*^9, 3.422654895462685*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2876390355881189`"}], ",", RowBox[{"-", "0.4585061927025883`"}], ",", "1.6324064873377875`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.422654896082679*^9, 3.426080726289036*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", FractionBox["3", "4"], "]"}]], "Input", CellChangeTimes->{{3.4226549037717524`*^9, 3.4226549124786*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.04034698002955226`", ",", "0.04927665435225846`", ",", "0.8162032436502238`", ",", "1.0271042373383743`"}], "}"}]], "Output", CellChangeTimes->{3.422654913700767*^9, 3.426080727011647*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"phi", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.422654915198339*^9, 3.422654916963518*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.42265491771381*^9, 3.4260807278785887`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Graphs", "Subsection", CellChangeTimes->{{3.426079711307004*^9, 3.426079712276244*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.75"}], ",", "1.75"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{ 3.422654965561881*^9, {3.42265501086458*^9, 3.4226550392620573`*^9}, { 3.4260807309058313`*^9, 3.426080731048716*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.012], LineBox[NCache[{{-1, 0.}, { Rational[-127, 128], -0.000041524548069905104`}, { Rational[-63, 64], -0.00015166619604840552`}, { Rational[-125, 128], -0.00032471280636718}, { Rational[-31, 32], -0.0005837437818992865}, { Rational[-123, 128], -0.0008606176467739053}, { Rational[-61, 64], -0.001078679034106037}, { Rational[-121, 128], -0.0012403657434795583`}, { Rational[-15, 16], -0.0013193240284900495`}, { Rational[-119, 128], -0.001369762094527107}, { Rational[-59, 64], -0.0015013803736694147`}, { Rational[-117, 128], -0.0017495817372246009`}, { Rational[-29, 32], -0.0021270215938574764`}, { Rational[-115, 128], -0.0027196995899302153`}, { Rational[-57, 64], -0.0036221292567119676`}, { Rational[-113, 128], -0.004867607613535601}, { Rational[-7, 8], -0.006512179121865041}, { Rational[-111, 128], -0.007939849480234542}, { Rational[-55, 64], -0.00853654887824632}, { Rational[-109, 128], -0.008362167236538862}, { Rational[-27, 32], -0.007454404644530656}, { Rational[-107, 128], -0.005909409338393266}, { Rational[-53, 64], -0.0038132445084528505`}, { Rational[-105, 128], -0.0011791595362404552`}, { Rational[-13, 16], 0.0019574064274260495`}, { Rational[-103, 128], 0.005472427990240614}, { Rational[-51, 64], 0.009297372084807944}, { Rational[-101, 128], 0.01345855614534988}, { Rational[-25, 32], 0.017952948341253692`}, { Rational[-99, 128], 0.022857140543775026`}, { Rational[-49, 64], 0.028237639592813293`}, { Rational[-97, 128], 0.03406696295678601}, { Rational[-3, 4], 0.04034697722021757}, { Rational[-95, 128], 0.04712704505633406}, { Rational[-47, 64], 0.05433772262953516}, { Rational[-93, 128], 0.0618358528402197}, { Rational[-23, 32], 0.06950769893936012}, { Rational[-91, 128], 0.07714629968582759}, { Rational[-45, 64], 0.08453597849628708}, { Rational[-89, 128], 0.09154186926966937}, { Rational[-11, 16], 0.0979996849312864}, { Rational[-87, 128], 0.1038275993179244}, { Rational[-43, 64], 0.10900047864091932`}, { Rational[-85, 128], 0.113417129462938}, { Rational[-21, 32], 0.11695312405751175`}, { Rational[-83, 128], 0.11955896120292235`}, { Rational[-41, 64], 0.1211938543657866}, { Rational[-81, 128], 0.1217545057183432}, { Rational[-5, 8], 0.12116085063304774`}, { Rational[-79, 128], 0.11864622282534787`}, { Rational[-39, 64], 0.11344587919457813`}, { Rational[-77, 128], 0.10548360127327597`}, { Rational[-19, 32], 0.09466049379133783}, { Rational[-75, 128], 0.08093740555047457}, { Rational[-37, 64], 0.06426489854097472}, { Rational[-73, 128], 0.044519139190037874`}, { Rational[-9, 16], 0.02159896979508461}, { Rational[-71, 128], -0.004506417574019718}, { Rational[-35, 64], -0.033864525139467604`}, { Rational[-69, 128], -0.06663960323986959}, { Rational[-17, 32], -0.10296592374665235`}, { Rational[-67, 128], -0.14305909992528018`}, { Rational[-33, 64], -0.18712445880245562`}, { Rational[-65, 128], -0.23527133369338812`}, { Rational[-1, 2], -0.2876390355683096}, { Rational[-63, 128], -0.3384461871769897}, { Rational[-31, 64], -0.3819688990555088}, { Rational[-61, 128], -0.41844975277732394`}, { Rational[-15, 32], -0.44811673736922186`}, { Rational[-59, 128], -0.47123195781238236`}, { Rational[-29, 64], -0.48804482320203896`}, { Rational[-57, 128], -0.49875254652914014`}, { Rational[-7, 16], -0.5035669293595595}, { Rational[-55, 128], -0.5028129077569433}, { Rational[-27, 64], -0.49677429062308776`}, { Rational[-53, 128], -0.485617118468919}, { Rational[-13, 32], -0.46953103136027274`}, { Rational[-51, 128], -0.4486449053700923}, { Rational[-25, 64], -0.4231003087825489}, { Rational[-49, 128], -0.39311766061726533`}, { Rational[-3, 8], -0.35889377578688736`}, { Rational[-47, 128], -0.32110024971640994`}, { Rational[-23, 64], -0.2803606899724413}, { Rational[-45, 128], -0.2367760388037465}, { Rational[-11, 32], -0.19045693449528048`}, { Rational[-43, 128], -0.14150419195316652`}, { Rational[-21, 64], -0.0900451015746551}, { Rational[-41, 128], -0.036254495143394384`}, { Rational[-5, 16], 0.019702493710303713`}, { Rational[-39, 128], 0.07789920407354174}, { Rational[-19, 64], 0.13836785536364815`}, { Rational[-37, 128], 0.20089754894007694`}, { Rational[-9, 32], 0.2653058798909063}, { Rational[-35, 128], 0.3313450241954394}, { Rational[-17, 64], 0.39879363461879613`}, { Rational[-33, 128], 0.46753349920382353`}, { Rational[-1, 4], 0.5374179101164076}, { Rational[-31, 128], 0.6068022680211493}, { Rational[-15, 64], 0.6741607773123062}, { Rational[-29, 128], 0.7394917567990147}, { Rational[-7, 32], 0.802763245941113}, { Rational[-27, 128], 0.8640273683171148}, { Rational[-13, 64], 0.9233285679946795}, { Rational[-25, 128], 0.9806162742749587}, { Rational[-3, 16], 1.035870188536083}, { Rational[-23, 128], 1.0891358290013122`}, { Rational[-11, 64], 1.1403876416573029`}, { Rational[-21, 128], 1.1895262485947866`}, { Rational[-5, 32], 1.2364879911492852`}, { Rational[-19, 128], 1.2811090210156628`}, { Rational[-9, 64], 1.3232331620262412`}, { Rational[-17, 128], 1.3628153718170575`}, { Rational[-1, 8], 1.3997748771905127`}, { Rational[-15, 128], 1.4348688158330787`}, { Rational[-7, 64], 1.4688063290687503`}, { Rational[-13, 128], 1.5014107765880509`}, { Rational[-3, 32], 1.5325273299961955`}, { Rational[-11, 128], 1.561959065437696}, { Rational[-5, 64], 1.5895405471605897`}, { Rational[-9, 128], 1.6151933089973758`}, { Rational[-1, 16], 1.63881705827922}, { Rational[-7, 128], 1.6600291046360685`}, { Rational[-3, 64], 1.6785178033828674`}, { Rational[-5, 128], 1.6942619580252796`}, { Rational[-1, 32], 1.7071961836027516`}, { Rational[-3, 128], 1.717363344830711}, { Rational[-1, 64], 1.7247748045093576`}, { Rational[-1, 128], 1.7292888262586965`}, {0, 1.7308078457856602`}, { Rational[1, 128], 1.7292888198572192`}, { Rational[1, 64], 1.7247747988865714`}, { Rational[3, 128], 1.7173633428237662`}, { Rational[1, 32], 1.7071961798655453`}, { Rational[5, 128], 1.6942619534569878`}, { Rational[3, 64], 1.6785178044356985`}, { Rational[7, 128], 1.6600291089524235`}, { Rational[1, 16], 1.6388170583662252`}, { Rational[9, 128], 1.6151933056739014`}, { Rational[5, 64], 1.5895405472072126`}, { Rational[11, 128], 1.5619590710855649`}, { Rational[3, 32], 1.532527335826296}, { Rational[13, 128], 1.50141078191539}, { Rational[7, 64], 1.4688063373434048`}, { Rational[15, 128], 1.434868824136737}, { Rational[1, 8], 1.3997748789107463`}, { Rational[17, 128], 1.3628153685003062`}, { Rational[9, 64], 1.3232331594020055`}, { Rational[19, 128], 1.2811090213261982`}, { Rational[5, 32], 1.2364879897559213`}, { Rational[21, 128], 1.1895262464423975`}, { Rational[11, 64], 1.1403876437558087`}, { Rational[23, 128], 1.089135833955099}, { Rational[3, 16], 1.0358701912850026`}, { Rational[25, 128], 0.9806162762703075}, { Rational[13, 64], 0.9233285716384556}, { Rational[27, 128], 0.8640273741115704}, { Rational[7, 32], 0.8027632509055542}, { Rational[29, 128], 0.7394917609295987}, { Rational[15, 64], 0.6741607817343941}, { Rational[31, 128], 0.6068022715859482}, { Rational[1, 4], 0.5374179100832768}, { Rational[33, 128], 0.46753349863248084`}, { Rational[17, 64], 0.39879363507850357`}, { Rational[35, 128], 0.33134502622951434`}, { Rational[9, 32], 0.26530588139019395`}, { Rational[37, 128], 0.20089755043190455`}, { Rational[19, 64], 0.1383678578959292}, { Rational[39, 128], 0.07789920682761609}, { Rational[5, 16], 0.019702494699516602`}, { Rational[41, 128], -0.036254494245003696`}, { Rational[21, 64], -0.0900451013197177}, { Rational[43, 128], -0.14150419225604913`}, { Rational[11, 32], -0.19045693407037922`}, { Rational[45, 128], -0.2367760371467135}, { Rational[23, 64], -0.2803606887453366}, { Rational[47, 128], -0.3211002484136825}, { Rational[3, 8], -0.3588937729768789}, { Rational[49, 128], -0.39311765493791667`}, { Rational[25, 64], -0.42310030262710824`}, { Rational[51, 128], -0.4486448998841616}, { Rational[13, 32], -0.46953102577652556`}, { Rational[53, 128], -0.485617113072158}, { Rational[27, 64], -0.496774287210309}, { Rational[55, 128], -0.5028129056693466}, { Rational[7, 16], -0.5035669264043963}, { Rational[57, 128], -0.49875254279257997`}, { Rational[29, 64], -0.48804482078975675`}, { Rational[59, 128], -0.471231957400814}, { Rational[15, 32], -0.44811673731859686`}, { Rational[61, 128], -0.41844975304409765`}, { Rational[31, 64], -0.3819689004560935}, { Rational[63, 128], -0.33844618888103234`}, { Rational[1, 2], -0.2876390355881189}, { Rational[65, 128], -0.2352713335205405}, { Rational[33, 64], -0.18712445902521502`}, { Rational[67, 128], -0.1430591007485995}, { Rational[17, 32], -0.10296592410778346`}, { Rational[69, 128], -0.0666396034631533}, { Rational[35, 64], -0.033864525708256134`}, { Rational[71, 128], -0.004506418248840186}, { Rational[9, 16], 0.02159896965635269}, { Rational[73, 128], 0.04451913882667811}, { Rational[37, 64], 0.06426489837348477}, { Rational[75, 128], 0.08093740565444038}, { Rational[19, 32], 0.0946604936478108}, { Rational[77, 128], 0.10548360079856284`}, { Rational[39, 64], 0.11344587910527353`}, { Rational[79, 128], 0.1186462229957891}, { Rational[5, 8], 0.1211608505265047}, { Rational[81, 128], 0.1217545051647863}, { Rational[41, 64], 0.12119385390202572`}, { Rational[83, 128], 0.11955896102992003`}, { Rational[21, 32], 0.11695312373985868`}, { Rational[85, 128], 0.1134171290823977}, { Rational[43, 64], 0.10900047869149865`}, { Rational[87, 128], 0.1038275996706912}, { Rational[11, 16], 0.09799968509493862}, { Rational[89, 128], 0.09154186945466757}, { Rational[45, 64], 0.08453597900486859}, { Rational[91, 128], 0.07714630064934354}, { Rational[23, 32], 0.06950770018974957}, { Rational[93, 128], 0.061835854455411565`}, { Rational[47, 64], 0.05433772472099163}, { Rational[95, 128], 0.047127047585656216`}, { Rational[3, 4], 0.04034698002955226}, { Rational[97, 128], 0.03406696630593497}, { Rational[49, 64], 0.028237643467603664`}, { Rational[99, 128], 0.02285714487477238}, { Rational[25, 32], 0.017952952883304955`}, { Rational[101, 128], 0.013458560849514635`}, { Rational[51, 64], 0.009297376945355892}, { Rational[103, 128], 0.0054724328919596695`}, { Rational[13, 16], 0.00195741119512877}, { Rational[105, 128], -0.0011791548645205387`}, { Rational[53, 64], -0.003813240003993831}, { Rational[107, 128], -0.00590940502601653}, { Rational[27, 32], -0.007454400486182836}, { Rational[109, 128], -0.008362163218354455}, { Rational[55, 64], -0.00853654504003241}, { Rational[111, 128], -0.007939845771527222}, { Rational[7, 8], -0.006512175431248736}, { Rational[113, 128], -0.004867603961722512}, { Rational[57, 64], -0.003622125747214919}, { Rational[115, 128], -0.0027196963061803725`}, { Rational[29, 32], -0.0021270185826123365`}, { Rational[117, 128], -0.0017495790484398867`}, { Rational[59, 64], -0.0015013780425617413`}, { Rational[119, 128], -0.001369760133257771}, { Rational[15, 16], -0.0013193224310289148`}, { Rational[121, 128], -0.001240364495868914}, { Rational[61, 64], -0.0010786781007025342`}, { Rational[123, 128], -0.0008606169871556638}, { Rational[31, 32], -0.0005837433435063785}, { Rational[125, 128], -0.00032471254781961335`}, { Rational[63, 64], -0.0001516660793713784}, { Rational[127, 128], -0.00004152452033911969}, { 1, 0.}}, {{-1, 0.}, {-0.9921875, -0.000041524548069905104`}, {-0.984375, \ -0.00015166619604840552`}, {-0.9765625, -0.00032471280636718}, {-0.96875, \ -0.0005837437818992865}, {-0.9609375, -0.0008606176467739053}, {-0.953125, \ -0.001078679034106037}, {-0.9453125, -0.0012403657434795583`}, {-0.9375, \ -0.0013193240284900495`}, {-0.9296875, -0.001369762094527107}, {-0.921875, \ -0.0015013803736694147`}, {-0.9140625, -0.0017495817372246009`}, {-0.90625, \ -0.0021270215938574764`}, {-0.8984375, -0.0027196995899302153`}, {-0.890625, \ -0.0036221292567119676`}, {-0.8828125, -0.004867607613535601}, {-0.875, \ -0.006512179121865041}, {-0.8671875, -0.007939849480234542}, {-0.859375, \ -0.00853654887824632}, {-0.8515625, -0.008362167236538862}, {-0.84375, \ -0.007454404644530656}, {-0.8359375, -0.005909409338393266}, {-0.828125, \ -0.0038132445084528505`}, {-0.8203125, -0.0011791595362404552`}, {-0.8125, 0.0019574064274260495`}, {-0.8046875, 0.005472427990240614}, {-0.796875, 0.009297372084807944}, {-0.7890625, 0.01345855614534988}, {-0.78125, 0.017952948341253692`}, {-0.7734375, 0.022857140543775026`}, {-0.765625, 0.028237639592813293`}, {-0.7578125, 0.03406696295678601}, {-0.75, 0.04034697722021757}, {-0.7421875, 0.04712704505633406}, {-0.734375, 0.05433772262953516}, {-0.7265625, 0.0618358528402197}, {-0.71875, 0.06950769893936012}, {-0.7109375, 0.07714629968582759}, {-0.703125, 0.08453597849628708}, {-0.6953125, 0.09154186926966937}, {-0.6875, 0.0979996849312864}, {-0.6796875, 0.1038275993179244}, {-0.671875, 0.10900047864091932`}, {-0.6640625, 0.113417129462938}, {-0.65625, 0.11695312405751175`}, {-0.6484375, 0.11955896120292235`}, {-0.640625, 0.1211938543657866}, {-0.6328125, 0.1217545057183432}, {-0.625, 0.12116085063304774`}, {-0.6171875, 0.11864622282534787`}, {-0.609375, 0.11344587919457813`}, {-0.6015625, 0.10548360127327597`}, {-0.59375, 0.09466049379133783}, {-0.5859375, 0.08093740555047457}, {-0.578125, 0.06426489854097472}, {-0.5703125, 0.044519139190037874`}, {-0.5625, 0.02159896979508461}, {-0.5546875, -0.004506417574019718}, {-0.546875, \ -0.033864525139467604`}, {-0.5390625, -0.06663960323986959}, {-0.53125, \ -0.10296592374665235`}, {-0.5234375, -0.14305909992528018`}, {-0.515625, \ -0.18712445880245562`}, {-0.5078125, -0.23527133369338812`}, {-0.5, \ -0.2876390355683096}, {-0.4921875, -0.3384461871769897}, {-0.484375, \ -0.3819688990555088}, {-0.4765625, -0.41844975277732394`}, {-0.46875, \ -0.44811673736922186`}, {-0.4609375, -0.47123195781238236`}, {-0.453125, \ -0.48804482320203896`}, {-0.4453125, -0.49875254652914014`}, {-0.4375, \ -0.5035669293595595}, {-0.4296875, -0.5028129077569433}, {-0.421875, \ -0.49677429062308776`}, {-0.4140625, -0.485617118468919}, {-0.40625, \ -0.46953103136027274`}, {-0.3984375, -0.4486449053700923}, {-0.390625, \ -0.4231003087825489}, {-0.3828125, -0.39311766061726533`}, {-0.375, \ -0.35889377578688736`}, {-0.3671875, -0.32110024971640994`}, {-0.359375, \ -0.2803606899724413}, {-0.3515625, -0.2367760388037465}, {-0.34375, \ -0.19045693449528048`}, {-0.3359375, -0.14150419195316652`}, {-0.328125, \ -0.0900451015746551}, {-0.3203125, -0.036254495143394384`}, {-0.3125, 0.019702493710303713`}, {-0.3046875, 0.07789920407354174}, {-0.296875, 0.13836785536364815`}, {-0.2890625, 0.20089754894007694`}, {-0.28125, 0.2653058798909063}, {-0.2734375, 0.3313450241954394}, {-0.265625, 0.39879363461879613`}, {-0.2578125, 0.46753349920382353`}, {-0.25, 0.5374179101164076}, {-0.2421875, 0.6068022680211493}, {-0.234375, 0.6741607773123062}, {-0.2265625, 0.7394917567990147}, {-0.21875, 0.802763245941113}, {-0.2109375, 0.8640273683171148}, {-0.203125, 0.9233285679946795}, {-0.1953125, 0.9806162742749587}, {-0.1875, 1.035870188536083}, {-0.1796875, 1.0891358290013122`}, {-0.171875, 1.1403876416573029`}, {-0.1640625, 1.1895262485947866`}, {-0.15625, 1.2364879911492852`}, {-0.1484375, 1.2811090210156628`}, {-0.140625, 1.3232331620262412`}, {-0.1328125, 1.3628153718170575`}, {-0.125, 1.3997748771905127`}, {-0.1171875, 1.4348688158330787`}, {-0.109375, 1.4688063290687503`}, {-0.1015625, 1.5014107765880509`}, {-0.09375, 1.5325273299961955`}, {-0.0859375, 1.561959065437696}, {-0.078125, 1.5895405471605897`}, {-0.0703125, 1.6151933089973758`}, {-0.0625, 1.63881705827922}, {-0.0546875, 1.6600291046360685`}, {-0.046875, 1.6785178033828674`}, {-0.0390625, 1.6942619580252796`}, {-0.03125, 1.7071961836027516`}, {-0.0234375, 1.717363344830711}, {-0.015625, 1.7247748045093576`}, {-0.0078125, 1.7292888262586965`}, { 0, 1.7308078457856602`}, {0.0078125, 1.7292888198572192`}, {0.015625, 1.7247747988865714`}, {0.0234375, 1.7173633428237662`}, {0.03125, 1.7071961798655453`}, {0.0390625, 1.6942619534569878`}, {0.046875, 1.6785178044356985`}, {0.0546875, 1.6600291089524235`}, {0.0625, 1.6388170583662252`}, {0.0703125, 1.6151933056739014`}, {0.078125, 1.5895405472072126`}, {0.0859375, 1.5619590710855649`}, {0.09375, 1.532527335826296}, {0.1015625, 1.50141078191539}, {0.109375, 1.4688063373434048`}, {0.1171875, 1.434868824136737}, {0.125, 1.3997748789107463`}, {0.1328125, 1.3628153685003062`}, {0.140625, 1.3232331594020055`}, {0.1484375, 1.2811090213261982`}, {0.15625, 1.2364879897559213`}, {0.1640625, 1.1895262464423975`}, {0.171875, 1.1403876437558087`}, {0.1796875, 1.089135833955099}, {0.1875, 1.0358701912850026`}, {0.1953125, 0.9806162762703075}, {0.203125, 0.9233285716384556}, {0.2109375, 0.8640273741115704}, {0.21875, 0.8027632509055542}, {0.2265625, 0.7394917609295987}, {0.234375, 0.6741607817343941}, {0.2421875, 0.6068022715859482}, {0.25, 0.5374179100832768}, {0.2578125, 0.46753349863248084`}, {0.265625, 0.39879363507850357`}, {0.2734375, 0.33134502622951434`}, {0.28125, 0.26530588139019395`}, {0.2890625, 0.20089755043190455`}, {0.296875, 0.1383678578959292}, {0.3046875, 0.07789920682761609}, {0.3125, 0.019702494699516602`}, {0.3203125, -0.036254494245003696`}, { 0.328125, -0.0900451013197177}, {0.3359375, -0.14150419225604913`}, { 0.34375, -0.19045693407037922`}, {0.3515625, -0.2367760371467135}, { 0.359375, -0.2803606887453366}, {0.3671875, -0.3211002484136825}, { 0.375, -0.3588937729768789}, {0.3828125, -0.39311765493791667`}, { 0.390625, -0.42310030262710824`}, {0.3984375, -0.4486448998841616}, { 0.40625, -0.46953102577652556`}, {0.4140625, -0.485617113072158}, { 0.421875, -0.496774287210309}, {0.4296875, -0.5028129056693466}, { 0.4375, -0.5035669264043963}, {0.4453125, -0.49875254279257997`}, { 0.453125, -0.48804482078975675`}, {0.4609375, -0.471231957400814}, { 0.46875, -0.44811673731859686`}, {0.4765625, -0.41844975304409765`}, { 0.484375, -0.3819689004560935}, {0.4921875, -0.33844618888103234`}, { 0.5, -0.2876390355881189}, {0.5078125, -0.2352713335205405}, { 0.515625, -0.18712445902521502`}, {0.5234375, -0.1430591007485995}, { 0.53125, -0.10296592410778346`}, {0.5390625, -0.0666396034631533}, { 0.546875, -0.033864525708256134`}, {0.5546875, -0.004506418248840186}, { 0.5625, 0.02159896965635269}, {0.5703125, 0.04451913882667811}, { 0.578125, 0.06426489837348477}, {0.5859375, 0.08093740565444038}, { 0.59375, 0.0946604936478108}, {0.6015625, 0.10548360079856284`}, { 0.609375, 0.11344587910527353`}, {0.6171875, 0.1186462229957891}, { 0.625, 0.1211608505265047}, {0.6328125, 0.1217545051647863}, {0.640625, 0.12119385390202572`}, {0.6484375, 0.11955896102992003`}, {0.65625, 0.11695312373985868`}, {0.6640625, 0.1134171290823977}, {0.671875, 0.10900047869149865`}, {0.6796875, 0.1038275996706912}, {0.6875, 0.09799968509493862}, {0.6953125, 0.09154186945466757}, {0.703125, 0.08453597900486859}, {0.7109375, 0.07714630064934354}, {0.71875, 0.06950770018974957}, {0.7265625, 0.061835854455411565`}, {0.734375, 0.05433772472099163}, {0.7421875, 0.047127047585656216`}, {0.75, 0.04034698002955226}, {0.7578125, 0.03406696630593497}, {0.765625, 0.028237643467603664`}, {0.7734375, 0.02285714487477238}, {0.78125, 0.017952952883304955`}, {0.7890625, 0.013458560849514635`}, {0.796875, 0.009297376945355892}, {0.8046875, 0.0054724328919596695`}, {0.8125, 0.00195741119512877}, {0.8203125, -0.0011791548645205387`}, { 0.828125, -0.003813240003993831}, {0.8359375, -0.00590940502601653}, { 0.84375, -0.007454400486182836}, {0.8515625, -0.008362163218354455}, { 0.859375, -0.00853654504003241}, {0.8671875, -0.007939845771527222}, { 0.875, -0.006512175431248736}, {0.8828125, -0.004867603961722512}, { 0.890625, -0.003622125747214919}, { 0.8984375, -0.0027196963061803725`}, { 0.90625, -0.0021270185826123365`}, { 0.9140625, -0.0017495790484398867`}, { 0.921875, -0.0015013780425617413`}, { 0.9296875, -0.001369760133257771}, {0.9375, -0.0013193224310289148`}, { 0.9453125, -0.001240364495868914}, { 0.953125, -0.0010786781007025342`}, { 0.9609375, -0.0008606169871556638}, {0.96875, -0.0005837433435063785}, { 0.9765625, -0.00032471254781961335`}, { 0.984375, -0.0001516660793713784}, { 0.9921875, -0.00004152452033911969}, {1, 0.}}]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-1.75, 1.75}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.4260807549633636`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.75"}], ",", "1.75"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4226549749218397`*^9, 3.422655000749878*^9}, { 3.422655048264556*^9, 3.422655048373419*^9}, {3.4260807371461077`*^9, 3.426080737341547*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.012], LineBox[NCache[{{-1, 0.}, {Rational[-127, 128], 0.00008400656606294356}, { Rational[-63, 64], 0.00031084790580897687`}, { Rational[-125, 128], 0.0006631887116639266}, { Rational[-31, 32], 0.0011687676906626764`}, { Rational[-123, 128], 0.001719472783413887}, { Rational[-61, 64], 0.002203632817233437}, { Rational[-121, 128], 0.00264035756704504}, { Rational[-15, 16], 0.0030036827822184204`}, { Rational[-119, 128], 0.0033053376886170694`}, { Rational[-59, 64], 0.003651393779366703}, { Rational[-117, 128], 0.004120879159084331}, { Rational[-29, 32], 0.00475027454250576}, { Rational[-115, 128], 0.005704438356758695}, { Rational[-57, 64], 0.007151788127693886}, { Rational[-113, 128], 0.009137433517557447}, { Rational[-7, 8], 0.011749031534053189`}, { Rational[-111, 128], 0.013945052470616273`}, { Rational[-55, 64], 0.01471397952438514}, { Rational[-109, 128], 0.014203439610242435`}, { Rational[-27, 32], 0.01252720918328226}, { Rational[-107, 128], 0.009879198587042374}, { Rational[-53, 64], 0.006425257245225986}, { Rational[-105, 128], 0.0022111291617231267`}, { Rational[-13, 16], -0.002683591305874287}, { Rational[-103, 128], -0.007929434632590791}, { Rational[-51, 64], -0.013291273729273344`}, { Rational[-101, 128], -0.018794506534524812`}, { Rational[-25, 32], -0.024410759894784376`}, { Rational[-99, 128], -0.030250714057879467`}, { Rational[-49, 64], -0.036396988383140344`}, { Rational[-97, 128], -0.042753177263473253`}, { Rational[-3, 4], -0.04927664598549466}, { Rational[-95, 128], -0.05684565805341429}, { Rational[-47, 64], -0.06611882288275399}, { Rational[-93, 128], -0.07678538012789261}, { Rational[-23, 32], -0.08858945412328495}, { Rational[-91, 128], -0.10110806547895083`}, { Rational[-45, 64], -0.11391153695659849`}, { Rational[-89, 128], -0.12672775502580202`}, { Rational[-11, 16], -0.139229720674919}, { Rational[-87, 128], -0.15115772969514346`}, { Rational[-43, 64], -0.16236514739103908`}, { Rational[-85, 128], -0.17265081020861148`}, { Rational[-21, 32], -0.18176342335915482`}, { Rational[-83, 128], -0.18960473452509471`}, { Rational[-41, 64], -0.19608318833920832`}, { Rational[-81, 128], -0.20096372864523918`}, { Rational[-5, 8], -0.20406142885047465`}, { Rational[-79, 128], -0.20383504594483426`}, { Rational[-39, 64], -0.19877334783205244`}, { Rational[-77, 128], -0.18875137897648078`}, { Rational[-19, 32], -0.1736027491535043}, { Rational[-75, 128], -0.15326139682743933`}, { Rational[-37, 64], -0.12763006016889342`}, { Rational[-73, 128], -0.09646670790244423}, { Rational[-9, 16], -0.05957074176308082}, { Rational[-71, 128], -0.01701892664854128}, { Rational[-35, 64], 0.03122504510993025}, { Rational[-69, 128], 0.0854876056162806}, { Rational[-17, 32], 0.1460316048344771}, { Rational[-67, 128], 0.21328572929888603`}, { Rational[-33, 64], 0.28764746633162336`}, { Rational[-65, 128], 0.36930402431144277`}, { Rational[-1, 2], 0.4585061926436576}, { Rational[-63, 128], 0.5445826250195317}, { Rational[-31, 64], 0.6170292090958499}, { Rational[-61, 128], 0.6763971476051204}, { Rational[-15, 32], 0.7232188214481972}, { Rational[-59, 128], 0.7580568836705517}, { Rational[-29, 64], 0.7814383333143518}, { Rational[-57, 128], 0.7938091169686907}, { Rational[-7, 16], 0.7956339966729185}, { Rational[-55, 128], 0.7876981532555284}, { Rational[-27, 64], 0.7707189851529336}, { Rational[-53, 128], 0.7450858344781838}, { Rational[-13, 32], 0.711232166905198}, { Rational[-51, 128], 0.6694863282361493}, { Rational[-25, 64], 0.6202123124571227}, { Rational[-49, 128], 0.563930024150589}, { Rational[-3, 8], 0.5011152373926672}, { Rational[-47, 128], 0.43300821217615837`}, { Rational[-23, 64], 0.36073403359527134`}, { Rational[-45, 128], 0.2845383613248696}, { Rational[-11, 32], 0.20467760753360414`}, { Rational[-43, 128], 0.12141794830608806`}, { Rational[-21, 64], 0.03508392469149273}, { Rational[-41, 128], -0.053926541155595635`}, { Rational[-5, 16], -0.1452262820491818}, { Rational[-39, 128], -0.2389551238500628}, { Rational[-19, 64], -0.3351851209632078}, { Rational[-37, 128], -0.4334536806648261}, { Rational[-9, 32], -0.5333503991454064}, { Rational[-35, 128], -0.6343520815908285}, { Rational[-17, 64], -0.7359938993624972}, { Rational[-33, 128], -0.8380069584411249}, { Rational[-1, 4], -0.9400701714079028}, { Rational[-31, 128], -1.0382600044151686`}, { Rational[-15, 64], -1.1288725720199992`}, { Rational[-29, 128], -1.2118549176614644`}, { Rational[-7, 32], -1.2870976126557112`}, { Rational[-27, 128], -1.3546414319028337`}, { Rational[-13, 64], -1.4145035371412766`}, { Rational[-25, 128], -1.466517265063284}, { Rational[-3, 16], -1.510572412732795}, { Rational[-23, 128], -1.546765621019491}, { Rational[-11, 64], -1.5750538777287493`}, { Rational[-21, 128], -1.5951715873620476`}, { Rational[-5, 32], -1.6069263713313842`}, { Rational[-19, 128], -1.609926096950326}, { Rational[-9, 64], -1.603802233347156}, { Rational[-17, 128], -1.588419645681746}, { Rational[-1, 8], -1.563569966908426}, { Rational[-15, 128], -1.5306808835978931`}, { Rational[-7, 64], -1.491064897315611}, { Rational[-13, 128], -1.4442835325138974`}, { Rational[-3, 32], -1.3899381566161653`}, { Rational[-11, 128], -1.327562426853631}, { Rational[-5, 64], -1.2567604035639082`}, { Rational[-9, 128], -1.1773041658223764`}, { Rational[-1, 16], -1.0889259360425674`}, { Rational[-7, 128], -0.9907254887822958}, { Rational[-3, 64], -0.8819422207544712}, { Rational[-5, 128], -0.7624637650039489}, { Rational[-1, 32], -0.6320879119793831}, { Rational[-3, 128], -0.490828022777119}, { Rational[-1, 64], -0.3386270437632119}, { Rational[-1, 128], -0.17511206191927767`}, {0, 0.}, { Rational[1, 128], 0.17511205872116556`}, { Rational[1, 64], 0.3386270392963602}, { Rational[3, 128], 0.49082801795841047`}, { Rational[1, 32], 0.6320879076404848}, { Rational[5, 128], 0.7624637605773287}, { Rational[3, 64], 0.8819422184618229}, { Rational[7, 128], 0.990725488495456}, { Rational[1, 16], 1.0889259363247021`}, { Rational[9, 128], 1.1773041639451525`}, { Rational[5, 64], 1.2567604053186578`}, { Rational[11, 128], 1.3275624337419012`}, { Rational[3, 32], 1.3899381627138527`}, { Rational[13, 128], 1.4442835366764042`}, { Rational[7, 64], 1.4910649050913156`}, { Rational[15, 128], 1.5306808923472823`}, { Rational[1, 8], 1.563569969809423}, { Rational[17, 128], 1.5884196415445193`}, { Rational[9, 64], 1.6038022294948888`}, { Rational[19, 128], 1.6099260963537556`}, { Rational[5, 32], 1.6069263691272953`}, { Rational[21, 128], 1.5951715844282868`}, { Rational[11, 64], 1.5750538802303349`}, { Rational[23, 128], 1.5467656268025143`}, { Rational[3, 16], 1.5105724147206812`}, { Rational[25, 128], 1.4665172643181976`}, { Rational[13, 64], 1.4145035387877156`}, { Rational[27, 128], 1.3546414374715998`}, { Rational[7, 32], 1.2870976175224962`}, { Rational[29, 128], 1.2118549217199284`}, { Rational[15, 64], 1.1288725776993005`}, { Rational[31, 128], 1.0382600096961425`}, { Rational[1, 4], 0.9400701713545658}, { Rational[33, 128], 0.8380069571209673}, { Rational[17, 64], 0.7359938997592306}, { Rational[35, 128], 0.6343520847568058}, { Rational[9, 32], 0.5333504014442237}, { Rational[37, 128], 0.43345368294964826`}, { Rational[19, 64], 0.335185125291497}, { Rational[39, 128], 0.2389551287129741}, { Rational[5, 16], 0.1452262837082888}, { Rational[41, 128], 0.05392654231763246}, { Rational[21, 64], -0.03508392440810996}, { Rational[43, 128], -0.1214179485868258}, { Rational[11, 32], -0.2046776066609411}, { Rational[45, 128], -0.2845383585156262}, { Rational[23, 64], -0.3607340313469005}, { Rational[47, 128], -0.4330082098826568}, { Rational[3, 8], -0.5011152332089982}, { Rational[49, 128], -0.5639300155990882}, { Rational[25, 64], -0.6202123031125847}, { Rational[51, 128], -0.6694863198306455}, { Rational[13, 32], -0.7112321584828307}, { Rational[53, 128], -0.7450858263969049}, { Rational[27, 64], -0.7707189800573507}, { Rational[55, 128], -0.7876981500822943}, { Rational[7, 16], -0.7956339920161493}, { Rational[57, 128], -0.7938091108121713}, { Rational[29, 64], -0.7814383292009796}, { Rational[59, 128], -0.7580568827715004}, { Rational[15, 32], -0.7232188211317769}, { Rational[61, 128], -0.676397147819892}, { Rational[31, 64], -0.617029211235429}, { Rational[63, 128], -0.5445826277482886}, { Rational[1, 2], -0.4585061927025883}, { Rational[65, 128], -0.3693040241387504}, { Rational[33, 64], -0.2876474667829319}, { Rational[67, 128], -0.21328573066686915`}, { Rational[17, 32], -0.14603160541967694`}, { Rational[69, 128], -0.08548760595281546}, { Rational[35, 64], -0.031225045917103643`}, { Rational[71, 128], 0.017018925710342223`}, { Rational[9, 16], 0.059570741610067576`}, { Rational[73, 128], 0.0964667072966229}, { Rational[37, 64], 0.12763005989900972`}, { Rational[75, 128], 0.15326139705222036`}, { Rational[19, 32], 0.17360274896126254`}, { Rational[77, 128], 0.18875137823358393`}, { Rational[39, 64], 0.1987733477153673}, { Rational[79, 128], 0.20383504620913762`}, { Rational[5, 8], 0.20406142853305534`}, { Rational[81, 128], 0.2009637275967509}, { Rational[41, 64], 0.19608318741946595`}, { Rational[83, 128], 0.18960473405971465`}, { Rational[21, 32], 0.18176342260925168`}, { Rational[85, 128], 0.17265080935469074`}, { Rational[43, 64], 0.16236514726225731`}, { Rational[87, 128], 0.1511577301470953}, { Rational[11, 16], 0.1392297210068242}, { Rational[89, 128], 0.12672775569148495`}, { Rational[45, 64], 0.1139115383692125}, { Rational[91, 128], 0.10110806787371138`}, { Rational[23, 32], 0.08858945739831499}, { Rational[93, 128], 0.07678538449727165}, { Rational[47, 64], 0.06611882853965556}, { Rational[95, 128], 0.056845665077614814`}, { Rational[3, 4], 0.04927665435225846}, { Rational[97, 128], 0.04275318730950833}, { Rational[49, 64], 0.036396999914454616`}, { Rational[99, 128], 0.03025072681089005}, { Rational[25, 32], 0.024410773384108308`}, { Rational[101, 128], 0.018794520541519224`}, { Rational[51, 64], 0.013291288115434997`}, { Rational[103, 128], 0.007929449116691549}, { Rational[13, 16], 0.002683605530109783}, { Rational[105, 128], -0.002211115232490664}, { Rational[53, 64], -0.0064252437886238205`}, { Rational[107, 128], -0.00987918569904372}, { Rational[27, 32], -0.012527196849917243`}, { Rational[109, 128], -0.014203427848850559`}, { Rational[55, 64], -0.014713968434311803`}, { Rational[111, 128], -0.013945041994371079`}, { Rational[7, 8], -0.011749021506742039`}, { Rational[113, 128], -0.009137423969378177}, { Rational[57, 64], -0.0071517792187982265`}, { Rational[115, 128], -0.0057044302094697045`}, { Rational[29, 32], -0.004750267210707849}, { Rational[117, 128], -0.0041208727046227085`}, { Rational[59, 64], -0.0036513882389016027`}, { Rational[119, 128], -0.0033053330458729935`}, { Rational[15, 16], -0.003003678978471946}, { Rational[121, 128], -0.002640354560522465}, { Rational[61, 64], -0.002203630546092623}, { Rational[123, 128], -0.0017194711680324063`}, { Rational[31, 32], -0.0011687666231113018`}, { Rational[125, 128], -0.0006631880911959326}, { Rational[63, 64], -0.00031084762634357504`}, { Rational[127, 128], -0.00008400649853802713}, { 1, 0.}}, {{-1, 0.}, {-0.9921875, 0.00008400656606294356}, {-0.984375, 0.00031084790580897687`}, {-0.9765625, 0.0006631887116639266}, {-0.96875, 0.0011687676906626764`}, {-0.9609375, 0.001719472783413887}, {-0.953125, 0.002203632817233437}, {-0.9453125, 0.00264035756704504}, {-0.9375, 0.0030036827822184204`}, {-0.9296875, 0.0033053376886170694`}, {-0.921875, 0.003651393779366703}, {-0.9140625, 0.004120879159084331}, {-0.90625, 0.00475027454250576}, {-0.8984375, 0.005704438356758695}, {-0.890625, 0.007151788127693886}, {-0.8828125, 0.009137433517557447}, {-0.875, 0.011749031534053189`}, {-0.8671875, 0.013945052470616273`}, {-0.859375, 0.01471397952438514}, {-0.8515625, 0.014203439610242435`}, {-0.84375, 0.01252720918328226}, {-0.8359375, 0.009879198587042374}, {-0.828125, 0.006425257245225986}, {-0.8203125, 0.0022111291617231267`}, {-0.8125, -0.002683591305874287}, {-0.8046875, \ -0.007929434632590791}, {-0.796875, -0.013291273729273344`}, {-0.7890625, \ -0.018794506534524812`}, {-0.78125, -0.024410759894784376`}, {-0.7734375, \ -0.030250714057879467`}, {-0.765625, -0.036396988383140344`}, {-0.7578125, \ -0.042753177263473253`}, {-0.75, -0.04927664598549466}, {-0.7421875, \ -0.05684565805341429}, {-0.734375, -0.06611882288275399}, {-0.7265625, \ -0.07678538012789261}, {-0.71875, -0.08858945412328495}, {-0.7109375, \ -0.10110806547895083`}, {-0.703125, -0.11391153695659849`}, {-0.6953125, \ -0.12672775502580202`}, {-0.6875, -0.139229720674919}, {-0.6796875, \ -0.15115772969514346`}, {-0.671875, -0.16236514739103908`}, {-0.6640625, \ -0.17265081020861148`}, {-0.65625, -0.18176342335915482`}, {-0.6484375, \ -0.18960473452509471`}, {-0.640625, -0.19608318833920832`}, {-0.6328125, \ -0.20096372864523918`}, {-0.625, -0.20406142885047465`}, {-0.6171875, \ -0.20383504594483426`}, {-0.609375, -0.19877334783205244`}, {-0.6015625, \ -0.18875137897648078`}, {-0.59375, -0.1736027491535043}, {-0.5859375, \ -0.15326139682743933`}, {-0.578125, -0.12763006016889342`}, {-0.5703125, \ -0.09646670790244423}, {-0.5625, -0.05957074176308082}, {-0.5546875, \ -0.01701892664854128}, {-0.546875, 0.03122504510993025}, {-0.5390625, 0.0854876056162806}, {-0.53125, 0.1460316048344771}, {-0.5234375, 0.21328572929888603`}, {-0.515625, 0.28764746633162336`}, {-0.5078125, 0.36930402431144277`}, {-0.5, 0.4585061926436576}, {-0.4921875, 0.5445826250195317}, {-0.484375, 0.6170292090958499}, {-0.4765625, 0.6763971476051204}, {-0.46875, 0.7232188214481972}, {-0.4609375, 0.7580568836705517}, {-0.453125, 0.7814383333143518}, {-0.4453125, 0.7938091169686907}, {-0.4375, 0.7956339966729185}, {-0.4296875, 0.7876981532555284}, {-0.421875, 0.7707189851529336}, {-0.4140625, 0.7450858344781838}, {-0.40625, 0.711232166905198}, {-0.3984375, 0.6694863282361493}, {-0.390625, 0.6202123124571227}, {-0.3828125, 0.563930024150589}, {-0.375, 0.5011152373926672}, {-0.3671875, 0.43300821217615837`}, {-0.359375, 0.36073403359527134`}, {-0.3515625, 0.2845383613248696}, {-0.34375, 0.20467760753360414`}, {-0.3359375, 0.12141794830608806`}, {-0.328125, 0.03508392469149273}, {-0.3203125, -0.053926541155595635`}, {-0.3125, \ -0.1452262820491818}, {-0.3046875, -0.2389551238500628}, {-0.296875, \ -0.3351851209632078}, {-0.2890625, -0.4334536806648261}, {-0.28125, \ -0.5333503991454064}, {-0.2734375, -0.6343520815908285}, {-0.265625, \ -0.7359938993624972}, {-0.2578125, -0.8380069584411249}, {-0.25, \ -0.9400701714079028}, {-0.2421875, -1.0382600044151686`}, {-0.234375, \ -1.1288725720199992`}, {-0.2265625, -1.2118549176614644`}, {-0.21875, \ -1.2870976126557112`}, {-0.2109375, -1.3546414319028337`}, {-0.203125, \ -1.4145035371412766`}, {-0.1953125, -1.466517265063284}, {-0.1875, \ -1.510572412732795}, {-0.1796875, -1.546765621019491}, {-0.171875, \ -1.5750538777287493`}, {-0.1640625, -1.5951715873620476`}, {-0.15625, \ -1.6069263713313842`}, {-0.1484375, -1.609926096950326}, {-0.140625, \ -1.603802233347156}, {-0.1328125, -1.588419645681746}, {-0.125, \ -1.563569966908426}, {-0.1171875, -1.5306808835978931`}, {-0.109375, \ -1.491064897315611}, {-0.1015625, -1.4442835325138974`}, {-0.09375, \ -1.3899381566161653`}, {-0.0859375, -1.327562426853631}, {-0.078125, \ -1.2567604035639082`}, {-0.0703125, -1.1773041658223764`}, {-0.0625, \ -1.0889259360425674`}, {-0.0546875, -0.9907254887822958}, {-0.046875, \ -0.8819422207544712}, {-0.0390625, -0.7624637650039489}, {-0.03125, \ -0.6320879119793831}, {-0.0234375, -0.490828022777119}, {-0.015625, \ -0.3386270437632119}, {-0.0078125, -0.17511206191927767`}, {0, 0.}, { 0.0078125, 0.17511205872116556`}, {0.015625, 0.3386270392963602}, { 0.0234375, 0.49082801795841047`}, {0.03125, 0.6320879076404848}, { 0.0390625, 0.7624637605773287}, {0.046875, 0.8819422184618229}, { 0.0546875, 0.990725488495456}, {0.0625, 1.0889259363247021`}, { 0.0703125, 1.1773041639451525`}, {0.078125, 1.2567604053186578`}, { 0.0859375, 1.3275624337419012`}, {0.09375, 1.3899381627138527`}, { 0.1015625, 1.4442835366764042`}, {0.109375, 1.4910649050913156`}, { 0.1171875, 1.5306808923472823`}, {0.125, 1.563569969809423}, {0.1328125, 1.5884196415445193`}, {0.140625, 1.6038022294948888`}, {0.1484375, 1.6099260963537556`}, {0.15625, 1.6069263691272953`}, {0.1640625, 1.5951715844282868`}, {0.171875, 1.5750538802303349`}, {0.1796875, 1.5467656268025143`}, {0.1875, 1.5105724147206812`}, {0.1953125, 1.4665172643181976`}, {0.203125, 1.4145035387877156`}, {0.2109375, 1.3546414374715998`}, {0.21875, 1.2870976175224962`}, {0.2265625, 1.2118549217199284`}, {0.234375, 1.1288725776993005`}, {0.2421875, 1.0382600096961425`}, {0.25, 0.9400701713545658}, {0.2578125, 0.8380069571209673}, {0.265625, 0.7359938997592306}, {0.2734375, 0.6343520847568058}, {0.28125, 0.5333504014442237}, {0.2890625, 0.43345368294964826`}, {0.296875, 0.335185125291497}, {0.3046875, 0.2389551287129741}, {0.3125, 0.1452262837082888}, {0.3203125, 0.05392654231763246}, {0.328125, -0.03508392440810996}, { 0.3359375, -0.1214179485868258}, {0.34375, -0.2046776066609411}, { 0.3515625, -0.2845383585156262}, {0.359375, -0.3607340313469005}, { 0.3671875, -0.4330082098826568}, {0.375, -0.5011152332089982}, { 0.3828125, -0.5639300155990882}, {0.390625, -0.6202123031125847}, { 0.3984375, -0.6694863198306455}, {0.40625, -0.7112321584828307}, { 0.4140625, -0.7450858263969049}, {0.421875, -0.7707189800573507}, { 0.4296875, -0.7876981500822943}, {0.4375, -0.7956339920161493}, { 0.4453125, -0.7938091108121713}, {0.453125, -0.7814383292009796}, { 0.4609375, -0.7580568827715004}, {0.46875, -0.7232188211317769}, { 0.4765625, -0.676397147819892}, {0.484375, -0.617029211235429}, { 0.4921875, -0.5445826277482886}, {0.5, -0.4585061927025883}, { 0.5078125, -0.3693040241387504}, {0.515625, -0.2876474667829319}, { 0.5234375, -0.21328573066686915`}, {0.53125, -0.14603160541967694`}, { 0.5390625, -0.08548760595281546}, {0.546875, -0.031225045917103643`}, { 0.5546875, 0.017018925710342223`}, {0.5625, 0.059570741610067576`}, { 0.5703125, 0.0964667072966229}, {0.578125, 0.12763005989900972`}, { 0.5859375, 0.15326139705222036`}, {0.59375, 0.17360274896126254`}, { 0.6015625, 0.18875137823358393`}, {0.609375, 0.1987733477153673}, { 0.6171875, 0.20383504620913762`}, {0.625, 0.20406142853305534`}, { 0.6328125, 0.2009637275967509}, {0.640625, 0.19608318741946595`}, { 0.6484375, 0.18960473405971465`}, {0.65625, 0.18176342260925168`}, { 0.6640625, 0.17265080935469074`}, {0.671875, 0.16236514726225731`}, { 0.6796875, 0.1511577301470953}, {0.6875, 0.1392297210068242}, { 0.6953125, 0.12672775569148495`}, {0.703125, 0.1139115383692125}, { 0.7109375, 0.10110806787371138`}, {0.71875, 0.08858945739831499}, { 0.7265625, 0.07678538449727165}, {0.734375, 0.06611882853965556}, { 0.7421875, 0.056845665077614814`}, {0.75, 0.04927665435225846}, { 0.7578125, 0.04275318730950833}, {0.765625, 0.036396999914454616`}, { 0.7734375, 0.03025072681089005}, {0.78125, 0.024410773384108308`}, { 0.7890625, 0.018794520541519224`}, {0.796875, 0.013291288115434997`}, { 0.8046875, 0.007929449116691549}, {0.8125, 0.002683605530109783}, { 0.8203125, -0.002211115232490664}, { 0.828125, -0.0064252437886238205`}, {0.8359375, -0.00987918569904372}, { 0.84375, -0.012527196849917243`}, {0.8515625, -0.014203427848850559`}, { 0.859375, -0.014713968434311803`}, { 0.8671875, -0.013945041994371079`}, {0.875, -0.011749021506742039`}, { 0.8828125, -0.009137423969378177}, { 0.890625, -0.0071517792187982265`}, { 0.8984375, -0.0057044302094697045`}, {0.90625, -0.004750267210707849}, { 0.9140625, -0.0041208727046227085`}, { 0.921875, -0.0036513882389016027`}, { 0.9296875, -0.0033053330458729935`}, {0.9375, -0.003003678978471946}, { 0.9453125, -0.002640354560522465}, {0.953125, -0.002203630546092623}, { 0.9609375, -0.0017194711680324063`}, { 0.96875, -0.0011687666231113018`}, { 0.9765625, -0.0006631880911959326}, { 0.984375, -0.00031084762634357504`}, { 0.9921875, -0.00008400649853802713}, {1, 0.}}]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-1.75, 1.75}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080755213812*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".02", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "3", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.75"}], ",", "1.75"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422655083827963*^9, 3.422655119662138*^9}, 3.422657527271283*^9, 3.4226575905316*^9, {3.42608074105019*^9, 3.426080741271546*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.02], LineBox[NCache[{{-1, 0.}, {Rational[-127, 128], 0.}, { Rational[-63, 64], 0.}, {Rational[-125, 128], 0.}, { Rational[-31, 32], 0.}, {Rational[-123, 128], 0.}, { Rational[-61, 64], 0.}, {Rational[-121, 128], 0.}, { Rational[-15, 16], 0.}, {Rational[-119, 128], 0.}, { Rational[-59, 64], 0.}, {Rational[-117, 128], 0.}, { Rational[-29, 32], 0.}, {Rational[-115, 128], 0.}, { Rational[-57, 64], 0.}, {Rational[-113, 128], 0.}, { Rational[-7, 8], 0.}, {Rational[-111, 128], 0.}, { Rational[-55, 64], 0.}, {Rational[-109, 128], 0.}, { Rational[-27, 32], 0.}, {Rational[-107, 128], 0.}, { Rational[-53, 64], 0.}, {Rational[-105, 128], 0.}, { Rational[-13, 16], 0.}, {Rational[-103, 128], 0.}, { Rational[-51, 64], 0.}, {Rational[-101, 128], 0.}, { Rational[-25, 32], 0.}, {Rational[-99, 128], 0.}, { Rational[-49, 64], 0.}, {Rational[-97, 128], 0.}, { Rational[-3, 4], 0.}, {Rational[-95, 128], 0.}, { Rational[-47, 64], 0.}, {Rational[-93, 128], 0.}, { Rational[-23, 32], 0.}, {Rational[-91, 128], 0.}, { Rational[-45, 64], 0.}, {Rational[-89, 128], 0.}, { Rational[-11, 16], 0.}, {Rational[-87, 128], 0.}, { Rational[-43, 64], 0.}, {Rational[-85, 128], 0.}, { Rational[-21, 32], 0.}, {Rational[-83, 128], 0.}, { Rational[-41, 64], 0.}, {Rational[-81, 128], 0.}, { Rational[-5, 8], 0.}, {Rational[-79, 128], 0.}, { Rational[-39, 64], 0.}, {Rational[-77, 128], 0.}, { Rational[-19, 32], 0.}, {Rational[-75, 128], 0.}, { Rational[-37, 64], 0.}, {Rational[-73, 128], 0.}, { Rational[-9, 16], 0.}, {Rational[-71, 128], 0.}, { Rational[-35, 64], 0.}, {Rational[-69, 128], 0.}, { Rational[-17, 32], 0.}, {Rational[-67, 128], 0.}, { Rational[-33, 64], 0.}, {Rational[-65, 128], 0.}, { Rational[-1, 2], 0.}, {Rational[-63, 128], 0.}, { Rational[-31, 64], 0.}, {Rational[-61, 128], 0.}, { Rational[-15, 32], 0.}, {Rational[-59, 128], 0.}, { Rational[-29, 64], 0.}, {Rational[-57, 128], 0.}, { Rational[-7, 16], 0.}, {Rational[-55, 128], 0.}, { Rational[-27, 64], 0.}, {Rational[-53, 128], 0.}, { Rational[-13, 32], 0.}, {Rational[-51, 128], 0.}, { Rational[-25, 64], 0.}, {Rational[-49, 128], 0.}, { Rational[-3, 8], 0.}, {Rational[-47, 128], 0.}, { Rational[-23, 64], 0.}, {Rational[-45, 128], 0.}, { Rational[-11, 32], 0.}, {Rational[-43, 128], 0.}, { Rational[-21, 64], 0.}, {Rational[-41, 128], 0.}, { Rational[-5, 16], 0.}, {Rational[-39, 128], 0.}, { Rational[-19, 64], 0.}, {Rational[-37, 128], 0.}, { Rational[-9, 32], 0.}, {Rational[-35, 128], 0.}, { Rational[-17, 64], 0.}, {Rational[-33, 128], 0.}, { Rational[-1, 4], 0.}, {Rational[-31, 128], 0.}, { Rational[-15, 64], 0.}, {Rational[-29, 128], 0.}, { Rational[-7, 32], 0.}, {Rational[-27, 128], 0.}, { Rational[-13, 64], 0.}, {Rational[-25, 128], 0.}, { Rational[-3, 16], 0.}, {Rational[-23, 128], 0.}, { Rational[-11, 64], 0.}, {Rational[-21, 128], 0.}, { Rational[-5, 32], 0.}, {Rational[-19, 128], 0.}, { Rational[-9, 64], 0.}, {Rational[-17, 128], 0.}, { Rational[-1, 8], 0.}, {Rational[-15, 128], 0.}, { Rational[-7, 64], 0.}, {Rational[-13, 128], 0.}, { Rational[-3, 32], 0.}, {Rational[-11, 128], 0.}, { Rational[-5, 64], 0.}, {Rational[-9, 128], 0.}, { Rational[-1, 16], 0.}, {Rational[-7, 128], 0.}, { Rational[-3, 64], 0.}, {Rational[-5, 128], 0.}, { Rational[-1, 32], 0.}, {Rational[-3, 128], 0.}, { Rational[-1, 64], 0.}, {Rational[-1, 128], 0.}, {0, 0.}, { Rational[1, 128], 0.0011046651243618456`}, { Rational[1, 64], 0.0043779660026006025`}, { Rational[3, 128], 0.009746801517285754}, { Rational[1, 32], 0.017127177888773715`}, { Rational[5, 128], 0.026478904751866636`}, { Rational[3, 64], 0.03777805905019054}, { Rational[7, 128], 0.05098008651173939}, { Rational[1, 16], 0.06605132536854151}, { Rational[9, 128], 0.08280954859403848}, { Rational[5, 64], 0.10106150676834251`}, { Rational[11, 128], 0.12076127186136114`}, { Rational[3, 32], 0.14186225967852606`}, { Rational[13, 128], 0.1643082399237898}, { Rational[7, 64], 0.188026714650197}, { Rational[15, 128], 0.2129316605272349}, { Rational[1, 8], 0.23893770913566145`}, { Rational[17, 128], 0.26611080030644424`}, { Rational[9, 64], 0.29455219984331943`}, { Rational[19, 128], 0.3242471295300399}, { Rational[5, 32], 0.35519039081972154`}, { Rational[21, 128], 0.3873394938516372}, { Rational[11, 64], 0.42063937452463196`}, { Rational[23, 128], 0.4550543522951154}, { Rational[3, 16], 0.4905391637057554}, { Rational[25, 128], 0.5271635181937995}, { Rational[13, 64], 0.5650081434831769}, { Rational[27, 128], 0.6040400454251296}, { Rational[7, 32], 0.6442255712463268}, { Rational[29, 128], 0.6855419662114905}, { Rational[15, 64], 0.7279790463890721}, { Rational[31, 128], 0.7715336439385735}, { Rational[1, 4], 0.8162032436688507}, { Rational[33, 128], 0.8608728455669694}, { Rational[17, 64], 0.9044274423897783}, { Rational[35, 128], 0.9468645233922193}, { Rational[9, 32], 0.988180916615845}, { Rational[37, 128], 1.028366442689487}, { Rational[19, 64], 1.067398345276374}, { Rational[39, 128], 1.1052429722915371`}, { Rational[5, 16], 1.1418673236160986`}, { Rational[41, 128], 1.1773521361242483`}, { Rational[21, 64], 1.2117671132005234`}, { Rational[43, 128], 1.2450669953631737`}, { Rational[11, 32], 1.2772160980923009`}, { Rational[45, 128], 1.3081593608531041`}, { Rational[23, 64], 1.3378542910724212`}, { Rational[47, 128], 1.3662956915944764`}, { Rational[3, 8], 1.3934687781890012`}, { Rational[49, 128], 1.419474827192578}, { Rational[25, 64], 1.444379772821668}, { Rational[51, 128], 1.4680982496990764`}, { Rational[13, 32], 1.4905442275707574`}, { Rational[53, 128], 1.5116452153626132`}, { Rational[27, 64], 1.5313449828974626`}, { Rational[55, 128], 1.549596944169417}, { Rational[7, 16], 1.566355163802886}, { Rational[57, 128], 1.5814264038182553`}, { Rational[29, 64], 1.5946284313313772`}, { Rational[59, 128], 1.6059275878572028`}, { Rational[15, 32], 1.6152793137548505`}, { Rational[61, 128], 1.6226596909170663`}, { Rational[31, 64], 1.6280285269196817`}, { Rational[63, 128], 1.631301828330136}, { Rational[1, 2], 1.6324064873377875`}, { Rational[65, 128], 1.6313018221929363`}, { Rational[33, 64], 1.628028521314711}, { Rational[67, 128], 1.6226596884599829`}, { Rational[17, 32], 1.6152793094285842`}, { Rational[69, 128], 1.6059275824653638`}, { Rational[35, 64], 1.5946284309271672`}, { Rational[71, 128], 1.5814264061934422`}, { Rational[9, 16], 1.5663551619489655`}, { Rational[73, 128], 1.5495969387214985`}, { Rational[37, 64], 1.5313449804490855`}, { Rational[75, 128], 1.511645218117985}, { Rational[19, 32], 1.4905442302990597`}, { Rational[77, 128], 1.4680982518227412`}, { Rational[39, 64], 1.444379778055267}, { Rational[79, 128], 1.4194748329158262`}, { Rational[5, 8], 1.3934687781822408`}, { Rational[81, 128], 1.3662956869829492`}, { Rational[41, 64], 1.3378542874726629`}, { Rational[83, 128], 1.308159360448989}, { Rational[21, 32], 1.277216096398062}, { Rational[85, 128], 1.245066993171103}, { Rational[43, 64], 1.2117671154549194`}, { Rational[87, 128], 1.1773521412422676`}, { Rational[11, 16], 1.1418673262718764`}, { Rational[89, 128], 1.10524297339154}, { Rational[45, 64], 1.0673983482633491`}, { Rational[91, 128], 1.0283664484503254`}, { Rational[23, 32], 0.9881809214592913}, { Rational[93, 128], 0.9468645270913704}, { Rational[47, 64], 0.9044274470545228}, { Rational[95, 128], 0.860872849712451}, { Rational[3, 4], 0.8162032436502238}, { Rational[97, 128], 0.7715336417269778}, { Rational[49, 64], 0.727979044901233}, { Rational[99, 128], 0.685541966560459}, { Rational[25, 32], 0.6442255707016132}, { Rational[101, 128], 0.604040044547041}, { Rational[51, 64], 0.5650081447035589}, { Rational[103, 128], 0.5271635203771514}, { Rational[13, 16], 0.4905391636017318}, { Rational[105, 128], 0.4550543510221127}, { Rational[53, 64], 0.42063937382127214`}, { Rational[107, 128], 0.3873394944704748}, { Rational[27, 32], 0.3551903918852992}, { Rational[109, 128], 0.32424713119700277`}, { Rational[55, 64], 0.2945522024620585}, { Rational[111, 128], 0.2661108034490474}, { Rational[7, 8], 0.23893771178491102`}, { Rational[113, 128], 0.21293166375190906`}, { Rational[57, 64], 0.18802671875963053`}, { Rational[115, 128], 0.16430824482103334`}, { Rational[29, 32], 0.1418622641722203}, { Rational[117, 128], 0.12076127594874528`}, { Rational[59, 64], 0.1010615109757827}, { Rational[119, 128], 0.08280955273029339}, { Rational[15, 16], 0.066051328902768}, { Rational[121, 128], 0.05098008986798252}, { Rational[61, 64], 0.0377780619746676}, { Rational[123, 128], 0.02647890712051914}, { Rational[31, 32], 0.017127179696003685`}, { Rational[125, 128], 0.009746802844064113}, { Rational[63, 64], 0.004377966743742541}, { Rational[127, 128], 0.0011046653877996462`}, { 1, 0.}}, {{-1, 0.}, {-0.9921875, 0.}, {-0.984375, 0.}, {-0.9765625, 0.}, {-0.96875, 0.}, {-0.9609375, 0.}, {-0.953125, 0.}, {-0.9453125, 0.}, {-0.9375, 0.}, {-0.9296875, 0.}, {-0.921875, 0.}, {-0.9140625, 0.}, {-0.90625, 0.}, {-0.8984375, 0.}, {-0.890625, 0.}, {-0.8828125, 0.}, {-0.875, 0.}, {-0.8671875, 0.}, {-0.859375, 0.}, {-0.8515625, 0.}, {-0.84375, 0.}, {-0.8359375, 0.}, {-0.828125, 0.}, {-0.8203125, 0.}, {-0.8125, 0.}, {-0.8046875, 0.}, {-0.796875, 0.}, {-0.7890625, 0.}, {-0.78125, 0.}, {-0.7734375, 0.}, {-0.765625, 0.}, {-0.7578125, 0.}, {-0.75, 0.}, {-0.7421875, 0.}, {-0.734375, 0.}, {-0.7265625, 0.}, {-0.71875, 0.}, {-0.7109375, 0.}, {-0.703125, 0.}, {-0.6953125, 0.}, {-0.6875, 0.}, {-0.6796875, 0.}, {-0.671875, 0.}, {-0.6640625, 0.}, {-0.65625, 0.}, {-0.6484375, 0.}, {-0.640625, 0.}, {-0.6328125, 0.}, {-0.625, 0.}, {-0.6171875, 0.}, {-0.609375, 0.}, {-0.6015625, 0.}, {-0.59375, 0.}, {-0.5859375, 0.}, {-0.578125, 0.}, {-0.5703125, 0.}, {-0.5625, 0.}, {-0.5546875, 0.}, {-0.546875, 0.}, {-0.5390625, 0.}, {-0.53125, 0.}, {-0.5234375, 0.}, {-0.515625, 0.}, {-0.5078125, 0.}, {-0.5, 0.}, {-0.4921875, 0.}, {-0.484375, 0.}, {-0.4765625, 0.}, {-0.46875, 0.}, {-0.4609375, 0.}, {-0.453125, 0.}, {-0.4453125, 0.}, {-0.4375, 0.}, {-0.4296875, 0.}, {-0.421875, 0.}, {-0.4140625, 0.}, {-0.40625, 0.}, {-0.3984375, 0.}, {-0.390625, 0.}, {-0.3828125, 0.}, {-0.375, 0.}, {-0.3671875, 0.}, {-0.359375, 0.}, {-0.3515625, 0.}, {-0.34375, 0.}, {-0.3359375, 0.}, {-0.328125, 0.}, {-0.3203125, 0.}, {-0.3125, 0.}, {-0.3046875, 0.}, {-0.296875, 0.}, {-0.2890625, 0.}, {-0.28125, 0.}, {-0.2734375, 0.}, {-0.265625, 0.}, {-0.2578125, 0.}, {-0.25, 0.}, {-0.2421875, 0.}, {-0.234375, 0.}, {-0.2265625, 0.}, {-0.21875, 0.}, {-0.2109375, 0.}, {-0.203125, 0.}, {-0.1953125, 0.}, {-0.1875, 0.}, {-0.1796875, 0.}, {-0.171875, 0.}, {-0.1640625, 0.}, {-0.15625, 0.}, {-0.1484375, 0.}, {-0.140625, 0.}, {-0.1328125, 0.}, {-0.125, 0.}, {-0.1171875, 0.}, {-0.109375, 0.}, {-0.1015625, 0.}, {-0.09375, 0.}, {-0.0859375, 0.}, {-0.078125, 0.}, {-0.0703125, 0.}, {-0.0625, 0.}, {-0.0546875, 0.}, {-0.046875, 0.}, {-0.0390625, 0.}, {-0.03125, 0.}, {-0.0234375, 0.}, {-0.015625, 0.}, {-0.0078125, 0.}, {0, 0.}, {0.0078125, 0.0011046651243618456`}, {0.015625, 0.0043779660026006025`}, {0.0234375, 0.009746801517285754}, {0.03125, 0.017127177888773715`}, {0.0390625, 0.026478904751866636`}, {0.046875, 0.03777805905019054}, {0.0546875, 0.05098008651173939}, {0.0625, 0.06605132536854151}, {0.0703125, 0.08280954859403848}, {0.078125, 0.10106150676834251`}, {0.0859375, 0.12076127186136114`}, {0.09375, 0.14186225967852606`}, {0.1015625, 0.1643082399237898}, {0.109375, 0.188026714650197}, {0.1171875, 0.2129316605272349}, {0.125, 0.23893770913566145`}, {0.1328125, 0.26611080030644424`}, {0.140625, 0.29455219984331943`}, {0.1484375, 0.3242471295300399}, {0.15625, 0.35519039081972154`}, {0.1640625, 0.3873394938516372}, {0.171875, 0.42063937452463196`}, {0.1796875, 0.4550543522951154}, {0.1875, 0.4905391637057554}, {0.1953125, 0.5271635181937995}, {0.203125, 0.5650081434831769}, {0.2109375, 0.6040400454251296}, {0.21875, 0.6442255712463268}, {0.2265625, 0.6855419662114905}, {0.234375, 0.7279790463890721}, {0.2421875, 0.7715336439385735}, {0.25, 0.8162032436688507}, {0.2578125, 0.8608728455669694}, {0.265625, 0.9044274423897783}, {0.2734375, 0.9468645233922193}, {0.28125, 0.988180916615845}, {0.2890625, 1.028366442689487}, {0.296875, 1.067398345276374}, {0.3046875, 1.1052429722915371`}, {0.3125, 1.1418673236160986`}, {0.3203125, 1.1773521361242483`}, {0.328125, 1.2117671132005234`}, {0.3359375, 1.2450669953631737`}, {0.34375, 1.2772160980923009`}, {0.3515625, 1.3081593608531041`}, {0.359375, 1.3378542910724212`}, {0.3671875, 1.3662956915944764`}, {0.375, 1.3934687781890012`}, {0.3828125, 1.419474827192578}, {0.390625, 1.444379772821668}, {0.3984375, 1.4680982496990764`}, {0.40625, 1.4905442275707574`}, {0.4140625, 1.5116452153626132`}, {0.421875, 1.5313449828974626`}, {0.4296875, 1.549596944169417}, {0.4375, 1.566355163802886}, {0.4453125, 1.5814264038182553`}, {0.453125, 1.5946284313313772`}, {0.4609375, 1.6059275878572028`}, {0.46875, 1.6152793137548505`}, {0.4765625, 1.6226596909170663`}, {0.484375, 1.6280285269196817`}, {0.4921875, 1.631301828330136}, {0.5, 1.6324064873377875`}, {0.5078125, 1.6313018221929363`}, {0.515625, 1.628028521314711}, {0.5234375, 1.6226596884599829`}, {0.53125, 1.6152793094285842`}, {0.5390625, 1.6059275824653638`}, {0.546875, 1.5946284309271672`}, {0.5546875, 1.5814264061934422`}, {0.5625, 1.5663551619489655`}, {0.5703125, 1.5495969387214985`}, {0.578125, 1.5313449804490855`}, {0.5859375, 1.511645218117985}, {0.59375, 1.4905442302990597`}, {0.6015625, 1.4680982518227412`}, {0.609375, 1.444379778055267}, {0.6171875, 1.4194748329158262`}, {0.625, 1.3934687781822408`}, {0.6328125, 1.3662956869829492`}, {0.640625, 1.3378542874726629`}, {0.6484375, 1.308159360448989}, {0.65625, 1.277216096398062}, {0.6640625, 1.245066993171103}, {0.671875, 1.2117671154549194`}, {0.6796875, 1.1773521412422676`}, {0.6875, 1.1418673262718764`}, {0.6953125, 1.10524297339154}, {0.703125, 1.0673983482633491`}, {0.7109375, 1.0283664484503254`}, {0.71875, 0.9881809214592913}, {0.7265625, 0.9468645270913704}, {0.734375, 0.9044274470545228}, {0.7421875, 0.860872849712451}, {0.75, 0.8162032436502238}, {0.7578125, 0.7715336417269778}, {0.765625, 0.727979044901233}, {0.7734375, 0.685541966560459}, {0.78125, 0.6442255707016132}, {0.7890625, 0.604040044547041}, {0.796875, 0.5650081447035589}, {0.8046875, 0.5271635203771514}, {0.8125, 0.4905391636017318}, {0.8203125, 0.4550543510221127}, {0.828125, 0.42063937382127214`}, {0.8359375, 0.3873394944704748}, {0.84375, 0.3551903918852992}, {0.8515625, 0.32424713119700277`}, {0.859375, 0.2945522024620585}, {0.8671875, 0.2661108034490474}, {0.875, 0.23893771178491102`}, {0.8828125, 0.21293166375190906`}, {0.890625, 0.18802671875963053`}, {0.8984375, 0.16430824482103334`}, {0.90625, 0.1418622641722203}, {0.9140625, 0.12076127594874528`}, {0.921875, 0.1010615109757827}, {0.9296875, 0.08280955273029339}, {0.9375, 0.066051328902768}, {0.9453125, 0.05098008986798252}, {0.953125, 0.0377780619746676}, {0.9609375, 0.02647890712051914}, {0.96875, 0.017127179696003685`}, {0.9765625, 0.009746802844064113}, {0.984375, 0.004377966743742541}, {0.9921875, 0.0011046653877996462`}, {1, 0.}}]]}, Axes->True, PlotRange->{{-0.1, 1.1}, {-1.75, 1.75}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080755307122*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".02", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.75"}], ",", "1.75"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.42265513401194*^9, 3.422655136984071*^9}, 3.422657543383259*^9, 3.422657595069891*^9, {3.426080745482074*^9, 3.4260807457206717`*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.02], LineBox[NCache[{{-1, 0.}, {Rational[-127, 128], 0.}, { Rational[-63, 64], 0.}, {Rational[-125, 128], 0.}, { Rational[-31, 32], 0.}, {Rational[-123, 128], 0.}, { Rational[-61, 64], 0.}, {Rational[-121, 128], 0.}, { Rational[-15, 16], 0.}, {Rational[-119, 128], 0.}, { Rational[-59, 64], 0.}, {Rational[-117, 128], 0.}, { Rational[-29, 32], 0.}, {Rational[-115, 128], 0.}, { Rational[-57, 64], 0.}, {Rational[-113, 128], 0.}, { Rational[-7, 8], 0.}, {Rational[-111, 128], 0.}, { Rational[-55, 64], 0.}, {Rational[-109, 128], 0.}, { Rational[-27, 32], 0.}, {Rational[-107, 128], 0.}, { Rational[-53, 64], 0.}, {Rational[-105, 128], 0.}, { Rational[-13, 16], 0.}, {Rational[-103, 128], 0.}, { Rational[-51, 64], 0.}, {Rational[-101, 128], 0.}, { Rational[-25, 32], 0.}, {Rational[-99, 128], 0.}, { Rational[-49, 64], 0.}, {Rational[-97, 128], 0.}, { Rational[-3, 4], 0.}, {Rational[-95, 128], 0.}, { Rational[-47, 64], 0.}, {Rational[-93, 128], 0.}, { Rational[-23, 32], 0.}, {Rational[-91, 128], 0.}, { Rational[-45, 64], 0.}, {Rational[-89, 128], 0.}, { Rational[-11, 16], 0.}, {Rational[-87, 128], 0.}, { Rational[-43, 64], 0.}, {Rational[-85, 128], 0.}, { Rational[-21, 32], 0.}, {Rational[-83, 128], 0.}, { Rational[-41, 64], 0.}, {Rational[-81, 128], 0.}, { Rational[-5, 8], 0.}, {Rational[-79, 128], 0.}, { Rational[-39, 64], 0.}, {Rational[-77, 128], 0.}, { Rational[-19, 32], 0.}, {Rational[-75, 128], 0.}, { Rational[-37, 64], 0.}, {Rational[-73, 128], 0.}, { Rational[-9, 16], 0.}, {Rational[-71, 128], 0.}, { Rational[-35, 64], 0.}, {Rational[-69, 128], 0.}, { Rational[-17, 32], 0.}, {Rational[-67, 128], 0.}, { Rational[-33, 64], 0.}, {Rational[-65, 128], 0.}, { Rational[-1, 2], 0.}, {Rational[-63, 128], 0.}, { Rational[-31, 64], 0.}, {Rational[-61, 128], 0.}, { Rational[-15, 32], 0.}, {Rational[-59, 128], 0.}, { Rational[-29, 64], 0.}, {Rational[-57, 128], 0.}, { Rational[-7, 16], 0.}, {Rational[-55, 128], 0.}, { Rational[-27, 64], 0.}, {Rational[-53, 128], 0.}, { Rational[-13, 32], 0.}, {Rational[-51, 128], 0.}, { Rational[-25, 64], 0.}, {Rational[-49, 128], 0.}, { Rational[-3, 8], 0.}, {Rational[-47, 128], 0.}, { Rational[-23, 64], 0.}, {Rational[-45, 128], 0.}, { Rational[-11, 32], 0.}, {Rational[-43, 128], 0.}, { Rational[-21, 64], 0.}, {Rational[-41, 128], 0.}, { Rational[-5, 16], 0.}, {Rational[-39, 128], 0.}, { Rational[-19, 64], 0.}, {Rational[-37, 128], 0.}, { Rational[-9, 32], 0.}, {Rational[-35, 128], 0.}, { Rational[-17, 64], 0.}, {Rational[-33, 128], 0.}, { Rational[-1, 4], 0.}, {Rational[-31, 128], 0.}, { Rational[-15, 64], 0.}, {Rational[-29, 128], 0.}, { Rational[-7, 32], 0.}, {Rational[-27, 128], 0.}, { Rational[-13, 64], 0.}, {Rational[-25, 128], 0.}, { Rational[-3, 16], 0.}, {Rational[-23, 128], 0.}, { Rational[-11, 64], 0.}, {Rational[-21, 128], 0.}, { Rational[-5, 32], 0.}, {Rational[-19, 128], 0.}, { Rational[-9, 64], 0.}, {Rational[-17, 128], 0.}, { Rational[-1, 8], 0.}, {Rational[-15, 128], 0.}, { Rational[-7, 64], 0.}, {Rational[-13, 128], 0.}, { Rational[-3, 32], 0.}, {Rational[-11, 128], 0.}, { Rational[-5, 64], 0.}, {Rational[-9, 128], 0.}, { Rational[-1, 16], 0.}, {Rational[-7, 128], 0.}, { Rational[-3, 64], 0.}, {Rational[-5, 128], 0.}, { Rational[-1, 32], 0.}, {Rational[-3, 128], 0.}, { Rational[-1, 64], 0.}, {Rational[-1, 128], 0.}, {0, 0.}, { Rational[1, 128], -0.0012555477014169123`}, { Rational[1, 64], -0.004999332378446648}, { Rational[3, 128], -0.011124564681438536`}, { Rational[1, 32], -0.019416281994065997`}, { Rational[5, 128], -0.0300217085992897}, { Rational[3, 64], -0.043147377865092165`}, { Rational[7, 128], -0.058722119834945574`}, { Rational[1, 16], -0.07678293764068565}, { Rational[9, 128], -0.09681685774780913}, { Rational[5, 64], -0.11812329889061192`}, { Rational[11, 128], -0.14053047838333518`}, { Rational[3, 32], -0.1639326821540111}, { Rational[13, 128], -0.1879865416810309}, { Rational[7, 64], -0.21228937895813904`}, { Rational[15, 128], -0.23659168767943486`}, { Rational[1, 8], -0.26057789148298655`}, { Rational[17, 128], -0.28624175958000314`}, { Rational[9, 64], -0.31564533612289625`}, { Rational[19, 128], -0.34860947197625974`}, { Rational[5, 32], -0.38504087027133105`}, { Rational[21, 128], -0.4245948479480251}, { Rational[11, 64], -0.4669302905712193}, { Rational[23, 128], -0.5119625573573197}, { Rational[3, 16], -0.5595211517116198}, { Rational[25, 128], -0.6094137050164755}, { Rational[13, 64], -0.6616354519457305}, { Rational[27, 128], -0.7162246851127194}, { Rational[7, 32], -0.7731313052487133}, { Rational[29, 128], -0.8325641023625608}, { Rational[15, 64], -0.894728293962685}, { Rational[31, 128], -0.9595651280488828}, { Rational[1, 4], -1.0271042373744192`}, { Rational[33, 128], -1.0951863073692378`}, { Rational[17, 64], -1.161299774622841}, { Rational[35, 128], -1.2250443066905823`}, { Rational[9, 32], -1.2861054181468552`}, { Rational[37, 128], -1.343877546027447}, { Rational[19, 64], -1.3977029531301999`}, { Rational[39, 128], -1.4471406751176834`}, { Rational[5, 16], -1.4916638886741644`}, { Rational[41, 128], -1.53122842682955}, { Rational[21, 64], -1.5659351106776092`}, { Rational[43, 128], -1.5954184978794155`}, { Rational[11, 32], -1.619264319094747}, { Rational[45, 128], -1.637239863372137}, { Rational[23, 64], -1.6491645824033627`}, { Rational[47, 128], -1.6547506950384865`}, { Rational[3, 8], -1.6537592317391008`}, { Rational[49, 128], -1.6441586035359075`}, { Rational[25, 64], -1.6238489261232236`}, { Rational[51, 128], -1.5924548136930947`}, { Rational[13, 32], -1.5495322661623263`}, { Rational[53, 128], -1.4948427515478973`}, { Rational[27, 64], -1.4281513002439983`}, { Rational[55, 128], -1.3490225725437153`}, { Rational[7, 16], -1.2570898279494955`}, { Rational[57, 128], -1.151945693994456}, { Rational[29, 64], -1.033037777376203}, { Rational[59, 128], -0.8998379757218287}, { Rational[15, 32], -0.7518842502217424}, { Rational[61, 128], -0.5885166117112145}, { Rational[31, 64], -0.4090714958262169}, { Rational[63, 128], -0.21307821248144648`}, {Rational[1, 2], 0.}, { Rational[65, 128], 0.21307820872975847`}, { Rational[33, 64], 0.4090714906364356}, { Rational[67, 128], 0.5885166061071587}, { Rational[17, 32], 0.7518842450247398}, { Rational[69, 128], 0.8998379701723355}, { Rational[35, 64], 1.033037773917185}, { Rational[71, 128], 1.1519456921407925`}, { Rational[9, 16], 1.2570898254895564`}, { Rational[73, 128], 1.3490225665668814`}, { Rational[37, 64], 1.4281512975151311`}, { Rational[75, 128], 1.494842754024551}, { Rational[19, 32], 1.5495322675458494`}, { Rational[77, 128], 1.5924548131063456`}, { Rational[39, 64], 1.623848929774981}, { Rational[79, 128], 1.6441586089020461`}, { Rational[5, 8], 1.653759231736266}, { Rational[81, 128], 1.6547506891495907`}, { Rational[41, 64], 1.6491645777226203`}, { Rational[83, 128], 1.6372398626393045`}, { Rational[21, 32], 1.6192643169231713`}, { Rational[85, 128], 1.5954184950966113`}, { Rational[43, 64], 1.5659351134657986`}, { Rational[87, 128], 1.5312284330226582`}, { Rational[11, 16], 1.491663891244563}, { Rational[89, 128], 1.4471406751440117`}, { Rational[45, 64], 1.3977029555345544`}, { Rational[91, 128], 1.3438775522375876`}, { Rational[23, 32], 1.286105423500818}, { Rational[93, 128], 1.2250443109619702`}, { Rational[47, 64], 1.1612997804271648`}, { Rational[95, 128], 1.0951863126902055`}, { Rational[3, 4], 1.0271042373383743`}, { Rational[97, 128], 0.9595651254216876}, { Rational[49, 64], 0.8947282922810592}, { Rational[99, 128], 0.832564102970834}, { Rational[25, 32], 0.773131304684074}, { Rational[101, 128], 0.716224684111037}, { Rational[51, 64], 0.6616354534435177}, { Rational[103, 128], 0.6094137076325032}, { Rational[13, 16], 0.5595211515128825}, { Rational[105, 128], 0.5119625558398758}, { Rational[53, 64], 0.46693028964980404`}, { Rational[107, 128], 0.4245948485255496}, { Rational[27, 32], 0.3850408715426267}, { Rational[109, 128], 0.3486094742436865}, { Rational[55, 64], 0.31564533980257564`}, { Rational[111, 128], 0.2862417643903145}, { Rational[7, 8], 0.2605778966100269}, { Rational[113, 128], 0.2365916942471441}, { Rational[57, 64], 0.21228938702071237`}, { Rational[115, 128], 0.18798655085687768`}, { Rational[29, 32], 0.16393269086913717`}, { Rational[117, 128], 0.14053048644588972`}, { Rational[59, 64], 0.11812330677789347`}, { Rational[119, 128], 0.09681686512438455}, { Rational[15, 16], 0.07678294379345565}, { Rational[121, 128], 0.05872212526159225}, { Rational[61, 64], 0.043147382364057185`}, { Rational[123, 128], 0.030021712112624874`}, { Rational[31, 32], 0.019416284619139444`}, { Rational[125, 128], 0.011124566560894588`}, { Rational[63, 64], 0.004999333398018267}, { Rational[127, 128], 0.0012555480460119319`}, { 1, 0.}}, {{-1, 0.}, {-0.9921875, 0.}, {-0.984375, 0.}, {-0.9765625, 0.}, {-0.96875, 0.}, {-0.9609375, 0.}, {-0.953125, 0.}, {-0.9453125, 0.}, {-0.9375, 0.}, {-0.9296875, 0.}, {-0.921875, 0.}, {-0.9140625, 0.}, {-0.90625, 0.}, {-0.8984375, 0.}, {-0.890625, 0.}, {-0.8828125, 0.}, {-0.875, 0.}, {-0.8671875, 0.}, {-0.859375, 0.}, {-0.8515625, 0.}, {-0.84375, 0.}, {-0.8359375, 0.}, {-0.828125, 0.}, {-0.8203125, 0.}, {-0.8125, 0.}, {-0.8046875, 0.}, {-0.796875, 0.}, {-0.7890625, 0.}, {-0.78125, 0.}, {-0.7734375, 0.}, {-0.765625, 0.}, {-0.7578125, 0.}, {-0.75, 0.}, {-0.7421875, 0.}, {-0.734375, 0.}, {-0.7265625, 0.}, {-0.71875, 0.}, {-0.7109375, 0.}, {-0.703125, 0.}, {-0.6953125, 0.}, {-0.6875, 0.}, {-0.6796875, 0.}, {-0.671875, 0.}, {-0.6640625, 0.}, {-0.65625, 0.}, {-0.6484375, 0.}, {-0.640625, 0.}, {-0.6328125, 0.}, {-0.625, 0.}, {-0.6171875, 0.}, {-0.609375, 0.}, {-0.6015625, 0.}, {-0.59375, 0.}, {-0.5859375, 0.}, {-0.578125, 0.}, {-0.5703125, 0.}, {-0.5625, 0.}, {-0.5546875, 0.}, {-0.546875, 0.}, {-0.5390625, 0.}, {-0.53125, 0.}, {-0.5234375, 0.}, {-0.515625, 0.}, {-0.5078125, 0.}, {-0.5, 0.}, {-0.4921875, 0.}, {-0.484375, 0.}, {-0.4765625, 0.}, {-0.46875, 0.}, {-0.4609375, 0.}, {-0.453125, 0.}, {-0.4453125, 0.}, {-0.4375, 0.}, {-0.4296875, 0.}, {-0.421875, 0.}, {-0.4140625, 0.}, {-0.40625, 0.}, {-0.3984375, 0.}, {-0.390625, 0.}, {-0.3828125, 0.}, {-0.375, 0.}, {-0.3671875, 0.}, {-0.359375, 0.}, {-0.3515625, 0.}, {-0.34375, 0.}, {-0.3359375, 0.}, {-0.328125, 0.}, {-0.3203125, 0.}, {-0.3125, 0.}, {-0.3046875, 0.}, {-0.296875, 0.}, {-0.2890625, 0.}, {-0.28125, 0.}, {-0.2734375, 0.}, {-0.265625, 0.}, {-0.2578125, 0.}, {-0.25, 0.}, {-0.2421875, 0.}, {-0.234375, 0.}, {-0.2265625, 0.}, {-0.21875, 0.}, {-0.2109375, 0.}, {-0.203125, 0.}, {-0.1953125, 0.}, {-0.1875, 0.}, {-0.1796875, 0.}, {-0.171875, 0.}, {-0.1640625, 0.}, {-0.15625, 0.}, {-0.1484375, 0.}, {-0.140625, 0.}, {-0.1328125, 0.}, {-0.125, 0.}, {-0.1171875, 0.}, {-0.109375, 0.}, {-0.1015625, 0.}, {-0.09375, 0.}, {-0.0859375, 0.}, {-0.078125, 0.}, {-0.0703125, 0.}, {-0.0625, 0.}, {-0.0546875, 0.}, {-0.046875, 0.}, {-0.0390625, 0.}, {-0.03125, 0.}, {-0.0234375, 0.}, {-0.015625, 0.}, {-0.0078125, 0.}, {0, 0.}, {0.0078125, -0.0012555477014169123`}, { 0.015625, -0.004999332378446648}, {0.0234375, -0.011124564681438536`}, { 0.03125, -0.019416281994065997`}, {0.0390625, -0.0300217085992897}, { 0.046875, -0.043147377865092165`}, { 0.0546875, -0.058722119834945574`}, {0.0625, -0.07678293764068565}, { 0.0703125, -0.09681685774780913}, {0.078125, -0.11812329889061192`}, { 0.0859375, -0.14053047838333518`}, {0.09375, -0.1639326821540111}, { 0.1015625, -0.1879865416810309}, {0.109375, -0.21228937895813904`}, { 0.1171875, -0.23659168767943486`}, {0.125, -0.26057789148298655`}, { 0.1328125, -0.28624175958000314`}, {0.140625, -0.31564533612289625`}, { 0.1484375, -0.34860947197625974`}, {0.15625, -0.38504087027133105`}, { 0.1640625, -0.4245948479480251}, {0.171875, -0.4669302905712193}, { 0.1796875, -0.5119625573573197}, {0.1875, -0.5595211517116198}, { 0.1953125, -0.6094137050164755}, {0.203125, -0.6616354519457305}, { 0.2109375, -0.7162246851127194}, {0.21875, -0.7731313052487133}, { 0.2265625, -0.8325641023625608}, {0.234375, -0.894728293962685}, { 0.2421875, -0.9595651280488828}, {0.25, -1.0271042373744192`}, { 0.2578125, -1.0951863073692378`}, {0.265625, -1.161299774622841}, { 0.2734375, -1.2250443066905823`}, {0.28125, -1.2861054181468552`}, { 0.2890625, -1.343877546027447}, {0.296875, -1.3977029531301999`}, { 0.3046875, -1.4471406751176834`}, {0.3125, -1.4916638886741644`}, { 0.3203125, -1.53122842682955}, {0.328125, -1.5659351106776092`}, { 0.3359375, -1.5954184978794155`}, {0.34375, -1.619264319094747}, { 0.3515625, -1.637239863372137}, {0.359375, -1.6491645824033627`}, { 0.3671875, -1.6547506950384865`}, {0.375, -1.6537592317391008`}, { 0.3828125, -1.6441586035359075`}, {0.390625, -1.6238489261232236`}, { 0.3984375, -1.5924548136930947`}, {0.40625, -1.5495322661623263`}, { 0.4140625, -1.4948427515478973`}, {0.421875, -1.4281513002439983`}, { 0.4296875, -1.3490225725437153`}, {0.4375, -1.2570898279494955`}, { 0.4453125, -1.151945693994456}, {0.453125, -1.033037777376203}, { 0.4609375, -0.8998379757218287}, {0.46875, -0.7518842502217424}, { 0.4765625, -0.5885166117112145}, {0.484375, -0.4090714958262169}, { 0.4921875, -0.21307821248144648`}, {0.5, 0.}, {0.5078125, 0.21307820872975847`}, {0.515625, 0.4090714906364356}, {0.5234375, 0.5885166061071587}, {0.53125, 0.7518842450247398}, {0.5390625, 0.8998379701723355}, {0.546875, 1.033037773917185}, {0.5546875, 1.1519456921407925`}, {0.5625, 1.2570898254895564`}, {0.5703125, 1.3490225665668814`}, {0.578125, 1.4281512975151311`}, {0.5859375, 1.494842754024551}, {0.59375, 1.5495322675458494`}, {0.6015625, 1.5924548131063456`}, {0.609375, 1.623848929774981}, {0.6171875, 1.6441586089020461`}, {0.625, 1.653759231736266}, {0.6328125, 1.6547506891495907`}, {0.640625, 1.6491645777226203`}, {0.6484375, 1.6372398626393045`}, {0.65625, 1.6192643169231713`}, {0.6640625, 1.5954184950966113`}, {0.671875, 1.5659351134657986`}, {0.6796875, 1.5312284330226582`}, {0.6875, 1.491663891244563}, {0.6953125, 1.4471406751440117`}, {0.703125, 1.3977029555345544`}, {0.7109375, 1.3438775522375876`}, {0.71875, 1.286105423500818}, {0.7265625, 1.2250443109619702`}, {0.734375, 1.1612997804271648`}, {0.7421875, 1.0951863126902055`}, {0.75, 1.0271042373383743`}, {0.7578125, 0.9595651254216876}, {0.765625, 0.8947282922810592}, {0.7734375, 0.832564102970834}, {0.78125, 0.773131304684074}, {0.7890625, 0.716224684111037}, {0.796875, 0.6616354534435177}, {0.8046875, 0.6094137076325032}, {0.8125, 0.5595211515128825}, {0.8203125, 0.5119625558398758}, {0.828125, 0.46693028964980404`}, {0.8359375, 0.4245948485255496}, {0.84375, 0.3850408715426267}, {0.8515625, 0.3486094742436865}, {0.859375, 0.31564533980257564`}, {0.8671875, 0.2862417643903145}, {0.875, 0.2605778966100269}, {0.8828125, 0.2365916942471441}, {0.890625, 0.21228938702071237`}, {0.8984375, 0.18798655085687768`}, {0.90625, 0.16393269086913717`}, {0.9140625, 0.14053048644588972`}, {0.921875, 0.11812330677789347`}, {0.9296875, 0.09681686512438455}, {0.9375, 0.07678294379345565}, {0.9453125, 0.05872212526159225}, {0.953125, 0.043147382364057185`}, {0.9609375, 0.030021712112624874`}, {0.96875, 0.019416284619139444`}, {0.9765625, 0.011124566560894588`}, {0.984375, 0.004999333398018267}, {0.9921875, 0.0012555480460119319`}, {1, 0.}}]]}, Axes->True, PlotRange->{{-0.1, 1.1}, {-1.75, 1.75}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.4260807553906183`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Multiwavelet", "Section", CellChangeTimes->{{3.426079610315893*^9, 3.426079623140115*^9}, { 3.426080285831526*^9, 3.426080286960017*^9}}], Cell[CellGroupData[{ Cell["Matrices", "Subsection", CellChangeTimes->{{3.426080290025937*^9, 3.426080295036337*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"-", "2"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0.026691631350082096`", ",", "0.026188779914217485`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0.043743653006003906`", ",", "0.06435982959198171`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "0.013410540810749855`"}], ",", RowBox[{"-", "0.013157895717088848`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "0.04006995259666773`"}], ",", RowBox[{"-", "0.060651857618035654`"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4226576952160378`*^9, 3.4226577090489483`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", RowBox[{"-", "1"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.11751247140680432`"}], ",", RowBox[{"-", "0.10652668692775462`"}], ",", "0.30676123308562386`", ",", "0.35964166937809905`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3334538093583894`"}], ",", RowBox[{"-", "0.4246928494631754`"}], ",", "0.1922977905008767`", ",", RowBox[{"-", "0.4067067810936163`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.05904119433180234`", ",", "0.053521662417019424`", ",", RowBox[{"-", "0.15412448873935367`"}], ",", RowBox[{"-", "0.18069293784197155`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.31660009019953533`", ",", "0.4088238959496059`", ",", RowBox[{"-", "0.15157506646288071`"}], ",", "0.45139832417009795`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4226577203967876`*^9, 3.422657730560384*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", "0", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.707106787091808`"}], ",", "0", ",", "0.3067612330857053`", ",", RowBox[{"-", "0.35964166937775777`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0.1922977905022298`", ",", "0.4067067810994858`"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.9347644627208598`"}], ",", "0.15412448873939458`", ",", RowBox[{"-", "0.18069293784180007`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.034862829700229456`"}], ",", "0.15157506646421662`", ",", "0.4513983241758947`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.4226577374525557`*^9, 3.42265774896627*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"H", "[", "1", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.11751247141489116`"}], ",", "0.10652668692058367`", ",", "0.0266916325659765`", ",", RowBox[{"-", "0.02618877888576869`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3334538094952176`"}], ",", "0.42469284934186313`", ",", "0.04374367357717413`", ",", RowBox[{"-", "0.06435981219212035`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.05904119433586537`"}], ",", "0.05352166241341656`", ",", "0.013410541421645506`", ",", RowBox[{"-", "0.013157895200370542`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.316600090334654`"}], ",", "0.4088238958298094`", ",", "0.04006997291081931`", ",", RowBox[{"-", "0.060651840435570196`"}]}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.422657755070614*^9, 3.422657762679145*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Graphs", "Subsection", CellChangeTimes->{{3.426080307028167*^9, 3.4260803078080606`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"psi", "[", "x", "]"}], "=", RowBox[{ SqrtBox["2"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"H", "[", "i", "]"}], ".", RowBox[{"phi", "[", RowBox[{ RowBox[{"2", "x"}], "-", "i"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "7"}]]}], "}"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"pts", "[", "i_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"psi", "[", "x", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1", ",", SuperscriptBox["2", RowBox[{"-", "7"}]]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{ 3.422654965561881*^9, {3.42265501086458*^9, 3.4226550392620573`*^9}, { 3.4226578218843718`*^9, 3.42265783882628*^9}, {3.426080768577818*^9, 3.4260807687375298`*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.012], LineBox[CompressedData[" 1:eJxNl3lcVHUXxq+Vhkb6qkFokuACLqW4vJppnhlLUVMSUcCdRQxRXEHxdbtC gQElkrmECyogr0zKokCgngFkE0RA9mVgYGAWhkVBDRHrfT+ce3/MP3yeOXxn 7tx7fuc8j7nL7tVu73AcN2AAx/3/b9+rA7n+L3k7TvdzCl2TObDvfb4dD+pL Y0Yox/dpSTvWv3SozLL+N3Ht6CtRzsg3+7pPy9uwWPZ2icusFcS3oZlJaoaN zJb4NlxWpwj0Wb2G+DacbL1vfeSltcS34shxYwtn7rUnvhU9Jq2sWXjBkfhW 9B6vGWx9cyPxrZhpHfz29k5n4vUY+YNByBXrbcTrceIIba6lzJN4Pa4dm717 aMd+4vXoZuGV4if7D/EtGJH0JuDhIp74FhzsKZty8fAJ4luQM/hq2HQz0lwL rtua5O178hjxOuw0cO48MNuHeB2OurN3QNeC3cTrcOERS6Xc1o54HU6ZMiX4 tYET9PFa9H4beFPqcaBP81r8yNzBjB/i16clWgye5JwzKSSoT3NabBm5sEPq Ekq8Bm9nXYmv+f4c8RoMDzBV2OkuEq/Bu2Pmhszbe5V4Deb8fkWxITqCeDUu UH9vNdg8mng1FmwN3WJZHEO8GqUP3lc8j75NvBrnGS6LkubFEd+M222qR9Vg AvHNuHGLcq1FxF3im/FWRL1s2e4k4ptxXqqk/ITxn8Q3oUWP7Xv7zqQQ34SP Zi4N8FKnEt+En02NvKo2uE98E5aAe9b1DtJyFQa17z3oEfaAeBWWXW/fcWoQ Eq/CHO9R51ZOJc2p8FTEm7tu75GWN2JI0bBFF7YIfCNKL+b/lTuEPl/SiGtV zp92c3Q9XCM2dSt8Y+YnE9+Ah6dZrlyVfIf4Bgy0vzD05v5Y4hvwoY3l1jl5 UcQ3YFr68uVDPj1LvBJPZSjnrfbeR/2jxEefR9XH2l+l/lHiBNXG3uXD4qh/ lJid+i7fvSGF+q8ep3308a3079KJr8fTbevi4jqzia/H8LDlzzabFhBfj0dP vPL/w72Y/r8OmxecVplHlFK9DsesUpUbbqmgugKzT3Y/ORlRRXUFegWNP5Lo W0P1WtzW4RV08FUt1WuxvvrQz54vFVSvQYcv15rVedVRvQYnzrp6ydCNNF+N q+7PdtpoLNSrMSPp8tcNZQJfhTce2b1wO0eaq8KxN25i+wqhXol+djZGUrXw /ZXobnfmhw1OpPkK7KydtNM8i66Xq8DV3zacnD1OuP5yzNs3ULn3RDXVy7Gm N/nh0HL6vXwZPpnqWr69u5LqZZh3TTozIVW4P6U4Y5OuxvydcqqX4vBVv+28 nFpC9RLcZGs0aklpEdVL0C4zRpJ7LJ/qT3HPUqtxViMyqP4UJSvmHgowvkn1 Yhxr7Gsf5x9P/VOMPhauWw125VO/FeGAdNNOz8BKqhdhTubjL7XrGqleiFaK ykhlu47qhfhr4Jylvz9+RvoJ5vrrxvzc9oJ0AXZ9Eha/1qyb9GOMzB7jPXB/ D+l8/Mry+TX7F29I5+GSs4MDrib3kn6Eh6eqjNbnCzoXpblNqyK+FHQOJnKn XHqGCnw2GnVeu17o9pp0Fnq5z/pC4vAX6UyM/HGT5rlWuL6HqPkFD0ksO0ln 4K2MoCTt8A7S6Tjxsuy45SYt6TT0lE6xWmfcQFqOaofYkY/zSkg/QNsZ22+9 sEwkfQ/9S+cZGvJp9DxSUPqat/7BpIx0Mr5KjsmYL1WSTkTF4gXawP/NxT59 B+87G+4avVhPOh57L76xMOGFvRuL+s22BzeGPictwwmrHHx69nSRjsZaSc4y 6fSXpCMw3XVmSlHaK9Lh6GWXG+hn1k36PPY0Ov5tsuA16RBUelftkRn0kOZR ue6X6Vb+gua4zYvm/OYaJ9bB5IB0GquHwOQ5G/rx52EGv58bJX5+OBSYlAWx 74+AzuR9qez6omHltKsr2PXLYHbnlcPs98WCU+FcH/b746F6tU+/+3MHSl74 72T3LxFsa7w07P4mQ6ThsX73PwXO5YQtY8/nHhyZnz2MPb8H0KM3lrHnK4fv doQZseefBo4fqD5n/ZEOYU9vHGH9kwGmIxYnsv56CI8ry31Y/2VCSGiUmvVn FuDcn/r1bzY0J9lEsP7OgeCEXGfW/7lgqTGzYefjEeyaUDeSnZ88OJ6S7s/O Vz5csIjrd/4ew2njVi92PgvgmMHDBHZ+n8DN3iufsvNdCI5v+p1/vhACQnP6 zYciMPtiz3w2P4rgu9AfX7L5UgyX9bPc2fwphkuy9ZvZfHoKK/z/dmLz6ylY D1J9wuZbCTTmGy9k868ERnuM/ZjNx1II/j18B5ufpZC4c10tm69lcL7Aot/8 LYNtSxPK2HwuB87k4yw2v8vh9QRTFZvvFbBkTXMQm/8VsEfvvIvth0rY5vhn ANsfleByqGoU2y9VoFZoMtj+qQKj2NndbD9Vw5XYhqVsf1XDjdezt7H9VgPu xc7X2P6rAY+j1ePZfqyFQV+sP832Zy3sdxgYwvarAkzL/I6z/auAGO6bYraf 68DTxr6K7e86qMiObGb7vR7cnr9h+19SD7m/tnSI/oCvh3zXEuYf5PUwOKH6 tugvOCVE5YWcEP2HRAnPXVe/Ff0Jr4Svu042if5FroR7dlJ30d9wDTA/TGMt +h9JA3z0jYGz6I/4BnD9XPmh6J/kDWB09ALzV1wjLJ4sZf5L0gi6Nocxoj/j GyF8uwfzb/JGSJ+Tx/wdp4LzRwOY/5Oo4NyT5DOiP+RVMODPZ9tF/yhXAZeY cED0l1wT4OshmaL/lDTBK/k74aI/5ZtgYMFx5l/lTRBdUTpQ9LdcMxT9t4v5 X0kzJH4g+0P0x3wzjD71L0fRP8uboTn+ranorzk1BNfciBH9t0QNUWfULaI/ 59XgF/zTXtG/y9Vwod18iejvOQ1s3Zr2UvT/Eg3oXvbIxHzAa6D7/dtma4T8 INdAWvz7vWK+4LRQN2/JwkVC/pBo4e8d73pMFvIJr4XrXY7ZYn6RayGnw6Vn kZBvOB2czdn1Sa+QfyQ6WOzJ1aYK+YjXwf7xG84+E/KTXAeyJoM8byFfcS3g 8qLL4YSQvyQt4H7nsx+nCfmMb4GqcXlRYUJ+k7fAwTO/GIj5jtPD6PFl93yF /CfRg9+Dp14fCvmQ18MHl0+rJwr5Ua6HurKk/EtCvuRa4YDvbadbQv6UtMK1 1CKLb4R8yrfCT4NPblgg5Fd5K3w74t27VkK+5dpg7jP769eF/Ctpg40j22Yd FPIx3wYl0ZMyVgr5Wd4Gg6I31TgJ+Zprh/Q2hSRPyN+Sdji2fPj9TCGf8+1g cH5RzHAhv8vboWWN12U7Id9zwh7juH8AoJ7NGQ== "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-2, 2}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-2, FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080789475554*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.422657854237076*^9, 3.422657856868264*^9}, { 3.426080774880422*^9, 3.426080775159718*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.012], LineBox[CompressedData[" 1:eJxVV3tczOka/4l1rNhcFoUtKbnusnWwa3WeOaF1jmvJoujiuvYslQ2FGLdK oVAdDql1i0w2KrUlz+ieLrrfbzNTM9NUUymUqON8en7zdn7/9Pn2ne9v3nnf 532e79dwu7P1Li2O44YM4bj//R142pEb/IjbcIar2cL7N80G/i9swyAs/o4L th7AgjbsmNPz8+/RO0jXhtzofL/CBJcBLFaj0T6/2aan3UmvxmZD48TfHYSk V2Ob3+UWj1FnSa/G7350tb17yJf0rdiuWjfnpYM/6VsxwyhXlOF5ifStaD79 j7+Iei+TvhV7M4bZnrcPJH0LZk0arr60IJj0LZgkfrv4mOIq6VswJf7R1Qyv G6RvQQXckRddCyN9M55UeBZaW9wifTNO3Xk3tmIeYUEzrjqwZ4dtLH2ea8bE 1i/rpuyg94lVGPqN68Kh74JIr8IttVZ/G7L7AulV+Gv8S/Mq36OkV+EvpiWJ jlOtYUDfhFvtYqpz3I8PYGETTu1SFN/Q9xrAgia0CF3pII8nzDXhNecdm3p9 hKRXouPidZFp+vakV2LLjz7JU5xO0PcrUbRioo+OH62PU+J1D2ORS9ltWr8C l30wveMli6D1KzDwQ9j+sZyI9AoUCIdWBeeHk16BLUMuuXHpIaSX47JYj5Ss YVQPQjku+vrIFaeZN2j9cuyZ9Obsk31RtP5PfKf9rMWSBFp/I+5xeVjza38y rb8Rq5PscxyTMknfiAsOPPgFr+SRvhFF9r4z7pgWkr4Bj131jzo4voT0DbjF fYMXJy8jfQPevn/R/um1StI34DXJyjlrDGtIL8Prh1fplRnVkV6GBemT3I+b 1JNehjP3n8tft5owJ8OJkcMNNnOExVJMwIYH4lO1pJfi/O2Ce8561aSX4k37 b854x5WTXopuWfnOyVbFpJdg8DZ951vqXNJLcOW6aOs2pxekl+C3gWbHAlOD SS/Bw/517zwCE2n/69GxzNTvkF0+7X89/rzzxV2tUVV0fvX4eEfQGu6EjM6v HiUYMM5OX0Wfr0NdM7fkZjO+L3zCa3+akBT9mvhaXOTXcEQ3sIv4WpyeLtpQ V/KG+Bo86e0aN9/vLfE12PP9ySSrbMLCajww93DLw9s8X4275fMcl5jwfBXO 7Zl9S7SQ3sdVYcxTuWfao07iK1GnJ8qg6UYH8ZXo430lIFdXTXwF+uuMirQa riS+Av9uLllTN1RCfDmKp3yzZcL0QuLL0bv/PxtVmQeJL8MTt8xfZM2meuLK MPGhWmfZMCmdRynekgqsuo6qiC/FoAtju/NNOogvQUe3JQGLo7uIL0HjfV+Y tla/I74Yw7ecmn808D3xxfje8ELfqrwPxBehzgftmPNOfcQX4abc7nBPg37i C3HYyT8dO97wfCGmNsqUW4o/El+ATSH1Wbq3e4kvwGXe4TKnH7uJz8fjNpHB r+93Ep+PSy1nHSywayb8Cu27Xvav6qX7wOXhozg/W/v1dB+5XNSqG2pQpyem /cvBneY721d0lRDORtXe0OdFTvWEX+Jdt4Q+i/UNhLNw5N1FaX9UyAlnYrj5 Y4tqHf68MnDZTZ3nvWt5nI4XDiim2r5WEE7DJ9lXxseP5HEqbnRyGTdH1Eg4 Ba/f681NlvP1nYxLbRIq0wrp/LkXGGM1pMtyQR1hMbaYLLdrf1pJ+DlGHczM sTxTSvgZXjnryM1O4OslAT237TtvGZZHOB6lGTU2010zCT9Fz2kn9p7WSiEc g6+9gr4aapxE+AmWB8o27o58SjgKbUP2r51mHE1YhDn9cSYXf48ifB8nY22D /3nqx9wd9By/7O3lJdSvuTD02T7Xy2ozzTfuKqasfuS3ZgTNUy4A3Y+0/+Dy 4BBhIU62zHlY7rDp/+e+5hGC06TkYYwPgJS30YnOGv1VuLlVfwx7fxh0d8XM YN9/B7aWTY5m67sPG81XX2brF8H9+Wd7Lmh+XxRkJXkbsd//BErHes5l+xMD 7j2HOrU0+/cUtJeut2H7Gw/dDlJztv8JkGtS+Bs7n2cQdu7ym1ma83sOH336 Utj5isHmmbsNO/8X0LpiQiurj2T4Z+zeclY/KZDjozuovlLBYJ5sLKu/NBju O35QfabD5yH3vmL1mwG2pruQ1Xcm6AkKB9V/FoTkKVPZ/XgJDiNyBt2fbFjx aCmy+5UDZWa+Hez+5YLl+Uhjdj/zIPfV6Y3s/r6CVLu8j+x+58OrnQbs/gvz Qa7VHsj6QwHkfR4sZf2jAEK3Wb5k/eVTn1xyvIn1n0KosXFwYv2pCD6+d41g /asIRsVZxrH+VgxGoYH9rP8Vw2/faw/qjyUwRp39LeufJeAapBzUX0thXKpO D+u/pbBv8nEb1p/LYJi+63jWv8vgSXxSOuvv5dDZ89lPrP+Xw4EAkQ2bDxVQ /8fyVWx+VMA8S1UEmy+VsGPESn82fyrhl4tmg+ZTFXDKGcfZ/KoCDz3bQfOt GnIsTtqz+VcND/8VpmTzsQZiR09LYPOzBh67hcey+VoL0m5XazZ/a+G3w8sH zec6WG42YiKb33WQGYApbL7XQ2bGczb/BfUQ0S9h/kBYDy4Pj4Vr/IO4HmTx 6y9q/AUnAevvHn/Q+A+BBMSNsW4afyKUwKJde600/kUsgT+lQ/dr/A0nhey9 Ri4a/yOQwrldmac0/kgoBWFI7F2NfxJLwcKiKkLjrzgZ3JQMYf5LIIPVt2Sv NP5MKIO9jbrMv4llMC0ukfk7rgGMtm2epfF/ggbgQkbbafyhsAEUJu2nNP5R 3ABf+ryJ1PhLrhH2OygNNf5T0AidC9XbNf5U2AhRx3QzNf5V3AjPft3D/C0n h/KjHl9r/K9ADn05Llc1/lj4CY+8N2E775/FcrCZY/gonffXnAJ+2Pntpv40 8t8CBVzS9puo8edCBci117iM4f27WAHv8q87nuX9PaeE1iTL8c68/xco4cHu xyJtPh8IlXC6R2/2SD4/iJXwfXxf3TgDyhdcE2zwsrr52TnKH4ImMEjNHtPB 5xNhE9R8ME4J5/OLuAnUM0rLpHy+4VSgqFr7PI7PPwIViN7bdKbx+UiogtFF 3h1vd1F+EqsgZLetZd9bPr80g1N3yNeT+PwlaIZFC6/N28znM2EznJkguVPG 5zdxM0S0+yrX8/mOawFfQ6VhIZ//BC2gt3WWbSqfD4UtEBoZuNKDz4/iFnhl 27vOn8+XXCtYHenV9uXzp6AV9gT2jIjg86mwFe69/rM3jc+v4laY+Q/DzRl8 vuXUEIKuw2/z+Veghk2h/l+48/lYqIYZ0ZI1YXx+Fqs/1YeW/gI+X3Nt8G+t KX8t4PO3oA1UT2zrQ/l8LmyDFaffl/UFUX4Xt8FlY6eKe3y+59rpHDjuv+g7 5g8= "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-2, 2}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-2, FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.426080789723415*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "3", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4226578866819773`*^9, 3.4226578922175283`*^9}, { 3.426080779329727*^9, 3.426080779520379*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.012], LineBox[CompressedData[" 1:eJxdl3lYlOUah2dcgDwJeky8NDB3O5bmCqLCwyJohifcMBM1cCk3FDIVLBiU xQVRTgoaaXBEUXNFEDThmUEBFZEdkXXYh2EYyCBSEHsnftN1rjP/cN3X77vn G97veZ/3+UZ77Fi6sY9EIpFKJRLd395PG0v+9yNv5c49h6e7KTts/mJZK19R 15koXg6hv9i2lZ07zkZO9xjfy5JWzpw7v+LI7Bm9LNdylKb6+42u83pZpmW3 b0Z2UpodfC0Pvulw59bW+fC13Ni9LHFfsiP8FlaNU+SbHHWC38IWG+wdHyUt hN/C3u6Vv1VkO8Nv4ZbclplL9y+Br+GdldvbF653ha9hp5TzVT25a+BruP7M B545Rhvga3jHgbiUmOwt8Jt5/qvbZe2uO+E3c6m7ocol3At+M6u6Uj72ngWW NHNOzq1RW695wlezy6Fp8wKXfgVfzaPCZAn31q+Dr+Zl5T8tT9nsAF/Nq4wc R9WaufQ+B3kTG15NMTYN3tTLsiY2fZ5rNm7M171s28Qevsae7vH78NyaWHl1 34ChPvvhq3iJ0bX25sAQ+Cpujby7eI7xUfgqVgxVfFUdHA5fxduMfrwuTTsB v5HlhT2remxOwW9k+7yG9pvtUfAb+TevFRfscn+C38g7rm92WlUdA7+B46bt tnMvOQe/gbsGt93vx+fhN/CEELOJHqFx8MX1Oc7pcbMuwa9n4z0e470TL8Ov Z+lqo2PDB1yBX8/h1g2G7R9ehV/PToH/qs0Zeg1+Hc90i4zaogDL6rjg1MOI dyZfh1/HbUmOX0iWgiV1/Pq7tdNUk8DyWh6d3Dr60yC9X8uG/qrEkim4n20t d91+9tp/zM/wa9kgNC9Fseoi/BouHzqr5a38WPg1fEgdMWzYwWj4Nfzqw8z3 DzRGwK9hQ0XbQJlVMPxq3jXnkzfzQj1QP9Xsknox03JbOOqnms+0OZLPuBjU TzW/GO4VeOvby6g/JUcUzs7z2xQPX8ljcw4e8xycDF/J8r1ukWn2qfCV3M8z //RB/zRcX8WRHc6bjRLSkVdxj3vM2kXLHyKv5BtHVtip9zxGXsnSRZSVZPUE eQXLHSxsZkdmI6/gdndHhbn3U+TlbOwz2D0tBiwp55Wb7sxwfoXrZWV85fKX JSOd9X4ZK27s7LZZpc9L2etBlV9hvT4vZW/PJMMTGfrvf85zFOmug27lIH/O cd67Y1ZSLvISHjrA6T/Z0WBJCS+N7UlLluYhf8aTptDc8MtgyTO2Uhb7Z6Tm Iy/mxE1Rb7//RwHyYp66/cMjg4yLkBfxct83tqmPwZIiDrgfcEBhVIy8kCet nBxmEKfPC3lb0JdbtcGFyAs4NzNsb2GH/v4FvKwycUDIcay3LJ8/c7Fv9Tx7 B3k+X3/R/ct76y6g3vL4QJv5O5bpT1BfeezkZ9bP+rty5LmsuJMSePRmA/Jc vtdmKj+9XH8O5LC0Y2RE1Zt28FOusZDURS35A5zNF4cPKd2z8RX4Cdut7b/2 2+Vd4Cz+oDNi1FVrPT/m7S+vOh2x1l//iO0N1zW89aX++x7ypJgQt3s5HeBM tj4SOevHcy/AGTxvzuEFo4y14HSeyN4X9hnrf/8DXvOruVd2cSn4Pm+9d8yt M10OTuO5b84t2m2RgfVScNScb90XOFaB5Xxi7OLD5o1N4FR++7XZWJP7v4Lv cdgI37izlR3gu3zCY+WlAMeX4GRe6NRQYd/RBb7NkS65d7Sa1+AEbspbsixo whtwPP/w2WvT5d/r+QaffLLKxOPv/Apva7Vwni7pAV9kZ57ZN9GqGxzLDorw sAMp+vtH85WgvNXB+34Hn+J+k54fOrzyBfg4B0Ubji/YpQbLuCkn7O64gHLw /39kZDrtXILIsX7H6ZD/N2OEDz5FGSHeuu8HR9PBj3a4ifuDY8nBP/eY+H3g izQ5uq+B+P3gK/ToZcCn4v8D36CDd04PEv8/OJ5iQ5KGivUBJ9CoqpVLg/7O b5Njf6u7Yn3BySTznVop1h98l5YUxOueD/geybSKi+L5gVNJ2/DDOPF8wXKa sO7xIfH8wQrybRu6QdSHvn5IFX1mhagffX3RyL3KxaK+sH4PqKOv73ZRf+B0 KjQ4fV7UJziDMq3X6eoXnEnS3z/R1Tf4IVl989ZqUf/gR+Tv71cj9gf4MRVU bncQ+wecRScXjXhP7C/wE5p965yb2H/gbDKRl5SI/Ql+StabfHX7F5xDFWmh kWJ/g3Pp30Xv6vY/+ksuJV3o1PUH5Hm0XubRX/QP5HlU9p3lcNFf9P2HKCDr geg/+v5EYRvHq0V/wnoVUMXgBYaif6H/FNCFm2W7RX9DXkg2z922iP6HvJBS pGNDRX9EXkQTp47ZL/on8iJq95Paif6KvJiyfpPp+i/yYgoY0TNQ9Gfkz6jm fVmg6N/In5HjzVsOor8jL6GNRZVPRf9HXkIzDX+OEecD8udkuSLlljg/kD+n nBltfuJ8QV5Kww9ZfiTOH+SlFNZiFivOJ+RldFNrN4pWgWVldPhFxktxviEv J1J3uYjzD3k5BSwx9xXnI/IK2m/1S7E4P5FXkEba10Wcr8grSdl8+5k4f5FX UvnpIR+L8xl5Fe364Px6cX4jr6KEDuNt4nxHrqRr9c90538v2ypJ/ao7QswH uF5JG8v7HhfzQy/LlbTp/Jt8MV/Ar6YnppJgMX/ArybLmHm2Yj6BX02JJ8Of iPkFfjWZr62bbB3qAb+G+sQe+YeYf3rrx7aGbO1jx4v5CPVUQ3fLK0zF/NTL 8hra8CJON1+h/mppb+d03fwFv5YOWmV1ifkMvsjzg3TzG/xa6up/ZYyY7+DX UXi6aqqY/+DX0Tsja9aI+RB+HdXPfHhCzI/w68jPouQHMV/Cr6fQo4+rxfwJ v54qs+wMxHwKv54WzbXVza/w62m0hWqCmG/hN1DsGWmGmH/hN1CyWqWbj+E3 UHfn6AwxP8NvIK87Zx3FfA2/ka5OyvlEzN/wG2nyfqcEMZ/Db6QRC9oN4tuj 4DdSQnHBDjHfw1eR+cOyTDH/w1dRVdylIPF+AF9Fy1PPHhfvD/BVFLzCmzSB IfCbaEti3Wfi/QN+E+3a6jPII34f/CYaYfDfB+L9Bb7IiyzdhwVvgq+m+JlJ 8fVmLvDVZPG1zaLkzQ6oHzV1f77Z6e76dagfNc3Zu/mfB5Z+hfpppgWRYdIt 1zxRf800xaYPe83ygt9MfVbvXy/e3+A3E0dfXi3e7+Br6OTZp6nR2Vvga8jk Z4n3U6MN8DUk9ex81Z27Br6GNKWaKQvWu8JvoZJZJidd9i+B30Kyz6cPLMt2 ht9CrknuioykhfDF9amGiQOPOsHXkp/PsG6fZEf4WnrX/NIX8Vvnw9eSm8/i Dps0O/haMrzmN3GD6zz4rVRz3bT58OwZ8FvpvmunzzSP8fBbaafREGP5yyHw W8nHa4f1amVHaq/f9vcc8Ceknbqm "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-2, 2}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-2, FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.4260807898024406`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", ".012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"pts", "[", "4", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", ".5"}], ",", ".5", ",", "1", ",", "1.5", ",", "2", ",", "2.5", ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4226579273672953`*^9, 3.422657933375525*^9}, { 3.426080783202425*^9, 3.4260807834021893`*^9}}], Cell[BoxData[ GraphicsBox[ {GrayLevel[0], Thickness[0.012], LineBox[CompressedData[" 1:eJxll3tYzPkex0dniV2O1R6UsFlOu9HKcnJpd31GbkuEOBtqN5es3OK41GLP NpRWpC3UlluFTUtyp3anPhNJJV2UqTTV1HSZmmo2FaE43zm953nO85z5p+f1 vH+v3+V7+Xw/jVqz1WWdiUQi6dVLIjH87fn9yZL//Sn0fK2C5r1rO4n+yzI9 e/o+P+Jv69LDUj2vOHz2/jPHtT0s0bP5iVu2/PW2Hla08GsLZWCx3hd+Cz/u 67i4n4kMfguPVR71tzwTAL+Fmz0yt03pCoLfzA635KwqC4HfzFNNb2wbbh8G v5kXzdo7Lin+KPxmDlt98qP+3cfgN7F9TIrDxaRw+E08JtfkdNDCSPhNfO5t 515J6kn4Tbzd9/rKiCEx8HW8eGeG693zsfB1LGs8sGn6AbBUx5XRE0cEmuF6 iY5ffxz6/KAj7qdo5L+8fPqqwcz4/EYenjXnn8umB8Nv5LXf2VzfkrkHfiN/ /v7ILc3JTj3zoGjgMeazrdI27u1hWQPP2tH+Rn/Iv4elDbzNJljj0w8saeCr zs+P9/Hwha/lZeF+HdYnMV8yLf+6c1DqjRE/4flark7VlLU+j8LztXzFbHRl ++Y4vH89T4mZuOKM5jL8ej418FKw5+4r8OvZc8VUi+O5l+DXcx/3qxpf73Pw 63jpucTe3/vie2V1XP1Hwm95WaF4/zqeEWs34aszF/H+dcweUe3FP97B+9fy v208KGp8Gr6/lm3O70nxzcuAX8vL1z+6Uno4B34tjy/zGhY+ugB+DXu/uuXp /LoQfg23THFrqM5Qwq9hz1FO/Qb5lMKv4a3PPK5lvy6Dr2Gre1+Zf9arAr6G x692demYVAlfw15thVXWoWCJhletWTWmfSBYUc2mS0vnm14rh1/NF/+hPmvl jftLq/mkQ9aEbx1K4FfzhvXp5vxuEfwqPti143Cu6hH8Kv4jZFGxlwrjIa1i ywxlx9n90fCr+ItdHPuOaRLGX80LUhIPrBmfi/FXc4DzpPpK91LMn5ptGhKm aTZXY/7UPH7k0h1eOVpcX8ku2lMfjitpQV7JaXkt/qkFrcgr+OjQ/NIdp9qQ V7CFXtutzmlHXs7zzJeukOzqQF7OO2zyt0gSwDIVc6X9vLF+xlzF762IW7hK YszL+MdtFVtVg3A/SRlHeoQd0f38DPlT1lp03io+8Cfyp/yb0n3Gr291yEs5 OXnE6OWmdchL2anwQfqbuRXIS/hlwWep/Zc+Ql7C7rG//DYtNA7jXcxrOw/H 177GfEiK+evj3wwzna5BruS5N4/rEvfrkCu5/Oy5gw9CWpE/YZd3wu06utuR P2HVskif5L6dyIu4T+ju2BvRr5AX8fE+Xjnr73QhL+TTzvvq06zfIC/kwBh5 jiIVLHvMlkrZ7MVbjPlj9l1S8WXnqG7kBeyxvuydSfeN9y/gNb51s2Z+8QJ5 PntcMRlQ4/0MeT5rFrwN8grUgvNYHpL3atSxYnAuqxRqmd2ZGPAjHuD0rdWR 3XkYvxy+o3p+TD8e4yt5yJ7Wi8Z6y2vA2Xw/oa/5MDXWlySL5ZWvna5FYL4k mdzxwyfTOlqbwA/Yel3+yWjnZnAGT/H2y/Xsa+T7HPG4bp3Gznh9Ojtsd+y0 Km0E3+P19yKGtn3QAL7LrqrHjls7jeshjWOuH/E4mWh8PwX//NBv4RA3435I 5Y5v2Cp8jBos5xfD1yx0dVCBf+eRD12nyGQl4CReJs+Qzx/wBHybZz28N1bZ XAC+yV67+qVUybAfJdeZb8W1FUqzwVe5xPTEJW/3B+AEnrfn7O15qnRwPAeP jXAze5QGPs+e6UHxflo5OIbf3Pj40Wqz2+BIvrn/3jDdEtRrSSj/UvRTH5dW 1GeJjCtLLjxYbI3z8v9+Mhq3kO+IHPMdSgkPzj1b0noOHEmznM6/aFxyBRxD h+SDb4jng8+TxrQpQLwfOJ7iY9zmiPcHJ9BffcujxfeBr1L7DMsI8f3g69T0 bVu5GB/wTdpiQ/Fi/MC3aX99qZUYX3ASObynvibGH/w7HZFvGifmBywn2e4V M8X8gVPJJfDhcDG/YAUts/tyvph/cBo9cy5zE+sDfJf8P3GSivUDvke1uy4O EesLnE45iREvxPoD36epdtMN6xOcQZZbVueJ9Qt+QGa9fE6L9Q3OJNsoT8P6 B2fRiZ/PGfYHOJt84iYY9g/4Ia2MmzpO7C9wDtXYnA0X+8+4P8nMRGct9qdx /5LmQsl6sX8x33nUunJGp9jf4Hw6YvHCsP9RH/PprfWC90R9QF5Anz7Pnynq B/IC8vjMtreoL8gfU1DBhumi/iB/TMu7hs4R9Ql5IXUftswT9Qt5ITmbRzeK +oa8iHKD1z0S9Q95EVl2vYwR9RH5E4r9ZamhfiJ/QmE1syeI+opcSWPGnQ4S 9Re5kswrr7SI+oy8mH5suD9C1G/kxeSdVHRZ1Hdj/Se3Xm9/FfXfeD7QDyPb bovzAeNXSi8DDijE+YH6WUpD7TeNEucL8qekVO+TivMH+VNarLxqOJ+Ql1H2 d22G8wt5Gc1eOGabON+Qqyh5gvkCcf4hV1HiBwGzxfmIvJyiLgZuFOcn8nJa XxPsKs5X5BX0ghO7xPmLvIJCMj81nM/IK2mB2bEAcX4jr6SNlYM+Euc7cjWp jsoM538PS9W06/MuQ3+A69XkI6vRiv6hhxVqchgcf1j0F/CraPcF1zjRf8Cv omZ5VYvoTzCeVSTPsVOK/qWHFVXU9+2hQ6K/wfhXk/lxSwvR//SwtJry/vyX neiP4FfThr+5G/on+NXUrs92Ev0VfA0d6nAz9F/wNdRUfUIt+jP4GqrKdjf0 b/A19KHndUN/B7+GLGN2XRH9H/waWvVxdW/RH8Kvofjo/nWif4RfQ4sX/H2N 6C/h11JOgnKI6D/h15KTanK86E/h19LVgZOTRf8Kv5Y2LTEx9Lfw6yjEMeKl 6H/h11FYZPoy0R/Dr6O7UYPH5meFwq8jxU77fT6+wRj/etoYPNhV9N8Y/3qa tcHP9VjuJcyfyLtrw9buRr1W1NPp/C6L05rL8LX0fquHU9tm9D9SLR28lty/ 5XkUfC3tGO034NKIn+BrqX7dWfnTEy7wGyjWU68e5oH/96QNVDG4avu+fv54 /wbamdU7+9UhsKKBUi4cLlJu3Ivvb6RNiX3nRv3uBL+Rom9euLQ8cw+e30iV sfNt5k/H9yoaaeXk3Za1ZuF4vo6CJo5dFuB4Eu+vI5/XJ5r9zdCvyHR0sDx8 9RcHYuHryKTYZafiPFjSRNNCHE8dH4LrpU30ZlHkvO4U3E/WRNs3f5AcuDAS fhPFzZVeuJBkfH4zfT9mVEW/bpyX0mbyynKwvx1/FH4zTdZpM4bZh8FvJqvl mS9Ly0Lgt5CZWaa1fVcQ/BYKtPa+bHEmAH4LdXbrtKYmMvgtVHX1lv8TPf7f k+gp7E7Y05Svt8HXU+ycAzNbHdfC19Ns55cT99tivhR6OlE/sK2v7ST4xj5a IvkPz+rgHQ== "]]}, Axes->True, PlotRange->{{-1.1, 1.1}, {-2, 2}}, Ticks->{{{-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}}, {{-2, FormBox[ RowBox[{"-", "2"}], TraditionalForm]}, {-1.5, FormBox[ RowBox[{"-", "1.5`"}], TraditionalForm]}, {-1, FormBox[ RowBox[{"-", "1"}], TraditionalForm]}, {-0.5, FormBox[ RowBox[{"-", "0.5`"}], TraditionalForm]}, {0.5, FormBox["0.5`", TraditionalForm]}, {1, FormBox["1", TraditionalForm]}, {1.5, FormBox["1.5`", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {2.5, FormBox["2.5`", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}}}]], "Output", CellChangeTimes->{3.4260807898885717`*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{941, 1060}, WindowMargins->{{Automatic, 48}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification->1.5, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 147, 2, 100, "Section"], Cell[CellGroupData[{ Cell[762, 29, 96, 1, 51, "Subsection"], Cell[861, 32, 687, 20, 87, "Input"], Cell[1551, 54, 797, 21, 110, "Input"], Cell[2351, 77, 834, 23, 156, "Input"], Cell[3188, 102, 958, 25, 156, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4183, 132, 103, 1, 51, "Subsection"], Cell[4289, 135, 78, 2, 40, "Input"], Cell[CellGroupData[{ Cell[4392, 141, 194, 6, 40, "Input"], Cell[4589, 149, 186, 4, 40, "Output"] }, Open ]], Cell[4790, 156, 566, 15, 42, "Input"], Cell[CellGroupData[{ Cell[5381, 175, 56, 1, 40, "Input"], Cell[5440, 178, 227, 4, 40, "Output"] }, Open ]], Cell[5682, 185, 730, 24, 95, "Input"], Cell[6415, 211, 57, 1, 40, "Input"], Cell[6475, 214, 57, 1, 40, "Input"], Cell[6535, 217, 57, 1, 40, "Input"], Cell[6595, 220, 57, 1, 40, "Input"], Cell[6655, 223, 57, 1, 40, "Input"], Cell[6715, 226, 57, 1, 40, "Input"], Cell[6775, 229, 57, 1, 40, "Input"], Cell[6835, 232, 526, 16, 49, "Input"], Cell[CellGroupData[{ Cell[7386, 252, 140, 3, 40, "Input"], Cell[7529, 257, 164, 3, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7730, 265, 164, 4, 65, "Input"], Cell[7897, 271, 223, 5, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8157, 281, 162, 4, 65, "Input"], Cell[8322, 287, 220, 5, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8579, 297, 164, 4, 65, "Input"], Cell[8746, 303, 220, 5, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9003, 313, 121, 2, 40, "Input"], Cell[9127, 317, 186, 4, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9350, 326, 145, 3, 65, "Input"], Cell[9498, 331, 255, 6, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9790, 342, 143, 3, 65, "Input"], Cell[9936, 347, 255, 6, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10228, 358, 143, 3, 65, "Input"], Cell[10374, 363, 238, 5, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10649, 373, 122, 2, 40, "Input"], Cell[10774, 377, 166, 3, 40, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10989, 386, 94, 1, 51, "Subsection"], Cell[CellGroupData[{ Cell[11108, 391, 1175, 34, 87, "Input"], Cell[12286, 427, 23175, 413, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35498, 845, 1199, 34, 87, "Input"], Cell[36700, 881, 23020, 412, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[59757, 1298, 1191, 34, 87, "Input"], Cell[60951, 1334, 17734, 312, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78722, 1651, 1195, 34, 87, "Input"], Cell[79920, 1687, 17861, 311, 670, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97842, 2005, 146, 2, 100, "Section"], Cell[CellGroupData[{ Cell[98013, 2011, 96, 1, 51, "Subsection"], Cell[98112, 2014, 830, 24, 110, "Input"], Cell[98945, 2040, 1052, 26, 202, "Input"], Cell[100000, 2068, 880, 24, 179, "Input"], Cell[100883, 2094, 1044, 27, 202, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[101964, 2126, 96, 1, 51, "Subsection"], Cell[102063, 2129, 652, 22, 56, "Input"], Cell[102718, 2153, 490, 16, 49, "Input"], Cell[CellGroupData[{ Cell[103233, 2173, 1254, 36, 87, "Input"], Cell[104490, 2211, 4396, 83, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108923, 2299, 1174, 34, 87, "Input"], Cell[110100, 2335, 4421, 84, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114558, 2424, 1178, 34, 87, "Input"], Cell[115739, 2460, 4508, 85, 670, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[120284, 2550, 1178, 34, 87, "Input"], Cell[121465, 2586, 4553, 86, 670, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)