potências circ1 (2)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 9.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 39062, 1012]
NotebookOptionsPosition[ 36494, 930]
NotebookOutlinePosition[ 37101, 952]
CellTagsIndexPosition[ 37058, 949]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["",
 FontSize->48,
 FontColor->RGBColor[0, 0, 1]]], "Title",
 CellChangeTimes->{{3.5962950386379747`*^9, 3.596295046789441*^9}, {
 3.5962952791897335`*^9, 3.5962952792057343`*^9}, {3.5962953191030164`*^9, 
 3.5962953202340813`*^9}, 3.6122914663996487`*^9},
 TextAlignment->Center],
Cell[BoxData[{
 StyleBox[
 RowBox[{
 RowBox[{"\[Mu]0", "=", 
 RowBox[{"4.", " ", "\[Pi]", " ", 
 RowBox[{"10", "^", 
 RowBox[{"(", 
 RowBox[{"\[Minus]", "7"}], ")"}]}]}]}], ";"}],
 FontSize->16], "\[IndentingNewLine]", 
 StyleBox[
 RowBox[{
 RowBox[{"\[Epsilon]0", "=", 
 RowBox[{"8.854", "\[Times]", 
 RowBox[{"10", "^", 
 RowBox[{"(", 
 RowBox[{"\[Minus]", "12"}], ")"}]}]}]}], ";"}],
 FontSize->16], "\[IndentingNewLine]", 
 StyleBox[
 RowBox[{
 RowBox[{"\[Omega]", "=", 
 RowBox[{"2", " ", "\[Pi]", " ", "60"}]}], ";"}],
 FontSize->16], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"k", "=", "1000"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6122973146581497`*^9, 3.612297440008319*^9}, {
 3.612297933777561*^9, 3.612298067573214*^9}, {3.6123488507283216`*^9, 
 3.61234885594462*^9}, {3.6123512109483185`*^9, 3.6123512264162035`*^9}}],
