(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 56018, 1440] NotebookOptionsPosition[ 52684, 1387] NotebookOutlinePosition[ 53027, 1402] CellTagsIndexPosition[ 52984, 1399] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", RowBox[{ "V\[YAcute]po\[CHacek]et", " ", "d\[EAcute]lky", " ", "a", " ", "azimutu", " ", "st\[EHacek]ny", " ", "na", " ", "z\[AAcute]klad\[EHacek]", " ", "GIS", " ", "podklad\[URing]", " ", "z", " ", "Prahy"}], "*)"}]], "Input", CellChangeTimes->{{3.857482154999693*^9, 3.85748220559006*^9}},ExpressionUUID->"ff751405-935f-4912-aa33-\ c93a2a20c119"], Cell[BoxData[{ RowBox[{ RowBox[{"dataphsPraha", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vyskaphsPraha", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.855247723552887*^9, 3.8552477493625326`*^9}, { 3.8552478414637346`*^9, 3.855247863025288*^9}, {3.8552481228811145`*^9, 3.8552481243011665`*^9}, 3.8552895437546587`*^9, 3.855317490886674*^9, { 3.855405898619834*^9, 3.85540591029978*^9}, 3.8554060425337286`*^9, 3.855406381508727*^9, {3.85540906058311*^9, 3.855409063615906*^9}, 3.860077035785961*^9, 3.860077250327258*^9}, CellLabel->"In[1]:=",ExpressionUUID->"b2f87cc9-6f10-4248-8430-626f88a0b236"], Cell[BoxData[{ RowBox[{ RowBox[{"zemsirka", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", RowBox[{"dataphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zemdelka", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", RowBox[{"dataphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"poradiphs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", RowBox[{"dataphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vyskaimport", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vyskaphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", RowBox[{"vyskaphsPraha", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"datamodel", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"zemsirka", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"zemdelka", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"poradiphs", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "zemdelka", "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8552482175567617`*^9, 3.8552482948609605`*^9}, { 3.8552483297586784`*^9, 3.855248458488902*^9}, {3.8552484964270463`*^9, 3.8552485612896953`*^9}, {3.8552496723988576`*^9, 3.8552496729115896`*^9}, {3.8552883575514245`*^9, 3.8552883650989084`*^9}, {3.8554059153506594`*^9, 3.855406022420396*^9}, { 3.85540623839394*^9, 3.855406281471895*^9}, {3.8554063201970987`*^9, 3.8554063463578124`*^9}, {3.855406399427657*^9, 3.855406451957672*^9}, 3.855406663970896*^9, {3.8554067724108534`*^9, 3.855406785519901*^9}, 3.855407049962322*^9, {3.8554091005886602`*^9, 3.8554091012322073`*^9}, { 3.8554092590663123`*^9, 3.8554092619886026`*^9}, 3.8574822235801115`*^9, { 3.8574828077345724`*^9, 3.8574828238654556`*^9}, {3.860077259634531*^9, 3.8600772673234453`*^9}, {3.860077359285365*^9, 3.860077360380737*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"6e10e799-cc50-4e6b-976f-597822196525"], Cell[BoxData[ RowBox[{ RowBox[{"delkaphs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"6371000", "*", "2", "*", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{ RowBox[{"\[Sqrt]", "1"}], "-", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"]}]}], ")"}]}], ",", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"]}]}], ")"}]}]}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "datamodel", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8553137772223997`*^9, 3.8553137865275908`*^9}, { 3.855313827298047*^9, 3.855313836696991*^9}, {3.8553138812231965`*^9, 3.855313976109892*^9}, {3.855314081319145*^9, 3.8553141091909556`*^9}, { 3.8553142045224686`*^9, 3.8553142274573426`*^9}, {3.855314596746941*^9, 3.85531459859446*^9}, {3.855317520169777*^9, 3.855317572401752*^9}, 3.8553177422688212`*^9, {3.855334763617925*^9, 3.8553347956964455`*^9}, { 3.8554066688744187`*^9, 3.8554067121083145`*^9}, {3.855406747028264*^9, 3.855406758007407*^9}, {3.8554067901120486`*^9, 3.855406807959685*^9}, 3.8554071228474827`*^9, 3.855407238034099*^9, 3.856886668285125*^9, { 3.8568867224906683`*^9, 3.856886723976637*^9}, 3.860327173559168*^9, { 3.8603275720280776`*^9, 3.86032757334777*^9}, {3.8603278931868343`*^9, 3.8603279008789167`*^9}, {3.8603279515815864`*^9, 3.8603279628597407`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"6551c0de-80ba-4c29-a52f-fa8564d73fa3"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ID", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"delkaphs", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "delkaphs", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "ID"}], "]"}]}], "Input", CellChangeTimes->{{3.8568867320030794`*^9, 3.856886985257049*^9}}, CellLabel-> "In[148]:=",ExpressionUUID->"27ff6a0a-c4a4-4cd3-a8b5-489501d2f371"], Cell[BoxData["\<\"IDpraha.xlsx\"\>"], "Output", CellChangeTimes->{{3.856886835204607*^9, 3.856886889660042*^9}, { 3.856886927436866*^9, 3.856886950865786*^9}, 3.8568869927714987`*^9, 3.8574832089552813`*^9}, CellLabel-> "Out[149]=",ExpressionUUID->"b5a6a9be-b446-4102-ad43-8c19f79f3c70"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"azimutphs", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}]}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], ")"}]}], "]"}], "*", FractionBox["180", "Pi"]}], "+", "360"}], ",", "360"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "datamodel", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.85531423061127*^9, 3.855314233266435*^9}, { 3.855314710065591*^9, 3.8553148422843876`*^9}, {3.855314904446359*^9, 3.8553149062010756`*^9}, {3.8553158535254107`*^9, 3.855315904642529*^9}, { 3.855315992857957*^9, 3.8553160674369483`*^9}, {3.855317622130756*^9, 3.855317640948579*^9}, {3.8553177488289304`*^9, 3.8553177672418566`*^9}, { 3.8553348100513353`*^9, 3.855334822825029*^9}, {3.8554068130103188`*^9, 3.85540688695996*^9}, 3.85540698225438*^9, {3.8554072425864706`*^9, 3.855407259225933*^9}, 3.8600777368440323`*^9, 3.8600778046350956`*^9, 3.8600778734096594`*^9, 3.8603280174552617`*^9, {3.8604106999304085`*^9, 3.860410704416615*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"ecac492b-36b7-4f40-9d4c-81fb05ad2867"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}]}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"datamodel", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], ")"}]}], "]"}], "+", RowBox[{"180", "Degree"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.86007781525079*^9, 3.860077827643236*^9}, { 3.8600778679642944`*^9, 3.8600778696004972`*^9}, {3.8600779127881045`*^9, 3.860077928047965*^9}, {3.860078027642603*^9, 3.860078028131813*^9}, { 3.8600781432397165`*^9, 3.860078154782506*^9}, {3.8604106909206963`*^9, 3.860410691100999*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"ba0bc247-f5f7-4447-b7ef-9c1b8260d5eb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.07607915451126246`", ",", "0", ",", "0.01570536030359415`", ",", "6.146486170323449`", ",", "0.05021085450492402`", ",", "6.056051140021399`", ",", "0.056169632262897284`", ",", "0", ",", "0.004582161056751133`", ",", "0.01731324655312827`"}], "}"}]], "Output", CellChangeTimes->{ 3.8600777375613003`*^9, 3.8600778705771613`*^9, {3.860077913548828*^9, 3.860077928668027*^9}, 3.8600780290010643`*^9, {3.8600781461196966`*^9, 3.860078155294211*^9}, 3.8604106917632456`*^9}, CellLabel->"Out[48]=",ExpressionUUID->"3e954015-5cd7-4e0c-9943-b846428d1194"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"delkamodel", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"delkaphs", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"delkaphs", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "datamodel", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8553168202520666`*^9, 3.855316929302058*^9}, { 3.8553176865728784`*^9, 3.8553176996992245`*^9}, 3.85531779044956*^9, { 3.8553179508333797`*^9, 3.8553179528423543`*^9}, {3.855334828161994*^9, 3.8553348366059403`*^9}, {3.8553823532799177`*^9, 3.8553823629903164`*^9}, {3.8554072894710608`*^9, 3.855407298127637*^9}, { 3.8574830928137274`*^9, 3.8574831039102807`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"608e0fa3-09ba-4983-a174-76f996e85560"], Cell[BoxData[{ RowBox[{ RowBox[{"azimutmodel", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"azimutphs", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"azimutphs", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "datamodel", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vyskadleporadi", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vyskaimport", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"vyskaimport", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "vyskaimport", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vysledekvyska", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"poradiphs", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", RowBox[{"poradiphs", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ",", RowBox[{"vyskadleporadi", "[", RowBox[{"[", RowBox[{"poradiphs", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "vyskaimport", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vyskaexcel", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"vysledekvyska", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"vysledekvyska", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "vysledekvyska", "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8553177112464366`*^9, 3.8553177227887444`*^9}, 3.8553177965426307`*^9, {3.8553179568007045`*^9, 3.855317960465306*^9}, { 3.855334840886694*^9, 3.8553348484601293`*^9}, {3.8554073013302174`*^9, 3.855407308146373*^9}, {3.855409228153481*^9, 3.855409228926797*^9}, { 3.8554092700359488`*^9, 3.8554092876971827`*^9}, {3.8554093277728043`*^9, 3.8554093583767776`*^9}, 3.857482461106588*^9, {3.8574824942381487`*^9, 3.85748250008989*^9}, {3.8574828365274744`*^9, 3.8574828772667055`*^9}, { 3.8574829194111557`*^9, 3.8574829244250097`*^9}, {3.8574829666309977`*^9, 3.8574829756007566`*^9}, {3.857483036147667*^9, 3.857483047276863*^9}, { 3.857483079723548*^9, 3.857483083407589*^9}, {3.85748311371451*^9, 3.8574831365902834`*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"fae8022b-bca7-41ef-b153-1256f4ff2af3"], Cell[BoxData[ RowBox[{ RowBox[{"modelexcel", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"delkamodel", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"azimutmodel", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"vyskaexcel", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "delkamodel", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.855317919978961*^9, 3.8553179740539427`*^9}, { 3.8553348535232935`*^9, 3.8553349266654515`*^9}, {3.855334971542723*^9, 3.855335005766373*^9}, {3.8553351245474467`*^9, 3.8553351316255493`*^9}, { 3.8554073187937255`*^9, 3.8554073220240583`*^9}, {3.855407945786944*^9, 3.855407957039429*^9}, {3.8554093679925737`*^9, 3.8554093839702444`*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"204e9270-5d19-408f-9b01-fdc652ddcfb9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "modelexcel"}], "]"}]], "Input", CellChangeTimes->{{3.855317979664585*^9, 3.8553179997146254`*^9}, { 3.855335047457307*^9, 3.8553350502749395`*^9}, {3.855335112756218*^9, 3.855335119735224*^9}, {3.855381605702122*^9, 3.855381611343858*^9}, { 3.855409391377793*^9, 3.855409394668293*^9}}, CellLabel-> "In[158]:=",ExpressionUUID->"3140a180-cf69-4d32-88cd-1b8b2654fa23"], Cell[BoxData["\<\"model1.xlsx\"\>"], "Output", CellChangeTimes->{3.8554093989775963`*^9}, CellLabel-> "Out[158]=",ExpressionUUID->"81e23028-d532-42e1-944d-0741d6236826"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "V\[YAcute]po\[CHacek]et", " ", "d\[EAcute]lky", " ", "a", " ", "azimutu", " ", "st\[EHacek]ny", " ", "na", " ", "z\[AAcute]klad\[EHacek]", " ", "GIS", " ", "podklad\[URing]", " ", "od", " ", "\[CapitalRHacek]editelstv\[IAcute]", " ", "silnic", " ", "a", " ", "d\[AAcute]lnic"}], "*)"}]], "Input", CellChangeTimes->{{3.8558512200068793`*^9, 3.855851234991123*^9}, { 3.857482285041563*^9, 3.8574823190002575`*^9}},ExpressionUUID->"7a58c131-1ae7-4c4a-acce-\ 3ee9adfb1160"], Cell[BoxData[ RowBox[{ RowBox[{"dataRSD", "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.85584943593492*^9, 3.8558494637952633`*^9}, { 3.85617140751607*^9, 3.8561714102902355`*^9}, {3.8574823246973076`*^9, 3.8574823262063074`*^9}, 3.861258598908065*^9, 3.861675081321662*^9}, CellLabel->"In[1]:=",ExpressionUUID->"9f3f7fa8-23ed-4217-929c-ebeda3dc139f"], Cell[BoxData[ RowBox[{ RowBox[{"delkaphsRSD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"6371000", "*", "2", "*", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"]}]}], ")"}]}], ")"}]}], ",", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"]}]}], ")"}]}]}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "dataRSD", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.855849496366498*^9, 3.855849555022087*^9}, 3.8561715167788935`*^9, {3.856171610607591*^9, 3.8561716157648764`*^9}, 3.856887090352569*^9, 3.856887197570532*^9, 3.8612586094504013`*^9, { 3.8612623053278656`*^9, 3.861262403553872*^9}, 3.8616750898628683`*^9}, CellLabel->"In[2]:=",ExpressionUUID->"3cafa89d-ba98-41e9-8a8e-c65143dbc32f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ID2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"delkaphsRSD", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "delkaphsRSD", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "ID2"}], "]"}]}], "Input", CellChangeTimes->{{3.8568871241778035`*^9, 3.856887203556758*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"d46b4f61-3b34-4d8c-93d3-5bdf72253f74"], Cell[BoxData["\<\"IDrsd.xlsx\"\>"], "Output", CellChangeTimes->{{3.8568871719710584`*^9, 3.856887213642763*^9}}, CellLabel->"Out[30]=",ExpressionUUID->"aae81ef8-c4bd-4f1a-928c-c61ba704594e"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"azimutphsRSD", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}]}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"dataRSD", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], ")"}]}], "]"}], "*", FractionBox["180", "Pi"]}], "+", "360"}], ",", "360"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "dataRSD", "]"}], "-", "1"}]}], "}"}]}], "]"}], "//", "Quiet"}]}], ";"}]], "Input", CellChangeTimes->{{3.8558496328990173`*^9, 3.855849690503688*^9}, { 3.8561716181125927`*^9, 3.8561716207510695`*^9}, 3.856171700293067*^9, 3.8561717421173162`*^9, {3.8574835940866995`*^9, 3.857483599436262*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"9cc8ad56-62ea-4509-aca8-a98bbc5c65b2"], Cell[BoxData[{ RowBox[{ RowBox[{"delkamodelRSD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"delkaphsRSD", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"delkaphsRSD", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "dataRSD", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"azimutmodelRSD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"azimutphsRSD", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"azimutphsRSD", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "dataRSD", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.855849783675149*^9, 3.8558497839760456`*^9}, { 3.855849825069019*^9, 3.855849887852112*^9}, {3.8558499201053047`*^9, 3.8558499553962*^9}, {3.8574822185857143`*^9, 3.8574822191527715`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"d147db61-432f-4fd2-b200-c633efa53a3f"], Cell[BoxData[ RowBox[{ RowBox[{"modelexcelRSD", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"delkamodelRSD", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"azimutmodelRSD", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "delkamodelRSD", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.855849796128183*^9, 3.8558497965392113`*^9}, { 3.8558498904781256`*^9, 3.855849915735571*^9}, {3.856171645283544*^9, 3.856171664721528*^9}, 3.8574822156282835`*^9}, CellLabel->"In[22]:=",ExpressionUUID->"1c5de711-28d1-4717-a97c-406f1a47792a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "modelexcelRSD"}], "]"}]], "Input", CellChangeTimes->{{3.8561717552967043`*^9, 3.8561717747001343`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"8294f0b8-3dd5-42fe-9e55-a959dc84221e"], Cell[BoxData["\<\"modelRSD.xlsx\"\>"], "Output", CellChangeTimes->{3.856171779047885*^9}, CellLabel->"Out[16]=",ExpressionUUID->"792db8dc-e5fd-4576-ae30-009818a10fd9"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "Projekt", " ", "FVPHS", " ", "na", " ", "\[UAcute]seku", " ", "d\[AAcute]lnice", " ", "D35"}], "*)"}]], "Input", CellChangeTimes->{{3.8616747629705477`*^9, 3.861674775902739*^9}},ExpressionUUID->"a494d7e4-85b7-4a49-9408-\ c47c10afe6a6"], Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{ RowBox[{"Import", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data1", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data2", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"2", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data3", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data4", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"4", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"datad35", "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.861674807719283*^9, 3.861674816873437*^9}},ExpressionUUID->"72f0302f-e1bc-4fc8-b3e7-\ 1bd97f0f07f9"], Cell[BoxData[ RowBox[{ RowBox[{"d35", "=", RowBox[{ RowBox[{"Import", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input", CellLabel->"In[1]:=",ExpressionUUID->"505eef60-ede3-48dd-884c-19d87912a0e6"], Cell[BoxData[ RowBox[{ RowBox[{"delkaphsD35", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"d35", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"6371000", "*", "2", "*", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"]}]}], ")"}]}], ")"}]}], ",", RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "2"], "]"}], "2"]}]}], ")"}]}]}], "]"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "d35", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8616748569464664`*^9, 3.8616749596553802`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"b65eab6d-015b-41f4-b561-ea14b168d564"], Cell[BoxData[ RowBox[{ RowBox[{"azimutphsD35", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "\[Equal]", RowBox[{"d35", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}], ",", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}]}]}], ")"}], ",", RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}], "-", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "Degree"}]}], "]"}], "*", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "Degree"}], "]"}]}], ")"}]}], "]"}], "*", FractionBox["180", "Pi"]}], "+", "360"}], ",", "360"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "d35", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8616749638665743`*^9, 3.8616749645216937`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"918f0d8c-db45-4592-a564-7b63e5774673"], Cell[BoxData[{ RowBox[{ RowBox[{"delkamodelD35", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"delkaphsD35", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"delkaphsD35", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "d35", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"azimutmodelD35", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"azimutphsD35", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"azimutphsD35", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "d35", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ID", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"delkaphsD35", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "0"}], ",", RowBox[{"d35", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", "Nothing"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "delkaphsD35", "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.861674978935728*^9, 3.861674999195815*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"97758ac3-971a-4d53-bfa2-849d6c3a6976"], Cell[BoxData[ RowBox[{ RowBox[{"modelD35", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ID", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"delkamodelD35", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"azimutmodelD35", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "delkamodelD35", "]"}]}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[9]:=",ExpressionUUID->"5e23ccc4-208d-4c1a-b89b-0afd04980fe3"] }, WindowSize->{1280, 637}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 395, 8, 28, "Input",ExpressionUUID->"ff751405-935f-4912-aa33-c93a2a20c119"], Cell[956, 30, 758, 14, 48, "Input",ExpressionUUID->"b2f87cc9-6f10-4248-8430-626f88a0b236"], Cell[1717, 46, 3474, 93, 105, "Input",ExpressionUUID->"6e10e799-cc50-4e6b-976f-597822196525"], Cell[5194, 141, 5663, 134, 270, "Input",ExpressionUUID->"6551c0de-80ba-4c29-a52f-fa8564d73fa3"], Cell[CellGroupData[{ Cell[10882, 279, 767, 21, 48, "Input",ExpressionUUID->"27ff6a0a-c4a4-4cd3-a8b5-489501d2f371"], Cell[11652, 302, 298, 5, 32, "Output",ExpressionUUID->"b5a6a9be-b446-4102-ad43-8c19f79f3c70"] }, Open ]], Cell[11965, 310, 4422, 105, 160, "Input",ExpressionUUID->"ecac492b-36b7-4f40-9d4c-81fb05ad2867"], Cell[CellGroupData[{ Cell[16412, 419, 3431, 91, 86, "Input",ExpressionUUID->"ba0bc247-f5f7-4447-b7ef-9c1b8260d5eb"], Cell[19846, 512, 618, 11, 32, "Output",ExpressionUUID->"3e954015-5cd7-4e0c-9943-b846428d1194"] }, Open ]], Cell[20479, 526, 1008, 24, 28, "Input",ExpressionUUID->"608e0fa3-09ba-4983-a174-76f996e85560"], Cell[21490, 552, 3144, 82, 86, "Input",ExpressionUUID->"fae8022b-bca7-41ef-b153-1256f4ff2af3"], Cell[24637, 636, 979, 23, 28, "Input",ExpressionUUID->"204e9270-5d19-408f-9b01-fdc652ddcfb9"], Cell[CellGroupData[{ Cell[25641, 663, 455, 8, 28, "Input",ExpressionUUID->"3140a180-cf69-4d32-88cd-1b8b2654fa23"], Cell[26099, 673, 173, 3, 32, "Output",ExpressionUUID->"81e23028-d532-42e1-944d-0741d6236826"] }, Open ]], Cell[26287, 679, 535, 11, 28, "Input",ExpressionUUID->"7a58c131-1ae7-4c4a-acce-3ee9adfb1160"], Cell[26825, 692, 475, 9, 28, "Input",ExpressionUUID->"9f3f7fa8-23ed-4217-929c-ebeda3dc139f"], Cell[27303, 703, 5129, 127, 280, "Input",ExpressionUUID->"3cafa89d-ba98-41e9-8a8e-c65143dbc32f"], Cell[CellGroupData[{ Cell[32457, 834, 767, 20, 48, "Input",ExpressionUUID->"d46b4f61-3b34-4d8c-93d3-5bdf72253f74"], Cell[33227, 856, 192, 2, 32, "Output",ExpressionUUID->"aae81ef8-c4bd-4f1a-928c-c61ba704594e"] }, Open ]], Cell[33434, 861, 4032, 100, 160, "Input",ExpressionUUID->"9cc8ad56-62ea-4509-aca8-a98bbc5c65b2"], Cell[37469, 963, 1355, 36, 48, "Input",ExpressionUUID->"d147db61-432f-4fd2-b200-c633efa53a3f"], Cell[38827, 1001, 728, 18, 28, "Input",ExpressionUUID->"1c5de711-28d1-4717-a97c-406f1a47792a"], Cell[CellGroupData[{ Cell[39580, 1023, 263, 4, 28, "Input",ExpressionUUID->"8294f0b8-3dd5-42fe-9e55-a959dc84221e"], Cell[39846, 1029, 169, 2, 32, "Output",ExpressionUUID->"792db8dc-e5fd-4576-ae30-009818a10fd9"] }, Open ]], Cell[40030, 1034, 288, 7, 28, "Input",ExpressionUUID->"a494d7e4-85b7-4a49-9408-c47c10afe6a6"], Cell[40321, 1043, 1215, 39, 124, "Input",ExpressionUUID->"72f0302f-e1bc-4fc8-b3e7-1bd97f0f07f9"], Cell[41539, 1084, 254, 6, 28, "Input",ExpressionUUID->"505eef60-ede3-48dd-884c-19d87912a0e6"], Cell[41796, 1092, 4847, 124, 280, "Input",ExpressionUUID->"b65eab6d-015b-41f4-b561-ea14b168d564"], Cell[46646, 1218, 3723, 96, 171, "Input",ExpressionUUID->"918f0d8c-db45-4592-a564-7b63e5774673"], Cell[50372, 1316, 1704, 50, 67, "Input",ExpressionUUID->"97758ac3-971a-4d53-bfa2-849d6c3a6976"], Cell[52079, 1368, 601, 17, 28, "Input",ExpressionUUID->"5e23ccc4-208d-4c1a-b89b-0afd04980fe3"] } ] *)