(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 169846, 7135]*) (*NotebookOutlinePosition[ 172048, 7208]*) (* CellTagsIndexPosition[ 171653, 7193]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell["Numerical Operations on Data", "Title", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Index", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "This index gives a list of keywords that are associated with various cells \ in this Notebook. If you Command-Double-click one of the keywords below, ", StyleBox["Mathematica", FontSlant->"Italic"], " will find the cell associated with that keyword, select it, and display \ it in the center of your window." }], "Text", AspectRatioFixed->False, ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ ConstrainedMax ConstrainedMin FindMinimum Fit Fitting`curve Fourier InterpolatingPolynomial Interpolation InverseFourier LinearProgramming \ \>", "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Curve Fitting", "Section", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Fitting`curve"], Cell[CellGroupData[{Cell["Syntax (see page 672)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["Fit", FontColor->GrayLevel[0]]], "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Fit"], Cell[TextData[{ StyleBox["Fit[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["data", FontSlant->"Italic"], " ", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["funcs", FontSlant->"Italic"], " ", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["vars", FontSlant->"Italic"], " ", StyleBox["] ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " fits a list of data points using the functions ", StyleBox["funcs", FontSlant->"Italic"], " of variables ", StyleBox["vars", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "The data can have the form ", StyleBox["{{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["y1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "...", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f1", FontSlant->"Italic"], " ", StyleBox["},{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x2", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["y2", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "...", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f2 ", FontSlant->"Italic"], StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "...", StyleBox["}", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", where the number of cordinates ", StyleBox["x", FontSlant->"Italic"], " , ", StyleBox["y", FontSlant->"Italic"], " , ... is equal to the number of variables in the list ", StyleBox["vars", FontSlant->"Italic"], "." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "The data can also be of the form ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f1", FontSlant->"Italic"], StyleBox[", ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f2", FontSlant->"Italic"], " ", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "...", StyleBox["}", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", with a single coordinate assumed to take values 1, 2, ...." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["InterpolatingPolynomial", FontColor->GrayLevel[0]]], "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"InterpolatingPolynomial"], Cell[TextData[{ StyleBox["InterpolatingPolynomial[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["data", FontSlant->"Italic"], " ", StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["vars", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives a polynomial in the variable ", StyleBox["vars", FontSlant->"Italic"], " which provides an exact fit to the list of data." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "The data can have the forms ", StyleBox["{{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["f1 ", FontSlant->"Italic"], StyleBox["}, {", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x2", FontSlant->"Italic"], StyleBox[", ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f2 ", FontSlant->"Italic"], StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["} ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "or ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f1", FontSlant->"Italic"], StyleBox[", ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["f2", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", where in the second case, the ", StyleBox["xi", FontSlant->"Italic"], " are taken to have the values 1, 2, ...." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "The ", StyleBox["fi", FontSlant->"Italic"], " in the data can be replaced by ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["fi", FontSlant->"Italic"], StyleBox[", ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["dfi", FontSlant->"Italic"], StyleBox[", ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["ddfi", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], ", specifying derivatives at the points ", StyleBox["xi", FontSlant->"Italic"], " ." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Linear and Quadratic Fit", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ A table of the first 20 primes is used as data. Note that the data points are \ assumed to correspond to the results of evaluating a function of one variable \ when the function successively takes on values of 1, 2, ...\ \>", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["fp = Table[Prime[x], {x, 20}]", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71}\ \>", "\<\ {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71}\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Fit[fp, {1, x}, x]", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ -7.673684210526305 + 3.773684210526317*x\ \>", "\<\ -7.67368 + 3.77368 x\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Fit Using the Exponential", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["ft = Table[ N[ 1 + 2.3 Exp[-x/3]], {x, 10}]", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {2.648022014319715, 2.180859373774961, 1.846122714694317, 1.606273417666171, 1.434413886526392, 1.311271151444209, 1.223035526088132, 1.159811937812444, 1.114510257246087, 1.08205018469868}\ \>", "\<\ {2.64802, 2.18086, 1.84612, 1.60627, 1.43441, 1.31127, 1.22304, 1.15981, 1.11451, 1.08205}\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Fit[ ft, {1, Exp[ -x/3]}, x]", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1. + 2.300000000000001/E^(x/3)\ \>", "\<\ 2.3 1. + ---- x/3 E\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Quadratic Fit to Pairs of Values", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["\<\ fs = Table[{x, 1.2 + .3 x - 1.4 x^2}, {x, 0, 1, .1}]\ \>", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {{0, 1.2}, {0.1, 1.216}, {0.2, 1.204}, {0.3, 1.164}, {0.4, 1.096}, {0.5, 1.}, {0.6, 0.876}, {0.7, 0.7240000000000001}, {0.8, 0.5440000000000002}, {0.9, 0.3360000000000003}, {1., 0.1000000000000003}}\ \>", "\<\ {{0, 1.2}, {0.1, 1.216}, {0.2, 1.204}, {0.3, 1.164}, {0.4, 1.096}, {0.5, 1.}, {0.6, 0.876}, {0.7, 0.724}, {0.8, 0.544}, {0.9, 0.336}, {1., 0.1}}\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Fit[fs, {1, x, x^2}, x]", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.2 + 0.3000000000000012*x - 1.400000000000001*x^2\ \>", "\<\ 2 1.2 + 0.3 x - 1.4 x\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Mutidimensional Fit", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that you need to use ", StyleBox["Flatten", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " to get this \"data\" in the right form for ", StyleBox["Fit", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ fq = Flatten[ Table[ {x, y, 1 + 5x - x y}, {x, 0, 1, .04}, {y, 0, 1, .04}], 1];\ \>", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Fit[ fq, {1, x, y, x y}, {x, y}]", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.000000000000004 + 4.999999999999992*x - 6.314393452555578*10^-15*y - 0.999999999999992*x*y\ \>", "\<\ -15 1. + 5. x - 6.31439 10 y - 1. x y\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Chop[%]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1.000000000000004 + 4.999999999999992*x - 0.999999999999992*x*y\ \>", "\<\ 1. + 5. x - 1. x y\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Interpolating Polynomial", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ Note that the polynomial reproduces the fourth data point exactly.\ \>", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["\<\ efit = InterpolatingPolynomial[{1, 2, 6, 24, 120}, x]\ \>", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1 + (1 + (3/2 + (11/6 + (53*(-4 + x))/24)*(-3 + x))* (-2 + x))*(-1 + x)\ \>", "\<\ 3 11 53 (-4 + x) 1 + (1 + (- + (-- + -----------) (-3 + x)) (-2 + x)) 2 6 24 (-1 + x)\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["efit /. x -> 4", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 24\ \>", "\<\ 24\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Interpolating Polynomial with Derivatives Specified ", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["\<\ InterpolatingPolynomial[ {{2, {1, 2}},{3, {3, 4}}}, x]\ \>", "Input", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 1 + (2 + 2*(-3 + x)*(-2 + x))*(-2 + x)\ \>", "\<\ 1 + (2 + 2 (-3 + x) (-2 + x)) (-2 + x)\ \>"], "Output", PageWidth->PaperWidth, ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["{%, D[%, x]} /. x -> 2", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {1, 2}\ \>", "\<\ {1, 2}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["{%%, D[%%, x]} /. x -> 3", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {3, 4}\ \>", "\<\ {3, 4}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Approximation Functions and Interpolation", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see page 676 )", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["Interpolation", "Special2", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Interpolation"], Cell[TextData[{ StyleBox["Interpolation[{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["f2", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " constructs an approximate function with values ", StyleBox["fi", FontSlant->"Italic"], " at sucssessive integers." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Interpolation[{{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["f1 ", FontSlant->"Italic"], StyleBox["},{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x2", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["f2", FontSlant->"Italic"], " ", StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " constructs an approximate function with values ", StyleBox["fi", FontSlant->"Italic"], " at points ", StyleBox["xi", FontSlant->"Italic"], "." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Interpolation[{{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x1", FontSlant->"Italic"], StyleBox[",{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["df1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["ddf2", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " constructs an approximate function with specified derivatives at the \ points ", StyleBox["xi", FontSlant->"Italic"], "." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Interpolation[{{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["y1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ... ", StyleBox["f1", FontSlant->"Italic"], " ", StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox[" }]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " specifies function values on a grid of points." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Basic Interpolation ", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ Note that the aproximate function reproduces the values of the original \ table. The last two lines compare the approximate function to the true \ sine.\ \>", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Table[{x, Sin[x]}, {x, 0, 2, .25}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {{0, 0}, {0.25, 0.2474039592545229}, {0.5, 0.479425538604203}, {0.75, 0.6816387600233341}, {1., 0.841470984807897}, {1.25, 0.948984619355586}, {1.5, 0.997494986604055}, {1.75, 0.983985946873937}, {2., 0.909297426825682}}\ \>", "\<\ {{0, 0}, {0.25, 0.247404}, {0.5, 0.479426}, {0.75, 0.681639}, {1., 0.841471}, {1.25, 0.948985}, {1.5, 0.997495}, {1.75, 0.983986}, {2., 0.909297}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["sin = Interpolation[%]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ InterpolatingFunction[{0, 2.}, {{0, 0, {0, 0}, {0}}, {0.25, 0, {0.6816387600233341, 0.808852885676524, -0.2384668634443916, -0.1538770989408649}, {-0.5, -0.25, 0.}}, {0.5, 0.25, {0.6816387600233341, 0.808852885676524, -0.2384668634443916, -0.1538770989408649}, {-0.25, 0., 0.25}}, {0.75, 0.5, {0.841470984807897, 0.6393288991382496, -0.3390479730765499, -0.134108146176211}, {-0.25, 0., 0.25}}, {1., 0.75, {0.948984619355586, 0.4300545381907588, -0.4185487218949815, -0.1060009984245755}, {-0.25, 0., 0.25}}, {1.25, 1., {0.997494986604055, 0.194041468993873, -0.4720261383937716, -0.07130322199838684}, {-0.25, 0., 0.25}}, {1.5, 1.25, {0.983985946873937, -0.05403615892047009, -0.4961552558286862, -0.03217215657988603}, {-0.25, 0., 0.25}}, {1.75, 1.5, {0.909297426825682, -0.2987540801930208, -0.4894358425451016, 0.00895921771144614}, {-0.25, 0., 0.25}}, {2., 1.75, {0.909297426825682, -0.2987540801930208, -0.4894358425451016, 0.00895921771144614}, {0., 0.25, 0.5}}}]\ \>", "\<\ InterpolatingFunction[{0, 2.}, <>]\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["sin[0.25]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.247403959254523\ \>", "\<\ 0.247404\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["sin[0.3]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.295500496813669\ \>", "\<\ 0.2955\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Sin[0.3]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.2955202066613395\ \>", "\<\ 0.29552\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Using Approximate Functions", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that the approximate function ", StyleBox["sin", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " was defined in the previous example." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["NIntegrate[ sin[x]^2, {x, 0, Pi/2}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.7853098690742231\ \>", "\<\ 0.78531\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["NIntegrate[ Sin[x]^2, {x, 0, Pi/2}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.7853981633974483\ \>", "\<\ 0.785398\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["A Note on Approximate Functions", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Approximate functions are represented in ", StyleBox["Mathematica", FontSlant->"Italic"], " by ", StyleBox["InterpolatingFunction", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " objects. The ", StyleBox["InterpolatingFunction", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " object contains a represention of the approximate function based on \ interpolation. Typically it contains values and possibly derivatives at a \ sequence of points. As a result, when you ask for the value of a function \ with a particular argument, the ", StyleBox["InterpolatingFunction", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " object can interpolate to find an approximation to the value you want. \ For more information, see page 676." }], "Text", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Multidimensional Approximate Function", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that you need to use ", StyleBox["Flatten", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " to get this \"data\" in the right form for ", StyleBox["Interpolation", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ fq = Flatten[ Table[ {x, y, Sin[ x y ]}, {x, 0, 1, .04}, {y, 0, 1, .04}], 1];\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["sin2 = Interpolation[ fq ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ InterpolatingFunction[{{0, 1.}, {0, 1.}}, {{{0, 0.04, 0.08, 0.12, 0.16, 0.2, 0.24, 0.28, 0.32, 0.36, 0.4, 0.44, 0.4799999999999999, 0.52, 0.56, 0.6, 0.6400000000000001, 0.6800000000000001, 0.7200000000000001, 0.7600000000000002, 0.8000000000000001, 0.84, 0.88, 0.92, 0.96, 1.}, {0, 0.04, 0.08, 0.12, 0.16, 0.2, 0.24, 0.28, 0.32, 0.36, 0.4, 0.44, 0.4799999999999999, 0.52, 0.56, 0.6, 0.6400000000000001, 0.6800000000000001, 0.7200000000000001, 0.7600000000000002, 0.8000000000000001, 0.84, 0.88, 0.92, 0.96, 1.}}, {{{{0, 0}, {0}}, {{0, 0, 0, 0}, {-0.07999999999999999, -0.04, 0.}}, {{0, 0, 0, 0}, {-0.03999999999999999, 0., 0.04}}, {{0, 0, 0, 0}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0, 0, 0, 0}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0, 0, 0, 0}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0, 0, 0, 0}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0, 0, 0, 0}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0, 0, 0, 0}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0, 0, 0, 0}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0, 0, 0, 0}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0, 0, 0, 0}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0, 0, 0, 0}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0, 0, 0, 0}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.004799981568021234, 0.03999967573379426, -(2.559995084840117*10^-6), -0.00001066663253383726}, {-0.07999999999999999, -0.04, 0.}}, {{0.004799981568021234, 0.03999967573379426, -(2.559995084840117*10^-6), -0.00001066663253383726}, {-0.03999999999999999, 0., 0.04}}, {{0.006399956309422813, 0.03999936853503946, -(3.839984435115296*10^-6), -0.00001066657791895982}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.007999914666939734, 0.03999895893792301, -(5.119963955579898*10^-6), -0.00001066649600387168}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.00959985254467948, 0.03999844694349357, -(6.399930368040235*10^-6), -0.00001066638677050281}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.01119976584680195, 0.0399978325530618, -(7.679880396991438*10^-6), -0.00001066625024126003}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.01279965047752997, 0.03999711576820051, -(8.95981076623476*10^-6), -0.00001066608641036099} , {-0.03999999999999998, 0., 0.04000000000000001}}\\ , {{0.01439950234115975, 0.03999629659074469, -0.00001023971819774997, -0.00001066589526262677}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.01599931734207141, 0.03999537502279153, -0.00001151959941447095, -0.00001066567680600821}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.01759909138473941, 0.03999435106669991, -0.00001279945114522965, -0.00001066543108965587}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.01919882037374308, 0.03999322472509173, -0.00001407927010220467, -0.0000106651579747918}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.02079850021377708, 0.03999199600084986, -0.00001535905302350871, -0.00001066485767753367}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.02239812680966188, 0.03999066489712022, -0.00001663879662053974, -0.00001066452997525854}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.02399769606635429, 0.0399892314173101, -0.00001791849762637977, -0.00001066417504866692}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.02559720388895788, 0.03998769556508961, -0.00001919815275615645, -0.00001066379274813899}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.02719664618273348, 0.03998605734439015, -0.00002047775874321199, -0.0000106633832254628}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.02879601885310972, 0.03998431675940576, -0.00002175731230492914, -0.00001066294634764297}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03039531780569341, 0.03998247381459242, -0.00002303681016667042, -0.00001066248218117732}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03199453894628013, 0.03998052851466781, -0.00002431624905770144, -0.00001066199075859183}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03359367818086461, 0.03997848086461204, -0.00002559562569705296, -0.00001066147199459592}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03519273141565129, 0.03997633086966712, -0.00002687493681156198, -0.00001066092595424181}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03679169455706477, 0.03997407853533696, -0.00002815417912693794, -0.000010660352628133}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03839056351176028, 0.03997172386738763, -0.00002943334936672187, -0.00001065975199819945}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.03998933418663417, 0.03996926687184721, -0.00003071244425523548, -0.00001065912407094681}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.03998933418663417, 0.03996926687184721, -0.00003071244425523548, -0.00001065912407094681}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.00959985254467948, 0.07999740588141657, -0.00002047984271457554, -0.000085332241075003}, {-0.07999999999999999, -0.04, 0.}}, {{0.00959985254467948, 0.07999740588141657, -0.00002047984271457554, -0.000085332241075003}, {-0.03999999999999999, 0., 0.04}}, {{0.01279965047752997, 0.07999494832126234, -0.00003071950192782419, -0.0000853304934437388}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.01599931734207141, 0.07999167161353617, -0.000040958846577073, -0.0000853278720770733}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.01919882037374308, 0.0799875757917917, -0.0000511977718059206, -0.0000853243769070635}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.02239812680966188, 0.07998266089797008, -0.00006143617277028223, -0.0000853200080363468}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.02559720388895788, 0.07997692698239974, -0.00007167394462919559, -0.0000853147654909447}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.02879601885310971, 0.07997037410379594, -0.0000819109825474229, -0.0000853086493185614}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.03199453894628012, 0.07996300232926026, -0.0000921471816959716, -0.0000853016595712385}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.03519273141565128, 0.0799548117342791, -0.0001023824372645838, -0.0000852937964051019}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.03839056351176027, 0.0799458024027247, -0.0001126166444299914, -0.0000852850597117307}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.04158800248883436, 0.07993597442685234, -0.0001228496984044883, -0.0000852754497874739}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.04478501560512637, 0.07992532790730016, -0.0001330814944022762, -0.0000852649666482323}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.04798157012324993, 0.0799138629530888, -0.0001433119276418938, -0.000085253610330147}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.05117763331051468, 0.07990157968161871, -0.0001535408933762276, -0.0000852413811194482}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.05437317243926154, 0.07988847821867138, -0.0001637682868416838, -0.0000852282788788016}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.05756815478719773, 0.07987455869840475, -0.000173994003332782, -0.0000852143040924848}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.06076254763773195, 0.07985982126335552, -0.0001842179381154189, -0.000085199456521974}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.0639563182803093, 0.07984426606443371, -0.000194439986522625, -0.0000851837367267168}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.06714943401074633, 0.0798278932609256, -0.0002046600438513483, -0.0000851671444060279}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.07034186213156584, 0.07981070302048754, -0.0002148780054757325, -0.0000851496802032012}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.0735335699523318, 0.07979269551914886, -0.0002250937667334916, -0.0000851313438146594}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.07672452478998395, 0.07977387094130407, -0.0002353072230598314, -0.0000851121360528314}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.07991469396917271, 0.079754229479719, -0.0002455182698134565, -0.0000850920562802097}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.07991469396917271, 0.079754229479719, -0.0002455182698134565, -0.0000850920562802097}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.01439950234115975, 0.119991244912007, -0.00006911880561233376, -0.0002879917056436768}, {-0.07999999999999999, -0.04, 0.}}, {{0.01439950234115975, 0.119991244912007, -0.00006911880561233376, -0.0002879917056436768}, {-0.03999999999999999, 0., 0.04}}, {{0.01919882037374308, 0.1199829508145831, -0.0001036762177990258, -0.0002879784348891004}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.02399769606635429, 0.1199718923152802, -0.00013823124128641, -0.0002879585290615352}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.02879601885310972, 0.1199580696688856, -0.0001727830799323412, -0.0002879319887160933}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.03359367818086461, 0.1199414831938722, -0.0002073309376678794, -0.0002878988144628183}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.03839056351176027, 0.1199221332723917, -0.0002418740185059637, -0.0002878590069840356}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.04318656432577091, 0.119900020350266, -0.0002764115265710758, -0.0002878125672092675}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.04798157012324992, 0.1198751449369753, -0.000310942666133414, -0.0002877594963528187}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.05277547042747584, 0.1198475076056479, -0.0003454666415936281, -0.000287699795501785}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.05756815478719771, 0.1198171089930471, -0.0003799826575091871, -0.0002876334659629911}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.06235951277917993, 0.1197839497995552, -0.0004144899186483282, -0.0002875605094928431}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.06714943401074631, 0.1197480307891594, -0.0004489876299484246, -0.0002874809275008023}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.07193780812232353, 0.1197093527894307, -0.0004834749966087927, -0.0002873947221697342}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.07672452478998393, 0.1196679166915098, -0.0005179512240112424, -0.0002873018950204131}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.0815094737279872, 0.119623723450082, -0.0005524155178475774, -0.0002872024486361251}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.0862925446913215, 0.1195767740833574, -0.0005868670840568005, -0.0002870963850768596}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.0910736274782434, 0.119527069673048, -0.0006213051288684804, -0.0002869837067639988}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.095852611932817, 0.1194746113643402, -0.0006557288588461199, -0.0002868644164803292}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1006293879474519, 0.1194194003658724, -0.0006901374808481249, -0.0002867385166833748}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1054038454654401, 0.1193614379497025, -0.0007245302021232143, -0.0002866060106257448}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1101758744834913, 0.1193007254512826, -0.0007589062302497042, -0.0002864669010540821}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1149453650542684, 0.1192372642694255, -0.0007932647732135707, -0.0002863211913655542}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1197122072889194, 0.1191710558662752, -0.000827605039378267, -0.0002861688847058024}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.1197122072889194, 0.1191710558662752, -0.000827605039378267, -0.0002861688847058024}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.01919882037374308, 0.1599792474053278, -0.0001638349668885847, -0.0006826317145517313}, {-0.07999999999999999, -0.04, 0.}}, {{0.01919882037374308, 0.1599792474053278, -0.0001638349668885847, -0.0006826317145517313}, {-0.03999999999999999, 0., 0.04}}, {{0.02559720388895788, 0.1599595878803699, -0.0002457440619746398, -0.0006825757923837928}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.03199453894628012, 0.1599333764330561, -0.0003276430914220945, -0.0006824919120621225}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.03839056351176028, 0.1599006141370039, -0.0004095287006525283, -0.0006823800769202812}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.04478501560512638, 0.1598613023341525, -0.000491397535642285, -0.0006822402915813055}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.05117763331051468, 0.1598154426347076, -0.0005732462430615982, -0.0006820725618276108}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.05756815478719773, 0.1597630369170762, -0.0006550714703925518, -0.000681876894424613}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.06395631828030929, 0.1597040873277893, -0.0007368698660862459, -0.000681653297447451}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.07034186213156581, 0.159638596281413, -0.00081863807970331, -0.0006814017801422048}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.07672452478998393, 0.1595665664604531, -0.000900372761998211, -0.0006811223524575096}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.0831040448225935, 0.1594880008152389, -0.000982070565177726, -0.0006808150264959552}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.0894801609251459, 0.1594029025638105, -0.001063728142855144, -0.0006804798139784835}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.095852611932817, 0.1593112751917781, -0.001145342150405542, -0.0006801167295866466}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1022211368309045, 0.1592131224521875, -0.001226909244881473, -0.0006797257872994301}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.108585474765519, 0.1591084483653612, -0.00130842608532973, -0.000679307003735469}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1149453650542684, 0.1589972572187343, -0.001389889332835749, -0.0006788603958834936}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1213005471969357, 0.1588795535666819, -0.001471295650655109, -0.0006783859818280015}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1276507608861488, 0.1587553422303276, -0.001552641704428632, -0.0006778837814460271}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1339957460180428, 0.1586246282973511, -0.001633924162206672, -0.0006773538148169946}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1403352427029139, 0.1584874171217768, -0.00171513969467879, -0.0006767961039343123}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1466689912758641, 0.1583437143237559, -0.001796284975260491, -0.0006762106715141782}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1529967323074375, 0.1581935257893337, -0.001877356680278148, -0.0006755975418138089}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.159318206614246, 0.1580368576702132, -0.001958351489005778, -0.000674956739396917}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.159318206614246, 0.1580368576702132, -0.001958351489005778, -0.000674956739396917}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.02399769606635429, 0.1999594681070719, -0.0003199846402523327, -0.001333226668639651}, {-0.07999999999999999, -0.04, 0.}}, {{0.02399769606635429, 0.1999594681070719, -0.0003199846402523327, -0.001333226668639651}, {-0.03999999999999999, 0., 0.04}}, {{0.03199453894628012, 0.1999210719981457, -0.0004799513615767748, -0.001333056011037017}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.03998933418663417, 0.1998698810088512, -0.000639887366182118, -0.00133280003837786}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.04798157012324994, 0.1998058984153941, -0.0007997824182138374, -0.001332458766930995}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.05597073525575548, 0.1997291283126386, -0.000959626284442738, -0.001332032218574173}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.06395631828030929, 0.1996395756138453, -0.001119408734916866, -0.001331520420617732}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.07193780812232353, 0.1995372460503562, -0.001279119543613414, -0.001330923405804568}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.0799146939691727, 0.1994221461712292, -0.001438748489087858, -0.001330241212287031}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.0878864653028853, 0.1992942833428152, -0.001598285355175478, -0.001329473884063503}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.095852611932817, 0.1991536657482932, -0.001757719931523919, -0.001328621469570343}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1038126240283027, 0.1990003023871417, -0.001917042014394286, -0.001327684023919724}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1117659921512852, 0.198834203074562, -0.00207624140724609, -0.001326661607098367}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.1197122072889194, 0.1986553784408545, -0.002235307921343366, -0.001325554284143968}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1276507608861487, 0.1984638399307343, -0.002394231376503378, -0.001324362126333433}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1355811448782528, 0.1982595998026004, -0.002553001601673236, -0.001323085209748811}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1435028517233628, 0.1980426711277515, -0.002711608435611645, -0.001321723616153412}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1514153744349448, 0.1978130677895497, -0.002870041727522779, -0.001320277432592779}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.159318206614246, 0.1975708044825294, -0.003028291337752936, -0.001318746751917976}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1672108424827043, 0.1973158967114584, -0.003186347138387985, -0.001317131671958733}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1750927769143183, 0.1970483607903485, -0.003344199013873697, -0.001315432295714267}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1829635054679746, 0.1967682138414082, -0.003501836861753008, -0.001313648732327587}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1908225244197324, 0.1964754737939443, -0.003659250593299188, -0.001311781096218164}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1986693307950613, 0.1961701593832219, -0.003816430134029674, -0.001309829506087386}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.1986693307950613, 0.1961701593832219, -0.003816430134029674, -0.001309829506087386}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.02879601885310972, 0.2399299619841658, -0.0005529217803047077, -0.00230373458621457}, {-0.07999999999999999, -0.04, 0.}}, {{0.02879601885310972, 0.2399299619841658, -0.0005529217803047077, -0.00230373458621457}, {-0.03999999999999999, 0., 0.04}}, {{0.03839056351176028, 0.239863616466264, -0.00082931897377285, -0.002303309945567849}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.04798157012324994, 0.2397751652872414, -0.001105639737782396, -0.002302673033412886}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.05756815478719774, 0.239664616598695, -0.001381858606829683, -0.002301823908727393}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.06714943401074632, 0.2395319805887145, -0.001657950124756696, -0.002300762649391774}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.07672452478998394, 0.2393772694809408, -0.001933888847171009, -0.002299489353452606}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.0862925446913215, 0.2392004975334394, -0.002209649343767538, -0.002298004138304407}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.095852611932817, 0.2390016810373882, -0.002485206200639885, -0.002296307140602893}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.10540384546544, 0.2387808383155749, -0.002760534022665588, -0.002294398516880862}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1149453650542684, 0.2385379897207084, -0.003035607435831688, -0.002292278443050828}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1244762913596101, 0.2382731576335435, -0.00331040108956203, -0.00228994711441953}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1339957460180428, 0.2379863664608164, -0.003584889659087597, -0.002287404746046386}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.1435028517233628, 0.2376776426330015, -0.003859047847687074, -0.002284651571662309}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1529967323074375, 0.2373470146018656, -0.004132850389198734, -0.002281687845930485}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1624765128209517, 0.2369945128378554, -0.004406272050127415, -0.002278513841072347}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.171941319614043, 0.2366201698272838, -0.004679287632144282, -0.002275129850140554}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1813902804168165, 0.2362240200693364, -0.004951871974342988, -0.002271536184989216}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1908225244197324, 0.2358061000728972, -0.005223999955490316, -0.002267733176227724}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2002371823538594, 0.2353664483531745, -0.005495646496532844, -0.002263721175354413}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2096333865709859, 0.2349051054281616, -0.005766786562661284, -0.002259500551070324}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2190102711235816, 0.2344221138148942, -0.006037395165843154, -0.002255071693182256}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2283669718446032, 0.2339175180255384, -0.006307447366947489, -0.002250435009202784}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2377026264271346, 0.2333913645632871, -0.006576918278141181, -0.002245590926614104}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.2377026264271346, 0.2333913645632871, -0.006576918278141181, -0.002245590926614104}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.03359367818086461, 0.2798887842800679, -0.000877997392881996, -0.003658093008368502}, {-0.07999999999999999, -0.04, 0.}}, {{0.03359367818086461, 0.2798887842800679, -0.000877997392881996, -0.003658093008368502}, {-0.03999999999999999, 0., 0.04}}, {{0.04478501560512638, 0.2797834356065443, -0.001316858419045386, -0.003657175218028246}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.05597073525575548, 0.2796429912657275, -0.001755554260209763, -0.003655798676369804}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.06714943401074632, 0.2794674688747708, -0.002194029886958687, -0.003653963556241035}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.07831970962878527, 0.2792568904509736, -0.00263223029746476, -0.00365167008755061}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.0894801609251459, 0.2790112824090166, -0.003070100524462522, -0.003648918558314681}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1006293879474519, 0.2787306755576505, -0.003507585642076317, -0.003645709313448304}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1117659921512852, 0.2784151050958314, -0.003944630772739073, -0.003642042755522963}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1228885765756173, 0.2780646106083034, -0.004381181094099965, -0.003637919344674093}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1339957460180428, 0.2776792360606362, -0.004817181845839794, -0.00363333959783191}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.145086107209791, 0.277259029793707, -0.005252578336614747, -0.003628304089791277}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1561582689904967, 0.2768040445176407, -0.00568731595082944, -0.003622813451789117}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.1672108424827043, 0.2763143373051909, -0.006121340155622318, -0.00361686837327398}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1782424412660879, 0.2757899695845901, -0.00655459650751033, -0.003610469599066754}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.1892516815513614, 0.2752310071318366, -0.00698703065941802, -0.003603617932564082}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2002371823538594, 0.2746375200624489, -0.007418588367346512, -0.003596314232737429}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.211197565666766, 0.2740095828226656, -0.007849215497290889, -0.003588559416203144}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2221314566339704, 0.2733472741801112, -0.00827885803193067, -0.003580354455331536}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.233037483722527, 0.2726506772139132, -0.00870746207747505, -0.003571700379536438}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2439142788946983, 0.2719198793042816, -0.00913497387039496, -0.003562598274332613}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2547604777795602, 0.2711549721215474, -0.00956133978417677, -0.003553049281515098}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2655747198441468, 0.2703560516146645, -0.009986506336037, -0.003543054598835237}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2763556485641138, 0.2695232179991768, -0.01041042019359548, -0.003532615479654005}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.2763556485641138, 0.2695232179991768, -0.01041042019359548, -0.003532615479654005}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.03839056351176027, 0.3198339905700599, -0.001310558945472051, -0.005460214904818434}, {-0.07999999999999999, -0.04, 0.}}, {{0.03839056351176027, 0.3198339905700599, -0.001310558945472051, -0.005460214904818434}, {-0.03999999999999999, 0., 0.04}}, {{0.05117763331051468, 0.3196767449688601, -0.001965570014997309, -0.005458425579377146}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.06395631828030929, 0.3194671242448652, -0.002620259049936068, -0.005455741957822998}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.07672452478998394, 0.3192051627418663, -0.003274518787486913, -0.005452164479590368}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.0894801609251459, 0.3188909033790494, -0.003928242035210887, -0.005447693731033123}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1022211368309045, 0.3185243976439657, -0.004581321688545971, -0.005442330444459027}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1149453650542684, 0.3181057055840956, -0.005233650748376342, -0.005436075498586433}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1276507608861487, 0.3176348957970096, -0.005885122338575302, -0.005428929918324668}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1403352427029138, 0.3171120454191276, -0.006535629723525285, -0.005420894874583203}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1529967323074374, 0.3165372401130901, -0.007185066325469256, -0.005411971682866421}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1656331552695858, 0.3159105740537094, -0.007833325742258315, -0.005402161806575502}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1782424412660879, 0.3152321499125522, -0.0084803017644644, -0.005391466851717387}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.1908225244197323, 0.314502078841111, -0.0091258883930155, -0.005379888571259137}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2033713436378363, 0.3137204804525989, -0.00976997985640062, -0.005367428861542674}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2158868429499301, 0.3128874828023456, -0.01041247062816621, -0.005354089764713257}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2283669718446031, 0.3120032223668243, -0.01105325544401707, -0.005339873465423852}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2408096856054546, 0.3110678440212869, -0.01169222931921703, -0.005324782293332956}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2532129456460957, 0.3100815010160265, -0.01232928756575434, -0.005308818721144281}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2655747198441468, 0.3090443549512764, -0.01296432580937672, -0.005291985363519787}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2778929828741759, 0.3079565757507283, -0.0135972400068518, -0.005274284978958965}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2901657165395237, 0.3068183416336936, -0.01422792646293274, -0.005255720467341181}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3023909101029597, 0.3056298390859008, -0.01485628184741057, -0.00523629487064861}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3145665606161178, 0.3043912628289533, -0.01548220321184388, -0.005216011370277596}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.3145665606161178, 0.3043912628289533, -0.01548220321184388, -0.005216011370277596}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.04318656432577091, 0.35976363681653, -0.00186594977773652, -0.007773984580621009}, {-0.07999999999999999, -0.04, 0.}}, {{0.04318656432577091, 0.35976363681653, -0.00186594977773652, -0.007773984580621009}, {-0.03999999999999999, 0., 0.04}}, {{0.05756815478719773, 0.3595397615356703, -0.002798441010746361, -0.00777076027508201}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.07193780812232353, 0.3592413333781452, -0.003730351969062628, -0.007765924652635557}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.0862925446913215, 0.3588684142249494, -0.004661489414947705, -0.007759478715708977}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1006293879474519, 0.3584210814032605, -0.005591660271111325, -0.007751423801363499}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1149453650542684, 0.3578994276704108, -0.006520671660621704, -0.007741761579253148}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1292375075020543, 0.3573035611946491, -0.007448330947021356, -0.007730494053330452}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1435028517233628, 0.3566336055327123, -0.00837444577420979, -0.007717623559903625}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1577384397075311, 0.3558896996042069, -0.00929882410631717, -0.007703152767561459}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1719413196140429, 0.3550719976627976, -0.0102212742676168, -0.007687084677496934}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1861085463846123, 0.3541806692642336, -0.01114160498204981, -0.007669422620275085}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2002371823538593, 0.3532158992311751, -0.0120596254132313, -0.007650170259845767}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.2143242978584545, 0.3521778876148792, -0.01297514520369815, -0.007629331587223762}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2283669718446031, 0.351066849653715, -0.013887974514553, -0.007606910923790375}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2423622924737446, 0.3498830157285364, -0.01479792406473278, -0.007582912918164844}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2563073577263406, 0.3486266313148991, -0.01570480517046542, -0.007557342547772019}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2701992760036276, 0.3472979569321768, -0.01660842978402909, -0.007530205113030526}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2840351667272088, 0.34589726808953, -0.01750861053308529, -0.007501506242135047}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2978121609363598, 0.3444248552287737, -0.01840516075945346, -0.007471251886401383}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3115274018829264, 0.3428810236641652, -0.01929789455760582, -0.007439448317936297}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3251780456236899, 0.3412660935190864, -0.02018662681348494, -0.00740610213232605}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3387612616100765, 0.3395803996596638, -0.02107117324278219, -0.007371220244143748}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.35227423327509, 0.3378242916253388, -0.02195135042906278, -0.007334809885671535}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.35227423327509, 0.3378242916253388, -0.02195135042906278, -0.007334809885671535}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.04798157012324992, 0.399675779424245, -0.002559508512157278, -0.01066325358383552}, {-0.07999999999999999, -0.04, 0.}}, {{0.04798157012324992, 0.399675779424245, -0.002559508512157278, -0.01066325358383552}, {-0.03999999999999999, 0., 0.04}}, {{0.06395631828030929, 0.3993687039264841, -0.003838443722010976, -0.01065779341544748}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.0799146939691727, 0.3989593922215851, -0.005116396311238141, -0.01064960491022638}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.095852611932817, 0.3984479490911084, -0.006393039130958566, -0.01063869016433687}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1117659921512852, 0.3978345054617037, -0.007668045367559273, -0.01062505197167254}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1276507608861487, 0.397119218371589, -0.00894108862643309, -0.01060869382394847}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1435028517233628, 0.3963022709303518, -0.01021184301546602, -0.01058961990860778}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.159318206614246, 0.3953838722720789, -0.01147998322841015, -0.0105678351078678}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1750927769143182, 0.3943642575018067, -0.01274518462840297, -0.0105433449999401}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1908225244197323, 0.3932436876353524, -0.01400712333067892, -0.01051615585229959}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2065034224010315, 0.392022449532479, -0.01526547628591738, -0.01048627462698719}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2221314566339704, 0.3907008558234723, -0.0165199213625844, -0.01045370897222514}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.2377026264271346, 0.3892792448291046, -0.01777013742959575, -0.0104184672250946}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2532129456460956, 0.387757980474027, -0.01901580443846999, -0.01038055840728533}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2686584437338398, 0.3861374521936033, -0.02025660350529547, -0.01033999222354563}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2840351667272088, 0.3844180748342262, -0.0214922169922138, -0.01029677905765276}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2993391782690932, 0.3826002885471091, -0.02272232858896437, -0.01025092997292142}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3145665606161178, 0.3806845586756143, -0.02394662339368426, -0.01020245670599906}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3297134156415628, 0.3786713756361245, -0.02516478799362285, -0.01015137166615493}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3447758658332631, 0.3765612547925079, -0.02637651054520835, -0.01009768792987911}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.35975005528623, 0.3743547363241711, -0.02758148085420934, -0.01004141924167492}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3746321506897417, 0.3720523850877937, -0.02877939045471676, -0.00998258000422848}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3894183423086506, 0.3696547904727212, -0.0299699326884076, -0.00992118528075703}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.3894183423086506, 0.3696547904727212, -0.0299699326884076, -0.00992118528075703}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.05277547042747584, 0.4395684752956138, -0.003406568464787291, -0.01419183661400513}, {-0.07999999999999999, -0.04, 0.}}, {{0.05277547042747584, 0.4395684752956138, -0.003406568464787291, -0.01419183661400513}, {-0.03999999999999999, 0., 0.04}}, {{0.07034186213156581, 0.4391597926022494, -0.005108533667055882, -0.01418304335223825}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.0878864653028853, 0.4386150792829872, -0.006808916490776139, -0.01416985686433547}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.10540384546544, 0.4379345040638683, -0.00850719023898702, -0.01415228123509068}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1228885765756173, 0.4371182777544321, -0.01020282886795218, -0.01413032190804297}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1403352427029138, 0.4361666531824132, -0.01189530715023576, -0.01410398568569655}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1577384397075311, 0.435079925115431, -0.01358410083727724, -0.01407328072534566}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1750927769143182, 0.4338584301696788, -0.01526868682190375, -0.01403821653855424}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.192392878782545, 0.4325025467056698, -0.01694854330011251, -0.01399880398507299}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2096333865709857, 0.4310126947110188, -0.01862314993313631, -0.01395505527519833}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2268089599978005, 0.4293893356703697, -0.02029198800811498, -0.01390698395815557}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2439142788946981, 0.4276329724224402, -0.02195454059911866, -0.01385460492503074}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.2609440448548686, 0.4257441490042629, -0.02361029272721635, -0.01379793440081409}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2778929828741758, 0.4237234504826781, -0.0252587315198102, -0.0137369899382821}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.2947558429851, 0.4215715027731045, -0.0268993463696694, -0.01367179041549325}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3115274018829264, 0.4192889724456594, -0.02853162909306412, -0.0136023560282893}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3282024645436735, 0.4168765665186782, -0.03015507408726453, -0.01352870828500344}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3447758658332631, 0.4143350322397401, -0.03176917848672631, -0.01345086999551477}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3612424721074303, 0.4116651568541779, -0.03337344231952794, -0.01336886527334689}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.37759718280188, 0.4088677673612439, -0.03496736866167441, -0.01328271951788726}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3938349320121976, 0.4059437302579389, -0.03655046379131343, -0.0131924594136585}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4099506900630223, 0.4028939512706175, -0.03812223734151601, -0.01309811291835479}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4259394650659997, 0.3997193750744346, -0.03968220245228681, -0.01299970925642338}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.4259394650659997, 0.3997193750744346, -0.03968220245228681, -0.01299970925642338}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.05756815478719771, 0.4794397818859362, -0.004422457056169061, -0.01842350743189864}, {-0.07999999999999999, -0.04, 0.}}, {{0.05756815478719771, 0.4794397818859362, -0.004422457056169061, -0.01842350743189864}, {-0.03999999999999999, 0., 0.04}}, {{0.07672452478998393, 0.4789092500696553, -0.006631647703510963, -0.01840992206118251}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.095852611932817, 0.4782021785708272, -0.00883839373535047, -0.01838955026532926}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1149453650542684, 0.4773188280362834, -0.01104188168179823, -0.01836239955373131}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1339957460180428, 0.4762595240943599, -0.01324129927404368, -0.0183284799353788}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1529967323074374, 0.4750246572348671, -0.01543583574366084, -0.01828780391347626}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1719413196140429, 0.4736146826651386, -0.01762468212160654, -0.01824038648288088}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.1908225244197323, 0.4720301201422336, -0.01980703153631193, -0.01818624512254485}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2096333865709857, 0.4702715537813362, -0.02198207951121732, -0.01812539979087828}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.228366971844603, 0.4683396318404333, -0.02414902426128644, -0.01805787291724269}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2470163745038572, 0.4662350664813529, -0.02630706698850476, -0.01798368939348597}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2655747198441466, 0.4639586335072356, -0.02845541217646601, -0.01790287656634384}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.2840351667272087, 0.4615111720765532, -0.0305932678835302, -0.01781546422553487}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3023909101029596, 0.4588935843937711, -0.03271984603477743, -0.01772148459372688}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3206351835180304, 0.4561068353767693, -0.03483436271252066, -0.01762097231452693}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3387612616100764, 0.453151952301149, -0.03693603844525519, -0.01751396443945441}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3567624625869381, 0.4500300244215435, -0.03902409849506832, -0.01740050041510939}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3746321506897417, 0.4467422025700895, -0.04109777314317481, -0.01728062206755401}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.39236373863903, 0.443289698732206, -0.04315629797354416, -0.01715437358641128}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4099506900630223, 0.4396737855998086, -0.04519891415496673, -0.01702180151185472}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4273865219071089, 0.4358957961021644, -0.04722486872055227, -0.01688295471321288}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4446648068236905, 0.4319571229145388, -0.04923341484532048, -0.01673788437306828}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4617791755414829, 0.4278592179448115, -0.05122381212159039, -0.01658664396891596}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.4617791755414829, 0.4278592179448115, -0.05122381212159039, -0.01658664396891596}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.06235951277917993, 0.5192877572586391, -0.005622495222414038, -0.02342199477068051}, {-0.07999999999999999, -0.04, 0.}}, {{0.06235951277917993, 0.5192877572586391, -0.005622495222414038, -0.02342199477068051}, {-0.03999999999999999, 0., 0.04}}, {{0.0831040448225935, 0.518613301085339, -0.00843070216625247, -0.02340172453198692}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1038126240283027, 0.51771448014273, -0.01123526178261058, -0.02337133013631761}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1244762913596101, 0.5165916832826852, -0.01403496075056132, -0.02333082473292279}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.145086107209791, 0.5152453962545235, -0.01682858785202051, -0.02328022584549329}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1656331552695858, 0.5136762014948694, -0.01961493449567642, -0.02321955536379924}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.1861085463846123, 0.5118847778756627, -0.02239279524008376, -0.02314883953672785}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2065034224010315, 0.5098719004104791, -0.02516096831479548, -0.02306810895593105}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2268089599978005, 0.5076384399192269, -0.02791825614065214, -0.02297739854880549}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2470163745038572, 0.5051853626514165, -0.03066346584763014, -0.02287674755815003}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2671169236985825, 0.5025137298681345, -0.03339540979102469, -0.02276619952828788}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2871019115938991, 0.4996246973829134, -0.03611290606526373, -0.02264580228532534}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.3069626921963675, 0.4965195150617104, -0.03881477901503807, -0.02251560791478613}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3266906732476541, 0.4931995262821644, -0.04149985974432471, -0.02237567274405529}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3462773199417518, 0.4896661673524423, -0.04416698662152575, -0.0222260573100087}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3657141586173451, 0.4859209668898325, -0.046815005782623, -0.02206682634247705}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3849927804237232, 0.4819655451594528, -0.04944277162974641, -0.02189804872602834}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4041048449586535, 0.4778016133732545, -0.05204914732747849, -0.02171979748110066}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4230420838766435, 0.4734309729497492, -0.0546330052938158, -0.02153214971947757}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4417963044660286, 0.468855514734628, -0.05719322768901395, -0.02133518662665125}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4603593931933393, 0.4640772181827676, -0.05972870689825641, -0.02112899341035379}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4787233192134137, 0.4590981505018587, -0.06223834601136105, -0.02091365927587202}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4968801378437368, 0.4539204657580781, -0.06472105929725693, -0.02068927738246573}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.4968801378437368, 0.4539204657580781, -0.06472105929725693, -0.02068927738246573}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.06714943401074631, 0.5591104601404984, -0.007021996826422906, -0.02925097824780371}, {-0.07999999999999999, -0.04, 0.}}, {{0.06714943401074631, 0.5591104601404984, -0.007021996826422906, -0.02925097824780371}, {-0.03999999999999999, 0., 0.04}}, {{0.0894801609251459, 0.5582681728599902, -0.0105285910063535, -0.02922161816608833}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1117659921512852, 0.5571457806534816, -0.014029902581357, -0.02917759645836244}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1339957460180428, 0.5557438466689396, -0.01752417480677393, -0.02911893521180773}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1561582689904967, 0.5540630743113477, -0.02100965446989872, -0.02904566385937325}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1782424412660879, 0.552104306889781, -0.02448459276958443, -0.02895781916404759}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2002371823538593, 0.5498685271942856, -0.02794724619369222, -0.02885544520089831}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2221314566339704, 0.5473568570027762, -0.03139587739386802, -0.02873859333479834}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2439142788946981, 0.5445705565181948, -0.03482875605726745, -0.02860732219499523}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2655747198441466, 0.541511023736212, -0.03824415977478487, -0.0284616976459785}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2871019115938991, 0.5381797937438124, -0.0416403749049957, -0.02830179275175686}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3084850531118617, 0.5345785379490663, -0.0450156974343266, -0.02812768774442416}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.3297134156415628, 0.5307090632425247, -0.0483684338317691, -0.02793946997868758}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3507763480851884, 0.5265733110906399, -0.05169690189855965, -0.02773723388992114}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.371663282347654, 0.5221733565616389, -0.05499943161251238, -0.02752108094960604}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.39236373863903, 0.5175114072843999, -0.05827436596548825, -0.02729111960813229}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4128673307326613, 0.5125898023407844, -0.06152006179519215, -0.0270474652475325}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4331637711763426, 0.5074110110920303, -0.06473489060942744, -0.02679024011862742}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4532428764539341, 0.5019776319397869, -0.06791723940304246, -0.02651957328012505}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4730945720948296, 0.4962923910223873, -0.0710655114674954, -0.02623560053710778}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4927088977287111, 0.4903581408470355, -0.07417812719189697, -0.02593846437001313}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.512076012083055, 0.4841778588585986, -0.07725352485546046, -0.02562831386302906}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5311861979208834, 0.4777546459457114, -0.0802901614110903, -0.02530530463024881}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.5311861979208834, 0.4777546459457114, -0.0802901614110903, -0.02530530463024881}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.07193780812232353, 0.5989059499768402, -0.00863626806938411, -0.03597408427962607}, {-0.07999999999999999, -0.04, 0.}}, {{0.07193780812232353, 0.5989059499768402, -0.00863626806938411, -0.03597408427962607}, {-0.03999999999999999, 0., 0.04}}, {{0.095852611932817, 0.5978700952623375, -0.01294818393128422, -0.03593263218250087}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1197122072889194, 0.596489883902558, -0.0172526419972438, -0.03587048388299649}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1435028517233628, 0.5947661108610866, -0.02154716301839276, -0.03578767517624138}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1672108424827043, 0.5926997689835372, -0.02582927346936741, -0.03568425375812209}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1908225244197323, 0.5902920484257012, -0.03009650697295003, -0.03556027919652174}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2143242978584545, 0.5875443359680539, -0.03434640572059084, -0.03541582289700687}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2377026264271346, 0.5844582142170017, -0.03857652188815344, -0.03525096806302158}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2609440448548686, 0.5810354606933532, -0.04278441904560645, -0.03506580964544178}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2840351667272087, 0.5772780468085024, -0.04696767356063422, -0.03486045429189808}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3069626921963675, 0.5731881367289696, -0.05112387599415933, -0.03463502027937593}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3297134156415628, 0.5687680861298805, -0.055250632488614, -0.03438963745378889}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.3522742332750899, 0.5640204408381792, -0.05934556614626685, -0.03412444714710713}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3746321506897417, 0.5589479353662937, -0.06340631839856914, -0.03383960210251906}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.396774290343227, 0.5535534913371313, -0.06743055036452917, -0.03353526638300017}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4186878989752796, 0.5478402158013133, -0.07141594419772517, -0.03321161527663332}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4403603549531831, 0.5418113994475889, -0.07536020442155533, -0.03286883519858458}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.461779175541483, 0.535470514707496, -0.07926105925116077, -0.03250712358004538}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4829320240916965, 0.5288212137553368, -0.0831162619019901, -0.03212668875691065}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5038067171478814, 0.5218673264046232, -0.0869235918839194, -0.0317277498494115}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5243912314639699, 0.5146128579022104, -0.0906808562801605, -0.03131053663534228}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5446737109288254, 0.5070619866213873, -0.0943858910102887, -0.03087528941773478}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5646424733950355, 0.4992190616552549, -0.0980365620766554, -0.03042225888638903}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.5646424733950355, 0.4992190616552549, -0.0980365620766554, -0.03042225888638903}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.07672452478998393, 0.6386722869867314, -0.01048060690235775, -0.04365488199601505}, {-0.07999999999999999, -0.04, 0.}}, {{0.07672452478998393, 0.6386722869867314, -0.01048060690235775, -0.04365488199601505}, {-0.03999999999999999, 0., 0.04}}, {{0.1022211368309045, 0.6374153010230153, -0.01571232454645188, -0.04359764703411779}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1276507608861487, 0.6357406013811048, -0.02093374552388088, -0.043511841478575}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1529967323074375, 0.6336492855322179, -0.02614144811108609, -0.0433975215600434}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1782424412660879, 0.6311427239662616, -0.03133201957445375, -0.04325476219473043}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2033713436378363, 0.6282225592937101, -0.03650205840689397, -0.04308365693700192}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2283669718446031, 0.6248907051691701, -0.04164817655674949, -0.04288431791546258}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2532129456460956, 0.6211493450373137, -0.04676700164820554, -0.04265687576213385}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2778929828741758, 0.6170009307020042, -0.05185517919136938, -0.04240147952636524}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3023909101029596, 0.6124481807195953, -0.05690937478011059, -0.04211829657284341}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3266906732476541, 0.6074940786173631, -0.06192627627790302, -0.04180751248160366}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3507763480851884, 0.6021418709383562, -0.06690259598758629, -0.04146933091402732}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.3746321506897417, 0.5963950651138328, -0.07183507280654194, -0.04110397349129702}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.3982424477763331, 0.5902574271647846, -0.07672047436310247, -0.0407116796380044}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4215917669456908, 0.5837329792339414, -0.0815555991355409, -0.04029270643698723}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4446648068236904, 0.5768259969499904, -0.0863372785493865, -0.03984732844871278}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4674464470887159, 0.5695410066256354, -0.0910623790544365, -0.03937583754208317}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4899217583803717, 0.5618827822913948, -0.0957278041780084, -0.03887854269643319}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5120760120830551, 0.5538563425670852, -0.10033049655387, -0.03835576979884649}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5338946899779736, 0.545466947372963, -0.1048674399265272, -0.03780786143880983}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5553634937572863, 0.5367200944828145, -0.1093356611268566, -0.03723517666941175}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5764683543941294, 0.5276215159210781, -0.1137322320217056, -0.03663809079040844}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5971954413623921, 0.5181771742065699, -0.1180542714313518, -0.03601699508038493}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.5971954413623921, 0.5181771742065699, -0.1180542714313518, -0.03601699508038493}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.0815094737279872, 0.678407532218142, -0.01257030243824176, -0.05235687915870528}, {-0.07999999999999999, -0.04, 0.}}, {{0.0815094737279872, 0.678407532218142, -0.01257030243824176, -0.05235687915870528}, {-0.03999999999999999, 0., 0.04}}, {{0.108585474765519, 0.6769000259382945, -0.01884382849809407, -0.05227938383210265}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1355811448782528, 0.6748917528183441, -0.02510341399938054, -0.05216321251072055}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1624765128209517, 0.6723841985674729, -0.03134442813588905, -0.05200845113757092}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1892516815513614, 0.669379218260243, -0.03756225384037442, -0.05181521420404474}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2158868429499301, 0.6658790349642191, -0.04375229120029828, -0.05158364466603221}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2423622924737446, 0.6618862380953609, -0.04990996086072788, -0.05131391383691333}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2686584437338398, 0.6574037815023807, -0.05603070741225239, -0.05100622126270422}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2947558429851, 0.6524349812815054, -0.06211000276094146, -0.05066079457240889}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3206351835180304, 0.6469835133232602, -0.06814334947806425, -0.05027788930935671}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3462773199417518, 0.641053410593036, -0.07412628412780263, -0.04985778874781989}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.371663282347654, 0.6346490601475527, -0.0800543805685422, -0.04940080367282959}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.396774290343227, 0.6277751998893252, -0.0859232532278431, -0.04890727216084049}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4215917669456908, 0.6204369150615947, -0.0917285603466322, -0.04837755932324257}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4460973523251425, 0.6126396344862904, -0.0974660071913032, -0.04781205703892571}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4702729173870551, 0.6043891265478158, -0.1031313492309323, -0.04721118366357564}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4941005771840809, 0.5956914949256454, -0.10872039527713, -0.04657538371831411}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5175627041472342, 0.5865531740788308, -0.1142290105851817, -0.04590512756709691}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5406419411266682, 0.5769809244858504, -0.1196531199122551, -0.0452009110589456}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5633212142323973, 0.5669818276432254, -0.1249887105328125, -0.04446325517131151}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.585583745465465, 0.5565632808266909, -0.1302318352066816, -0.04369270561557546}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6074130651302125, 0.5457329916186883, -0.1353786151000318, -0.04288983244458511}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6287930240184686, 0.5344989722064052, -0.1404252426535386, -0.04205522961255662}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.6287930240184686, 0.5344989722064052, -0.1404252426535386, -0.04205522961255662}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.0862925446913215, 0.7181097476030948, -0.01492063436381863, -0.06214351807947116}, {-0.07999999999999999, -0.04, 0.}}, {{0.0862925446913215, 0.7181097476030948, -0.01492063436381863, -0.06214351807947116}, {-0.03999999999999999, 0., 0.04}}, {{0.1149453650542684, 0.7163205090736714, -0.02236548161779206, -0.06204039378311191}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1435028517233628, 0.7139371667273612, -0.02979177932887766, -0.06188581425904665}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.171941319614043, 0.7109616972670053, -0.03719336825444841, -0.06167990771308954}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2002371823538594, 0.7073965684954081, -0.04456410964496643, -0.0614228449209835}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2283669718446031, 0.7032447372685945, -0.05189789033516885, -0.06111483908502019}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2563073577263406, 0.6985096470434358, -0.05918862781448407, -0.06075614566096012}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2840351667272088, 0.6931952250217078, -0.06643027527159927, -0.06034706214262667}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3115274018829264, 0.6873058788929385, -0.07361682660961688, -0.05988792781681348}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3387612616100764, 0.6808464931787498, -0.0807423214273587, -0.05937912348118193}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3657141586173451, 0.6738224251817197, -0.0878008499628769, -0.05882107112931832}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.39236373863903, 0.6662395005421202, -0.0947865579949941, -0.05821423360097695}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.4186878989752796, 0.6581040084062387, -0.1016936516985186, -0.05755911419603718}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4446648068236904, 0.6494226962102717, -0.1085164024495862, -0.05685625625889697}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4702729173870551, 0.6402027640841157, -0.1152491515769501, -0.05610624272803229}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.495490991742243, 0.630451858879696, -0.1218863150552473, -0.05530969565247635}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5202981144553958, 0.6201780678288202, -0.1284223881359457, -0.05446727567248728}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5446737109288254, 0.6093899118357388, -0.1348519499135183, -0.05357968147977108}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5685975644652289, 0.5980963384100891, -0.1411696678206216, -0.05264764922586087}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5920498330350672, 0.5863067142459566, -0.1473703020516552, -0.05167195192528011}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6150110657332001, 0.5740308174533188, -0.153448709907973, -0.05065339880264831}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6374622189111296, 0.5612788294482414, -0.159399850063467, -0.04959283462911685}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6593846719714734, 0.5480613265085931, -0.1652187867456038, -0.04849113901780611}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.6593846719714734, 0.5480613265085931, -0.1652187867456038, -0.04849113901780611}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.0910736274782434, 0.7577769960127873, -0.01754687235220182, -0.07307817154210419}, {-0.07999999999999999, -0.04, 0.}}, {{0.0910736274782434, 0.7577769960127873, -0.01754687235220182, -0.07307817154210419}, {-0.03999999999999999, 0., 0.04}}, {{0.1213005471969357, 0.7556729929673054, -0.02630003806852327, -0.0729430476360121}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1514153744349448, 0.7528706809502291, -0.03502890021345461, -0.07274051787442783}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1813902804168165, 0.7493726495467922, -0.04372539254296065, -0.07247076941255026}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.211197565666766, 0.7451821312487372, -0.05238147872568682, -0.07213405152271811}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2408096856054546, 0.7403029984672159, -0.06098915976901766, -0.07173067536109026}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2701992760036276, 0.7347397599543257, -0.06954048141112617, -0.07126101368423763}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.2993391782690932, 0.7284975566366401, -0.07802754147107076, -0.07072550049953835}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3282024645436735, 0.7215821568645077, -0.0864424971516551, -0.07012463067153597}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3567624625869381, 0.7139999510816151, -0.0947775722861575, -0.06945895945418652}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3849927804237232, 0.7057579459196291, -0.1030250645248254, -0.06872910198890013}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4128673307326613, 0.6968637577234518, -0.1111773524522158, -0.06793573272825283}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.4403603549531831, 0.687325605513043, -0.1192269026301095, -0.06707958481578071}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4674464470887159, 0.6771523033883184, -0.1271662765590582, -0.06616144940790642}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4941005771840809, 0.6663532523841256, -0.1349881375524094, -0.06518217494459276}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5202981144553958, 0.6549384317828708, -0.1426852575156857, -0.0641426663606362}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5460148500511063, 0.6429183898927626, -0.1502505236263508, -0.06304388425554248}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.571227019423116, 0.6303042343002408, -0.1576769449065234, -0.06188684400143755}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5959113242873395, 0.6171076216055888, -0.1649576586831498, -0.06067261480522062}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6200449541533865, 0.6033407466511731, -0.1720859369301954, -0.0594023187253792}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6436056074034813, 0.58901633125237, -0.179055192485039, -0.05807712962369728}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6665715119011387, 0.574147612441433, -0.1858589851367122, -0.05669827209727609}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6889214451105516, 0.558748330235324, -0.1924910275763623, -0.05526702033041773}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.6889214451105516, 0.558748330235324, -0.1924910275763623, -0.05526702033041773}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.095852611932817, 0.7974073413126939, -0.02046427547544305, -0.0852241387251651}, {-0.07999999999999999, -0.04, 0.}}, {{0.095852611932817, 0.7974073413126939, -0.02046427547544305, -0.0852241387251651}, {-0.03999999999999999, 0., 0.04}}, {{0.1276507608861488, 0.7949537238332928, -0.03067021849251367, -0.0850495251422551}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.159318206614246, 0.7916861432024308, -0.04084475788577457, -0.0847878282771742}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.1908225244197324, 0.78760794513716, -0.05097747581588595, -0.0844393160842616}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2221314566339704, 0.7827233053559512, -0.06105799726510846, -0.0840043454101874}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2532129456460957, 0.7770372253031313, -0.07107600066025012, -0.0834833616261806}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2840351667272088, 0.7705555270278293, -0.0810212284412748, -0.082876898175206}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3145665606161178, 0.7632848472227245, -0.0908834975638096, -0.0821855760211229}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3447758658332631, 0.7552326304286334, -0.1006527099261385, -0.0814101030194073}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3746321506897417, 0.7464071214119646, -0.1103188627083613, -0.0805512731851903}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4041048449586535, 0.736817356722794, -0.1198720586146313, -0.07960996588558354}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4331637711763426, 0.7264731554422276, -0.1293025160070807, -0.07858714493707819}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.461779175541483, 0.7153851091285088, -0.1386005789214855, -0.07748385762003995}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.4899217583803717, 0.7035645709722171, -0.147756726953646, -0.07630123360133789}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5175627041472342, 0.6910236441715617, -0.1567615850081928, -0.07504048378789007}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5446737109288254, 0.6777751695397788, -0.1656059328972849, -0.07370289907576704}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.571227019423116, 0.6638327123572646, -0.1742807147814272, -0.07228984903451918}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5971954413623922, 0.6492105484819067, -0.1827770484419745, -0.07080278050456082}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6225523873516662, 0.6339236497318485, -0.191086234375727, -0.06924321611460425}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6472718940938929, 0.6179876685556663, -0.1991997647022776, -0.06761275272125494}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.671328650974118, 0.6014189220056277, -0.2071093318754822, -0.06591305977670491}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.694698025975336, 0.584234375030448, -0.2148068371897458, -0.06414587761886336}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7173560908995231, 0.5664516231046785, -0.2222843990721189, -0.06231301568644215}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.7173560908995231, 0.5664516231046785, -0.2222843990721189, -0.06231301568644215}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.1006293879474519, 0.836998848417641, -0.02368809161752833, -0.0986446411281247}, {-0.07999999999999999, -0.04, 0.}}, {{0.1006293879474519, 0.836998848417641, -0.02368809161752833, -0.0986446411281247}, {-0.03999999999999999, 0., 0.04}}, {{0.1339957460180428, 0.834158951764772, -0.03549870816086514, -0.0984218045278068}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1672108424827043, 0.830377411616538, -0.04726925185291747, -0.098087864100436}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2002371823538594, 0.825658496778876, -0.05898643547077447, -0.097643196815475}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.233037483722527, 0.82000753421669, -0.07063703202732917, -0.0970883046379559}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2655747198441468, 0.813430903040495, -0.0822078897024403, -0.0964238139592596}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.2978121609363598, 0.805936027305327, -0.0936859466895993, -0.0956504748929913}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3297134156415628, 0.7975313676300754, -0.1050582459406411, -0.0947691604253483}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3612424721074303, 0.7882264116466869, -0.1163119497923568, -0.0937808654309647}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.39236373863903, 0.7780316632899927, -0.1274343544586776, -0.0926867055526734}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4230420838766435, 0.7669586309403373, -0.1384129043706912, -0.0914879159334461}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4532428764539341, 0.7550198144322652, -0.1492352063509019, -0.0901858498350901}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.4829320240916965, 0.7422286909440587, -0.1598890436025817, -0.0887819770973311}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5120760120830551, 0.7285996997839655, -0.1703623895011648, -0.0872778824881926}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5406419411266682, 0.7141482260903269, -0.1806434211704814, -0.0856752639109718}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5685975644652289, 0.6988905834640173, -0.1907205328288695, -0.0839759304865674}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5959113242873395, 0.6828439955527644, -0.2005823488906626, -0.0821818005149419}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6225523873516662, 0.6660265766081663, -0.2102177368074746, -0.0802948993067669}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.648490679793161, 0.6484573110373671, -0.219615819634991, -0.07831735689597008}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6736969210720575, 0.6301560319724143, -0.2287659883119101, -0.07625140564099235}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6981426570273203, 0.611143398881569, -0.237657913635565, -0.07409937769712438}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7218002919972319, 0.5914408742477889, -0.2462815579222508, -0.07186370238904804}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7446431199708597, 0.5710706993406962, -0.2546271863386602, -0.06954690347007836}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.7446431199708597, 0.5710706993406962, -0.2546271863386602, -0.06954690347007836}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.1054038454654401, 0.876549583346856, -0.02723355688759588, -0.1134028184988228}, {-0.07999999999999999, -0.04, 0.}}, {{0.1054038454654401, 0.876549583346856, -0.02723355688759588, -0.1134028184988228}, {-0.03999999999999999, 0., 0.04}}, {{0.1403352427029139, 0.873284930936846, -0.04080815512512576, -0.1131216519794156}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1750927769143183, 0.86893835528511, -0.05433219564669744, -0.1127003376797639}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2096333865709859, 0.863515241416689, -0.06778892335525671, -0.1121393975713272}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2439142788946983, 0.85702230809281, -0.0811616665484946, -0.1114395266103157}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2778929828741759, 0.849467599486941, -0.0944338575733547, -0.1106015918738344}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.3115274018829264, 0.840860475218764, -0.1075890533522223, -0.1096266314905631}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3447758658332631, 0.831211598758418, -0.1206109557543203, -0.1085158533508171}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.37759718280188, 0.820532924215423, -0.1334834317874387, -0.1072706336093197}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4099506900630223, 0.808837681528557, -0.1461905335858189, -0.1058925149865014}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4417963044660286, 0.796140360075157, -0.1587165181675052, -0.1043832048473863}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4730945720948296, 0.7824566907200243, -0.1710458669391582, -0.1027445730971077}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.5038067171478814, 0.7678036263262946, -0.1831633049216226, -0.1009786498538701}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5338946899779736, 0.7521993207523053, -0.1950538196748659, -0.0990876229436942}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5633212142323973, 0.7356631063605894, -0.2067026798964476, -0.097073835179847}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5920498330350672, 0.7182154700667486, -0.2180954536730101, -0.094939781471355}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6200449541533865, 0.6998780279579808, -0.2292180263595981, -0.0926881057215662}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6472718940938929, 0.6806734985126595, -0.2400566180665154, -0.090321597557644}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6736969210720575, 0.6606256744541151, -0.2505978007318053, -0.0878431888774154}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6992872968029996, 0.639759393273553, -0.2608285147570261, -0.0852559502101737}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7240113170613436, 0.6181005064585987, -0.2707360851869273, -0.0825630869158433}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7478383509599656, 0.5956758474655483, -0.2803082374131305, -0.07976793521836012}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7707388788989695, 0.5725131984751009, -0.2895331123805926, -0.07687395806218422}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.7707388788989695, 0.5725131984751009, -0.2895331123805926, -0.07687395806218422}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.1101758744834913, 0.91605761327899, -0.03111589503357326, -0.1295617247647786}, {-0.07999999999999999, -0.04, 0.}}, {{0.1101758744834913, 0.91605761327899, -0.03111589503357326, -0.1295617247647786}, {-0.03999999999999999, 0., 0.04}}, {{0.1466689912758641, 0.912327919809319, -0.0466211683708806, -0.1292106111442278}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1829635054679746, 0.907362854802762, -0.0620633125819614, -0.12868453509234}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2190102711235816, 0.901169141390175, -0.07742141765733484, -0.1279842089614453}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2547604777795602, 0.893755166399463, -0.0926746873839035, -0.1271105810547387}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2901657165395237, 0.885130968999088, -0.1078024675046932, -0.1260648343399143}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.3251780456236899, 0.875308227104156, -0.1227842736866409, -0.1248483848495638}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.35975005528623, 0.864300241563503, -0.1375998192581704, -0.1234628797627466}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3938349320121976, 0.852121918149191, -0.1522290426789017, -0.1219101951727607}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4273865219071089, 0.838789747372783, -0.1666521347050949, -0.1201924335516095}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4603593931933393, 0.82432178215576, -0.180849565212786, -0.1183119208974261}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4927088977287111, 0.808737613384292, -0.194802109643348, -0.116271203588017}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.5243912314639699, 0.7920583433814694, -0.2084908750352858, -0.1140730449328145}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5553634937572863, 0.7743065573329094, -0.221897325607001, -0.1117204214309598}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.585583745465465, 0.7555062927044658, -0.2350033078555439, -0.1092165187378578}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6150110657332001, 0.7356830066933766, -0.2477910751386145, -0.1065647273589218}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6436056074034813, 0.714863541757032, -0.2602433117043082, -0.1037686380474476}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.671328650974118, 0.693076089265917, -0.2723431561389362, -0.1008320369552325}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6981426570273203, 0.6703501513300564, -0.2840742241982577, -0.0977589004943462}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7240113170613436, 0.6467165008505827, -0.2954206309934215, -0.0945533899596983}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7488996026553652, 0.6222071398505386, -0.3063670125005507, -0.0912198458927435}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7727738129010195, 0.5968552561413593, -0.3168985463647409, -0.087762782201584}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7956016200363664, 0.5706951783836717, -0.3270009719710949, -0.0841868800529509}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.7956016200363664, 0.5706951783836717, -0.3270009719710949, -0.0841868800529509}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.1149453650542684, 0.955521006607111, -0.03535031685601015, -0.1471843239651712}, {-0.07999999999999999, -0.04, 0.}}, {{0.1149453650542684, 0.955521006607111, -0.03535031685601015, -0.1471843239651712}, {-0.03999999999999999, 0., 0.04}}, {{0.1529967323074375, 0.951284181329227, -0.05296031597354645, -0.1467499926461358}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1908225244197324, 0.945644802807373, -0.07049223152318095, -0.1460992962469541}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2283669718446032, 0.93861118562177, -0.087920214820042, -0.1452331941405085}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2655747198441468, 0.930193699988589, -0.1052185704147543, -0.1441529632892693}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.3023909101029597, 0.920404756470324, -0.1223617939783137, -0.1428601963629948}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.3387612616100765, 0.90925878767792, -0.1393246099050575, -0.1413567993895319}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3746321506897417, 0.896772226991633, -0.1560820085785842, -0.139644988946056}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4099506900630223, 0.882963484332014, -0.1726092832452301, -0.1377272888887158}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4446648068236905, 0.867852919016704, -0.1888820664413746, -0.135606526634538}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4787233192134137, 0.85146280974308, -0.204876365920305, -0.1332858289910859}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.512076012083055, 0.833817321741032, -0.220568600025596, -0.1307686175440919}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.5446737109288254, 0.814942471144258, -0.2359356324596785, -0.1280586036173541}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5764683543941294, 0.7948660866326001, -0.250954806395724, -0.1251597828003796}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6074130651302125, 0.7736177684020761, -0.2656039778815495, -0.1220764290485453}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6374622189111296, 0.7512288445229297, -0.2798615484893294, -0.118813088398166}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6665715119011387, 0.7277323247502237, -0.2937064971588254, -0.1153745722458002}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.694698025975336, 0.7031628518549321, -0.3071184111911454, -0.1117659502693328}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7218002919972319, 0.6775566505473974, -0.3200775163441829, -0.1079925429419795}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7478383509599656, 0.650951474068342, -0.3325647059881917, -0.1040599137000728}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7727738129010195, 0.6233865485263496, -0.3445615692749048, -0.0999738607226093}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7965699135035664, 0.5949025150636689, -0.3560504182835083, -0.0957404084050289}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.819191568300999, 0.5655413699358081, -0.3670143140982603, -0.0913657984562666}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.819191568300999, 0.5655413699358081, -0.3670143140982603, -0.0913657984562666}, {0., 0.03999999999999992, 0.07999999999999997}}}, {{{0, 0}, {0}}, {{0.1197122072889194, 0.994937832993667, -0.0399520196224551, -0.1663334861880945}, {-0.07999999999999999, -0.04, 0.}}, {{0.1197122072889194, 0.994937832993667, -0.0399520196224551, -0.1663334861880945}, {-0.03999999999999999, 0., 0.04}}, {{0.159318206614246, 0.990149983133165, -0.05984812325627448, -0.1658008636151615}, {-0.04000000000000001, 0., 0.03999999999999999}}, {{0.1986693307950613, 0.983778104520382, -0.07964848265979568, -0.1650029950293433}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2377026264271346, 0.975832390801835, -0.0993214214818364, -0.163941156850339}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.2763556485641138, 0.966325553424479, -0.1188354672169475, -0.162617047792593}, {-0.04000000000000001, 0., 0.04000000000000001}}, {{0.3145665606161178, 0.955272801300101, -0.13815940155473, -0.1610327861481871}, {-0.03999999999999998, 0., 0.04000000000000001}}, {{0.35227423327509, 0.942691816474305, -0.1572623103224425, -0.1591909063976045}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.3894183423086506, 0.928602725839015, -0.1761136329411259, -0.1570943551556954}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4259394650659997, 0.913028068933728, -0.1946832113160908, -0.1547464864580404}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4617791755414829, 0.895992761887081, -0.2129413380830795, -0.1521510563915729}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.4968801378437368, 0.877524057556347, -0.2308588041341848, -0.1493122170925441}, {-0.03999999999999998, 0., 0.03999999999999998}}, {{0.5311861979208834, 0.857651501928665, -0.2484069453460135, -0.1462345100985728}, {-0.04000000000000004, 0., 0.03999999999999998}}, {{0.5646424733950355, 0.836406886853801, -0.2655576884358008, -0.1429228590815604}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.5971954413623921, 0.813824199183915, -0.2822835958735806, -0.1393825619814982}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6287930240184686, 0.7899395664019115, -0.2985579097750432, -0.1356192825121883}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6593846719714734, 0.7647911988251176, -0.3143545947099227, -0.1316390411239958}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.6889214451105516, 0.7384193284769546, -0.3296483793520375, -0.1274482053509559}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7173560908995231, 0.7108661447242863, -0.3444147969083527, -0.1230534796359603}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7446431199708597, 0.682175726783415, -0.3586302242608915, -0.1184618946044902}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7707388788989695, 0.6523939732027468, -0.3722719197583529, -0.1136807958121779}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.7956016200363664, 0.6215685284349205, -0.3853180595978289, -0.1087178319956332}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.819191568300999, 0.5897487066158053, -0.3977477727389389, -0.1035809428425829}, {-0.04000000000000004, 0., 0.04000000000000004}}, {{0.841470984807897, 0.5569854126724544, -0.4095411742918875, -0.0982783462745718}, {-0.03999999999999992, 0., 0.04000000000000004}}, {{0.841470984807897, 0.5569854126724544, -0.4095411742918875, -0.0982783462745718}, {0., 0.03999999999999992, 0.07999999999999997}}}}}]\ \>", "\<\ InterpolatingFunction[{{0, 1.}, {0, 1.}}, <>]\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["sin2[0.13, 0.34]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.0441856095629256\ \>", "\<\ 0.0441856\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Sin[ 0.13 0.34]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 0.04418560959108919\ \>", "\<\ 0.0441856\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Fourier Transforms", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see page 679 )", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["Fourier", FontColor->GrayLevel[0]]], "Input", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"Fourier"], Cell[TextData[{ StyleBox["Fourier[{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["a0", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["a1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the Fourier transform." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["Fourier[{{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["a00", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["a01", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["},{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["a10", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["a11", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives a two- dimensional Fourier transform." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["InverseFourier", FontColor->GrayLevel[0]]], "Input", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"InverseFourier"], Cell[TextData[{ StyleBox["InverseFourier[{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["a0", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["a1", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " gives the inverse Fourier transform." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Fourier Transform and Its Inverse", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["square = {-1., -1., -1., -1., 1., 1., 1., 1.}", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-1., -1., -1., -1., 1., 1., 1., 1.}\ \>", "\<\ {-1., -1., -1., -1., 1., 1., 1., 1.}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["?Fourier", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ Fourier[list] finds the discrete Fourier transform of a list of complex numbers.\ \>", "Print", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Fourier[square]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {0. + 0.*I, -0.7071067811865479 - 1.707106781186547*I, 0. + 0.*I, -0.7071067811865474 - 0.292893218813452*I, 0. + 0.*I, -0.7071067811865475 + 0.2928932188134524*I, 0. + 0.*I, -0.7071067811865472 + 1.707106781186547*I}\ \>", "\<\ {0. + 0. I, -0.707107 - 1.70711 I, 0. + 0. I, -0.707107 - 0.292893 I, 0. + 0. I, -0.707107 + 0.292893 I, 0. + 0. I, -0.707107 + 1.70711 I}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["InverseFourier[%]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-1. + 0.*I, -1. + 0.*I, -1. + 3.140184917367549*10^-16*I, -0.999999999999999 + 1.570092458683775*10^-16*I, 1. + 0.*I, 1. + 0.*I, 1. - 3.140184917367549*10^-16*I, 0.999999999999999 - 1.570092458683775*10^-16*I}\ \>", "\<\ -16 {-1. + 0. I, -1. + 0. I, -1. + 3.14018 10 I, -16 -1. + 1.57009 10 I, 1. + 0. I, 1. + 0. I, -16 -16 1. - 3.14018 10 I, 1. - 1.57009 10 I}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Chop[%]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-1., -1., -1., -0.999999999999999, 1., 1., 1., 0.999999999999999}\ \>", "\<\ {-1., -1., -1., -1., 1., 1., 1., 1.}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["A Note on Fourier Transforms", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "There are several conventions that can be used in defining Fourier \ transforms. In ", StyleBox["Mathematica", FontSlant->"Italic"], " the zero frequency term in the transform appears at position 1. Also, \ the convention used for defining the transform is the one common in the \ physical sciences. In electrical engineering, the sign of the exponent is \ typically reversed, leading to a list of values which is reversed. ", StyleBox["Fourier", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " works with lists of any length; however, it is significantly more \ efficient when the length of the list of data is a power of 2." }], "Text", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Convolution with a Kernel ", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "The plots show the smoothing effect of the convolution. ", StyleBox["Chop", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " is used in the last line to remove small imaginary parts that are \ generated in the Fourier transform." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ data = Table[ N[ BesselJ[ 1, 10 n/256] + 0.2 ( Random[ ] - 1/2)], {n, 256} ];\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ kernel = Table[ N[ Exp[ -200 (n/256)^2]], {n, 256}];\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ conv = InverseFourier[ Fourier[data] Fourier[kernel]];\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["ListPlot[ data];", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00372024 0.246182 0.526349 [ [(50)] .20982 .24618 0 2 Msboxa [(100)] .39583 .24618 0 2 Msboxa [(150)] .58185 .24618 0 2 Msboxa [(200)] .76786 .24618 0 2 Msboxa [(250)] .95387 .24618 0 2 Msboxa [(-0.4)] .01131 .03564 1 0 Msboxa [(-0.2)] .01131 .14091 1 0 Msboxa [(0.2)] .01131 .35145 1 0 Msboxa [(0.4)] .01131 .45672 1 0 Msboxa [(0.6)] .01131 .56199 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .20982 .24618 m .20982 .25243 L s P [(50)] .20982 .24618 0 2 Mshowa p .002 w .39583 .24618 m .39583 .25243 L s P [(100)] .39583 .24618 0 2 Mshowa p .002 w .58185 .24618 m .58185 .25243 L s P [(150)] .58185 .24618 0 2 Mshowa p .002 w .76786 .24618 m .76786 .25243 L s P [(200)] .76786 .24618 0 2 Mshowa p .002 w .95387 .24618 m .95387 .25243 L s P [(250)] .95387 .24618 0 2 Mshowa p .001 w .06101 .24618 m .06101 .24993 L s P p .001 w .09821 .24618 m .09821 .24993 L s P p .001 w .13542 .24618 m .13542 .24993 L s P p .001 w .17262 .24618 m .17262 .24993 L s P p .001 w .24702 .24618 m .24702 .24993 L s P p .001 w .28423 .24618 m .28423 .24993 L s P p .001 w .32143 .24618 m .32143 .24993 L s P p .001 w .35863 .24618 m .35863 .24993 L s P p .001 w .43304 .24618 m .43304 .24993 L s P p .001 w .47024 .24618 m .47024 .24993 L s P p .001 w .50744 .24618 m .50744 .24993 L s P p .001 w .54464 .24618 m .54464 .24993 L s P p .001 w .61905 .24618 m .61905 .24993 L s P p .001 w .65625 .24618 m .65625 .24993 L s P p .001 w .69345 .24618 m .69345 .24993 L s P p .001 w .73065 .24618 m .73065 .24993 L s P p .001 w .80506 .24618 m .80506 .24993 L s P p .001 w .84226 .24618 m .84226 .24993 L s P p .001 w .87946 .24618 m .87946 .24993 L s P p .001 w .91667 .24618 m .91667 .24993 L s P p .001 w .99107 .24618 m .99107 .24993 L s P p .002 w 0 .24618 m 1 .24618 L s P p .002 w .02381 .03564 m .03006 .03564 L s P [(-0.4)] .01131 .03564 1 0 Mshowa p .002 w .02381 .14091 m .03006 .14091 L s P [(-0.2)] .01131 .14091 1 0 Mshowa p .002 w .02381 .35145 m .03006 .35145 L s P [(0.2)] .01131 .35145 1 0 Mshowa p .002 w .02381 .45672 m .03006 .45672 L s P [(0.4)] .01131 .45672 1 0 Mshowa p .002 w .02381 .56199 m .03006 .56199 L s P [(0.6)] .01131 .56199 1 0 Mshowa p .001 w .02381 .0567 m .02756 .0567 L s P p .001 w .02381 .07775 m .02756 .07775 L s P p .001 w .02381 .0988 m .02756 .0988 L s P p .001 w .02381 .11986 m .02756 .11986 L s P p .001 w .02381 .16197 m .02756 .16197 L s P p .001 w .02381 .18302 m .02756 .18302 L s P p .001 w .02381 .20407 m .02756 .20407 L s P p .001 w .02381 .22513 m .02756 .22513 L s P p .001 w .02381 .26724 m .02756 .26724 L s P p .001 w .02381 .28829 m .02756 .28829 L s P p .001 w .02381 .30934 m .02756 .30934 L s P p .001 w .02381 .3304 m .02756 .3304 L s P p .001 w .02381 .37251 m .02756 .37251 L s P p .001 w .02381 .39356 m .02756 .39356 L s P p .001 w .02381 .41461 m .02756 .41461 L s P p .001 w .02381 .43567 m .02756 .43567 L s P p .001 w .02381 .47778 m .02756 .47778 L s P p .001 w .02381 .49883 m .02756 .49883 L s P p .001 w .02381 .51988 m .02756 .51988 L s P p .001 w .02381 .54094 m .02756 .54094 L s P p .001 w .02381 .01459 m .02756 .01459 L s P p .001 w .02381 .58305 m .02756 .58305 L s P p .001 w .02381 .6041 m .02756 .6041 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p .008 w .02753 .27879 Mdot .03125 .28959 Mdot .03497 .26144 Mdot .03869 .27681 Mdot .04241 .32128 Mdot .04613 .32643 Mdot .04985 .35038 Mdot .05357 .35879 Mdot .05729 .34319 Mdot .06101 .37758 Mdot .06473 .37639 Mdot .06845 .32435 Mdot .07217 .37405 Mdot .07589 .41824 Mdot .07961 .37304 Mdot .08333 .41436 Mdot .08705 .39112 Mdot .09077 .36837 Mdot .09449 .39113 Mdot .09821 .45526 Mdot .10193 .43534 Mdot .10565 .41958 Mdot .10937 .42267 Mdot .1131 .41677 Mdot .11682 .49498 Mdot .12054 .47771 Mdot .12426 .51817 Mdot .12798 .50607 Mdot .1317 .54891 Mdot .13542 .53549 Mdot .13914 .56091 Mdot .14286 .54921 Mdot .14658 .51107 Mdot .1503 .47183 Mdot .15402 .50686 Mdot .15774 .55549 Mdot .16146 .58105 Mdot .16518 .50558 Mdot .1689 .59361 Mdot .17262 .50328 Mdot .17634 .5595 Mdot .18006 .51402 Mdot .18378 .58632 Mdot .1875 .54393 Mdot .19122 .52141 Mdot .19494 .60332 Mdot .19866 .5734 Mdot .20238 .5428 Mdot .2061 .55298 Mdot .20982 .5523 Mdot .21354 .59232 Mdot .21726 .5787 Mdot .22098 .55065 Mdot .2247 .56771 Mdot .22842 .58637 Mdot .23214 .58823 Mdot .23586 .49653 Mdot .23958 .55605 Mdot .2433 .54258 Mdot .24702 .49843 Mdot .25074 .48877 Mdot .25446 .5205 Mdot .25818 .526 Mdot .2619 .46834 Mdot .26563 .50885 Mdot .26935 .48162 Mdot .27307 .52062 Mdot .27679 .50558 Mdot .28051 .46326 Mdot .28423 .45901 Mdot .28795 .42199 Mdot .29167 .43658 Mdot .29539 .48809 Mdot .29911 .48298 Mdot .30283 .4041 Mdot .30655 .43019 Mdot .31027 .40208 Mdot .31399 .37723 Mdot .31771 .38201 Mdot .32143 .40302 Mdot .32515 .35786 Mdot .32887 .37503 Mdot .33259 .38929 Mdot .33631 .34495 Mdot .34003 .41024 Mdot .34375 .39097 Mdot .34747 .28953 Mdot .35119 .29769 Mdot .35491 .31711 Mdot .35863 .31949 Mdot .36235 .27857 Mdot .36607 .29581 Mdot .36979 .24614 Mdot .37351 .24646 Mdot .37723 .23608 Mdot .38095 .2321 Mdot .38467 .22941 Mdot .38839 .22792 Mdot .39211 .28938 Mdot .39583 .25216 Mdot .39955 .2703 Mdot .40327 .18102 Mdot .40699 .23023 Mdot .41071 .16445 Mdot .41443 .22015 Mdot .41815 .21128 Mdot .42188 .13322 Mdot .4256 .20928 Mdot .42932 .19188 Mdot .43304 .19447 Mdot .43676 .10473 Mdot .44048 .16479 Mdot .4442 .12013 Mdot .44792 .11251 Mdot .45164 .16118 Mdot .45536 .09097 Mdot .45908 .08827 Mdot .4628 .07268 Mdot .46652 .12413 Mdot .47024 .05038 Mdot .47396 .14821 Mdot .47768 .12675 Mdot .4814 .10951 Mdot .48512 .06585 Mdot .48884 .03324 Mdot .49256 .09417 Mdot .49628 .12623 Mdot .5 .03646 Mdot .50372 .04696 Mdot .50744 .11045 Mdot .51116 .10915 Mdot .51488 .04261 Mdot .5186 .0647 Mdot .52232 .01472 Mdot .52604 .09772 Mdot .52976 .07115 Mdot .53348 .0276 Mdot .5372 .08568 Mdot .54092 .1154 Mdot .54464 .04936 Mdot .54836 .10959 Mdot .55208 .07404 Mdot .5558 .04857 Mdot .55952 .05278 Mdot .56324 .11719 Mdot .56696 .10006 Mdot .57068 .08905 Mdot .5744 .02909 Mdot .57813 .1238 Mdot .58185 .04367 Mdot .58557 .10405 Mdot .58929 .13229 Mdot .59301 .1099 Mdot .59673 .07047 Mdot .60045 .13131 Mdot .60417 .12023 Mdot .60789 .0754 Mdot .61161 .08585 Mdot .61533 .16909 Mdot .61905 .07969 Mdot .62277 .1843 Mdot .62649 .13752 Mdot .63021 .19212 Mdot .63393 .17006 Mdot .63765 .11072 Mdot .64137 .20651 Mdot .64509 .1833 Mdot .64881 .15921 Mdot .65253 .14313 Mdot .65625 .15339 Mdot .65997 .14399 Mdot .66369 .18286 Mdot .66741 .18052 Mdot .67113 .16902 Mdot .67485 .20805 Mdot .67857 .2224 Mdot .68229 .24633 Mdot .68601 .27829 Mdot .68973 .26067 Mdot .69345 .29043 Mdot .69717 .25838 Mdot .70089 .28449 Mdot .70461 .29361 Mdot .70833 .31234 Mdot .71205 .28589 Mdot .71577 .25855 Mdot .71949 .32346 Mdot .72321 .26419 Mdot .72693 .30237 Mdot .73065 .28985 Mdot .73438 .27813 Mdot .7381 .35367 Mdot .74182 .30817 Mdot .74554 .29092 Mdot .74926 .29416 Mdot .75298 .33642 Mdot .7567 .29884 Mdot .76042 .29869 Mdot .76414 .37375 Mdot .76786 .30195 Mdot .77158 .35126 Mdot .7753 .32466 Mdot .77902 .31755 Mdot .78274 .32669 Mdot .78646 .41341 Mdot .79018 .36602 Mdot .7939 .35502 Mdot .79762 .35059 Mdot .80134 .36358 Mdot .80506 .34851 Mdot .80878 .38276 Mdot .8125 .33711 Mdot .81622 .42186 Mdot .81994 .42387 Mdot .82366 .36901 Mdot .82738 .35739 Mdot .8311 .38653 Mdot .83482 .40982 Mdot .83854 .35559 Mdot .84226 .41072 Mdot .84598 .37575 Mdot .8497 .40259 Mdot .85342 .38184 Mdot .85714 .40657 Mdot .86086 .43047 Mdot .86458 .38138 Mdot .8683 .37029 Mdot .87202 .38826 Mdot .87574 .32762 Mdot .87946 .32793 Mdot .88318 .32965 Mdot .8869 .35368 Mdot .89063 .38675 Mdot .89435 .40337 Mdot .89807 .37189 Mdot .90179 .33714 Mdot .90551 .39139 Mdot .90923 .30119 Mdot .91295 .32484 Mdot .91667 .30178 Mdot .92039 .32676 Mdot .92411 .31823 Mdot .92783 .29033 Mdot .93155 .31672 Mdot .93527 .27052 Mdot .93899 .33934 Mdot .94271 .33094 Mdot .94643 .33116 Mdot .95015 .25945 Mdot .95387 .27031 Mdot .95759 .27105 Mdot .96131 .25117 Mdot .96503 .23782 Mdot .96875 .24592 Mdot .97247 .24233 Mdot .97619 .30094 Mdot P % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{282, 174}, ImageMargins->{{0, Inherited}, {Inherited, Inherited}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False]}, Open]], Cell[CellGroupData[{Cell["ListPlot[ Chop[ conv ]];", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00372024 0.223811 0.660394 [ [(50)] .20982 .22381 0 2 Msboxa [(100)] .39583 .22381 0 2 Msboxa [(150)] .58185 .22381 0 2 Msboxa [(200)] .76786 .22381 0 2 Msboxa [(250)] .95387 .22381 0 2 Msboxa [(-0.2)] .01131 .09173 1 0 Msboxa [(0.2)] .01131 .35589 1 0 Msboxa [(0.4)] .01131 .48797 1 0 Msboxa [ -0.001 -0.001 0 0 ] [ 1.001 .61903 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath [ ] 0 setdash 0 g p p .002 w .20982 .22381 m .20982 .23006 L s P [(50)] .20982 .22381 0 2 Mshowa p .002 w .39583 .22381 m .39583 .23006 L s P [(100)] .39583 .22381 0 2 Mshowa p .002 w .58185 .22381 m .58185 .23006 L s P [(150)] .58185 .22381 0 2 Mshowa p .002 w .76786 .22381 m .76786 .23006 L s P [(200)] .76786 .22381 0 2 Mshowa p .002 w .95387 .22381 m .95387 .23006 L s P [(250)] .95387 .22381 0 2 Mshowa p .001 w .06101 .22381 m .06101 .22756 L s P p .001 w .09821 .22381 m .09821 .22756 L s P p .001 w .13542 .22381 m .13542 .22756 L s P p .001 w .17262 .22381 m .17262 .22756 L s P p .001 w .24702 .22381 m .24702 .22756 L s P p .001 w .28423 .22381 m .28423 .22756 L s P p .001 w .32143 .22381 m .32143 .22756 L s P p .001 w .35863 .22381 m .35863 .22756 L s P p .001 w .43304 .22381 m .43304 .22756 L s P p .001 w .47024 .22381 m .47024 .22756 L s P p .001 w .50744 .22381 m .50744 .22756 L s P p .001 w .54464 .22381 m .54464 .22756 L s P p .001 w .61905 .22381 m .61905 .22756 L s P p .001 w .65625 .22381 m .65625 .22756 L s P p .001 w .69345 .22381 m .69345 .22756 L s P p .001 w .73065 .22381 m .73065 .22756 L s P p .001 w .80506 .22381 m .80506 .22756 L s P p .001 w .84226 .22381 m .84226 .22756 L s P p .001 w .87946 .22381 m .87946 .22756 L s P p .001 w .91667 .22381 m .91667 .22756 L s P p .001 w .99107 .22381 m .99107 .22756 L s P p .002 w 0 .22381 m 1 .22381 L s P p .002 w .02381 .09173 m .03006 .09173 L s P [(-0.2)] .01131 .09173 1 0 Mshowa p .002 w .02381 .35589 m .03006 .35589 L s P [(0.2)] .01131 .35589 1 0 Mshowa p .002 w .02381 .48797 m .03006 .48797 L s P [(0.4)] .01131 .48797 1 0 Mshowa p .001 w .02381 .11815 m .02756 .11815 L s P p .001 w .02381 .14456 m .02756 .14456 L s P p .001 w .02381 .17098 m .02756 .17098 L s P p .001 w .02381 .1974 m .02756 .1974 L s P p .001 w .02381 .25023 m .02756 .25023 L s P p .001 w .02381 .27664 m .02756 .27664 L s P p .001 w .02381 .30306 m .02756 .30306 L s P p .001 w .02381 .32947 m .02756 .32947 L s P p .001 w .02381 .38231 m .02756 .38231 L s P p .001 w .02381 .40872 m .02756 .40872 L s P p .001 w .02381 .43514 m .02756 .43514 L s P p .001 w .02381 .46155 m .02756 .46155 L s P p .001 w .02381 .51438 m .02756 .51438 L s P p .001 w .02381 .5408 m .02756 .5408 L s P p .001 w .02381 .56722 m .02756 .56722 L s P p .001 w .02381 .59363 m .02756 .59363 L s P p .001 w .02381 .06532 m .02756 .06532 L s P p .001 w .02381 .0389 m .02756 .0389 L s P p .001 w .02381 .01248 m .02756 .01248 L s P p .002 w .02381 0 m .02381 .61803 L s P P 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath p .008 w .02753 .28136 Mdot .03125 .27942 Mdot .03497 .27557 Mdot .03869 .27322 Mdot .04241 .27463 Mdot .04613 .27667 Mdot .04985 .28077 Mdot .05357 .28566 Mdot .05729 .28939 Mdot .06101 .29584 Mdot .06473 .30216 Mdot .06845 .30431 Mdot .07217 .31024 Mdot .07589 .31946 Mdot .07961 .32492 Mdot .08333 .33335 Mdot .08705 .33966 Mdot .09077 .34386 Mdot .09449 .34951 Mdot .09821 .35982 Mdot .10193 .36817 Mdot .10565 .37485 Mdot .10937 .38135 Mdot .1131 .38694 Mdot .11682 .39821 Mdot .12054 .40765 Mdot .12426 .41975 Mdot .12798 .43037 Mdot .1317 .44379 Mdot .13542 .45555 Mdot .13914 .46869 Mdot .14286 .48025 Mdot .14658 .48817 Mdot .1503 .49237 Mdot .15402 .49869 Mdot .15774 .50822 Mdot .16146 .51914 Mdot .16518 .52354 Mdot .1689 .53425 Mdot .17262 .53731 Mdot .17634 .54423 Mdot .18006 .54706 Mdot .18378 .55507 Mdot .1875 .55928 Mdot .19122 .56128 Mdot .19494 .56929 Mdot .19866 .57454 Mdot .20238 .577 Mdot .2061 .57991 Mdot .20982 .58243 Mdot .21354 .58778 Mdot .21726 .59176 Mdot .22098 .59326 Mdot .2247 .59583 Mdot .22842 .59962 Mdot .23214 .60332 Mdot .23586 .59961 Mdot .23958 .6004 Mdot .2433 .59998 Mdot .24702 .59598 Mdot .25074 .59116 Mdot .25446 .58879 Mdot .25818 .58686 Mdot .2619 .58045 Mdot .26563 .57729 Mdot .26935 .57211 Mdot .27307 .57012 Mdot .27679 .56711 Mdot .28051 .56095 Mdot .28423 .55467 Mdot .28795 .54574 Mdot .29167 .53823 Mdot .29539 .53507 Mdot .29911 .53181 Mdot .30283 .52269 Mdot .30655 .51597 Mdot .31027 .50741 Mdot .31399 .4973 Mdot .31771 .488 Mdot .32143 .4808 Mdot .32515 .47052 Mdot .32887 .46207 Mdot .33259 .45525 Mdot .33631 .44545 Mdot .34003 .44128 Mdot .34375 .4361 Mdot .34747 .42346 Mdot .35119 .41199 Mdot .35491 .4026 Mdot .35863 .39394 Mdot .36235 .38265 Mdot .36607 .37329 Mdot .36979 .36062 Mdot .37351 .34861 Mdot .37723 .33642 Mdot .38095 .32458 Mdot .38467 .3132 Mdot .38839 .3024 Mdot .39211 .29708 Mdot .39583 .28951 Mdot .39955 .28399 Mdot .40327 .27209 Mdot .40699 .26468 Mdot .41071 .25272 Mdot .41443 .24576 Mdot .41815 .2387 Mdot .42188 .22611 Mdot .4256 .22008 Mdot .42932 .21327 Mdot .43304 .20721 Mdot .43676 .19466 Mdot .44048 .18739 Mdot .4442 .17717 Mdot .44792 .16691 Mdot .45164 .16103 Mdot .45536 .1502 Mdot .45908 .13972 Mdot .4628 .12859 Mdot .46652 .12208 Mdot .47024 .11037 Mdot .47396 .10691 Mdot .47768 .10231 Mdot .4814 .09687 Mdot .48512 .08853 Mdot .48884 .07815 Mdot .49256 .07305 Mdot .49628 .07095 Mdot .5 .06228 Mdot .50372 .0549 Mdot .50744 .05293 Mdot .51116 .05127 Mdot .51488 .04478 Mdot .5186 .0404 Mdot .52232 .03246 Mdot .52604 .03139 Mdot .52976 .02856 Mdot .53348 .02263 Mdot .5372 .02156 Mdot .54092 .02308 Mdot .54464 .01965 Mdot .54836 .02117 Mdot .55208 .02007 Mdot .5558 .01715 Mdot .55952 .01472 Mdot .56324 .01746 Mdot .56696 .01897 Mdot .57068 .01969 Mdot .5744 .01577 Mdot .57813 .01934 Mdot .58185 .01667 Mdot .58557 .01876 Mdot .58929 .02306 Mdot .59301 .02559 Mdot .59673 .02499 Mdot .60045 .02911 Mdot .60417 .03229 Mdot .60789 .03187 Mdot .61161 .03219 Mdot .61533 .03894 Mdot .61905 .03856 Mdot .62277 .04625 Mdot .62649 .05012 Mdot .63021 .05809 Mdot .63393 .0641 Mdot .63765 .06524 Mdot .64137 .07364 Mdot .64509 .07995 Mdot .64881 .08408 Mdot .65253 .08667 Mdot .65625 .08977 Mdot .65997 .09186 Mdot .66369 .09672 Mdot .66741 .10112 Mdot .67113 .10434 Mdot .67485 .11035 Mdot .67857 .11718 Mdot .68229 .12558 Mdot .68601 .13615 Mdot .68973 .14496 Mdot .69345 .1557 Mdot .69717 .1635 Mdot .70089 .1729 Mdot .70461 .18254 Mdot .70833 .19314 Mdot .71205 .20115 Mdot .71577 .2065 Mdot .71949 .21641 Mdot .72321 .22114 Mdot .72693 .22835 Mdot .73065 .23407 Mdot .73438 .23837 Mdot .7381 .24811 Mdot .74182 .25379 Mdot .74554 .25765 Mdot .74926 .26132 Mdot .75298 .26787 Mdot .7567 .27107 Mdot .76042 .27387 Mdot .76414 .28219 Mdot .76786 .28452 Mdot .77158 .29036 Mdot .7753 .29379 Mdot .77902 .29634 Mdot .78274 .29932 Mdot .78646 .3088 Mdot .79018 .31425 Mdot .7939 .31853 Mdot .79762 .32216 Mdot .80134 .32651 Mdot .80506 .3294 Mdot .80878 .33468 Mdot .8125 .33611 Mdot .81622 .34391 Mdot .81994 .35157 Mdot .82366 .35462 Mdot .82738 .35647 Mdot .8311 .36033 Mdot .83482 .36573 Mdot .83854 .36661 Mdot .84226 .37154 Mdot .84598 .37348 Mdot .8497 .37727 Mdot .85342 .37919 Mdot .85714 .38281 Mdot .86086 .38808 Mdot .86458 .38927 Mdot .8683 .38938 Mdot .87202 .39071 Mdot .87574 .38712 Mdot .87946 .38344 Mdot .88318 .37982 Mdot .8869 .37805 Mdot .89063 .37884 Mdot .89435 .38093 Mdot .89807 .38053 Mdot .90179 .37741 Mdot .90551 .37858 Mdot .90923 .37271 Mdot .91295 .36877 Mdot .91667 .36312 Mdot .92039 .35957 Mdot .92411 .3555 Mdot .92783 .34942 Mdot .93155 .34561 Mdot .93527 .3384 Mdot .93899 .33682 Mdot .94271 .33482 Mdot .94643 .33306 Mdot .95015 .32593 Mdot .95387 .3199 Mdot .95759 .31421 Mdot .96131 .30725 Mdot .96503 .29956 Mdot .96875 .29284 Mdot .97247 .28619 Mdot .97619 .28448 Mdot P % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{282, 174}, ImageMargins->{{0, Inherited}, {Inherited, Inherited}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCacheValid->False]}, Open]]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Numerical Optimization", "Title", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Index", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "This index gives a list of keywords that are associated with various cells \ in this Notebook. If you Command-Double-click one of the keywords below, ", StyleBox["Mathematica", FontSlant->"Italic"], " will find the cell associated with that keyword, select it, and display \ it in the center of your window." }], "Text", AspectRatioFixed->False, ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ ConstrainedMax ConstrainedMin FindMinimum Fit Fitting`curve Fourier InterpolatingPolynomial Interpolation InverseFourier LinearProgramming \ \>", "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Numerical Minimization", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see pages 109 and 703)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["FindMinimum", FontColor->GrayLevel[0]]], "Input", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"FindMinimum"], Cell[TextData[{ StyleBox["FindMinimum[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["x0", FontSlant->"Italic"], " ", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " searches for a local minimum of the function ", StyleBox["f", FontSlant->"Italic"], ", starting from the point ", StyleBox["x", FontSlant->"Italic"], " = ", StyleBox["x0.", FontSlant->"Italic"] }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["FindMinimum[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["x0", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["x1", FontSlant->"Italic"], " ", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " searches for a local minimum using ", StyleBox["x0", FontSlant->"Italic"], " and ", StyleBox["x1", FontSlant->"Italic"], " as the first two values of ", StyleBox["x", FontSlant->"Italic"], " (this form must be used if symbolic derivatives of ", StyleBox["f", FontSlant->"Italic"], " cannot be found)." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["FindMinimum[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["xstart", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["xmin", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["xmax ", FontSlant->"Italic"], StyleBox["}] ", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], "searches for a local minimum, stopping if ", StyleBox["x", FontSlant->"Italic"], " ever gets ouside the range ", StyleBox["xmin", FontSlant->"Italic"], " to ", StyleBox["xmax.", FontSlant->"Italic"], "." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ StyleBox["FindMinimum[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["x0", FontSlant->"Italic"], " ", StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["y", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["y0", FontSlant->"Italic"], " ", StyleBox["},", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " searches for a local minimum in a function of several variables." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Local Minimum ", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell["\<\ Note that the local minimum that is found may depend on the starting point.\ \>", "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["FindMinimum[ x Cos[x], {x, 1}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-3.288371395590896, {x -> 3.425618439817572}}\ \>", "\<\ {-3.28837, {x -> 3.42562}}\ \>"], "Output", PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}}, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, ScriptMinSize->9, ImageRegion->{{0, 1}, {0, 1}}, StyleMenuListing->None, Background->GrayLevel[1]]}, Open]], Cell[CellGroupData[{Cell["FindMinimum[ x Cos[x], {x, 10}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-9.47729425947979, {x -> 9.52933440535881}}\ \>", "\<\ {-9.47729, {x -> 9.52933}}\ \>"], "Output", PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}}, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, ScriptMinSize->9, ImageRegion->{{0, 1}, {0, 1}}, StyleMenuListing->None, Background->GrayLevel[1]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Getting Values for the Local Minimum", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that ", StyleBox["FindMinimum", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " returns a list consisting of the local minimum followed by a \ transformation rule." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["{minval, rule} = FindMinimum[ x Cos[x], {x, 1}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-3.288371395590896, {x -> 3.425618439817572}}\ \>", "\<\ {-3.28837, {x -> 3.42562}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["minval", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ -3.288371395590896\ \>", "\<\ -3.28837\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["x /. rule", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ 3.425618439817572\ \>", "\<\ 3.42562\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Local Minimum of a Function without Symbolic Derivative", \ "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["FindMinimum[ Re[Zeta[ 1/2 + I t]] , {t, 12, 13}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-0.01226042949431678, {t -> 14.32858577758036}}\ \>", "\<\ {-0.0122604, {t -> 14.3286}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Local Minimum in a Specified Range", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["FindMinimum[ Sin[x] + x/5, {x, -2, -2.5, -1.5}]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-1.334226746630317, {x -> -1.772154247584392}}\ \>", "\<\ {-1.33423, {x -> -1.77215}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Local Minimum of a Function with Two Variables", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["FindMinimum[ Sin[ x y ], {x, 2}, {y, 2} ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {-1., {x -> 2.1708037636748, y -> 2.1708037636748}}\ \>", "\<\ {-1., {x -> 2.1708, y -> 2.1708}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Linear Programming ", "Section", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["Syntax (see pages 109 and 707)", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["ConstrainedMax", FontColor->GrayLevel[0]]], "Input", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"ConstrainedMax"], Cell[TextData[{ StyleBox["ConstrainedMax[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f", FontSlant->"Italic"], StyleBox[",{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["inequalities", FontSlant->"Italic"], " ", StyleBox["},{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["y", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " finds the global maximum of the linear function ", StyleBox["f", FontSlant->"Italic"], " in the region specified by the inequalities." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["ConstrainedMin", FontColor->GrayLevel[0]]], "Input", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"ConstrainedMin"], Cell[TextData[{ StyleBox["ConstrainedMin[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["f", FontSlant->"Italic"], StyleBox[",{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["inequalities", FontSlant->"Italic"], " ", StyleBox["},{", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["y", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ...", StyleBox["}]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " finds the global minimum of the linear function ", StyleBox["f", FontSlant->"Italic"], " in the region specified by the inequalities." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[StyleBox["LinearProgramming", FontColor->GrayLevel[0]]], "Input", ImageRegion->{{0, 1}, {0, 1}}, CellTags->"LinearProgramming"], Cell[TextData[{ StyleBox["LinearProgramming[", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["c", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["m", FontSlant->"Italic"], StyleBox[",", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " ", StyleBox["b", FontSlant->"Italic"], " ", StyleBox["]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], " finds the vector", StyleBox[" ", FontWeight->"Bold"], StyleBox["x ", FontSlant->"Italic"], " which minimizes", StyleBox[" ", FontWeight->"Bold"], StyleBox["c", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Bold"], StyleBox[".", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], " subject to the constraints ", StyleBox["m ", FontSlant->"Italic"], StyleBox[".", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Bold"], StyleBox[">=", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], StyleBox["b ", FontSlant->"Italic"], " and", StyleBox[" ", FontWeight->"Bold"], StyleBox["x", FontSlant->"Italic"], StyleBox[" ", FontWeight->"Bold"], StyleBox[">=", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], "0." }], "SmallText", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["Constrained Maximum", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["ConstrainedMax[ x + y, {x < 1, y < 2}, {x, y} ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {3, {x -> 1, y -> 2}}\ \>", "\<\ {3, {x -> 1, y -> 2}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Constrained Minimum", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Note that ", StyleBox["Mathematica", FontSlant->"Italic"], " assumes that all variables have non-negative values." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["ConstrainedMin[ x + y, {x < 1, y < 2}, {x, y} ]", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {0, {x -> 0, y -> 0}}\ \>", "\<\ {0, {x -> 0, y -> 0}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Constrained Maximum with Approximate Numbers", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "If the coefficients in your input contain approximate numbers, ", StyleBox["Mathematica", FontSlant->"Italic"], " will give an approximate numerical result." }], "Text", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["\<\ ConstrainedMin[ x + 3.2 y + 7 z, {x - 2.8 y < 7.3, 2.1 x + 3 z >= 5.1, x + y + z < 10 }, {x, y, z}]\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {2.428571428571425, {x -> 2.428571428571428, y -> 0, z -> 0}}\ \>", "\<\ {2.42857, {x -> 2.42857, y -> 0, z -> 0}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]], Cell[CellGroupData[{Cell["Linear Programming Using Matrices", "Subsubsection", ImageRegion->{{0, 1}, {0, 1}}], Cell[CellGroupData[{Cell["\<\ LinearProgramming[{2, -3}, {{-1, -1}, {1, -1}, {1, 0}}, {-10, 2, 1}]\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {6, 4}\ \>", "\<\ {6, 4}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]], Cell[CellGroupData[{Cell["\<\ ConstrainedMin[ 2 x - 3 y, {x + y <= 10, x - y >= 2, x >= 1}, {x, y}]\ \>", "Input", ImageRegion->{{0, 1}, {0, 1}}], Cell[OutputFormData["\<\ {0, {x -> 6, y -> 4}}\ \>", "\<\ {0, {x -> 6, y -> 4}}\ \>"], "Output", ImageRegion->{{0, 1}, {0, 1}}]}, Open]]}, Open]]}, Open]]}, Open]] }, FrontEndVersion->"4.1 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 695}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{499, 599}, WindowMargins->{{183, Automatic}, {23, Automatic}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{ "Fitting`curve"->{ Cell[2553, 83, 94, 2, 70, "Section", CellTags->"Fitting`curve"]}, "Fit"->{ Cell[2752, 90, 144, 4, 70, "Input", CellTags->"Fit"]}, "InterpolatingPolynomial"->{ Cell[5809, 231, 184, 4, 70, "Input", CellTags->"InterpolatingPolynomial"]}, "Interpolation"->{ Cell[15518, 622, 95, 2, 70, "Special2", CellTags->"Interpolation"]}, "Fourier"->{ Cell[130550, 4960, 127, 3, 70, "Input", CellTags->"Fourier"]}, "InverseFourier"->{ Cell[132275, 5042, 141, 3, 70, "Input", CellTags->"InverseFourier"]}, "FindMinimum"->{ Cell[154870, 6513, 135, 3, 70, "Input", CellTags->"FindMinimum"]}, "ConstrainedMax"->{ Cell[163417, 6865, 141, 3, 70, "Input", CellTags->"ConstrainedMax"]}, "ConstrainedMin"->{ Cell[164515, 6913, 141, 3, 70, "Input", CellTags->"ConstrainedMin"]}, "LinearProgramming"->{ Cell[165613, 6961, 147, 3, 70, "Input", CellTags->"LinearProgramming"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Fitting`curve", 170661, 7159}, {"Fit", 170748, 7162}, {"InterpolatingPolynomial", 170844, 7165}, {"Interpolation", 170951, 7168}, {"Fourier", 171045, 7171}, {"InverseFourier", 171140, 7174}, {"FindMinimum", 171239, 7177}, {"ConstrainedMax", 171338, 7180}, {"ConstrainedMin", 171440, 7183}, {"LinearProgramming", 171545, 7186} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1727, 52, 78, 1, 70, "Title"], Cell[CellGroupData[{ Cell[1828, 55, 57, 1, 70, "Section"], Cell[1888, 58, 410, 9, 70, "Text"], Cell[2301, 69, 220, 12, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[2553, 83, 94, 2, 70, "Section", CellTags->"Fitting`curve"], Cell[CellGroupData[{ Cell[2670, 87, 79, 1, 70, "Subsubsection"], Cell[2752, 90, 144, 4, 70, "Input", CellTags->"Fit"], Cell[2899, 96, 744, 34, 70, "SmallText"], Cell[3646, 132, 1541, 69, 70, "SmallText"], Cell[5190, 203, 616, 26, 70, "SmallText"], Cell[5809, 231, 184, 4, 70, "Input", CellTags->"InterpolatingPolynomial"], Cell[5996, 237, 594, 24, 70, "SmallText"], Cell[6593, 263, 1405, 64, 70, "SmallText"], Cell[8001, 329, 826, 37, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[8859, 368, 82, 1, 70, "Subsubsection"], Cell[8944, 371, 276, 5, 70, "Text"], Cell[CellGroupData[{ Cell[9243, 378, 104, 2, 70, "Input"], Cell[9350, 382, 274, 10, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[9656, 394, 93, 2, 70, "Input"], Cell[9752, 398, 172, 6, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9965, 406, 83, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[10071, 409, 118, 2, 70, "Input"], Cell[10192, 413, 411, 14, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[10635, 429, 103, 2, 70, "Input"], Cell[10741, 433, 177, 9, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[10959, 444, 90, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[11072, 447, 167, 5, 70, "Input"], Cell[11242, 454, 479, 16, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[11753, 472, 98, 2, 70, "Input"], Cell[11854, 476, 202, 7, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[12097, 485, 77, 1, 70, "Subsubsection"], Cell[12177, 488, 328, 13, 70, "Text"], Cell[12508, 503, 172, 5, 70, "Input"], Cell[CellGroupData[{ Cell[12703, 510, 107, 2, 70, "Input"], Cell[12813, 514, 271, 9, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[13116, 525, 57, 1, 70, "Input"], Cell[13176, 528, 173, 7, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[13390, 537, 82, 1, 70, "Subsubsection"], Cell[13475, 540, 123, 3, 70, "Text"], Cell[CellGroupData[{ Cell[13621, 545, 138, 5, 70, "Input"], Cell[13762, 552, 317, 12, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[14111, 566, 89, 2, 70, "Input"], Cell[14203, 570, 116, 6, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[14360, 578, 110, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[14493, 581, 171, 5, 70, "Input"], Cell[14667, 588, 188, 6, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[14887, 596, 72, 1, 70, "Input"], Cell[14962, 599, 99, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[15093, 606, 74, 1, 70, "Input"], Cell[15170, 609, 99, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[15319, 616, 93, 1, 70, "Section"], Cell[CellGroupData[{ Cell[15435, 619, 80, 1, 70, "Subsubsection"], Cell[15518, 622, 95, 2, 70, "Special2", CellTags->"Interpolation"], Cell[15616, 626, 655, 28, 70, "SmallText"], Cell[16274, 656, 968, 45, 70, "SmallText"], Cell[17245, 703, 1029, 47, 70, "SmallText"], Cell[18277, 752, 729, 33, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[19038, 787, 78, 1, 70, "Subsubsection"], Cell[19119, 790, 209, 5, 70, "Text"], Cell[CellGroupData[{ Cell[19351, 797, 84, 1, 70, "Input"], Cell[19438, 800, 483, 17, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[19953, 819, 72, 1, 70, "Input"], Cell[20028, 822, 1264, 55, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[21324, 879, 59, 1, 70, "Input"], Cell[21386, 882, 112, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[21530, 889, 58, 1, 70, "Input"], Cell[21591, 892, 110, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[21733, 899, 58, 1, 70, "Input"], Cell[21794, 902, 112, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[21947, 909, 85, 1, 70, "Subsubsection"], Cell[22035, 912, 231, 8, 70, "Text"], Cell[CellGroupData[{ Cell[22289, 922, 85, 1, 70, "Input"], Cell[22377, 925, 112, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[22521, 932, 85, 1, 70, "Input"], Cell[22609, 935, 113, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[22763, 942, 89, 1, 70, "Subsubsection"], Cell[22855, 945, 883, 25, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[23770, 972, 95, 1, 70, "Subsubsection"], Cell[23868, 975, 338, 13, 70, "Text"], Cell[24209, 990, 145, 4, 70, "Input"], Cell[CellGroupData[{ Cell[24377, 996, 76, 1, 70, "Input"], Cell[24456, 999, 105437, 3933, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[129925, 4934, 66, 1, 70, "Input"], Cell[129994, 4937, 114, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[130140, 4944, 65, 1, 70, "Input"], Cell[130208, 4947, 115, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[130373, 4954, 70, 1, 70, "Section"], Cell[CellGroupData[{ Cell[130466, 4957, 81, 1, 70, "Subsubsection"], Cell[130550, 4960, 127, 3, 70, "Input", CellTags->"Fourier"], Cell[130680, 4965, 554, 25, 70, "SmallText"], Cell[131237, 4992, 1035, 48, 70, "SmallText"], Cell[132275, 5042, 141, 3, 70, "Input", CellTags->"InverseFourier"], Cell[132419, 5047, 570, 25, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[133021, 5074, 91, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[133135, 5077, 95, 1, 70, "Input"], Cell[133233, 5080, 159, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[133424, 5087, 58, 1, 70, "Input"], Cell[133485, 5090, 141, 4, 70, "Print"] }, Closed]], Cell[CellGroupData[{ Cell[133658, 5096, 65, 1, 70, "Input"], Cell[133726, 5099, 472, 17, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[134230, 5118, 67, 1, 70, "Input"], Cell[134300, 5121, 573, 20, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[134905, 5143, 57, 1, 70, "Input"], Cell[134965, 5146, 194, 7, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[135200, 5155, 86, 1, 70, "Subsubsection"], Cell[135289, 5158, 727, 16, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[136048, 5176, 84, 1, 70, "Subsubsection"], Cell[136135, 5179, 320, 9, 70, "Text"], Cell[136458, 5190, 142, 4, 70, "Input"], Cell[136603, 5196, 115, 4, 70, "Input"], Cell[136721, 5202, 114, 4, 70, "Input"], Cell[CellGroupData[{ Cell[136858, 5208, 66, 1, 70, "Input"], Cell[136927, 5211, 8587, 649, 70, 8445, 645, "GraphicsData", "PostScript", \ "Graphics"] }, Closed]], Cell[CellGroupData[{ Cell[145546, 5862, 74, 1, 70, "Input"], Cell[145623, 5865, 8180, 609, 70, 8038, 605, "GraphicsData", "PostScript", \ "Graphics"] }, Closed]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[153862, 6476, 72, 1, 70, "Title"], Cell[CellGroupData[{ Cell[153957, 6479, 57, 1, 70, "Section"], Cell[154017, 6482, 410, 9, 70, "Text"], Cell[154430, 6493, 220, 12, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[154682, 6507, 74, 1, 70, "Section"], Cell[CellGroupData[{ Cell[154779, 6510, 88, 1, 70, "Subsubsection"], Cell[154870, 6513, 135, 3, 70, "Input", CellTags->"FindMinimum"], Cell[155008, 6518, 877, 40, 70, "SmallText"], Cell[155888, 6560, 1133, 51, 70, "SmallText"], Cell[157024, 6613, 1163, 54, 70, "SmallText"], Cell[158190, 6669, 1186, 56, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[159408, 6727, 72, 1, 70, "Subsubsection"], Cell[159483, 6730, 132, 3, 70, "Text"], Cell[CellGroupData[{ Cell[159638, 6735, 80, 1, 70, "Input"], Cell[159721, 6738, 482, 15, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[160235, 6755, 81, 1, 70, "Input"], Cell[160319, 6758, 480, 15, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[160840, 6775, 94, 1, 70, "Subsubsection"], Cell[160937, 6778, 261, 9, 70, "Text"], Cell[CellGroupData[{ Cell[161221, 6789, 97, 1, 70, "Input"], Cell[161321, 6792, 159, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[161512, 6799, 56, 1, 70, "Input"], Cell[161571, 6802, 113, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[161716, 6809, 59, 1, 70, "Input"], Cell[161778, 6812, 111, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[161930, 6819, 115, 2, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[162068, 6823, 98, 1, 70, "Input"], Cell[162169, 6826, 163, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[162373, 6833, 92, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[162488, 6836, 97, 1, 70, "Input"], Cell[162588, 6839, 161, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[162790, 6846, 104, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[162917, 6849, 91, 1, 70, "Input"], Cell[163011, 6852, 171, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[163232, 6859, 71, 1, 70, "Section"], Cell[CellGroupData[{ Cell[163326, 6862, 88, 1, 70, "Subsubsection"], Cell[163417, 6865, 141, 3, 70, "Input", CellTags->"ConstrainedMax"], Cell[163561, 6870, 951, 41, 70, "SmallText"], Cell[164515, 6913, 141, 3, 70, "Input", CellTags->"ConstrainedMin"], Cell[164659, 6918, 951, 41, 70, "SmallText"], Cell[165613, 6961, 147, 3, 70, "Input", CellTags->"LinearProgramming"], Cell[165763, 6966, 1655, 78, 70, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[167450, 7046, 77, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[167550, 7049, 97, 1, 70, "Input"], Cell[167650, 7052, 129, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[167820, 7059, 77, 1, 70, "Subsubsection"], Cell[167900, 7062, 187, 6, 70, "Text"], Cell[CellGroupData[{ Cell[168110, 7070, 97, 1, 70, "Input"], Cell[168210, 7073, 129, 5, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[168380, 7080, 102, 1, 70, "Subsubsection"], Cell[168485, 7083, 229, 6, 70, "Text"], Cell[CellGroupData[{ Cell[168737, 7091, 189, 5, 70, "Input"], Cell[168929, 7098, 195, 7, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[169165, 7107, 91, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[169279, 7110, 134, 4, 70, "Input"], Cell[169416, 7116, 99, 5, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[169547, 7123, 128, 4, 70, "Input"], Cell[169678, 7129, 129, 5, 70, "Output"] }, Closed]] }, Closed]] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)