Homework3.nb

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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    104019,       2510]
NotebookOptionsPosition[    100966,       2431]
NotebookOutlinePosition[    101321,       2447]
CellTagsIndexPosition[    101278,       2444]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[" Homework 3", "Title",
 CellChangeTimes->{{3.7212717484835725`*^9, 
  3.7212717759681444`*^9}},ExpressionUUID->"d6f285d0-eb2e-427a-971f-\
96f149f5187e"],

Cell[CellGroupData[{

Cell[TextData[{
 "Make a FFT procedure by a",
 StyleBox[" myfft.m ", "Program"],
 "function, to validate it:\nlet ",
 StyleBox["x", "InlineFormula",
  FontSlant->"Italic"],
 StyleBox["(t)=0.15sin(2\[Pi]", "InlineFormula"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "1"], TraditionalForm]],ExpressionUUID->
  "f9876c05-89a0-4b63-b89c-1a5af98b4763"],
 StyleBox["t)+sin(2\[Pi] ", "InlineFormula"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "2"], TraditionalForm]],ExpressionUUID->
  "3e7fb1bc-b368-4e8d-8d98-d6b22a6ccfb0"],
 StyleBox["t)-0.1sin(2\[Pi] ", "InlineFormula"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "3"], TraditionalForm]],ExpressionUUID->
  "a1028954-7753-4534-96ba-185b2289bc87"],
 StyleBox["t)", "InlineFormula"],
 ",",
 StyleBox[" ", "InlineFormula"],
 StyleBox[Cell[BoxData[
  FormBox[
   SubscriptBox["f", "1"], TraditionalForm]], "InlineFormula",ExpressionUUID->
  "4211e4bc-364e-41a4-b0b0-21f30545ddb9"], "InlineFormula"],
 StyleBox["=1Hz", "InlineFormula"],
 ",",
 StyleBox[" ", "InlineFormula"],
 StyleBox[Cell[BoxData[
  FormBox[
   SubscriptBox["f", "2"], TraditionalForm]], "InlineFormula",ExpressionUUID->
  "e113871c-07ad-4410-b287-8911da0adf82"], "InlineFormula"],
 StyleBox["=2Hz", "InlineFormula"],
 ", ",
 StyleBox[Cell[BoxData[
  FormBox[
   SubscriptBox["f", "3"], TraditionalForm]], "InlineFormula",ExpressionUUID->
  "834121b7-6390-4f72-9f57-9981e62457c6"], "InlineFormula"],
 StyleBox["=3Hz", "InlineFormula"],
 ", ",
 StyleBox[Cell[BoxData[
  FormBox[
   SubscriptBox["f", "s"], TraditionalForm]], "InlineFormula",ExpressionUUID->
  "cab55898-83a7-4f22-b994-e145d8b6e2a1"], "InlineFormula"],
 StyleBox["=32Hz", "InlineFormula"],
 ";\nplot the spectrum of signal with N=64 respectively by ",
 StyleBox["myfft(xn, N)", "Program"],
 " function;"
}], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.721271780180385*^9, 3.7212718894226336`*^9}, {
   3.7212719359982977`*^9, 3.721271993544589*^9}, {3.7212720242483454`*^9, 
   3.72127204723466*^9}, 3.7212720942203474`*^9, 
   3.7212725846433983`*^9},ExpressionUUID->"c7285338-cddc-4a42-a9a7-\
a490acf327b5"],

Cell[TextData[{
 "\:67d0\:4e00\:6807\:51c6\:6b63\:5f26\:4fe1\:53f7\:53d7\:5230\:8f83\:5c0f\
\:7684\:968f\:673a\:5e72\:6270\:ff0c\:91c7\:6837\:540e\:7684\:6570\:636exn\
\:4e3a\n",
 StyleBox["x1=[ 1.3008  1.0325  1.3154  0.3463  0.1349 -0.8776 -0.1335 \
-0.1649];\nx2=[ 0.4608  0.7184  1.0532 -0.6689 -0.7790 -1.8854 -1.0160  \
0.6986];\nx3=[ 0.6367  0.8822 -0.6003  0.0703 -0.2433  0.9322  1.2893  \
1.8318];\nx4=[ 1.8853 -0.5030  0.5779 -0.7427  0.5680  0.6290  0.7174  \
0.3087];\nx5=[-0.0794 -1.1864 -1.0735 -0.1660  0.8689  2.0009  0.7683 \
-0.8091];\nx6=[-0.1990 -0.9802 -1.3392 -0.3247  1.2939  0.1609 -0.0482 \
-0.9174];\nx7=[-1.7593 -2.2465  0.0998  0.9753  0.6950  0.2317  1.4903 \
-1.1632];\nx8=[-0.1584  1.0070  1.3032  0.4372  1.4021 -0.3828 -1.6361 \
-0.4863];\nxn=[x1 x2 x3 x4 x5 x6 x7 x8];", "InlineFormula"],
 "\n\:91c7\:6837\:901f\:7387\:4e3a32Hz\:ff0c\:8c03\:7528",
 StyleBox["myfft", "Program"],
 "\:5b50\:7a0b\:5e8f\:8fdb\:884c\:9891\:8c31\:5206\:6790\:ff0c\:8ba1\:7b97\
\:51fa\:6b63\:5f26\:4fe1\:53f7\:7684\:9891\:7387\:503c"
}], "Text",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.721272097081511*^9, 3.721272123773038*^9}, {
   3.721272171384761*^9, 3.721272192748983*^9}, {3.7212722970569487`*^9, 
   3.721272299370081*^9}, 3.721272347670844*^9, 
   3.7212725846433983`*^9},ExpressionUUID->"0c770f68-98dc-48e4-aa2a-\
f91a655ecd5e"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 3},ExpressionUUID->"e72ac637-aa0b-4c96-817c-947ed136741d"],

Cell[CellGroupData[{

Cell["FFT\:5b9e\:73b0:", "Subtitle",
 CellChangeTimes->{{3.721272540040847*^9, 
  3.721272569609538*^9}},ExpressionUUID->"71fa4ea5-9eaa-4dd9-86ac-\
44c0b5df4386"],

Cell[BoxData[
 RowBox[{
  RowBox[{"bitReverse", "[", 
   RowBox[{"n_", "?", "IntegerQ"}], "]"}], ":=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"FromDigits", "[", 
       RowBox[{"#", ",", "2"}], "]"}], "&"}], ")"}], "@*", "Reverse", "@*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"IntegerDigits", "[", 
       RowBox[{"#", ",", "2", ",", "n"}], "]"}], "&"}], ")"}]}], 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.7206127265678496`*^9, 3.720612781879013*^9}, {
  3.720612860832529*^9, 3.72061287816652*^9}, {3.7206129688797092`*^9, 
  3.7206130059838314`*^9}, {3.72061336158117*^9, 3.7206133635902853`*^9}, {
  3.721120749856485*^9, 3.7211207550747833`*^9}, {3.721187120279028*^9, 
  3.7211871228831763`*^9}, {3.7212082603941727`*^9, 3.7212082622072763`*^9}, {
  3.721208320975638*^9, 
  3.7212083218576884`*^9}},ExpressionUUID->"659aa88a-71f8-4c3e-ae4b-\
48a315f81315"],

