(* 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[ 38928, 1067] NotebookOptionsPosition[ 38227, 1038] NotebookOutlinePosition[ 38573, 1053] CellTagsIndexPosition[ 38530, 1050] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"ClearAll", "[", "\"\\"", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Vypocet", " ", "kapacity", " ", "vedeni", " ", "vuci", " ", "zemi"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "vypocet", " ", "jednoducheho", " ", "pretahu", " ", "k", " ", "odbockovemu", " ", "trafu", " ", "z", " ", "R6"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Delta]kk", "[", RowBox[{"hk_", ",", "rk_"}], "]"}], ":=", RowBox[{ FractionBox["1", "0.0242"], "*", RowBox[{"Log10", "[", FractionBox[ RowBox[{"2", "*", "hk", "*", SuperscriptBox["10", "3"]}], "rk"], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"hk_", ",", "hm_", ",", "dkm_"}], "]"}], ":=", RowBox[{ FractionBox["1", "0.0242"], "*", RowBox[{"Log10", "[", FractionBox[ SqrtBox[ RowBox[{ RowBox[{"4", "*", "hk", "*", "hm"}], "+", SuperscriptBox["dkm", "2"]}]], "dkm"], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mm", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"V", "=", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", " ", RowBox[{"8.74", "mm"}]}], ",", RowBox[{"d12", "\[Rule]", " ", RowBox[{"3", "m"}]}], ",", RowBox[{"d23", "\[Rule]", " ", RowBox[{"3", "m"}]}], ",", RowBox[{"d13", "\[Rule]", " ", RowBox[{"6", "m"}]}], ",", " ", RowBox[{"h", "\[Rule]", " ", RowBox[{"9", "m"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "pretah", " ", "tri", " ", "vodici", " ", "ve", " ", "stejne", " ", "vysce"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]mat", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d13"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d13"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}]}], "}"}]}], "}"}], "/.", "V"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]mat", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cmat", "=", RowBox[{"Inverse", "[", "\[Delta]mat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k10", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k20", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k30", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k12", "=", RowBox[{"-", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k13", "=", RowBox[{"-", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k23", "=", RowBox[{"-", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"kapacita", " ", "vedeni", " ", "v", " ", RowBox[{"\[Micro]F", "/", "km"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"k0", "=", RowBox[{"k10", "+", "k20", "+", "k30"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.702622505065138*^9, 3.7026225675960207`*^9}, { 3.702622601585725*^9, 3.7026227167790093`*^9}, {3.7026229676782527`*^9, 3.7026230188448033`*^9}, {3.7026231813771296`*^9, 3.702623220098711*^9}, { 3.7026232615634365`*^9, 3.702623311530102*^9}, 3.702623400263581*^9, { 3.70262347416781*^9, 3.70262362148193*^9}, {3.7026236608150997`*^9, 3.7026237231544576`*^9}, {3.702623765620391*^9, 3.702623954368272*^9}, { 3.7026239884059124`*^9, 3.7026240569975996`*^9}, {3.7026244049940157`*^9, 3.702624460253888*^9}, {3.7026245036294813`*^9, 3.702624516664045*^9}, { 3.7026245696295147`*^9, 3.702624643834054*^9}, {3.7026246783322716`*^9, 3.7026248618096747`*^9}, {3.7026250230744815`*^9, 3.702625063150506*^9}, { 3.702625429597025*^9, 3.7026254445598955`*^9}, {3.702625514330906*^9, 3.702625523375391*^9}, {3.702875432753315*^9, 3.7028754411361203`*^9}, { 3.703140483433693*^9, 3.7031405981347475`*^9}, {3.703140641181224*^9, 3.70314070869285*^9}, {3.7031410415378056`*^9, 3.7031410512985373`*^9}, { 3.7031411733751087`*^9, 3.7031412147166953`*^9}, {3.7031413541198688`*^9, 3.7031414053946204`*^9}, {3.703141488688352*^9, 3.703141505118332*^9}, { 3.7031417667213106`*^9, 3.703141773634096*^9}, {3.7031418938210487`*^9, 3.7031421107826204`*^9}, {3.7032178605323586`*^9, 3.7032178758812704`*^9}}], Cell[BoxData["0.015495616179717016`"], "Output", CellChangeTimes->{ 3.7026237071491814`*^9, 3.7026240580118413`*^9, {3.7026246313671064`*^9, 3.7026246482639017`*^9}, 3.702624686387019*^9, 3.702625069135494*^9, { 3.702625524214345*^9, 3.7026255285429754`*^9}, {3.7031420418555655`*^9, 3.703142053199184*^9}, {3.7031420974311066`*^9, 3.703142111731541*^9}, 3.7032179228387785`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "vedeni", " ", "z", " ", "odbo\[CHacek]kov\[EAcute]ho", " ", "na", " ", "blokove", " ", "trafo"}], ",", " ", "jednoduchy"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"V", "=", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", " ", RowBox[{"3.98", "mm"}]}], ",", RowBox[{"d12", "\[Rule]", " ", RowBox[{"1", "m"}]}], ",", RowBox[{"d23", "\[Rule]", " ", RowBox[{"1", "m"}]}], ",", RowBox[{"d13", "\[Rule]", " ", RowBox[{"2", "m"}]}], ",", " ", RowBox[{"h", "\[Rule]", " ", RowBox[{"5", "m"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "pretah", " ", "tri", " ", "vodici", " ", "ve", " ", "stejne", " ", "vysce"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]mat", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d13"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d13"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}]}], "}"}]}], "}"}], "/.", "V"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]mat", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cmat", "=", RowBox[{"Inverse", "[", "\[Delta]mat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k10", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k20", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k30", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "kapacita", " ", "vedeni", " ", "vuci", " ", "zemi", " ", "v", " ", RowBox[{"\[Micro]F", "/", "km"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"k0", "=", RowBox[{"k10", "+", "k20", "+", "k30"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.7026256326344213`*^9, 3.702625679689512*^9}, { 3.702625776276434*^9, 3.702625840878564*^9}, {3.7026258820145445`*^9, 3.702625902848416*^9}, 3.7026259365124063`*^9, {3.7028755027537217`*^9, 3.7028755281081934`*^9}, {3.703141437531692*^9, 3.703141447335823*^9}, { 3.7031415138869815`*^9, 3.70314152133554*^9}, {3.703142374032521*^9, 3.7031423748022337`*^9}, {3.7032178652386365`*^9, 3.703217887694806*^9}}], Cell[BoxData["0.013962616964884333`"], "Output", CellChangeTimes->{3.7026259512727065`*^9, 3.703142380753787*^9, 3.70321792582747*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "jednoduch\[EAcute]", " ", "vedeni", " ", "od", " ", "blokoveho", " ", "trafa", " ", "k", " ", "R110"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"V", "=", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", " ", RowBox[{"3.98", "mm"}]}], ",", RowBox[{"d12", "\[Rule]", " ", RowBox[{"3", "m"}]}], ",", RowBox[{"d23", "\[Rule]", " ", RowBox[{"3", "m"}]}], ",", RowBox[{"d31", "\[Rule]", " ", RowBox[{"6", "m"}]}], ",", RowBox[{"h", "\[Rule]", " ", RowBox[{"10", "m"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "pretah", " ", "deviti", " ", "vodici", " ", "ve", " ", "stejne", " ", "vysce"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]mat", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d31"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d31"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}]}], "}"}]}], "}"}], "/.", "V"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]mat", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cmat", "=", RowBox[{"Inverse", "[", "\[Delta]mat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k10", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k20", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k30", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "kapacita", " ", "vedeni", " ", "vuci", " ", "zemi", " ", "v", " ", RowBox[{"\[Micro]F", "/", "km"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"k0", "=", RowBox[{"k10", "+", "k20", "+", "k30"}]}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdxU8oQwEAB+CxRslz2AGz2LSi1jzMDnMY21ot9hw2moumFsVBHPzJ0g68 g41MWeYwK0tCbmIaMa/VdtlNyja1knrrkTKbk/F+Dl9fq3PWNlkpEAgkPNyi yj+odzlD8NWewdUfcn0Pf+rdZcTKBasZjyQ0NuwOEA78Pa1YxLkVkwsTnOX/ 5gM7jTskygCe0teG8OZF9hRXmU8ucZtcdY39yxV3OPQpjuHGqCOOaygfi9V7 S1+YHguLNPxMxEfgoJSSYeWcuB2z9y+9OCOt68eDmcQQdubCVnxY/FnF9kRh Hafz+x58ZLJs4fnz+DZ2ax8jZ/x9DdkrXIqSMUy+zTBYW7ImcdeNN4U9hXov GeAM1IBxAx8XJ3awVtftx02KdBmXn+hfzOrywk7+2yQjwuz4WnaYXygbfcZ/ Tc3KmQ== "]], Cell[BoxData["0.014068141065505121`"], "Output", CellChangeTimes->{{3.7026293809488354`*^9, 3.702629400990362*^9}, 3.7026294535291243`*^9, {3.702629497710458*^9, 3.7026295109207077`*^9}, { 3.703142386410104*^9, 3.7031423974063544`*^9}, {3.7031424350539207`*^9, 3.703142447904709*^9}, 3.7032179277829638`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "pretah", " ", "od", " ", "generatoru", " ", "k", " ", "blokovemu", " ", "tafu"}], ",", " ", RowBox[{"kazda", " ", "faze", " ", "tremi", " ", "vodici"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"V", "=", RowBox[{"{", RowBox[{ RowBox[{"r", "\[Rule]", RowBox[{"15.45", "mm"}]}], ",", RowBox[{"d12", "\[Rule]", " ", RowBox[{"0.01", "m"}]}], ",", RowBox[{"d23", "\[Rule]", " ", RowBox[{"0.01", "m"}]}], ",", RowBox[{"d31", "\[Rule]", " ", RowBox[{"0.02", "m"}]}], ",", RowBox[{"d14", "\[Rule]", RowBox[{"3", "m"}]}], ",", RowBox[{"d45", "\[Rule]", RowBox[{"0.01", "m"}]}], ",", RowBox[{"d56", "\[Rule]", "0.01"}], ",", RowBox[{"d46", "\[Rule]", "0.02"}], ",", RowBox[{"d47", "\[Rule]", RowBox[{"3", "m"}]}], ",", RowBox[{"d78", "\[Rule]", "0.01"}], ",", RowBox[{"d89", "\[Rule]", "0.01"}], ",", RowBox[{"d79", "\[Rule]", "0.02"}], ",", RowBox[{"h", "\[Rule]", " ", RowBox[{"9", "m"}]}]}], "}"}]}], ";", RowBox[{"(*", RowBox[{ "pretah", " ", "deviti", " ", "vodici", " ", "ve", " ", "stejne", " ", "vysce"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Delta]mat", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d31"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d14"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d45"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d46"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d78"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d79"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d12"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "-", "d12"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d14"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d45"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "-", "d78"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d78"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d31"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d23"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "-", "d31"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "-", "d12"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d14"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "-", "d79"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "-", "d89"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d14"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "-", "d12"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "-", "d31"}]}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d45"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d46"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d47"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "+", "d78"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "+", "d79"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d12"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d14"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "-", "d23"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d45"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d56"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "-", "d45"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d47"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "+", "d89"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d31"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d23"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d14"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d46"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d56"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "-", "d46"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "-", "d56"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d47"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d12"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "-", "d31"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d47"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "-", "d45"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "-", "d46"}]}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d78"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d79"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d78"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "-", "d23"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "+", "d78"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d47"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "-", "d56"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d78"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d89"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d79"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47", "+", "d89"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d14", "+", "d47"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "+", "d79"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", RowBox[{"d47", "+", "d89"}]}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d47"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d79"}], "]"}], ",", RowBox[{"\[Delta]km", "[", RowBox[{"h", ",", "h", ",", "d89"}], "]"}], ",", RowBox[{"\[Delta]kk", "[", RowBox[{"h", ",", "r"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "/.", "V"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Delta]mat", "//", "MatrixForm"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cmat", "=", RowBox[{"Inverse", "[", "\[Delta]mat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k10", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"1", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k20", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"2", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k30", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"3", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k40", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"4", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k50", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"5", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k60", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"6", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k70", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"7", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k80", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"8", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k90", "=", RowBox[{ RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "1"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "2"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "3"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "4"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "5"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "6"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "7"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "8"}], "]"}], "]"}], "+", RowBox[{"cmat", "[", RowBox[{"[", RowBox[{"9", ",", "9"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "kapacita", " ", "vedeni", " ", "vuci", " ", "zemi", " ", "v", " ", RowBox[{"\[Micro]F", "/", "km"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"k0", "=", RowBox[{ "k10", "+", "k20", "+", "k30", "+", "k40", "+", "k50", "+", "k60", "+", "k70", "+", "k80", "+", "k90"}]}]}]}]], "Input", CellChangeTimes->{{3.7026295452705297`*^9, 3.702629595704877*^9}, { 3.702629633762412*^9, 3.702629637918619*^9}, {3.703141580665224*^9, 3.703141603072553*^9}, {3.7031424580752163`*^9, 3.7031424589134254`*^9}, { 3.7032179023801136`*^9, 3.703217914336952*^9}}], Cell[BoxData["0.016064049660892248`"], "Output", CellChangeTimes->{3.702629644506548*^9, 3.7031424602345214`*^9, 3.703217929828352*^9}] }, Open ]] }, WindowSize->{1264, 742}, WindowMargins->{{-5, Automatic}, {Automatic, 0}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 76, 1, 31, "Input"], Cell[CellGroupData[{ Cell[659, 25, 6609, 176, 456, "Input"], Cell[7271, 203, 397, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7705, 214, 4145, 113, 252, "Input"], Cell[11853, 329, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12028, 336, 4090, 114, 212, "Input"], Cell[16121, 452, 320, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16478, 461, 21591, 570, 752, "Input"], Cell[38072, 1033, 139, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)