448 lines
16 KiB
Mathematica
448 lines
16 KiB
Mathematica
(* Content-type: application/vnd.wolfram.mathematica *)
|
|
|
|
(*** Wolfram Notebook File ***)
|
|
(* http://www.wolfram.com/nb *)
|
|
|
|
(* CreatedBy='Mathematica 10.0' *)
|
|
|
|
(*CacheID: 234*)
|
|
(* Internal cache information:
|
|
NotebookFileLineBreakTest
|
|
NotebookFileLineBreakTest
|
|
NotebookDataPosition[ 158, 7]
|
|
NotebookDataLength[ 15948, 439]
|
|
NotebookOptionsPosition[ 14904, 398]
|
|
NotebookOutlinePosition[ 15241, 413]
|
|
CellTagsIndexPosition[ 15198, 410]
|
|
WindowFrame->Normal*)
|
|
|
|
(* Beginning of Notebook Content *)
|
|
Notebook[{
|
|
|
|
Cell[CellGroupData[{
|
|
Cell["Dopple-Pendel-Harminonograph", "Title",
|
|
CellChangeTimes->{{3.6458459678196263`*^9, 3.645846018426115*^9}}],
|
|
|
|
Cell[TextData[ButtonBox["https://en.wikipedia.org/wiki/Ellipse#General \
|
|
_parametric _form",
|
|
BaseStyle->"Hyperlink",
|
|
ButtonData->{
|
|
URL["https://en.wikipedia.org/wiki/Ellipse#General_parametric_form"], None},
|
|
ButtonNote->
|
|
"https://en.wikipedia.org/wiki/Ellipse#General_parametric_form"]], "Chapter",
|
|
CellChangeTimes->{{3.645846034119743*^9, 3.64584608314874*^9}}],
|
|
|
|
Cell[TextData[{
|
|
"Ellipsengleichung:\n",
|
|
Cell[BoxData[{
|
|
FormBox[
|
|
RowBox[{
|
|
RowBox[{"X",
|
|
RowBox[{"(", "t", ")"}]}], "=",
|
|
RowBox[{
|
|
SubscriptBox["X", "c"], "+",
|
|
RowBox[{"a", " ",
|
|
RowBox[{"cos", "(", "t", ")"}],
|
|
RowBox[{"cos", "(", "\[Phi]", ")"}]}], "-",
|
|
RowBox[{"b", " ",
|
|
RowBox[{"sin", "(", "t", ")"}],
|
|
RowBox[{"sin", "(", "\[Phi]", ")"}]}]}]}],
|
|
TraditionalForm], "\[IndentingNewLine]",
|
|
FormBox[
|
|
RowBox[{
|
|
RowBox[{"Y", "(", "t", ")"}], "=",
|
|
RowBox[{
|
|
SubscriptBox["Y", "c"], "+",
|
|
RowBox[{"a", " ",
|
|
RowBox[{"cos", "(", "t", ")"}],
|
|
RowBox[{"sin", "(", "\[Phi]", ")"}]}], "+",
|
|
RowBox[{"b", " ",
|
|
RowBox[{"sin", "(", "t", ")"}],
|
|
RowBox[{"cos", "(", "\[Phi]", ")"}]}]}]}], TraditionalForm]}],
|
|
FormatType->"TraditionalForm"]
|
|
}], "Chapter",
|
|
CellChangeTimes->{{3.6458460881370254`*^9, 3.6458462479225745`*^9}, {
|
|
3.6458479147491026`*^9, 3.645847921410314*^9}}],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"SetDirectory", "[",
|
|
RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input",
|
|
CellChangeTimes->{{3.645848877707594*^9, 3.645848911247653*^9}}],
|
|
|
|
Cell[BoxData["\<\"/media/daniel/LEGO\"\>"], "Output",
|
|
CellChangeTimes->{3.6458489086424484`*^9, 3.645849697825536*^9,
|
|
3.6458521611914625`*^9, 3.648401817247674*^9, 3.648402866245604*^9,
|
|
3.6484058574286346`*^9}]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell["Einzel-Pendel", "Subsection",
|
|
CellChangeTimes->{{3.6458462860046415`*^9, 3.6458462980946627`*^9}}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{"(*",
|
|
RowBox[{
|
|
RowBox[{"r11", "=", "1"}], ";", "\[IndentingNewLine]",
|
|
RowBox[{"r12", "=", "0.5"}], ";", "\[IndentingNewLine]",
|
|
RowBox[{"\[Omega]1", "=",
|
|
FractionBox[
|
|
RowBox[{"2", "\[Pi]"}], "360"]}], ";", "\[IndentingNewLine]",
|
|
RowBox[{"\[CapitalOmega]1", "=",
|
|
FractionBox[
|
|
RowBox[{"2", "\[Pi]"}], "36000"]}], ";", "\[IndentingNewLine]",
|
|
RowBox[{"spirale", "=",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"r11", "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[Omega]1"}], "]"}], "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}], "-",
|
|
RowBox[{"r12", "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[Omega]1"}], "]"}], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"r11", "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[Omega]1"}], "]"}], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}], "+",
|
|
RowBox[{"r12", "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[Omega]1"}], "]"}], "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}]}]}], "}"}]}], ";",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"graph", "=",
|
|
RowBox[{"Table", "[",
|
|
RowBox[{"spirale", ",",
|
|
RowBox[{"{",
|
|
RowBox[{"t", ",", "1", ",", "12000"}], "}"}]}], "]"}]}], ";",
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"ListLinePlot", "[", "graph", "]"}]}]}]], "Input",
|
|
CellChangeTimes->{{3.6458463059570765`*^9, 3.645846610781612*^9}, {
|
|
3.645846646692875*^9, 3.645846672776121*^9}, 3.6458477232743664`*^9, {
|
|
3.6458510629651337`*^9, 3.645851065944739*^9}},
|
|
EmphasizeSyntaxErrors->True]
|
|
}, Closed]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell["Doppel-Pendel", "Subsection",
|
|
CellChangeTimes->{{3.6458462860046415`*^9, 3.6458462980946627`*^9}, {
|
|
3.6458467010121703`*^9, 3.6458467026345735`*^9}}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"(*",
|
|
RowBox[{
|
|
"===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
|
|
RowBox[{"Schwingesnder", " ", "Stift"}], "===", "===", "===", "===", "===",
|
|
"===", "===", "===", "===", "===", "===", "===", "===", "==="}], "*)"}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"r11", "=", ".5"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"r12", "=", ".15"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Omega]1", "=",
|
|
FractionBox["\[Pi]", "60"]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[CapitalOmega]1", "=",
|
|
FractionBox[
|
|
RowBox[{"1", "\[Pi]"}], "3600"]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Delta]1", "=", "0.5"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Tau]1", "=",
|
|
FractionBox["0", "2000"]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"stift", "=",
|
|
RowBox[{
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "t"}], "*", "\[Tau]1"}]], "*",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"r11", "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]1"}], "+", "\[Delta]1"}], "]"}], "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}], "-",
|
|
RowBox[{"r12", "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]1"}], "+", "\[Delta]1"}], "]"}], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"r11", "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]1"}], "+", "\[Delta]1"}], "]"}], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}], "+",
|
|
RowBox[{"r12", "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]1"}], "+", "\[Delta]1"}], "]"}], "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]1"}], "]"}]}]}]}], "}"}]}]}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{"(*",
|
|
RowBox[{
|
|
"===", "===", "===", "===", "===", "===", "===", "===", "===", "===", "===",
|
|
RowBox[{"Schwingender", " ", "Tisch"}], "===", "===", "===", "===", "===",
|
|
"===", "===", "===", "===", "===", "===", "===", "===", "==="}], "*)"}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"r21", "=", "1"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"r22", "=", ".6"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Omega]2", "=",
|
|
RowBox[{"\[Omega]1", "*", "3"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[CapitalOmega]2", "=",
|
|
RowBox[{"\[CapitalOmega]1", "*",
|
|
FractionBox[
|
|
RowBox[{"-", "1"}], "3"]}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Delta]2", "=",
|
|
RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"\[Tau]2", "=",
|
|
FractionBox["0", "1000"]}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"tisch", "=",
|
|
RowBox[{
|
|
SuperscriptBox["\[ExponentialE]",
|
|
RowBox[{
|
|
RowBox[{"-", "\[Tau]2"}], "*", "t"}]], "*",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"r21", "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]2"}], "+", "\[Delta]2"}], "]"}], "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]2"}], "]"}]}], "-",
|
|
RowBox[{"r22", "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]2"}], "+", "\[Delta]2"}], "]"}], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]2"}], "]"}]}]}], ",",
|
|
RowBox[{
|
|
RowBox[{"r21", "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]2"}], "+", "\[Delta]2"}], "]"}], "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]2"}], "]"}]}], "+",
|
|
RowBox[{"r22", "*",
|
|
RowBox[{"Sin", "[",
|
|
RowBox[{
|
|
RowBox[{"t", "*", "\[Omega]2"}], "+", "\[Delta]2"}], "]"}], "*",
|
|
RowBox[{"Cos", "[",
|
|
RowBox[{"t", "*", "\[CapitalOmega]2"}], "]"}]}]}]}], "}"}]}]}],
|
|
";"}], "\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
RowBox[{"(*",
|
|
RowBox[{
|
|
RowBox[{"===", "===", "===", "===", "===", "===", "===", "===", "==="}],
|
|
"=",
|
|
RowBox[{"=",
|
|
RowBox[{
|
|
RowBox[{"==",
|
|
RowBox[{"==", "==="}]}], "=",
|
|
RowBox[{
|
|
RowBox[{"Berrechnung", "===", "===", "===", "===", "===", "=="}], "=",
|
|
RowBox[{
|
|
"===", "===", "===", "===", "===", "===", "===", "===",
|
|
"==="}]}]}]}]}], "*)"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"graph", "=",
|
|
RowBox[{"Table", "[",
|
|
RowBox[{
|
|
RowBox[{"stift", "+", "tisch"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{"t", ",", "0", ",", "20000"}], "}"}]}], "]"}]}], ";"}],
|
|
"\[IndentingNewLine]",
|
|
RowBox[{"bild", "=",
|
|
RowBox[{"ListLinePlot", "[",
|
|
RowBox[{"graph", ",",
|
|
RowBox[{"Axes", "\[Rule]", "False"}], ",",
|
|
RowBox[{"AspectRatio", "\[Rule]", "1"}], ",",
|
|
RowBox[{"PlotRange", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
|
|
RowBox[{"{",
|
|
RowBox[{
|
|
RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",",
|
|
RowBox[{"PlotStyle", "\[Rule]",
|
|
RowBox[{"{",
|
|
RowBox[{"Black", ",",
|
|
RowBox[{"Thickness", "[", "Small", "]"}]}],
|
|
RowBox[{"(*", "Thin", "*)"}], "}"}]}], ",",
|
|
RowBox[{"InterpolationOrder", "\[Rule]", "2"}]}], "]"}]}]}]}]], "Input",
|
|
CellChangeTimes->{{3.6458463059570765`*^9, 3.645846610781612*^9}, {
|
|
3.645846646692875*^9, 3.645846672776121*^9}, {3.6458467467670507`*^9,
|
|
3.645846904998129*^9}, {3.6458469594578247`*^9, 3.6458474478090825`*^9}, {
|
|
3.6458475157316017`*^9, 3.6458475382112412`*^9}, {3.64584759462094*^9,
|
|
3.6458476249941936`*^9}, {3.6458476832134957`*^9, 3.645847706535537*^9}, {
|
|
3.645847740371996*^9, 3.6458477498412127`*^9}, {3.645847792132887*^9,
|
|
3.6458477935056896`*^9}, {3.645847887183854*^9, 3.645847887901455*^9}, {
|
|
3.645847941222349*^9, 3.64584794186195*^9}, {3.645848012389674*^9,
|
|
3.645848095007419*^9}, {3.6458481321510844`*^9, 3.645848173163556*^9}, {
|
|
3.645848555208227*^9, 3.645848692223268*^9}, {3.6458487428297567`*^9,
|
|
3.6458487702702055`*^9}, {3.645848919250467*^9, 3.645848920248869*^9}, {
|
|
3.6458492221206446`*^9, 3.6458492287350564`*^9}, {3.6458493687508154`*^9,
|
|
3.645849403137782*^9}, {3.6458494353475213`*^9, 3.645849461820768*^9}, {
|
|
3.6458496223099422`*^9, 3.6458496264031763`*^9}, 3.6458496901971226`*^9, {
|
|
3.6458499131215143`*^9, 3.6458500247241096`*^9}, {3.6458500626477766`*^9,
|
|
3.6458503692507153`*^9}, {3.6458504270644164`*^9,
|
|
3.6458504492944555`*^9}, {3.645851006652234*^9, 3.6458510123306446`*^9}, {
|
|
3.645851085756774*^9, 3.64585174960034*^9}, {3.645851793842017*^9,
|
|
3.6458518577865295`*^9}, {3.645851898455801*^9, 3.645852075453712*^9}, {
|
|
3.645852218318763*^9, 3.6458522415004034`*^9}, {3.6458522902660894`*^9,
|
|
3.645852325958952*^9}, {3.645873995481081*^9, 3.645873995515833*^9}, {
|
|
3.6458740563762627`*^9, 3.6458741063471127`*^9}, {3.645874532162813*^9,
|
|
3.645874535093638*^9}, {3.6458746140503283`*^9, 3.645874623676468*^9}, {
|
|
3.6484018640524397`*^9, 3.648401866851121*^9}, {3.648401911447401*^9,
|
|
3.6484019180227547`*^9}, {3.648401988356234*^9, 3.648401999478791*^9}, {
|
|
3.6484020653663054`*^9, 3.648402072684969*^9}, {3.648402153242001*^9,
|
|
3.6484021721899347`*^9}}],
|
|
|
|
Cell[BoxData[""], "Input",
|
|
CellChangeTimes->{{3.648405993086932*^9, 3.6484059931089354`*^9}}]
|
|
}, Open ]]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell["", "Title"],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell["Neues Speichern", "Subsubsection",
|
|
CellChangeTimes->{{3.648405373942478*^9, 3.648405384316896*^9}}],
|
|
|
|
Cell[BoxData[{
|
|
RowBox[{
|
|
RowBox[{"Sort", "[",
|
|
RowBox[{"FileNames", "[",
|
|
RowBox[{"\"\<harmonograph\>\"", "~~", "___", "~~", "\"\<.png\>\""}],
|
|
"]"}], "]"}], ";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"(",
|
|
RowBox[{
|
|
RowBox[{
|
|
RowBox[{"StringCases", "[",
|
|
RowBox[{
|
|
RowBox[{"%", "[",
|
|
RowBox[{"[",
|
|
RowBox[{
|
|
RowBox[{"Length", "[", "%", "]"}], "-", "1"}], "]"}], "]"}], ",",
|
|
RowBox[{"DigitCharacter", " ", ".."}]}], "]"}], "//",
|
|
"ToExpression"}], "//", "First"}], ")"}], "+", "1"}],
|
|
";"}], "\[IndentingNewLine]",
|
|
RowBox[{
|
|
RowBox[{"Export", "[",
|
|
RowBox[{
|
|
RowBox[{"\"\<harmonograph\>\"", "~~",
|
|
RowBox[{"ToString", "[", "%", "]"}], "~~", "\"\<.png\>\""}], ",", "bild",
|
|
",",
|
|
RowBox[{"ImageSize", "\[Rule]", "2000"}]}], "]"}], ";"}]}], "Input",
|
|
CellChangeTimes->{{3.648404484592823*^9, 3.648404572242016*^9}, {
|
|
3.6484046080897427`*^9, 3.648404683501473*^9}, {3.64840475482467*^9,
|
|
3.648404775301153*^9}, {3.6484048888088903`*^9, 3.648404893175956*^9}, {
|
|
3.6484049379280787`*^9, 3.6484050085599833`*^9}, {3.6484050936277113`*^9,
|
|
3.648405288920403*^9}, {3.648405347617379*^9, 3.648405370298334*^9}, {
|
|
3.6484058116903667`*^9, 3.648405828244437*^9}}]
|
|
}, Open ]],
|
|
|
|
Cell[CellGroupData[{
|
|
|
|
Cell["Altes \[CapitalUDoubleDot]berschreiben", "Subsubsection",
|
|
CellChangeTimes->{{3.648405399900652*^9, 3.6484054118281717`*^9}}],
|
|
|
|
Cell[BoxData[
|
|
RowBox[{
|
|
RowBox[{"altenummer", "=", "\[IndentingNewLine]", "\[IndentingNewLine]",
|
|
RowBox[{"Export", "[",
|
|
RowBox[{
|
|
RowBox[{"\"\<harmonograph\>\"", "~~",
|
|
RowBox[{"ToString", "[", "altenummer", "]"}], "~~", "\"\<.png\>\""}],
|
|
",", "bild", ",",
|
|
RowBox[{"ImageSize", "\[Rule]", "2000"}]}], "]"}]}], ";"}]], "Input",
|
|
CellChangeTimes->{{3.648405483522818*^9, 3.648405501880247*^9}, {
|
|
3.6484058533269997`*^9, 3.648405853481591*^9}, {3.648406003201972*^9,
|
|
3.648406011808455*^9}},
|
|
EmphasizeSyntaxErrors->True]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
},
|
|
WindowSize->{1680, 968},
|
|
WindowMargins->{{98, Automatic}, {Automatic, 15}},
|
|
FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)",
|
|
StyleDefinitions->"Default.nb"
|
|
]
|
|
(* End of Notebook Content *)
|
|
|
|
(* Internal cache information *)
|
|
(*CellTagsOutline
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*CellTagsIndex
|
|
CellTagsIndex->{}
|
|
*)
|
|
(*NotebookFileOutline
|
|
Notebook[{
|
|
Cell[CellGroupData[{
|
|
Cell[580, 22, 113, 1, 93, "Title"],
|
|
Cell[696, 25, 371, 7, 24, "Chapter"],
|
|
Cell[1070, 34, 981, 30, 61, "Chapter"],
|
|
Cell[CellGroupData[{
|
|
Cell[2076, 68, 170, 3, 32, "Input"],
|
|
Cell[2249, 73, 217, 3, 32, "Output"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[2503, 81, 105, 1, 45, "Subsection"],
|
|
Cell[2611, 84, 1837, 47, 163, "Input"]
|
|
}, Closed]],
|
|
Cell[CellGroupData[{
|
|
Cell[4485, 136, 158, 2, 37, "Subsection"],
|
|
Cell[4646, 140, 7918, 186, 580, "Input"],
|
|
Cell[12567, 328, 94, 1, 32, InheritFromParent]
|
|
}, Open ]]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[12710, 335, 17, 0, 93, "Title"],
|
|
Cell[CellGroupData[{
|
|
Cell[12752, 339, 106, 1, 35, "Subsubsection"],
|
|
Cell[12861, 342, 1289, 32, 77, "Input"]
|
|
}, Open ]],
|
|
Cell[CellGroupData[{
|
|
Cell[14187, 379, 131, 1, 36, "Subsubsection"],
|
|
Cell[14321, 382, 555, 12, 77, "Input"]
|
|
}, Open ]]
|
|
}, Open ]]
|
|
}
|
|
]
|
|
*)
|
|
|
|
(* End of internal cache information *)
|