Cell[BoxData[
 RowBox[{
  RowBox[{"implFFT", "=", 
   RowBox[{"Compile", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"x", ",", "_Complex", ",", "1"}], "}"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"n", "=", 
          RowBox[{"Length", "[", "x", "]"}]}], ",", 
         RowBox[{"m", "=", 
          RowBox[{"Log2", "@", 
           RowBox[{"Length", "[", "x", "]"}]}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"A", "=", "x"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Do", "[", 
           RowBox[{
            RowBox[{"With", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"j", "=", 
                RowBox[{
                 RowBox[{"bitReverse", "[", "m", "]"}], "[", "i", "]"}]}], 
               "}"}], ",", " ", 
              RowBox[{"(*", " ", "\:5012\:5e8f", " ", "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"i", "<", "j"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"A", "\[LeftDoubleBracket]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"1", "+", "i"}], ",", 
                    RowBox[{"1", "+", "j"}]}], "}"}], 
                   "\[RightDoubleBracket]"}], "=", 
                  RowBox[{"A", "\[LeftDoubleBracket]", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"1", "+", "j"}], ",", 
                    RowBox[{"1", "+", "i"}]}], "}"}], 
                   "\[RightDoubleBracket]"}]}], " ", ";"}]}], " ", 
               "\[IndentingNewLine]", "]"}]}], " ", 
             RowBox[{"(*", " ", "\:4ea4\:6362", " ", "*)"}], 
             "\[IndentingNewLine]", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"n", "-", "2"}]}], "}"}]}], "\[IndentingNewLine]", 
           "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"Do", "[", 
           RowBox[{
            RowBox[{"With", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"b", "=", 
                RowBox[{"2", "^", 
                 RowBox[{"(", 
                  RowBox[{"l", "-", "1"}], ")"}]}]}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Do", "[", 
               RowBox[{
                RowBox[{"With", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"p", "=", 
                    RowBox[{"j", "*", 
                    RowBox[{"2", "^", 
                    RowBox[{"(", 
                    RowBox[{"m", "-", "l"}], ")"}]}]}]}], "}"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Do", "[", " ", 
                   RowBox[{"(*", " ", "\:8776\:5f62\:8fd0\:7b97", " ", "*)"}],
                    "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"A", "\[LeftDoubleBracket]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"1", "+", "k"}], ",", 
                    RowBox[{"1", "+", "k", "+", "b"}]}], "}"}], 
                    "\[RightDoubleBracket]"}], "=", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"A", "\[LeftDoubleBracket]", 
                    RowBox[{"1", "+", "k"}], "\[RightDoubleBracket]"}], "+", 
                    RowBox[{
                    RowBox[{"A", "\[LeftDoubleBracket]", 
                    RowBox[{"1", "+", "k", "+", "b"}], 
                    "\[RightDoubleBracket]"}], "*", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "2"}], "\[Pi]", "*", "\[ImaginaryI]", "*", 
                    RowBox[{"p", "/", "n"}]}], "]"}]}]}], ",", 
                    RowBox[{
                    RowBox[{"A", "\[LeftDoubleBracket]", 
                    RowBox[{"1", "+", "k"}], "\[RightDoubleBracket]"}], "-", 
                    RowBox[{
                    RowBox[{"A", "\[LeftDoubleBracket]", 
                    RowBox[{"1", "+", "k", "+", "b"}], 
                    "\[RightDoubleBracket]"}], "*", 
                    RowBox[{"Exp", "[", 
                    RowBox[{
                    RowBox[{"-", "2"}], "\[Pi]", "*", "\[ImaginaryI]", "*", 
                    RowBox[{"p", "/", "n"}]}], "]"}]}]}]}], "}"}]}], ";"}], 
                    "\[IndentingNewLine]", ",", 
                    RowBox[{"{", 
                    RowBox[{"k", ",", "j", ",", 
                    RowBox[{"n", "-", "1"}], ",", 
                    RowBox[{"2", "*", "b"}]}], "}"}]}], "\[IndentingNewLine]",
                    "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", "0", ",", 
                  RowBox[{"b", "-", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
               "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"l", ",", "1", ",", "m"}], "}"}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "A"}]}], 
        "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.72117463367591*^9, 3.7211746757173376`*^9}, {
   3.7211748115472865`*^9, 3.7211748223773017`*^9}, {3.7211749417973213`*^9, 
   3.7211749506328263`*^9}, {3.7211749848360505`*^9, 
   3.7211750111430893`*^9}, {3.72117504656114*^9, 3.7211750489211435`*^9}, {
   3.7211752133989477`*^9, 3.7211752616050196`*^9}, {3.7211753085960894`*^9, 
   3.72117530887609*^9}, {3.7211754415843706`*^9, 3.721175464973405*^9}, {
   3.721175506252463*^9, 3.7211755340125027`*^9}, {3.721175746868809*^9, 
   3.7211757662268367`*^9}, {3.721181048151722*^9, 3.721181051011885*^9}, {
   3.721181083707755*^9, 3.721181122640982*^9}, {3.721181155033835*^9, 
   3.7211812501682763`*^9}, {3.7211821941782703`*^9, 
   3.7211822019247136`*^9}, {3.7211822737038193`*^9, 3.7211822799531765`*^9}, 
   3.7211824964515595`*^9, {3.7211825371228857`*^9, 3.72118254156214*^9}, {
   3.7211825868477297`*^9, 3.721182613570258*^9}, {3.7211827758535404`*^9, 
   3.72118278947532*^9}, {3.7211828216611605`*^9, 3.7211828370930433`*^9}, {
   3.721182898998584*^9, 3.721182940086934*^9}, {3.7211830226336555`*^9, 
   3.721183026673887*^9}, 3.7211834806448526`*^9, 3.721183905314142*^9, {
   3.7211839464684963`*^9, 3.721183950490726*^9}, {3.7211841820089684`*^9, 
   3.7211842155988894`*^9}, {3.7211843359737744`*^9, 3.721184403581641*^9}, {
   3.7211846622494364`*^9, 3.721184685076742*^9}, {3.7211847978631926`*^9, 
   3.721184965234766*^9}, {3.72118516811837*^9, 3.7211851780719395`*^9}, {
   3.7211852298889036`*^9, 3.721185351939884*^9}, {3.721185382374625*^9, 
   3.7211854215258646`*^9}, {3.7211854665904417`*^9, 
   3.7211854772730527`*^9}, {3.7211855515703025`*^9, 
   3.7211855752266555`*^9}, {3.7211856878850994`*^9, 
   3.7211856896391993`*^9}, {3.721185733273695*^9, 3.7211857360098515`*^9}, {
   3.721208451004075*^9, 3.7212084646168537`*^9}, {3.7212085541139727`*^9, 
   3.72120858833193*^9}, {3.72120863256446*^9, 3.7212086507404995`*^9}, {
   3.721210088895757*^9, 3.721210098225291*^9}, {3.7212101826131177`*^9, 
   3.7212101848172436`*^9}, {3.721210915818054*^9, 3.7212109273167124`*^9}, {
   3.7212111537006607`*^9, 3.721211174063825*^9}, {3.72121125317035*^9, 
   3.72121125439642*^9}, 3.721211306373393*^9, {3.72121144706544*^9, 
   3.721211469011695*^9}, {3.7212115076579056`*^9, 3.7212115299801826`*^9}, {
   3.7212115635471025`*^9, 
   3.7212115673193183`*^9}},ExpressionUUID->"248278a7-9fe1-4536-9ce6-\
6701dba37c12"],

Cell[BoxData[
 RowBox[{
  RowBox[{"implDFT", "[", 
   RowBox[{"x_", "?", "VectorQ"}], "]"}], ":=", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"n", "=", 
      RowBox[{"Length", "[", "x", "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]", "*", 
         RowBox[{"\[ImaginaryI]", "/", "n"}]}], "]"}], "^", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"i", "*", "j"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", 
           RowBox[{"n", "-", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "0", ",", 
           RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], ")"}], ".", "x"}]}], 
   " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"'", ".", "'"}], "\:662f\:70b9\:4e58"}], " ", "*)"}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.721211547483184*^9, 
  3.7212115486022477`*^9}},ExpressionUUID->"a577f623-8f21-40e6-a5c0-\
fd5ba4636cc5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"myFFT", "[", 
    RowBox[{"x_", "/;", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"VectorQ", "[", "x", "]"}], "&&", 
       RowBox[{"IntegerQ", "@", 
        RowBox[{"Log2", "@", 
         RowBox[{"Length", "[", "x", "]"}]}]}]}], ")"}]}], "]"}], ":=", 
   RowBox[{"implFFT", "[", 
    RowBox[{"N", "[", "x", "]"}], "]"}]}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:5f53\:957f\:5ea6\:5408\:9002\:65f6", "\:ff0c", "\:91c7\:7528FFT"}], " ",
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"myFFT", "[", 
   RowBox[{"x_", "?", "VectorQ"}], "]"}], ":=", 
  RowBox[{"implDFT", "[", 
   RowBox[{"N", "[", "x", "]"}], "]"}], 
  RowBox[{
  "(*", " ", "\:5426\:5219\:7528\:666e\:901a\:7684DFT", " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.7211290127930975`*^9, 3.7211290137951555`*^9}, {
   3.721170681366373*^9, 3.7211706870783806`*^9}, {3.721171275844291*^9, 
   3.7211712821466513`*^9}, {3.721171426671918*^9, 3.721171438395589*^9}, {
   3.7211714913276157`*^9, 3.7211715214793406`*^9}, {3.7211715776525536`*^9, 
   3.721171616110753*^9}, 3.721171809233799*^9, {3.7211719004630175`*^9, 
   3.721171925872471*^9}, {3.721172024361104*^9, 3.721172054311817*^9}, {
   3.7211720969602566`*^9, 3.7211721641701*^9}, {3.7211724787170916`*^9, 
   3.721172488860672*^9}, {3.7211725748955927`*^9, 3.721172596109806*^9}, {
   3.721172764078413*^9, 3.7211727864548244`*^9}, {3.721173065257577*^9, 
   3.721173083198745*^9}, {3.721208769327282*^9, 3.721208825973522*^9}, {
   3.7212115513684063`*^9, 
   3.721211556058674*^9}},ExpressionUUID->"4251997a-885e-4a50-8c95-\
a2dce9fb9e50"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 3},ExpressionUUID->"867b3fea-f117-4e7b-a2ce-ac58a38b0717"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f1", "=", "1"}], ",", 
     RowBox[{"f2", "=", "2"}], ",", 
     RowBox[{"f3", "=", "3"}], ",", 
     RowBox[{"fs", "=", "32"}], ",", 
     RowBox[{"n", "=", "64"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Abs", "@", 
      RowBox[{"myFFT", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"0.15", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", "\[Pi]", "*", "f1", "*", "t"}], "]"}]}], "+", 
          RowBox[{"Sin", "[", 
           RowBox[{"2", "\[Pi]", "*", "f2", "*", "t"}], "]"}], "-", 
          RowBox[{"0.1", 
           RowBox[{"Sin", "[", 
            RowBox[{"2", "\[Pi]", "*", "f3", "*", "t"}], "]"}]}]}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}], "/", "fs"}], ",", 
           RowBox[{"1", "/", "fs"}]}], "}"}]}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<f/Hz\>\"", ",", "\"\<|H(jf)|\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"DataRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"fs", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "/", "n"}]}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"f1", ",", "f2", ",", "f3"}], "}"}], ",", "Automatic"}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{
  3.721186906463798*^9, {3.721186978076894*^9, 3.7211869873664255`*^9}, {
   3.7211872449231567`*^9, 3.7211872478333235`*^9}, {3.721187299562282*^9, 
   3.721187318828384*^9}, {3.721187389276413*^9, 3.72118752506618*^9}, {
   3.7211875567729936`*^9, 3.7211876816281347`*^9}, {3.7211877193392916`*^9, 
   3.7211877338501215`*^9}, {3.721187908992139*^9, 3.721187912291328*^9}, {
   3.7211889390930576`*^9, 3.7211889728309875`*^9}, {3.721189045198127*^9, 
   3.721189049407367*^9}, {3.7211893200008445`*^9, 3.7211893771161113`*^9}, {
   3.721190596471854*^9, 3.721190720749963*^9}, {3.721190827420064*^9, 
   3.7211909136639967`*^9}, {3.7211909707252607`*^9, 3.721190973988447*^9}, {
   3.721191096707466*^9, 3.721191135567689*^9}, {3.7211911748789372`*^9, 
   3.721191183880452*^9}, {3.7211912265788946`*^9, 3.72119127860187*^9}, {
   3.7211913546272182`*^9, 3.721191355025241*^9}, {3.7211915483873005`*^9, 
   3.721191562904131*^9}, {3.7211917872409625`*^9, 3.721191828480321*^9}, {
   3.721191886468638*^9, 3.7211918882267385`*^9}, {3.7211920925214233`*^9, 
   3.721192116774811*^9}, {3.721192881250536*^9, 3.721192883985693*^9}, {
   3.721192961087103*^9, 3.7211929851234775`*^9}, {3.7212093638012843`*^9, 
   3.7212093853915195`*^9}, {3.721209447578076*^9, 
   3.7212094502802305`*^9}},ExpressionUUID->"54e5fe94-dd24-4213-9d97-\
557104bdf773"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJztlM8rw3EYxz/JATn4sYSWzBgzv2az2bA9B8XZ1UoRF2FaUmrrEykX7MiK
pByUA80JaSklNHLgJu2g3NYu2EGsPcrnPf4B7alvn16fV09PfZ/n+eiGpwZG
c4QQa19f6vw9ntwqx91WSypKKc1v4AXfE5+5pOo8Cq2nIp/vC8EXAZcAa+j9
dVDQVrQ7zWXgy8lkGjr2RC7ZV4LX0vlCMGF5PmJfBb4aWAdcQ/6kxx5bXOV8
Pfhair4uhjZPz9jXgTfQktcYKmk4ZF8PvgHYCNxIHvNIQF98wfkm8E0U73tY
D4dP2DeDb6HtaVNyZv+WfSv4NpUlsDCT73r5frciks6XZvDtlPhZX7aDt9CZ
dW1jvoDrSwt4K9QHFh0US3j9185dzu8Ab6OdvdlAbuSBvQ28nY58k9HHOe6P
tIPvhPrAwkHJ8IvubizI+Q7wTpro7xeujyv2TvBdtOIbvzno5f7JLvDdUB9Y
9Kj7I3vAu5h5/6QLvJuU/ZVu8PE/9vk78oA1wOXAWuAa4FpgA3AjcBNwC3Dm
PKqM85Y5PyrjfGT2W2Xs51/9+Q78/xjZ91fl7PubfX//5/v7CSGvBh4=
    "], {{{}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{65, 3}],
        LineBox[{66, 5}], LineBox[{67, 7}], LineBox[{68, 11}], 
       LineBox[{69, 13}], LineBox[{70, 15}], LineBox[{71, 19}], 
       LineBox[{72, 21}], LineBox[{73, 23}], LineBox[{74, 27}], 
       LineBox[{75, 29}], LineBox[{76, 31}], LineBox[{77, 35}], 
       LineBox[{78, 37}], LineBox[{79, 39}], LineBox[{80, 43}], 
       LineBox[{81, 45}], LineBox[{82, 47}], LineBox[{83, 51}], 
       LineBox[{84, 53}], LineBox[{85, 55}], LineBox[{86, 59}], 
       LineBox[{87, 61}], LineBox[{88, 63}]}}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.011000000000000001`], AbsoluteThickness[1.6], 
       PointBox[{89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 
        103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 
        117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 
        131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 
        145, 146, 147, 148, 149, 150, 151, 
        152}]}, {}}}], {}, {}, {{}, {}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f/Hz\"", TraditionalForm], 
    FormBox["\"|H(jf)|\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Large,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 31.5}, {0, 32.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{{{1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {3, 
      FormBox["3", TraditionalForm]}}, Automatic}]], "Output",
 CellChangeTimes->{
  3.721186907650866*^9, 3.7211875278213377`*^9, 3.7211876121981635`*^9, 
   3.7211876515834165`*^9, 3.7211876832972307`*^9, 3.72118779046736*^9, 
   3.7211879144014487`*^9, 3.7211889414971952`*^9, 3.721188974507083*^9, 
   3.7211890509974585`*^9, 3.7211893790952244`*^9, {3.7211906306188073`*^9, 
   3.721190655980258*^9}, 3.7211907211839876`*^9, {3.7211908924387827`*^9, 
   3.721190914140024*^9}, 3.7211911365777464`*^9, 3.721191186197585*^9, 
   3.721191279896944*^9, 3.7211913560262985`*^9, {3.7211915506264286`*^9, 
   3.7211915633681574`*^9}, 3.7211917890080633`*^9, {3.721191878485181*^9, 
   3.721191888746768*^9}, {3.721192097793725*^9, 3.721192117214836*^9}, 
   3.7211928848767433`*^9, {3.7211929716427064`*^9, 3.721192986933581*^9}, 
   3.721209422575646*^9, 3.7212094625379314`*^9, 3.7212098443257685`*^9, 
   3.721210033820607*^9, 3.721210354557952*^9, 3.7212110142766857`*^9, 
   3.7212111862885246`*^9, 3.7212112628639045`*^9, 3.7212114758940887`*^9, 
   3.7212115753267765`*^9, 
   3.721211678948703*^9},ExpressionUUID->"c04dd54a-377b-4809-965b-\
ce25607f5350"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 3},ExpressionUUID->"b6167599-a03f-4f54-8521-69db7cb74de1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"{", 
    RowBox[{
    "1.3008", ",", "1.0325", ",", "1.3154", ",", "0.3463", ",", "0.1349", ",", 
     RowBox[{"-", "0.8776"}], ",", 
     RowBox[{"-", "0.1335"}], ",", 
     RowBox[{"-", "0.1649"}], ",", "\[IndentingNewLine]", "0.4608", ",", 
     "0.7184", ",", "1.0532", ",", 
     RowBox[{"-", "0.6689"}], ",", 
     RowBox[{"-", "0.7790"}], ",", 
     RowBox[{"-", "1.8854"}], ",", 
     RowBox[{"-", "1.0160"}], ",", "0.6986", ",", "\[IndentingNewLine]", 
     "0.6367", ",", "0.8822", ",", 
     RowBox[{"-", "0.6003"}], ",", "0.0703", ",", 
     RowBox[{"-", "0.2433"}], ",", "0.9322", ",", "1.2893", ",", "1.8318", 
     ",", "\[IndentingNewLine]", "1.8853", ",", 
     RowBox[{"-", "0.5030"}], ",", "0.5779", ",", 
     RowBox[{"-", "0.7427"}], ",", "0.5680", ",", "0.6290", ",", "0.7174", 
     ",", "0.3087", ",", "\[IndentingNewLine]", 
     RowBox[{"-", "0.0794"}], ",", 
     RowBox[{"-", "1.1864"}], ",", 
     RowBox[{"-", "1.0735"}], ",", 
     RowBox[{"-", "0.1660"}], ",", "0.8689", ",", "2.0009", ",", "0.7683", 
     ",", 
     RowBox[{"-", "0.8091"}], ",", "\[IndentingNewLine]", 
     RowBox[{"-", "0.1990"}], ",", 
     RowBox[{"-", "0.9802"}], ",", 
     RowBox[{"-", "1.3392"}], ",", 
     RowBox[{"-", "0.3247"}], ",", "1.2939", ",", "0.1609", ",", 
     RowBox[{"-", "0.0482"}], ",", 
     RowBox[{"-", "0.9174"}], ",", "\[IndentingNewLine]", 
     RowBox[{"-", "1.7593"}], ",", 
     RowBox[{"-", "2.2465"}], ",", "0.0998", ",", "0.9753", ",", "0.6950", 
     ",", "0.2317", ",", "1.4903", ",", 
     RowBox[{"-", "1.1632"}], ",", "\[IndentingNewLine]", 
     RowBox[{"-", "0.1584"}], ",", "1.0070", ",", "1.3032", ",", "0.4372", 
     ",", "1.4021", ",", 
     RowBox[{"-", "0.3828"}], ",", 
     RowBox[{"-", "1.6361"}], ",", 
     RowBox[{"-", "0.4863"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7211924094355497`*^9, 3.721192490842206*^9}, {
  3.721192542538163*^9, 
  3.7211927127338977`*^9}},ExpressionUUID->"5b3fc63c-6dda-4fe2-9b9d-\
09bf51e2a164"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"fs", "=", "32"}], ",", 
     RowBox[{"n", "=", 
      RowBox[{"Length", "[", "x", "]"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Abs", "@", 
      RowBox[{"myFFT", "[", "x", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<f/Hz\>\"", ",", "\"\<|H(jf)|\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"DataRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"fs", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "/", "n"}]}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9", "/", "2"}], "}"}], ",", "Automatic"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "\[IndentingNewLine]", 
    "]"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.7211907940561557`*^9, 3.7211908202246523`*^9}, {
  3.7211927266806955`*^9, 3.721192751164096*^9}, {3.721192797422742*^9, 
  3.72119281854795*^9}, {3.7212092503877974`*^9, 3.721209300351655*^9}, {
  3.721209336514724*^9, 3.7212093503385143`*^9}, {3.7212094543304625`*^9, 
  3.721209456603592*^9}},ExpressionUUID->"d20427c6-98a3-4105-910d-\
267fa56f97d7"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt1d1Lk1EcB/AZq6QW6XSbmOnm5t7UufnuNvf8etEIgsgIgoJe9Saqq7oI
L44VWRQEQYTYi2CGVwVSZhelhVIyKALTomiLXrwpkBIzWNEJzwP7ff+FfGCM
D1+e85xznvPlcew/2tK6xGAwjMjfv3/9Esaxi6G6QlpQUjv9pm10n8eiPKP9
fngvELzuVZ7X3EXT07ZOs7KBgnsznGN33cpG6jnyfdsWc0JbcCZl+y2BeHKF
yk20Z6IivInWKGfRrpKReH/7amUzdR0uWD8YJeVc6k9teDo69EONZyWnz3/+
83aTyvNIu1/e8+XyKuV8OvjRF3/QnqNcQMOxC8sPXc1WLqQq41TnylvLlO0U
PdASCVXq83PQ6Cnfk6ZXX9XzisnTNd7xMmJVuZMSQ/ac7gGXsovOzN5IWX8W
KZfQ3LVPjwd36uO7qWl8eLdlPkPZQ+9txybsXn08LzW/27j2eOqbep6P+gN3
bIG218p+ah14cbP3mT6/Ump61Be3ndPXX0ZbL00PP9+Rp1xO3c2xCb/Fphyg
OZFwXkksVa6gddbbJ3on9fuDdHb27VRHjlqPCFKY5SH6lX6/CMH4lfz5opI2
s/lVUVv6/EUVjbH1VfP1i2pKsv2p4fsnamiW7W8t339RSx/Y+6nj70/U0SR7
v/X8/Yt6qmHno4FG0s+PaIDzFebnT4ThfEaoL/38igic7yg//yIK/WikrPT+
iEY6yfoV4/0TMfKwfmr0J72/QiPeb7ySGvcMeB5sgHGM4EywCZwFNoNzwVZw
HjgfXAAuBNvBDnAx2Al2gUvAbrAH7AX7wH5wKbgMXA4OgCvAQW4Blv3nOVj2
n+dg2X+eg2X/eQ6W/ec5WPaf52DZf56DZf95Dpb95zlY9p/nYNl/noNl/3kO
lv3nOVj2n+dg2X+egw2L3//F7//i9/9//P7/BdRZJvk=
    "], {{{}, {}, {}, {}, 
      {RGBColor[0.368417, 0.506779, 0.709798], Opacity[0.3], LineBox[{65, 1}],
        LineBox[{66, 2}], LineBox[{67, 3}], LineBox[{68, 4}], 
       LineBox[{69, 5}], LineBox[{70, 6}], LineBox[{71, 7}], LineBox[{72, 8}],
        LineBox[{73, 9}], LineBox[{74, 10}], LineBox[{75, 11}], 
       LineBox[{76, 12}], LineBox[{77, 13}], LineBox[{78, 14}], 
       LineBox[{79, 15}], LineBox[{80, 16}], LineBox[{81, 17}], 
       LineBox[{82, 18}], LineBox[{83, 19}], LineBox[{84, 20}], 
       LineBox[{85, 21}], LineBox[{86, 22}], LineBox[{87, 23}], 
       LineBox[{88, 24}], LineBox[{89, 25}], LineBox[{90, 26}], 
       LineBox[{91, 27}], LineBox[{92, 28}], LineBox[{93, 29}], 
       LineBox[{94, 30}], LineBox[{95, 31}], LineBox[{96, 32}], 
       LineBox[{97, 33}], LineBox[{98, 34}], LineBox[{99, 35}], 
       LineBox[{100, 36}], LineBox[{101, 37}], LineBox[{102, 38}], 
       LineBox[{103, 39}], LineBox[{104, 40}], LineBox[{105, 41}], 
       LineBox[{106, 42}], LineBox[{107, 43}], LineBox[{108, 44}], 
       LineBox[{109, 45}], LineBox[{110, 46}], LineBox[{111, 47}], 
       LineBox[{112, 48}], LineBox[{113, 49}], LineBox[{114, 50}], 
       LineBox[{115, 51}], LineBox[{116, 52}], LineBox[{117, 53}], 
       LineBox[{118, 54}], LineBox[{119, 55}], LineBox[{120, 56}], 
       LineBox[{121, 57}], LineBox[{122, 58}], LineBox[{123, 59}], 
       LineBox[{124, 60}], LineBox[{125, 61}], LineBox[{126, 62}], 
       LineBox[{127, 63}], LineBox[{128, 64}]}}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.011000000000000001`], AbsoluteThickness[1.6], 
       PointBox[{129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 
        141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 
        155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 
        169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 
        183, 184, 185, 186, 187, 188, 189, 190, 191, 
        192}]}, {}}}], {}, {}, {{}, {}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f/Hz\"", TraditionalForm], 
    FormBox["\"|H(jf)|\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Large,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 31.5}, {0, 32.47431208026973}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{{{
      NCache[
       Rational[9, 2], 4.5], 
      FormBox[
       FractionBox["9", "2"], TraditionalForm]}}, Automatic}]], "Output",
 CellChangeTimes->{
  3.7211927549403114`*^9, 3.721192819633012*^9, 3.72120932194489*^9, 
   3.7212093523646297`*^9, 3.7212094577726593`*^9, 3.7212098448988013`*^9, {
   3.721211580067047*^9, 3.7212116090807066`*^9}, 
   3.721211679345726*^9},ExpressionUUID->"6330efaf-7977-4e9d-a5cd-\
04381fd37f2d"]
}, Open  ]],

Cell[TextData[{
 "\:53ef\:4ee5\:770b\:5230\:5728f = ",
 Cell[BoxData[
  FormBox[
   FractionBox["9", "2"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "f9fb1950-90a2-40fb-9752-f4383ae83f20"],
 " \:5904\:6709\:4e00\:660e\:663e\:5c16\:5cf0\:ff0c\:6545\:539f\:6b63\:5f26\
\:4fe1\:53f7\:7684\:9891\:7387\:5e94\:4e3a ",
 Cell[BoxData[
  FormBox[
   FractionBox["9", "2"], TraditionalForm]],
  FormatType->"TraditionalForm",ExpressionUUID->
  "1d932616-b3dc-427a-8f2e-602fd3b4d924"],
 " Hz\:3002"
}], "Text",
 CellChangeTimes->{{3.7212724295865293`*^9, 3.721272430548584*^9}, {
  3.7212724731050186`*^9, 
  3.7212725141973686`*^9}},ExpressionUUID->"0c8c012e-225a-4fcd-8e53-\
56a5286d2dd1"],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 3},ExpressionUUID->"72f69efd-06cb-4fe1-ac16-96210374af56"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:8865\:5145\:ff1a\:5bf9FFT\:3001DFT\:4ee5\:53caMathematica\:5185\:5efa\
\:7684Fourier\:51fd\:6570\:7684\:7b80\:5355\:6027\:80fd\:6bd4\:8f83", \
"Subtitle",
 CellChangeTimes->{{3.721272626341783*^9, 
  3.72127268765629*^9}},ExpressionUUID->"c344dd22-3b78-4bdb-8d3d-\
b134e80d6a3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLogLogPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2", "^", "n"}], ",", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", "=", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Sin", "[", "x", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "1", ",", 
                 RowBox[{"2", "^", "n"}]}], "}"}]}], "]"}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"ClearSystemCache", "[", "]"}], ";", 
            RowBox[{"First", "@", 
             RowBox[{"Timing", "[", 
              RowBox[{
               RowBox[{"tf", "[", "x", "]"}], ";"}], "]"}]}]}]}], 
          "\[IndentingNewLine]", "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"tf", ",", 
       RowBox[{"{", 
        RowBox[{"implFFT", ",", "implDFT", ",", "Fourier"}], "}"}]}], "}"}]}],
     "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<N\>\"", ",", "\"\<t/s\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabels", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<FFT\>\"", ",", "\"\<DFT\>\"", ",", "\"\<Builtin\>\""}], 
     "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.721193152522052*^9, 3.721193268364678*^9}, {
   3.7211933000004873`*^9, 3.7211933515584364`*^9}, {3.721193460458665*^9, 
   3.721193498587846*^9}, {3.721194305279986*^9, 3.72119431199337*^9}, {
   3.7211944837101917`*^9, 3.721194550173993*^9}, {3.721194628023446*^9, 
   3.7211947140053635`*^9}, {3.7211947975201406`*^9, 3.721194810538885*^9}, {
   3.7211948443208175`*^9, 3.7211948514782267`*^9}, {3.7211955835430984`*^9, 
   3.7211956148898916`*^9}, {3.721196059012294*^9, 3.7211960603873725`*^9}, {
   3.721201238712556*^9, 3.721201239020573*^9}, {3.7212029074710035`*^9, 
   3.7212029627851667`*^9}, {3.721203027607875*^9, 3.7212031468696957`*^9}, {
   3.721203269458708*^9, 3.721203269640718*^9}, 3.721203302502598*^9, 
   3.721203367418311*^9, {3.721203917738787*^9, 3.7212039275823503`*^9}, 
   3.7212049723991103`*^9, {3.7212059891572657`*^9, 3.7212059900443163`*^9}, {
   3.721206655696389*^9, 3.7212066692481647`*^9}, {3.7212095054083834`*^9, 
   3.721209517325065*^9}, 3.7212095935724263`*^9, {3.72121270640347*^9, 
   3.721212729897814*^9}},ExpressionUUID->"709abf1d-afa0-493f-9a2f-\
8bdd1a60415d"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{4.852030263919617, -4.160477954490781}, {
      5.545177444479562, -4.160477954490781}, {
      6.238324625039508, -4.160477954490781}, {
      6.931471805599453, -2.551040042056681}, {
      7.6246189861593985`, -1.6755713047027807`}, {
      8.317766166719343, -0.5495600418465566}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{3.4657359027997265`, -4.160477954490781}, {
      4.1588830833596715`, -2.7741835933708905`}, {
      4.852030263919617, -1.2701061965946163`}, {5.545177444479562, 
      0.0880172875585779}, {6.238324625039508, 1.4707338273305848`}, {
      6.931471805599453, 2.8887768867650556`}, {7.6246189861593985`, 
      4.29078908680929}, {8.317766166719343, 5.688500612544955}}]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{7.6246189861593985`, -4.160477954490781}, {
      8.317766166719343, -3.467330773930836}}]}}, {{}, {}}, {{
     GraphicsGroupBox[{
       {GrayLevel[1], AbsoluteThickness[4], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
        "Round"], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, -0.5495600418465566}], 
          Offset[{0, 0}, {8.42095604646416, -0.5495600418465566}], 
          Offset[{0., 0.}, {8.470487188741673, -0.5495600418465566}], 
          Offset[{0., 0.}, {8.470487188741673, -0.5495600418465566}], 
          Offset[{0., 0.}, {8.520018331019186, -0.5495600418465566}], 
          Offset[{0, 0}, {8.61909529151493, -0.5495577443446699}], 
          Offset[{5., 1.1102230246251565`*^-15}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -0.5495577443446699}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, -0.5495600418465566}], 
          Offset[{0, 0}, {8.42095604646416, -0.5495600418465566}], 
          Offset[{0., 0.}, {8.470487188741673, -0.5495600418465566}], 
          Offset[{0., 0.}, {8.470487188741673, -0.5495600418465566}], 
          Offset[{0., 0.}, {8.520018331019186, -0.5495600418465566}], 
          Offset[{0, 0}, {8.61909529151493, -0.5495577443446699}], 
          Offset[{5., 1.1102230246251565`*^-15}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -0.5495577443446699}]}]}, 
       {GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], EdgeForm[None], 
        PolygonBox[{
         Offset[{35., 6.500000000000008}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{35., -6.499999999999992}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{10.000000000000002`, -6.499999999999997}, {
           8.61909529151493, -0.5495577443446699}], 
          Offset[{9.999999999999998, 6.500000000000003}, {
           8.61909529151493, -0.5495577443446699}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        EdgeForm[None]}, {}, InsetBox[
        RotationBox["\<\"FFT\"\>",
         BoxRotation->0.], 
        Offset[{22.5, 4.9960036108132044*^-15}, \
{8.61909529151493, -0.5495577443446699}], {0, 0}]}], GraphicsGroupBox[{
       {GrayLevel[1], AbsoluteThickness[4], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
        "Round"], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 5.688500612544955}], 
          Offset[{0, 0}, {8.42095604646416, 5.688500612544955}], 
          Offset[{0., 0.}, {8.470487188741673, 5.688500612544955}], 
          Offset[{0., 0.}, {8.470487188741673, 5.688500612544955}], 
          Offset[{0., 0.}, {8.520018331019186, 5.688500612544955}], 
          Offset[{0, 0}, {8.61909529151493, 5.688408202081572}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.61909529151493, 
           5.688408202081572}], 
          Offset[{10., 2.220446049250313*^-15}, {8.61909529151493, 
           5.688408202081572}], 
          Offset[{10., 2.220446049250313*^-15}, {8.61909529151493, 
           5.688408202081572}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 5.688500612544955}], 
          Offset[{0, 0}, {8.42095604646416, 5.688500612544955}], 
          Offset[{0., 0.}, {8.470487188741673, 5.688500612544955}], 
          Offset[{0., 0.}, {8.470487188741673, 5.688500612544955}], 
          Offset[{0., 0.}, {8.520018331019186, 5.688500612544955}], 
          Offset[{0, 0}, {8.61909529151493, 5.688408202081572}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.61909529151493, 
           5.688408202081572}], 
          Offset[{10., 2.220446049250313*^-15}, {8.61909529151493, 
           5.688408202081572}], 
          Offset[{10., 2.220446049250313*^-15}, {8.61909529151493, 
           5.688408202081572}]}]}, 
       {GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], EdgeForm[None], 
        PolygonBox[{
         Offset[{36., 6.500000000000008}, {8.61909529151493, 
           5.688408202081572}], 
          Offset[{36., -6.499999999999992}, {8.61909529151493, 
           5.688408202081572}], 
          Offset[{10.000000000000002`, -6.499999999999997}, {8.61909529151493,
            5.688408202081572}], 
          Offset[{9.999999999999998, 6.500000000000003}, {8.61909529151493, 
           5.688408202081572}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        EdgeForm[None]}, {}, InsetBox[
        RotationBox["\<\"DFT\"\>",
         BoxRotation->0.], 
        Offset[{23., 5.10702591327572*^-15}, \
{8.61909529151493, 5.688408202081572}], {0, 0}]}], GraphicsGroupBox[{
       {GrayLevel[1], AbsoluteThickness[4], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
        "Round"], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, -3.467330773930836}], 
          Offset[{0, 0}, {8.42095604646416, -3.467330773930836}], 
          Offset[{0., 0.}, {8.470487188741673, -3.467330773930836}], 
          Offset[{0., 0.}, {8.470487188741673, -3.467330773930836}], 
          Offset[{0., 0.}, {8.520018331019186, -3.467330773930836}], 
          Offset[{0, 0}, {8.61909529151493, -3.467330033810623}], 
          Offset[{5., 1.1102230246251565`*^-15}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -3.467330033810623}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, -3.467330773930836}], 
          Offset[{0, 0}, {8.42095604646416, -3.467330773930836}], 
          Offset[{0., 0.}, {8.470487188741673, -3.467330773930836}], 
          Offset[{0., 0.}, {8.470487188741673, -3.467330773930836}], 
          Offset[{0., 0.}, {8.520018331019186, -3.467330773930836}], 
          Offset[{0, 0}, {8.61909529151493, -3.467330033810623}], 
          Offset[{5., 1.1102230246251565`*^-15}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{10., 2.220446049250313*^-15}, {
           8.61909529151493, -3.467330033810623}]}]}, 
       {GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], EdgeForm[None], 
        PolygonBox[{
         Offset[{47., 6.500000000000011}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{47., -6.499999999999989}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{10., -6.499999999999998}, {
           8.61909529151493, -3.467330033810623}], 
          Offset[{10., 6.500000000000002}, {
           8.61909529151493, -3.467330033810623}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        EdgeForm[None]}, {}, InsetBox[
        RotationBox["\<\"Builtin\"\>",
         BoxRotation->0.], 
        Offset[{28.5, 6.328271240363392*^-15}, \
{8.61909529151493, -3.467330033810623}], {0, 0}]}]}, {}}, {{}, {}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"N\"", TraditionalForm], 
    FormBox["\"t/s\"", TraditionalForm]},
  AxesOrigin->{3.287259529159455, -4.875323173065956},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 65.40106667006152}, {All, All}},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Exp[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Exp[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{3.3646519389680685`, 8.317766166719343}, {-4.707643430437211, 
   5.688500612544955}},
  PlotRangeClipping->False,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledTicks[{Log, Exp}]}, {{{3.912023005428146, 
       FormBox["50", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox["100", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.214608098422191, 
       FormBox["500", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.703782474656201, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.991464547107982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.396929655216146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.551080335043404, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.684611727667927, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.802394763324311, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.006367567650246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.294049640102028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.699514748210191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.85366542803745, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.987196820661973, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.104979856318357, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.305650551780507, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.392661928770137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}, {{-4.605170185988091, 
       FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2.}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox["10", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox["100", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.506557897319982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-3.2188758248682006`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.8134107167600364`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.659260036932778, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.5257286443082556`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-2.4079456086518722`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.916290731874155, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {0.6931471805599453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.0986122886681098`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.3862943611198906`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.6094379124341003`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.791759469228055, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {1.9459101490553132`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.0794415416798357`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.1972245773362196`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.703782474656201, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.991464547107982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.214608098422191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.396929655216146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.551080335043404, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.684611727667927, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.802394763324311, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.907755278982137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.006367567650246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.294049640102028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{3.721193371690588*^9, 3.721194436980519*^9, 
  3.7211949856268997`*^9, 3.7211965941088996`*^9, 3.72120197065042*^9, 
  3.721204409354906*^9, 3.7212059827418985`*^9, 3.721207194773223*^9, 
  3.721209982029645*^9, 3.721212106681168*^9, 
  3.7212132075741353`*^9},ExpressionUUID->"9d31139c-f83b-48d9-9684-\
12d560157428"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"baseMemory", "=", 
   RowBox[{"MemoryInUse", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogLogPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"2", "^", "n"}], ",", 
         RowBox[{"Module", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", "=", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"Sin", "[", "x", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "1", ",", 
                 RowBox[{"2", "^", "n"}]}], "}"}]}], "]"}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"ClearSystemCache", "[", "]"}], ";", 
            RowBox[{"tf", "[", "x", "]"}], ";", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"MemoryInUse", "[", "]"}], "-", "baseMemory"}], 
             ")"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"tf", ",", 
       RowBox[{"{", 
        RowBox[{"implFFT", ",", "implDFT", ",", "Fourier"}], "}"}]}], "}"}]}],
     "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<N\>\"", ",", "\"\<Memory/Byte\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotLabels", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<FFT\>\"", ",", "\"\<DFT\>\"", ",", "\"\<Builtin\>\""}], 
     "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.721207281132162*^9, 3.7212074183570113`*^9}, {
  3.721209534558051*^9, 3.72120960132887*^9}, {3.7212127372712355`*^9, 
  3.721212770274123*^9}},ExpressionUUID->"5e3a023c-58af-40b5-875e-\
79383f06ea98"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{7.6246189861593985`, 11.42300075744224}, {8.317766166719343, 
      12.504872683715801`}}]}, 
    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{3.4657359027997265`, 11.497852435472707`}, {
      4.1588830833596715`, 13.4745064679904}, {4.852030263919617, 
      15.008945634953502`}, {5.545177444479562, 16.45191064595231}, {
      6.238324625039508, 17.86401011477605}, {6.931471805599453, 
      19.263556796828013`}, {7.6246189861593985`, 20.656958507589515`}, {
      8.317766166719343, 22.055985629867017`}}]}, 
    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     LineBox[{{6.931471805599453, 5.5134287461649825`}, {7.6246189861593985`, 
      11.44593059614595}, {8.317766166719343, 
      12.512939507396789`}}]}}, {{}, {}}, {{GraphicsGroupBox[{
       {GrayLevel[1], AbsoluteThickness[4], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
        "Round"], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 12.504872683715801`}], 
          Offset[{0, 0}, {8.42095604646416, 12.504872683715801`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.504872683715801`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.504872683715801`}], 
          Offset[{0., 0.}, {8.520018331019186, 12.504872683715801`}], 
          Offset[{0, 0}, {8.694900883587945, 11.702987925334236`}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.694900883587945, 
           11.702987925334236`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           11.702987925334236`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           11.702987925334236`}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 12.504872683715801`}], 
          Offset[{0, 0}, {8.42095604646416, 12.504872683715801`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.504872683715801`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.504872683715801`}], 
          Offset[{0., 0.}, {8.520018331019186, 12.504872683715801`}], 
          Offset[{0, 0}, {8.694900883587945, 11.702987925334236`}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.694900883587945, 
           11.702987925334236`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           11.702987925334236`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           11.702987925334236`}]}]}, 
       {GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], EdgeForm[None], 
        PolygonBox[{
         Offset[{35., 6.500000000000008}, {8.694900883587945, 
           11.702987925334236`}], 
          Offset[{35., -6.499999999999992}, {8.694900883587945, 
           11.702987925334236`}], 
          Offset[{10.000000000000002`, -6.499999999999997}, {
           8.694900883587945, 11.702987925334236`}], 
          Offset[{9.999999999999998, 6.500000000000003}, {8.694900883587945, 
           11.702987925334236`}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        EdgeForm[None]}, {}, InsetBox[
        RotationBox["\<\"FFT\"\>",
         BoxRotation->0.], 
        Offset[{22.5, 4.9960036108132044*^-15}, \
{8.694900883587945, 11.702987925334236}], {0, 0}]}], GraphicsGroupBox[{
       {GrayLevel[1], AbsoluteThickness[4], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
        "Round"], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 22.055985629867017`}], 
          Offset[{0, 0}, {8.42095604646416, 22.055985629867017`}], 
          Offset[{0., 0.}, {8.470487188741673, 22.055985629867017`}], 
          Offset[{0., 0.}, {8.470487188741673, 22.055985629867017`}], 
          Offset[{0., 0.}, {8.520018331019186, 22.055985629867017`}], 
          Offset[{0, 0}, {8.694900883587945, 22.055927882761655`}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.694900883587945, 
           22.055927882761655`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           22.055927882761655`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           22.055927882761655`}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 22.055985629867017`}], 
          Offset[{0, 0}, {8.42095604646416, 22.055985629867017`}], 
          Offset[{0., 0.}, {8.470487188741673, 22.055985629867017`}], 
          Offset[{0., 0.}, {8.470487188741673, 22.055985629867017`}], 
          Offset[{0., 0.}, {8.520018331019186, 22.055985629867017`}], 
          Offset[{0, 0}, {8.694900883587945, 22.055927882761655`}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.694900883587945, 
           22.055927882761655`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           22.055927882761655`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           22.055927882761655`}]}]}, 
       {GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], EdgeForm[None], 
        PolygonBox[{
         Offset[{36., 6.500000000000008}, {8.694900883587945, 
           22.055927882761655`}], 
          Offset[{36., -6.499999999999992}, {8.694900883587945, 
           22.055927882761655`}], 
          Offset[{10.000000000000002`, -6.499999999999997}, {
           8.694900883587945, 22.055927882761655`}], 
          Offset[{9.999999999999998, 6.500000000000003}, {8.694900883587945, 
           22.055927882761655`}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        EdgeForm[None]}, {}, InsetBox[
        RotationBox["\<\"DFT\"\>",
         BoxRotation->0.], 
        Offset[{23., 5.10702591327572*^-15}, \
{8.694900883587945, 22.055927882761655}], {0, 0}]}], GraphicsGroupBox[{
       {GrayLevel[1], AbsoluteThickness[4], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[
        "Round"], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 12.512939507396789`}], 
          Offset[{0, 0}, {8.42095604646416, 12.512939507396789`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.512939507396789`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.512939507396789`}], 
          Offset[{0., 0.}, {8.520018331019186, 12.512939507396789`}], 
          Offset[{0, 0}, {8.694900883587945, 13.314823793075258`}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           13.314823793075258`}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        BSplineCurveBox[{
         Offset[{0, 0}, {8.42095604646416, 12.512939507396789`}], 
          Offset[{0, 0}, {8.42095604646416, 12.512939507396789`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.512939507396789`}], 
          Offset[{0., 0.}, {8.470487188741673, 12.512939507396789`}], 
          Offset[{0., 0.}, {8.520018331019186, 12.512939507396789`}], 
          Offset[{0, 0}, {8.694900883587945, 13.314823793075258`}], 
          Offset[{5., 1.1102230246251565`*^-15}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{10., 2.220446049250313*^-15}, {8.694900883587945, 
           13.314823793075258`}]}]}, 
       {GrayLevel[1], Opacity[
         NCache[
          Rational[2, 3], 0.6666666666666666]], EdgeForm[None], 
        PolygonBox[{
         Offset[{47., 6.500000000000011}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{47., -6.499999999999989}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{10., -6.499999999999998}, {8.694900883587945, 
           13.314823793075258`}], 
          Offset[{10., 6.500000000000002}, {8.694900883587945, 
           13.314823793075258`}]}]}, 
       {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], 
        EdgeForm[None]}, {}, InsetBox[
        RotationBox["\<\"Builtin\"\>",
         BoxRotation->0.], Offset[{28.5, 6.328271240363392*^-15}, 
        {8.694900883587945, 13.314823793075258}], {0, 0}]}]}, {}}, {{}, {}}, \
{{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"N\"", TraditionalForm], 
    FormBox["\"Memory/Byte\"", TraditionalForm]},
  AxesOrigin->{3.287259529159455, 4.312759294928544},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->{{All, 70.910734303686}, {All, All}},
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Exp[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Exp[#]& )[
         Part[#, 1]], 
        (Exp[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{3.3646519389680685`, 8.317766166719343}, {4.594397808181536, 
   22.055985629867017`}},
  PlotRangeClipping->False,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledTicks[{Log, Exp}]}, {{{3.912023005428146, 
       FormBox["50", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox["100", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.214608098422191, 
       FormBox["500", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {2.995732273553991, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.4011973816621555`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {3.6888794541139363`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.703782474656201, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {5.991464547107982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.396929655216146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.551080335043404, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.684611727667927, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {6.802394763324311, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.006367567650246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.294049640102028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.699514748210191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.85366542803745, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.987196820661973, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.104979856318357, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.305650551780507, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.392661928770137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}, {{6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {16.11809565095832, 
       FormBox[
        TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {20.72326583694641, 
       FormBox[
        TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {2.302585092994046, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {4.605170185988092, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {13.815510557964274`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {18.420680743952367`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {23.025850929940457`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}, {25.328436022934504`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          
          GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
           Baseline], "CacheGraphics" -> False], 
         Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
       0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{3.721207959293951*^9, 3.721212544363202*^9, 
  3.721213836372101*^9},ExpressionUUID->"b66469c3-ee20-4428-80f0-\
7a8c836fdcae"]
}, Open  ]],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{
  Inherited, 3},ExpressionUUID->"8bcd1428-dffe-493e-902c-e8cbde264adc"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{831, 685},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (2017\:5e745\:670816\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 158, 3, 90, "Title", "ExpressionUUID" -> \
"d6f285d0-eb2e-427a-971f-96f149f5187e"],
Cell[CellGroupData[{
Cell[763, 29, 2142, 57, 74, "Text", "ExpressionUUID" -> \
"c7285338-cddc-4a42-a9a7-a490acf327b5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[2908, 88, 1387, 23, 230, "Text", "ExpressionUUID" -> \
"0c770f68-98dc-48e4-aa2a-f91a655ecd5e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Open  ]],
Cell[4310, 114, 331, 10, 6, "Text", "ExpressionUUID" -> \
"e72ac637-aa0b-4c96-817c-947ed136741d"],
Cell[CellGroupData[{
Cell[4666, 128, 162, 3, 49, "Subtitle", "ExpressionUUID" -> \
"71fa4ea5-9eaa-4dd9-86ac-44c0b5df4386"],
Cell[4831, 133, 910, 22, 47, "Input", "ExpressionUUID" -> \
"659aa88a-71f8-4c3e-ae4b-48a315f81315"],
Cell[5744, 157, 7951, 165, 677, "Input", "ExpressionUUID" -> \
"248278a7-9fe1-4536-9ce6-6701dba37c12"],
Cell[13698, 324, 1079, 32, 109, "Input", "ExpressionUUID" -> \
"a577f623-8f21-40e6-a5c0-fd5ba4636cc5"],
Cell[14780, 358, 1635, 37, 84, "Input", "ExpressionUUID" -> \
"4251997a-885e-4a50-8c95-a2dce9fb9e50"],
Cell[16418, 397, 331, 10, 6, "Text", "ExpressionUUID" -> \
"867b3fea-f117-4e7b-a2ce-ac58a38b0717"],
Cell[CellGroupData[{
Cell[16774, 411, 3339, 73, 328, "Input", "ExpressionUUID" -> \
"54e5fe94-dd24-4213-9d97-557104bdf773"],
Cell[20116, 486, 4049, 81, 380, "Output", "ExpressionUUID" -> \
"c04dd54a-377b-4809-965b-ce25607f5350"]
}, Open  ]],
Cell[24180, 570, 331, 10, 6, "Text", "ExpressionUUID" -> \
"b6167599-a03f-4f54-8521-69db7cb74de1"],
Cell[24514, 582, 2052, 45, 164, "Input", "ExpressionUUID" -> \
"5b3fc63c-6dda-4fe2-9b9d-09bf51e2a164"],
Cell[CellGroupData[{
Cell[26591, 631, 1606, 40, 309, "Input", "ExpressionUUID" -> \
"d20427c6-98a3-4105-910d-267fa56f97d7"],
Cell[28200, 673, 4498, 90, 392, "Output", "ExpressionUUID" -> \
"6330efaf-7977-4e9d-a5cd-04381fd37f2d"]
}, Open  ]],
Cell[32713, 766, 709, 19, 42, "Text", "ExpressionUUID" -> \
"0c8c012e-225a-4fcd-8e53-56a5286d2dd1"],
Cell[33425, 787, 331, 10, 6, "Text", "ExpressionUUID" -> \
"72f69efd-06cb-4fe1-ac16-96210374af56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33793, 802, 287, 5, 49, "Subtitle", "ExpressionUUID" -> \
"c344dd22-3b78-4bdb-8d3d-b134e80d6a3f"],
Cell[CellGroupData[{
Cell[34105, 811, 2848, 61, 328, "Input", "ExpressionUUID" -> \
"709abf1d-afa0-493f-9a2f-8bdd1a60415d"],
Cell[36956, 874, 38837, 955, 218, "Output", "ExpressionUUID" -> \
"9d31139c-f83b-48d9-9684-12d560157428"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75830, 1834, 2088, 53, 365, "Input", "ExpressionUUID" -> \
"5e3a023c-58af-40b5-875e-79383f06ea98"],
Cell[77921, 1889, 22671, 525, 211, "Output", "ExpressionUUID" -> \
"b66469c3-ee20-4428-80f0-7a8c836fdcae"]
}, Open  ]],
Cell[100607, 2417, 331, 10, 6, "Text", "ExpressionUUID" -> \
"8bcd1428-dffe-493e-902c-e8cbde264adc"]
}, Open  ]]
}, Open  ]]
}
]
*)