Cell[CellGroupData[{
Cell["", "Subsubtitle",
 CellChangeTimes->{{3.5962953658206882`*^9, 3.596295421420869*^9}, {
 3.5962957931571307`*^9, 3.5962958003065395`*^9}, {3.596296366183906*^9, 
 3.5962963748284006`*^9}, {3.5964003232542953`*^9, 
 3.5964003246193733`*^9}, {3.61221797088964*^9, 3.6122180102478905`*^9}, {
 3.6122734347632976`*^9, 3.612273445377905*^9}, {3.612276257727762*^9, 
 3.6122762583527975`*^9}, {3.6122763763525467`*^9, 
 3.6122764330667906`*^9}, {3.6122764857138023`*^9, 
 3.6122764857308035`*^9}, {3.612276698991001*^9, 3.6122767441295824`*^9}, {
 3.6122767937824225`*^9, 3.612276919490613*^9}, {3.6122771431084027`*^9, 
 3.6122771682268395`*^9}, 3.6122773362934523`*^9, {3.6122803603894205`*^9, 
 3.6122803639536247`*^9}, 3.612813883484706*^9}],
Cell["", "Subsubtitle",
 CellChangeTimes->{{3.5962953658206882`*^9, 3.596295421420869*^9}, {
 3.5962957931571307`*^9, 3.5962958003065395`*^9}, {3.596296366183906*^9, 
 3.5962963748284006`*^9}, {3.5964003232542953`*^9, 3.5964003246193733`*^9}, {
 3.61221797088964*^9, 3.6122180102478905`*^9}, {3.6122734347632976`*^9, 
 3.612273445377905*^9}, {3.612276257727762*^9, 3.6122762583527975`*^9}, {
 3.6122763763525467`*^9, 3.6122764330667906`*^9}, {3.6122764857138023`*^9, 
 3.612276488309951*^9}}],
Cell[TextData[StyleBox["Circuito 1",
 FontFamily->"Calibri",
 FontSize->22,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.5962958882475696`*^9}, {3.596296729494686*^9, 
 3.596296729501687*^9}, {3.5962974540011253`*^9, 3.5962974692719994`*^9}, 
 3.5963602708032413`*^9, {3.6122738492760067`*^9, 3.612273855841382*^9}, 
 3.6122764833096647`*^9}],
Cell["", "Text",
 CellChangeTimes->{{3.6122738666209984`*^9, 3.6122738746884604`*^9}}],
Cell[TextData[{
 StyleBox["\tTens\[ATilde]o de opera\[CCedilla]\[ATilde]o:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" 230 kV",
 FontFamily->"Calibri",
 FontSize->18]
}], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.5962958915227575`*^9}, {3.5962963992797995`*^9, 
 3.596296417500841*^9}, 3.596296565372299*^9, 3.6122180227736073`*^9, {
 3.612218803064237*^9, 3.6122188373731995`*^9}, {3.612218991969042*^9, 
 3.612218992914096*^9}, {3.6122738791327143`*^9, 3.6122739198950453`*^9}, 
 3.612273984821759*^9, {3.6122810150568657`*^9, 3.6122810150608664`*^9}}],
Cell[BoxData[
 RowBox[{" ", 
 RowBox[{
 RowBox[{"ULL", "=", 
 RowBox[{"230", "k"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6123511790404935`*^9, 3.6123512521056724`*^9}}],
Cell[TextData[{
 StyleBox["\t ",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["Nc(n\[UAcute]mero condutores por fase): ",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox["1",
 FontFamily->"Calibri",
 FontSize->18]
}], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.5962958915227575`*^9}, {3.5962963992797995`*^9, 
 3.596296417500841*^9}, 3.596296565372299*^9, 3.6122180227736073`*^9, {
 3.612218803064237*^9, 3.6122188373731995`*^9}, {3.612218991969042*^9, 
 3.612218992914096*^9}, {3.6122738791327143`*^9, 3.6122739198950453`*^9}, 
 3.612273984821759*^9, {3.6122810150568657`*^9, 3.6122810842708244`*^9}}],
Cell[BoxData[
 RowBox[{" ", 
 RowBox[{
 RowBox[{"Nc", "=", "1"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.612351270389718*^9, 3.6123512801652775`*^9}}],
Cell[TextData[{
 StyleBox["\tCondutores de fase:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" grosbeak",
 FontFamily->"Calibri",
 FontSize->18]
}], "Text",
 CellChangeTimes->{{3.612273932955793*^9, 3.6122739365199966`*^9}, 
 3.6122739856768084`*^9, 3.612351286949665*^9}],
Cell[TextData[{
 StyleBox["\t\t",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["Raio externo:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" ",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["12,573mm",
 FontFamily->"Calibri",
 FontSize->16],
 StyleBox["\n\t\t ",
 FontFamily->"Calibri"],
 StyleBox["Raio interno:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" 7",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox[",456mm",
 FontFamily->"Calibri",
 FontSize->16],
 StyleBox["\n\t \t ",
 FontFamily->"Calibri"],
 StyleBox["Resistividade equivalente:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" ",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["29.538n\[CapitalOmega].m",
 FontFamily->"Calibri",
 FontSize->16]
}], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.5962958915227575`*^9}, {3.5962963992797995`*^9, 
 3.596296417500841*^9}, 3.596296565372299*^9, 3.6122180227736073`*^9, {
 3.612218803064237*^9, 3.6122188373731995`*^9}, {3.612218991969042*^9, 
 3.612218992914096*^9}, {3.6122738791327143`*^9, 3.6122738816008554`*^9}, {
 3.6122739487936983`*^9, 3.6122739995176*^9}}],
Cell[BoxData[
 RowBox[{"\t ", 
 RowBox[{
 RowBox[{
 RowBox[{"rLinha", "=", 
 RowBox[{"29.538", "*", 
 RowBox[{"(", 
 RowBox[{"10", "^", 
 RowBox[{"-", "9"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 "\t ", 
 RowBox[{
 RowBox[{"raioLinhaInt", " ", "=", "0.007456"}], ";"}], " ", 
 "\[IndentingNewLine]", "\t ", 
 RowBox[{
 RowBox[{"raioLinhaExt", " ", "=", " ", "0.012573"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6122997045488434`*^9, 3.612299801715401*^9}, 
 3.612300085768648*^9, {3.612348865857187*^9, 3.612348866215207*^9}, {
 3.6123516731237535`*^9, 3.612351703732504*^9}}],
Cell["", "Text",
 CellChangeTimes->{{3.6122997837493734`*^9, 3.612299784086393*^9}}],
Cell[TextData[StyleBox["",
 FontSize->18]], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.59629592951193*^9},
{3.596296272272535*^9, 
 3.596296274531664*^9}, {3.596296305144415*^9, 3.5962963297378216`*^9}, {
 3.5962965316093683`*^9, 3.596296532050393*^9}, {3.596296582283266*^9, 
 3.5962965822852664`*^9}}],
Cell[TextData[{
 StyleBox["\t ",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["Cabos para-raios:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" 3/8\[CloseCurlyQuote]\[CloseCurlyQuote]EHS",
 FontFamily->"Calibri",
 FontSize->18]
}], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.59629592951193*^9}, {3.596296272272535*^9, 
 3.596296274531664*^9}, {3.596296305144415*^9, 3.5962963297378216`*^9}, {
 3.5962965316093683`*^9, 3.596296532050393*^9}, {3.596296582283266*^9, 
 3.5962966101188583`*^9}, {3.612274009294159*^9, 3.612274033050518*^9}}],
Cell[TextData[{
 StyleBox["\t\t",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["Raio externo:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" ",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["4,570mm",
 FontFamily->"Calibri",
 FontSize->16]
}], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.59629592951193*^9}, {3.596296272272535*^9, 
 3.596296274531664*^9}, {3.596296305144415*^9, 3.5962963297378216`*^9}, {
 3.5962965316093683`*^9, 3.596296532050393*^9}, {3.596296582283266*^9, 
 3.5962966190443687`*^9}, {3.6122740354986577`*^9, 3.6122740357516727`*^9}}],
Cell[TextData[{
 StyleBox["\t\t",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["Resistividade equivalente:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"],
 StyleBox[" ",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["275.05n\[CapitalOmega].m",
 FontFamily->"Calibri",
 FontSize->16]
}], "Text",
 CellChangeTimes->{{3.596295827606101*^9, 3.5962958345855007`*^9}, {
 3.596295888240569*^9, 3.59629592951193*^9}, {3.596296272272535*^9, 
 3.596296274531664*^9}, {3.596296305144415*^9, 3.5962963297378216`*^9}, {
 3.5962965316093683`*^9, 3.596296532050393*^9}, {3.596296582283266*^9, 
 3.5962966386704917`*^9}, {3.6122190130792494`*^9, 3.6122190165314465`*^9}, {
 3.6122740402069273`*^9, 3.6122740404999437`*^9}}],
Cell[BoxData[
 RowBox[{"\t ", 
 RowBox[{
 RowBox[{
 RowBox[{"rParaRaio", "=", 
 RowBox[{"275.05", "*", 
 RowBox[{"(", 
 RowBox[{"10", "^", 
 RowBox[{"-", "9"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 "\t ", 
 RowBox[{
 RowBox[{"raioParaRaioExt", " ", "=", " ", "0.004570"}], 
 ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6122997658443494`*^9, 3.6122998575395937`*^9}, 
 3.612300079982317*^9, {3.6123518628936076`*^9, 3.612351899583706*^9}}],
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.612300082881483*^9, 3.6123000829114847`*^9}}],
Cell[TextData[StyleBox["\tPara a melhor visualiza\[CCedilla]\[ATilde]o do \
problema, a distribui\[CCedilla]\[ATilde]o de um dos circuitos ser\[AAcute] \
mostrada:",
 FontFamily->"Calibri",
 FontSize->18]], "Text",
 CellChangeTimes->{{3.5962970236775126`*^9, 3.5962971039941063`*^9}, {
 3.5962971965283995`*^9, 3.5962971965303993`*^9}, {3.59629730126939*^9, 
 3.59629730442457*^9}, {3.59629738239303*^9, 3.596297389937462*^9}, {
 3.6122186814522815`*^9, 3.6122186814572816`*^9}, {3.6122740811102667`*^9, 
 3.612274089773762*^9}, {3.6122751766749296`*^9, 3.612275178492033*^9}, 
 3.6123520124461613`*^9}],
Cell["", "Text",
 CellChangeTimes->{{3.5962970236775126`*^9, 3.5962971039941063`*^9}, {
 3.5962971965283995`*^9, 3.5962971965303993`*^9}, {3.59629730126939*^9, 
 3.59629730442457*^9}, {3.59629738239303*^9, 3.596297389937462*^9}, {
 3.6122186814522815`*^9, 3.612218682444338*^9}, 3.6122187740305767`*^9}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\t", 
 RowBox[{
 RowBox[{
 RowBox[{
 StyleBox["coordenadasx",
 FontSize->16], "=", " ", 
 RowBox[{"{", 
 RowBox[{"0", ",", "7", ",", "14", ",", "0", ",", " ", "14"}], "}"}]}], 
 ";"}], "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{
 StyleBox["coordenadasy",
 FontSize->16], "=", " ", 
 RowBox[{"{", 
 RowBox[{"10", ",", " ", "10", ",", "10", ",", "15", ",", "15"}], 
 "}"}]}], ";"}], "\[IndentingNewLine]", "\t", 
 RowBox[{"Show", "[", 
 RowBox[{
 RowBox[{"Table", "[", 
 RowBox[{
 RowBox[{"Graphics", "[", 
 RowBox[{"Disk", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"coordenadasx", "[", 
 RowBox[{"[", "i", "]"}], "]"}], ",", 
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "0.25"}], "]"}], 
 "]"}], ",", " ", 
 RowBox[{"{", 
 RowBox[{"i", ",", "5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
 "\t\t\t\t\t", 
 RowBox[{"PlotRange", " ", "\[Rule]", " ", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "1"}], ",", " ", "15"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"0", ",", " ", "20"}], "}"}]}], "}"}]}], ",", " ", 
 RowBox[{"Frame", " ", "\[Rule]", " ", "True"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.596297924169018*^9, 3.596297941244994*^9}, {
 3.596298005552673*^9, 3.5962980562725735`*^9}, {3.596298322538803*^9, 
 3.5962983257829885`*^9}, {3.596298630513418*^9, 3.5962986394169273`*^9}, {
 3.5962994641981025`*^9, 3.596299477948889*^9}, {3.5962995538532305`*^9, 
 3.5962996659436417`*^9}, {3.596299941878424*^9, 3.5962999559732304`*^9}, {
 3.59630008640069*^9, 3.596300105505783*^9}, {3.596300136540558*^9, 
 3.5963002367812915`*^9}, {3.596300281695861*^9, 3.596300289274294*^9}, {
 3.6122186874646254`*^9, 3.6122187464579997`*^9}, {3.6122192294276237`*^9, 
 3.612219244152466*^9}, {3.612219276481315*^9, 3.61221928373073*^9}, {
 3.61227409270993*^9, 3.612274095945115*^9}, {3.612274167154188*^9, 
 3.612274270120077*^9}, {3.612274382968532*^9, 3.612274408212976*^9}, {
 3.612274481158148*^9, 3.6122744829512506`*^9}, {3.6122749408354397`*^9, 
 3.6122749705481396`*^9}, {3.6122750095443697`*^9, 3.612275022537113*^9}, 
 3.6122750583321605`*^9, {3.612275093342163*^9, 3.6122751165134883`*^9}, {
 3.6122752362933393`*^9, 3.6122752401845617`*^9}, {3.61227545047459*^9, 
 3.6122755013094974`*^9}, {3.6122756503960247`*^9, 
 3.6122756526011505`*^9}, {3.612293915715741*^9, 3.6122939170678186`*^9}, {
 3.6122941139630804`*^9, 3.6122941247366962`*^9}, {3.612352052858473*^9, 
 3.612352058259782*^9}, {3.612362565082738*^9, 3.612362565264748*^9}, 
 3.612363329711472*^9, {3.612869437357335*^9, 3.6128694421246076`*^9}}],
Cell[BoxData[
 GraphicsBox[{DiskBox[{0, 10}, 0.25], DiskBox[{7, 10}, 0.25], 
 DiskBox[{14, 10}, 0.25], DiskBox[{0, 15}, 0.25], DiskBox[{14, 15}, 0.25]},
 Frame->True,
 PlotRange->{{-1, 15}, {0, 20}}]], "Output",
 CellChangeTimes->{3.612869458229529*^9}]
}, Open ]],
Cell[TextData[{
 StyleBox["\t",
 FontFamily->"Calibri",
 FontSize->18],
 StyleBox["Calculando a matriz geometrica da linha:",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.5964132725003495`*^9, 3.5964133295666137`*^9}, 
 3.612278623834096*^9, {3.6122787228487587`*^9, 3.612278752923479*^9}, {
 3.6122976021205916`*^9, 3.612297607812917*^9}, 3.612352082074144*^9}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\t", "\[IndentingNewLine]", "\t\t", 
 RowBox[{
 RowBox[{
 RowBox[{"matrizGeometriaLinha", "=", " ", 
 RowBox[{"N", "[", 
 RowBox[{"Table", "[", 
 RowBox[{
 RowBox[{"If", "[", 
 RowBox[{
 RowBox[{"i", "\[Equal]", "j"}], ",", 
 RowBox[{"If", "[", 
 RowBox[{
 RowBox[{"i", "\[LessEqual]", " ", "3"}], ",", 
 RowBox[{"(",
FractionBox[
 RowBox[{"2", 
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "i", "]"}], "]"}]}], "raioLinhaExt"], ")"}], ",", 
 RowBox[{"(", 
 FractionBox[
 RowBox[{"2", 
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "i", "]"}], "]"}]}], "raioParaRaioExt"], ")"}]}],
 "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t\t", 
 RowBox[{"(", 
 FractionBox[
 SqrtBox[
 RowBox[{
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{
 RowBox[{"coordenadasx", "[", 
 RowBox[{"[", "i", "]"}], "]"}], "-", 
 RowBox[{"coordenadasx", "[", 
 RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "2"], "+", 
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "i", "]"}], "]"}], "+", 
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "2"]}]], 
 SqrtBox[
 RowBox[{
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{
 RowBox[{"coordenadasx", "[", 
 RowBox[{"[", "i", "]"}], "]"}], "-", 
 RowBox[{"coordenadasx", "[", 
 RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "2"], "+", 
 SuperscriptBox[
 RowBox[{"(", 
 RowBox[{
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "i", "]"}], "]"}], "-", 
 RowBox[{"coordenadasy", "[", 
 RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "2"]}]]], ")"}]}], 
 "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}], "]"}]}], ";"}], 
 "\[IndentingNewLine]", "\t\t ", 
 RowBox[{"MatrixForm", "[", "matrizGeometriaLinha", "]"}], 
 "\[IndentingNewLine]", "\t\t\t\t\t"}]}]], "Input",
 CellChangeTimes->{{3.5963851467694597`*^9, 3.59638514680066*^9}, {
 3.5963852902585115`*^9, 3.5963853049069376`*^9}, {3.596744276621547*^9, 
 3.5967442795887165`*^9}, {3.6122191000382233`*^9, 
 3.6122191688081565`*^9}, {3.612278736807557*^9, 3.612278743105918*^9}, {
 3.6122788291758404`*^9, 3.612278921413116*^9}, 3.6122789778783455`*^9, 
 3.6122795273977766`*^9, {3.6122799085735784`*^9, 3.6122799121527834`*^9}, {
 3.6122833461161947`*^9, 3.6122833580528774`*^9}, 3.612297610506071*^9, {
 3.6122992318638077`*^9, 3.612299234269945*^9}, {3.612299336952818*^9, 
 3.61229933820789*^9}, 3.612351309316945*^9, {3.6123517177643065`*^9, 
 3.6123517184763474`*^9}, {3.612352086302386*^9, 3.6123520978980494`*^9}, {
 3.6123521637338147`*^9, 3.6123523308793745`*^9}, {3.612352363524242*^9, 
 3.612352467880211*^9}, {3.612352524022422*^9, 3.6123525278556414`*^9}, {
 3.612352580614659*^9, 3.6123526141865788`*^9}, {3.6123526553099313`*^9, 
 3.612352857346487*^9}, {3.6123528957316823`*^9, 3.6123529450505037`*^9}, {
 3.612352977056334*^9, 3.6123530338185806`*^9}, {3.612353153232411*^9, 
 3.612353291775335*^9}, 3.6123537933820252`*^9, 3.6123633985864115`*^9}],
Cell[BoxData[
 TagBox[
 RowBox[{"(", "\[NoBreak]", GridBox[{
 {"1590.710252127575`", "3.02708858577387`", "1.7437936593905288`", "5.`",
 "1.927415919488275`"},
 {"3.02708858577387`", "1590.710252127575`", "3.02708858577387`", 
 "3.017964232410336`", "3.017964232410336`"},
 {"1.7437936593905288`", "3.02708858577387`", "1590.710252127575`", 
 "1.927415919488275`", "5.`"},
 {"5.`", "3.017964232410336`", "1.927415919488275`", "6564.551422319475`",
 "2.3647064796066926`"},
 {"1.927415919488275`", "3.017964232410336`", "5.`", 
 "2.3647064796066926`", "6564.551422319475`"}
 },
 GridBoxAlignment->{
 "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
 "RowsIndexed" -> {}},
 GridBoxSpacings->{"Columns" -> {
 Offset[0.27999999999999997`], {
 Offset[0.7]}, 
 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
 Offset[0.2], {
 Offset[0.4]}, 
 Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
 Function[BoxForm`e$, 
 MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.612363412669217*^9, 3.612867198743294*^9, 
 3.612868027732709*^9, 3.6128686049047213`*^9, 3.612868707808607*^9, 
 3.6128693898476176`*^9, 3.6128694582765317`*^9}]
}, Open ]],
Cell[BoxData["\t"], "Input",
 CellChangeTimes->{{3.596310324427272*^9, 3.596310334063823*^9}, 
 3.5963852611020603`*^9, 3.596734538255393*^9, 3.612278843104637*^9, 
 3.612279409303022*^9, 3.6122794807011056`*^9, 3.6122795302319384`*^9, {
 3.6122797032838364`*^9, 3.6122797227649508`*^9}, 3.612279817702381*^9, {
 3.6122798839921722`*^9, 3.612279884333192*^9}, {3.61227991454492*^9, 
 3.612279922560378*^9}, {3.612283379313093*^9, 3.61228338555245*^9}, {
 3.6122976333733788`*^9, 3.612297643900981*^9}, {3.6122976906186533`*^9, 
 3.612297699174143*^9}, 3.6122977502240624`*^9, 3.612297800831957*^9, 
 3.6122993931220307`*^9, 3.6123015388637605`*^9, {3.6123531131881204`*^9, 
 3.612353116193292*^9}, 3.612353243747588*^9}],
Cell[TextData[StyleBox["\tCalculo da impedancia da linha ZL \
(\[CapitalOmega]/m):",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.6122977938885603`*^9, 3.6122978132836695`*^9}, {
 3.612298453941313*^9, 3.61229847032725*^9}, {3.6123033165884404`*^9, 
 3.61230331903258*^9}, {3.612350806894208*^9, 3.612350965841299*^9}}],
Cell[BoxData[
 RowBox[{"\t", 
 RowBox[{
 RowBox[{
 RowBox[{
 StyleBox["matrizImp",
 FontSize->14], 
 StyleBox["=",
 FontSize->14], 
 RowBox[{GridBox[{
 {"rLinha", "0", "0", "0", "0"},
 {"0", "rLinha", "0", "0", "0"},
 {"0", "0", "rLinha", "0", "0"},
 {"0", "0", "0", "rParaRaio", "0"},
 {"0", "0", "0", "0", "rParaRaio"}
 }], "+", 
 RowBox[{
 StyleBox[
 RowBox[{"(", 
 FractionBox[
 RowBox[{"\[ImaginaryJ]", "*", "\[Omega]", "*", "\[Mu]0"}], 
 RowBox[{"2", "*", "\[Pi]"}]], ")"}],
 FontSize->14], 
 RowBox[{
 StyleBox["Log",
 FontSize->14], 
 StyleBox["[",
 FontSize->14], "matrizGeometriaLinha", "]"}]}]}]}], ";"}], 
 "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{"MatrixForm", "[", "matrizImp", "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6122978316697206`*^9, 3.6122978413802767`*^9}, {
 3.6122978872258987`*^9, 3.6122979113172765`*^9}, {3.612298094376747*^9, 
 3.6122980958018284`*^9}, {3.6122981267145967`*^9, 3.612298178329549*^9}, {
 3.6122982291404552`*^9, 3.612298239826066*^9}, {3.6122983352385235`*^9, 
 3.612298340628832*^9}, {3.612299132882146*^9, 3.6122991444178057`*^9}, {
 3.612299900721064*^9, 3.6123000242871313`*^9}, 3.612300126385971*^9, {
 3.612301510571142*^9, 3.6123015109661646`*^9}, {3.612301547482253*^9, 
 3.612301564999255*^9}, {3.612303390277655*^9, 3.6123033908826895`*^9}, {
 3.612349575834795*^9, 3.6123496252426214`*^9}, 3.6123537974622583`*^9}],
Cell["", "Text",
 CellChangeTimes->{{3.612303378771997*^9, 3.612303378772997*^9}}],
Cell[TextData[StyleBox["\t Redu\[CCedilla]\[ATilde]o de Kron para \
calculo dos elementos de sequencia positiva da linha:",
 FontSize->16]], "Text",
 CellChangeTimes->{{3.6123003760382504`*^9, 3.612300432603486*^9}, 
 3.6123032912429905`*^9, {3.612303370714536*^9, 3.612303397655077*^9}}],
Cell[BoxData[
 RowBox[{"\t\t", 
 RowBox[{
 RowBox[{"matrizImpReduzida", "=", 
 RowBox[{
 RowBox[{"matrizImp", "[", 
 RowBox[{"[", 
 RowBox[{
RowBox[{"1", ";;", "3"}], ",", 
 RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], "-", 
 RowBox[{
 RowBox[{"matrizImp", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"1", ";;", "3"}], ",", 
 RowBox[{"4", ";;", "5"}]}], "]"}], "]"}], ".", 
 RowBox[{"Inverse", "[", 
 RowBox[{"matrizImp", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"4", ";;", "5"}], ",", 
 RowBox[{"4", ";;", "5"}]}], "]"}], "]"}], "]"}], ".", 
 RowBox[{"matrizImp", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"4", ";;", "5"}], ",", 
 RowBox[{"1", ";;", "3"}]}], "]"}], "]"}]}]}]}], ";"}], 
 "\t\t\t\t\t "}]], "Input",
 CellChangeTimes->{{3.6123004618501587`*^9, 3.6123004623391867`*^9}, {
 3.612300666899887*^9, 3.612300766540586*^9}, {3.612300831805319*^9, 
 3.6123008364575853`*^9}, {3.6123008864894466`*^9, 3.6123010089164495`*^9}, {
 3.6123012481521325`*^9, 3.6123012485171537`*^9}, {3.612301362466671*^9, 
 3.6123014443523545`*^9}, {3.61230148116046*^9, 3.6123014853817015`*^9}, {
 3.6123020708561883`*^9, 3.6123020969386806`*^9}, {3.612361934301659*^9, 
 3.612361997902297*^9}, {3.6123620849152737`*^9, 3.6123621102447224`*^9}}],
Cell[BoxData[
 RowBox[{"\t\t", 
 RowBox[{
 RowBox[{"MatrixForm", "[", "matrizImpReduzida", "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.6123004618501587`*^9, 3.6123004623391867`*^9}, {
 3.612300666899887*^9, 3.612300766540586*^9}, {3.612300831805319*^9, 
 3.6123008364575853`*^9}, {3.6123008864894466`*^9, 3.6123010089164495`*^9}, {
 3.6123012481521325`*^9, 3.6123012485171537`*^9}, {3.612301362466671*^9, 
 3.6123014443523545`*^9}, {3.61230148116046*^9, 3.6123014853817015`*^9}, {
 3.6123020708561883`*^9, 3.6123020969386806`*^9}, {3.612361934301659*^9, 
 3.612361997902297*^9}, {3.6123620849152737`*^9, 3.6123621087296357`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\t", 
 RowBox[{
 RowBox[{
 RowBox[{"impPropia", "=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{
 RowBox[{"matrizImpReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
 RowBox[{"matrizImpReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", 
 RowBox[{"matrizImpReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"3", ",", "3"}], "]"}], "]"}]}], ")"}], "/", "3"}]}], ";"}],
 "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{"impMutua", "=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{
 RowBox[{"matrizImpReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
 RowBox[{"matrizImpReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "3"}], "]"}], "]"}], "+", 
 RowBox[{"matrizImpReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ")"}], "/", "3"}]}], ";"}],
 "\[IndentingNewLine]", "\t", 
 RowBox[{"impedancia", "=", 
 RowBox[{"impPropia", "-", "impMutua"}]}], "\[IndentingNewLine]", 
 "\t\t"}]}]], "Input",
 CellChangeTimes->{{3.612302525012165*^9, 3.612302591572972*^9}, {
 3.6123026699144526`*^9, 3.612302866465695*^9}, {3.6123029111672516`*^9, 
 3.612302955235772*^9}, {3.6123033631161013`*^9, 3.6123033657782536`*^9}, {
 3.6123511307337303`*^9, 3.612351136952086*^9}, {3.612355283282243*^9, 
 3.6123552999821978`*^9}}],
Cell[BoxData[
 RowBox[{"2.0955857176096343`*^-8", "+", 
 RowBox[{"0.0003260234668894592`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.6123511431694417`*^9, 3.61235335288383*^9, 
 3.6123553025713463`*^9, 3.6123625488828115`*^9, 3.612867198948305*^9, 
 3.6128680277957125`*^9, 3.612868604967725*^9, 3.6128687078736105`*^9, 
 3.612869389910621*^9, 3.612869458337535*^9}]
}, Open ]],
Cell[TextData[StyleBox["\tCalculo da admit\[AHat]ncia da linha YL (S/m):",
 FontFamily->"Calibri",
 FontSize->18,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.596301986399364*^9, 3.5963021613963733`*^9}, {
 3.596302315682198*^9, 3.5963023319681296`*^9}, {3.5963023893914137`*^9, 
 3.5963025807853613`*^9}, {3.596313251969718*^9, 3.5963133705535*^9}, {
 3.596413366959752*^9, 3.5964133669627523`*^9}, {3.612220954352284*^9, 
 3.6122209623457413`*^9}, {3.612221105104906*^9, 3.6122211128913517`*^9}, 
 3.612279930166814*^9, {3.6123035951293716`*^9, 3.6123035996666317`*^9}, {
 3.6123509770869427`*^9, 3.6123510314340506`*^9}},
 TextAlignment->Left,
 TextJustification->1],
Cell[BoxData[
 RowBox[{"\t", 
 RowBox[{
 RowBox[{
 RowBox[{"P", "=", 
 RowBox[{
 RowBox[{"(", 
 FractionBox["1", 
 RowBox[{"2", "*", "\[Pi]", "*", "\[Epsilon]0"}]], ")"}], 
 RowBox[{"Log", "[", "matrizGeometriaLinha", "]"}]}]}], ";"}], 
 "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{"MatrixForm", "[", "P", "]"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.596301986399364*^9, 3.5963021613963733`*^9}, {
 3.596302315682198*^9, 3.5963023319681296`*^9}, {3.5963023893914137`*^9, 
 3.5963025807853613`*^9}, {3.596313251969718*^9, 3.596313433578105*^9}, {
 3.59631363262749*^9, 3.596313656157836*^9}, 3.5964004170086575`*^9, 
 3.5967345661919904`*^9, {3.596734750167513*^9, 3.5967347509495583`*^9}, {
 3.59674489855912*^9, 3.596744908549691*^9}, {3.6122799412344465`*^9, 
 3.6122800128605433`*^9}, {3.6123034867031703`*^9, 
 3.6123036068220406`*^9}, {3.6123037037675858`*^9, 
 3.6123037086738663`*^9}, {3.6123037643960533`*^9, 3.612303784773219*^9}, 
 3.6123038640427527`*^9, {3.6123039079082623`*^9, 3.612303918242853*^9}, {
 3.612304042553963*^9, 3.6123041195773687`*^9}, {3.612348971244215*^9, 
 3.6123489773065615`*^9}, {3.612349021114067*^9, 3.6123490688657985`*^9}, {
 3.6123494926470375`*^9, 3.6123495389856873`*^9}, {3.6123498544577312`*^9, 
 3.6123498563998427`*^9}, 3.6123535911054554`*^9},
 TextAlignment->Left,
 TextJustification->1],
Cell[TextData[{
 "\t\t ",
 StyleBox["Novamente pela redu\[CCedilla]\[ATilde]o de Kron para o calculo de \
seguencia positiva:",
 FontSize->16]
}], "Text",
 CellChangeTimes->{{3.612304126714777*^9, 3.6123041573945312`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\t\t", 
 RowBox[{
 RowBox[{
 RowBox[{"PReduzida", "=", 
 RowBox[{
 RowBox[{"P", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"1", ";;", "3"}], ",", 
 RowBox[{"1", ";;", "3"}]}], "]"}], "]"}], "-", 
 RowBox[{
 RowBox[{"P", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"1", ";;", "3"}], ",", 
 RowBox[{"4", ";;", "5"}]}], "]"}], "]"}], ".", 
 RowBox[{"Inverse", "[", 
 RowBox[{"P", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"4", ";;", "5"}], ",", 
 RowBox[{"4", ";;", "5"}]}], "]"}], "]"}], "]"}], ".", 
 RowBox[{"P", "[", 
 RowBox[{"[", 
 RowBox[{
 RowBox[{"4", ";;", "5"}], ",", 
 RowBox[{"1", ";;", "3"}]}], "]"}], "]"}]}]}]}], ";"}], 
 "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{"Ppropria", "=", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}], 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"PReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
 RowBox[{"PReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"2", ",", "2"}], "]"}], "]"}], "+", 
 RowBox[{"PReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"3", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";"}], 
 "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{"Pmutua", "=", " ", 
 RowBox[{
 RowBox[{"(", 
 RowBox[{"1", "/", "3"}], ")"}], 
 RowBox[{"(", 
 RowBox[{
 RowBox[{"PReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
 RowBox[{"PReduzida",
"[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "3"}], "]"}], "]"}], "+", 
 RowBox[{"PReduzida", "[", 
 RowBox[{"[", 
 RowBox[{"2", ",", "3"}], "]"}], "]"}]}], ")"}]}]}], ";"}], 
 "\[IndentingNewLine]", "\t", 
 RowBox[{
 RowBox[{"PLong", "=", 
 RowBox[{"Ppropria", "-", "Pmutua"}]}], ";"}], "\[IndentingNewLine]", 
 "\t", 
 RowBox[{
 RowBox[{"capLong", "=", 
 RowBox[{"(", 
 RowBox[{"1", "/", "PLong"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 "\t", 
 RowBox[{"admitancia", "=", 
 RowBox[{"\[ImaginaryJ]", "*", "\[Omega]", "*", "capLong"}]}], 
 "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.596301986399364*^9, 3.5963021613963733`*^9}, {
 3.596302315682198*^9, 3.5963023319681296`*^9}, {3.5963023893914137`*^9, 
 3.5963025807853613`*^9}, {3.596313251969718*^9, 3.596313433578105*^9}, {
 3.59631363262749*^9, 3.596313656157836*^9}, 3.5964004170086575`*^9, 
 3.5967345661919904`*^9, {3.596734750167513*^9, 3.5967347509495583`*^9}, {
 3.59674489855912*^9, 3.596744908549691*^9}, {3.6122799412344465`*^9, 
 3.6122800128605433`*^9}, {3.6123034867031703`*^9, 
 3.6123036068220406`*^9}, {3.6123037037675858`*^9, 
 3.6123037086738663`*^9}, {3.6123037643960533`*^9, 3.612303784773219*^9}, 
 3.6123038640427527`*^9, {3.6123039079082623`*^9, 3.612303918242853*^9}, {
 3.612304042553963*^9, 3.6123041130719967`*^9}, {3.6123041716943493`*^9, 
 3.6123041747935266`*^9}, {3.612304340344996*^9, 3.6123044350274115`*^9}, {
 3.6123045052034254`*^9, 3.6123045458577504`*^9}, {3.6123046288654985`*^9, 
 3.6123046546929755`*^9}, {3.612304727879162*^9, 3.6123047796321216`*^9}, {
 3.6123048288949394`*^9, 3.6123048844841185`*^9}, {3.6123049420624123`*^9, 
 3.612304945941634*^9}, {3.612305009617276*^9, 3.612305010267313*^9}, {
 3.6123050672115707`*^9, 3.612305075045018*^9}, {3.612305115341323*^9, 
 3.6123051159793596`*^9}, {3.6123500425154877`*^9, 
 3.6123500704960885`*^9}, {3.6123503780866814`*^9, 
 3.6123504416773186`*^9}, {3.612350512429365*^9, 3.612350516403593*^9}, 
 3.61235059013481*^9, {3.6123510959147387`*^9, 3.6123510984618845`*^9}, {
 3.6123535495950813`*^9, 3.6123535577835493`*^9}, {3.61235540125399*^9, 
 3.612355404695187*^9}},
 TextAlignment->Left,
 TextJustification->1],
Cell[BoxData[
 RowBox[{"0.`", "\[VeryThinSpace]", "+", 
 RowBox[{"4.850234747214142`*^-9", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
 3.6123500529090824`*^9, {3.612350435843985*^9, 3.6123504463105836`*^9}, 
 3.6123505188837347`*^9, 3.6123505931069803`*^9, 3.612351105127266*^9, 
 3.6123536032391496`*^9, 3.61235540894543*^9, 3.612362548909813*^9, 
 3.6128671990203094`*^9, 3.6128680278367147`*^9, 3.6128686050117273`*^9, 
 3.6128687079186134`*^9, 3.6128693899546237`*^9, 3.6128694583815374`*^9}]
}, Open ]],
Cell[TextData[StyleBox["\tCalculo da Impedancia caracteristica:",
 FontSize->18,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.6123049102655935`*^9, 3.61230497664439*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\t ", 
 RowBox[{"Zc", "=", 
 SqrtBox[
 FractionBox["impedancia", "admitancia"]]}]}]], "Input",
 CellChangeTimes->{{3.612305024709139*^9, 3.6123050811833696`*^9}, {
 3.6123511528759966`*^9, 3.6123511657387323`*^9}, {3.612353496325034*^9, 
 3.61235350534455*^9}, {3.612353546664914*^9, 3.6123535739624753`*^9}, {
 3.612353622016224*^9, 3.612353657780269*^9}}],
Cell[BoxData[
 RowBox[{"259.2644981358741`", "\[VeryThinSpace]", "-", 
 RowBox[{"0.008332390671126165`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.612353330382543*^9, 3.61235336704764*^9, 
 3.6123535078986964`*^9, 3.6123625489328136`*^9, 3.6128671990613117`*^9, 
 3.6128680278697166`*^9, 3.6128686050447297`*^9, 3.6128687079526157`*^9, 
 3.612869389991626*^9, 3.6128694584155397`*^9}]
}, Open ]],
Cell[TextData[StyleBox["\tCalculo da potencia caracteristica e nominal:",
 FontSize->18,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.6123051423888702`*^9, 3.612305156312667*^9}, {
 3.6123537397159557`*^9, 3.6123537417260704`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\t", 
 RowBox[{
 RowBox[{
 RowBox[{"Pc", "=", 
 FractionBox[
 RowBox[{"ULL", "^", "2"}], "Zc"]}], ";"}], "\[IndentingNewLine]", "\t", 
 RowBox[{"Pnom", "=", 
 RowBox[{"Re", "[", "Pc", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.612305131354239*^9, 3.612305131381241*^9}, {
 3.6123051636720877`*^9, 3.612305226389675*^9}, {3.612305283939966*^9, 
 3.6123052865211143`*^9}, {3.6123536698069572`*^9, 3.6123537146095195`*^9}, {
 3.612353749246501*^9, 3.612353771181755*^9}, {3.6123630450501904`*^9, 
 3.6123630479533567`*^9}}],
Cell[BoxData["2.0403873390191922`*^8"], "Output",
 CellChangeTimes->{3.6123533368119106`*^9, 3.612353530252975*^9, 
 3.612353681236611*^9, 3.6123537175096855`*^9, 3.6123537684946012`*^9, 
 3.6123625489598155`*^9, 3.6128671990943136`*^9, 3.612868027901719*^9, 
 3.612868605077731*^9, 3.612868707986617*^9, 3.612869390026628*^9, 
 3.612869458449541*^9}]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{1350, 633},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
Magnification->0.8999999761581421,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb", 
 CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 307, 6, 84, "Title"],
Cell[889, 30, 890, 26, 82, "Input"],
Cell[CellGroupData[{
Cell[1804, 60, 764, 11, 24, "Subsubtitle"],
Cell[2571, 73, 498, 7, 24, "Subsubtitle"],
Cell[3072, 82, 430, 8, 31, "Text"],
Cell[3505, 92, 86, 1, 21, "Text"],
Cell[3594, 95, 660, 14, 26, "Text"],
Cell[4257, 111, 181, 5, 27, "Input"],
Cell[4441, 118, 706, 17, 26, "Text"],
Cell[5150, 137, 156, 4, 27, "Input"],
Cell[5309, 143, 308, 10, 26, "Text"],
Cell[5620, 155, 1290, 44, 70, "Text"],
Cell[6913, 201, 652, 17, 64, "Input"],
Cell[7568, 220, 84, 1, 21, "Text"],
Cell[7655, 223, 366, 6, 26, "Text"],
Cell[8024, 231, 642, 16, 26, "Text"],
Cell[8669, 249, 662, 19, 26, "Text"],
Cell[9334, 270, 745, 20, 26, "Text"],
Cell[10082, 292, 495, 14, 46, "Input"],
Cell[10580, 308, 94, 1, 27, "Input"],
Cell[10677, 311, 613, 10, 26, "Text"],
Cell[11293, 323, 309, 4, 21, "Text"],
Cell[CellGroupData[{
Cell[11627, 331, 2886, 62, 82, "Input"],
Cell[14516, 395, 257, 5, 402, "Output"]
}, Open ]],
Cell[14788, 403, 420, 11, 26, "Text"],
Cell[CellGroupData[{
Cell[15233, 418, 3771, 82, 153, "Input"],
Cell[19007, 502, 1297, 28, 88, "Output"]
}, Open ]],
Cell[20319, 533, 738, 10, 27, "Input"],
Cell[21060, 545, 368, 7, 26, "Text"],
Cell[21431, 554, 1566, 39, 100, "Input"],
Cell[23000, 595, 82, 1, 21, "Text"],
Cell[23085, 598, 297, 4, 23, "Text"],
Cell[23385, 604, 1386, 34, 27, "Input"],
Cell[24774, 640, 642, 10, 27, "Input"],
Cell[CellGroupData[{
Cell[25441, 654, 1513, 40, 82, "Input"],
Cell[26957, 696, 386, 6, 27, "Output"]
}, Open ]],
Cell[27358, 705, 689, 12, 26, "Text"],
Cell[28050, 719, 1411, 28, 61, "Input"],
Cell[29464, 749, 224, 6, 23, "Text"],
Cell[CellGroupData[{
Cell[29713, 759, 3995, 99, 136, "Input"],
Cell[33711, 860, 520, 8, 27, "Output"]
}, Open ]],
Cell[34246, 871, 178, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[34449, 878, 390, 8, 48, "Input"],
Cell[34842, 888, 404, 6, 27, "Output"]
}, Open ]],
Cell[35261, 897, 240, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[35526, 905, 570, 13, 61, "Input"],
Cell[36099, 920, 355, 5, 27, "Output"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information
*)