(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 20738, 509] NotebookOptionsPosition[ 20151, 484] NotebookOutlinePosition[ 20493, 499] CellTagsIndexPosition[ 20450, 496] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"definice", " ", "vstup\[URing]"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.6261523606043515`*^9, 3.626152369949286*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"alfa", "=", "30"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"odchylka", " ", "st\[RHacek]ely"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"beta", "=", "30"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"odchylka", " ", "v\[EHacek]tru"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"alfar", "=", RowBox[{"alfa", "*", RowBox[{"\[Pi]", "/", "180"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"betar", "=", RowBox[{"beta", "*", RowBox[{"\[Pi]", "/", "180"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "9.81"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"v", "=", "250"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rychlost", " ", "st\[RHacek]ely"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", "50"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"rychlost", " ", "v\[EHacek]tru"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"v", "*", RowBox[{"Cos", "[", "alfar", "]"}], "*", "t"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{ RowBox[{"v", "*", RowBox[{"Sin", "[", "alfar", "]"}], "*", "t"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", "g", "*", "t", "*", "t"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{ RowBox[{"-", "w"}], "*", RowBox[{"Sin", "[", "betar", "]"}], "*", "t"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", FractionBox[ RowBox[{"2", "*", "v", "*", RowBox[{"Sin", "[", "alfar", "]"}]}], "g"]}], ";"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6261523793642273`*^9, 3.6261526916054487`*^9}, { 3.6261527321214995`*^9, 3.6261528162709136`*^9}, {3.626152850649351*^9, 3.626152882977584*^9}, 3.6261529811874037`*^9, {3.62615302445473*^9, 3.6261530476430483`*^9}, {3.626154335112096*^9, 3.626154349766003*^9}, { 3.6261544086525116`*^9, 3.626154425229992*^9}}], Cell[BoxData[ Graphics3DBox[{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], Line3DBox[CompressedData[" 1:eJwV12k4lVsbB3Bzhk7qlSbzfChFRSXDrZwyHGNliIylQdL27I2ScYe9k6Qy lCTsZ0sHmSMn+04cyRAaKGWMJg2niULedT6sL7/rvta6nrXW/17Xo+Yf4rJP REhIKJUMUTJce92M008qWXypkuC2SS+yODx7/mWE1bsG09lm45ty0xbpCnld Fy0/WjTM18o3F20VpJzN1j8hJwNNeZ0wbD5nkbF13XJJ0acCo90SRd5yCmD9 8oPfk02yIOpz69GEyBuBtKB+3FFuJewVO9f0ZY0K1E1ErR0U+SGgGBkJ1nKb QfOc1AprxTVwvtLHr09ECq/dF31sJWcHQTsXpcx+NQfhzK6pRyLLcUv4rZkt cp6we5V+7xG+A9yU5Fo9FNHFgzmfzjcZHwaXqmtvvpj7gFLGiRCFhSb4QNUz LuwbEwLbLWS/3goEpz+XzgV6bcWKlZWW6iWRcMsmhbq0NxguPFHcM3nWBsHx ed72yDiwyipZVKwRCmfEe5WXaDvh1osrjwmGT8JWqZwmXUMWiCpGCwxsd6Bp pvO/S9M4oOdZu95lRwRcmheUl1PuilmGn/VN15yGxrH2fWc2RULFhtIF2lK7 Mc1rENVSU6E/JmKYao6CmVHH4tU6exBznH9+yU6D3jRXrsLqWKiqyG62svLF hMcegg3O54EvxViJDnEQX25uv7bPD6M8cwOHZy/Ait2MMDvXeEjrOX1Jf28A hmx28p7uzIAC/qRytDcb1g5ESfYs2oc3AnSEv8dmweG9p95lwUl4q3PlTE1+ IL4bO/jV1+0S+OsuPhqskgDrvfyMrHYdQPeaN62GWpdh5L5s9LXRBLhd8SBv cO4gyj1ItR19mANf2wTJKYmJ4Ls9WLs+JQhbLfMUxAtzIb6j39JGLQku/FPS ZmEWjPujJ9rYJVdhcXxJrkJOEgyzlbhiXUdwXNJ87e2LecBtDGb1zOfAoHzW uk1bjmKMSSm3KC4fNrsw6JYADnz4GSYevoyB5mfLjSV2F8CZ7KR7l65yQCom eHTnEANtmBKnyvYUQI3kY6/wPA58vKJdcnOUgTvdPV/s9iuANs7lWJd8Djxq GAxb8YqBh1TFT944UAD1dy6GifE4kPvLWXroPQMzyty73cML4M4Se0W3Qg4Y RxsbBk0z8H3XXNBfFwrA0T7T4WYJB/yj5qLjloRiziKHPKcHBZAwUecQUMeB +si0FaV/huL0ubcy2VY82PFlw+2D7RwIjqh2nlcXipl301XnWfOg96N6zTDx B9+vZBv8HYrrvoIRZceDrf4dwe4dHDBkccY8BKF4aFemt50LD7qv+S7f0smB bwzPY8XNodi31Kp82ocHdX/H+kl0cSAySDjPuScUqy7nuHpF8qB1jl/t8pAD XG/7T9nvQjGY75SnVMGDic/JwT/7OEBbjZ0xUKZQsne6mlvNg+3F+8xtn3JA 4m5nn4cahbx5hfe/1fKA0/+rI4v4ActadbYmhf0HZr90CHiA2SG6a59xYJV5 cs1jPQptVl7fFt3Bg9l82+5d/Rxyzw0Hjm+gUKtMdGLgNQ9q28df+r7gAOpF 6Tc7UThYV2N8VYUGw5SbColDHHixUL7dg03h0n3aS6fVadiSuUGohDh7jGtI JVLouDBjcpc2DZE+3270ENe99SvjNJdCQSCrVkafhgA9PcaKYQ6EBbz2E6RS mCu33iTchAbp6xHHs4nL1tRPal6m8ElDwYoeMxpc6fHaWuLVpwz2mOdSKHtI bnqVJQ33vM81PiLu5UM3uuVTGI2f60e206Azv2CD1AgHrkmmppy6RqF3cLmZ wy4aap2KrgUQt/T01/hURWH6MjXlIncazM3ELcOJv1rTy5GqpbDz7tlfol40 fHh1hcclniL25wf1egrNVxwV1PnTIAhP7rhO/FmJUd2uOxSymgdzFwfSMOI1 cK6OeEz8deWQJgpLjjrGhhykYY1QiEYLcW03lZOcFgqVWlZbah2lYXOcDX+A eKiQlGN9B4W7Qq+oxVI0THufz3pNfNnjqKpHXRSmKC0Q6Q+jYeznCtd/iQuK Pi//8JDC5ntRI0bHafi6c2hgivi+6P0x83opnKXeN56NomFl8OjaOeIyO56/ VH1GoZHKnoJ3sTRwt2q6iI2Sc9dxtjV5QWHw/Xb2tpM0LOrLN5Uk7j7TfGPH EIU0y3RvXhINDXo+n6WJ/+oykQ8epfCFarHVzCkazm32oOYTp+kbxxPHKVzS rqDldoaGM9Jpgv/c7rjmUO4bCu3Dk8Ur0miozJTolSH+r8PFP+omKExQnx6b n07DzEhdnRTxLI0Ff/V8pLCh49A/+7NoODJxfb8EcfOp+IUTnyn8FvGM35hN g0TV0yFh4i/bJ1ni3ynU17RNUsqloXXTNq0Z8r3JeYf7lX9QmHNc1/ohTc4r pk/2PfFeW1e+8xyFj7Uu/r66iOybxa/qUeJRKm0yQSJM/K1bUopbTMPOBj+d p8Q1v1owToozMUrndat5JQ0J34aDkPjRHF3TmzJM9HrEt7uONKB9S2QscalP M92Ky5h4IWbJKvEmkpe5Z5HBxG80MTYYKzCxXS9xvm8LDfePrNruQXzXxfHL jspMNI3b1yHfSQODw7HQJ56/pWt/vCYTFVdrOsb105BJa938h9xzk/SC2VcG THyelOfi/p3kLunLHQHJV7CJrW6lDRPvSVXIzfygIWi2RSeD+OudQsOy9kys TG58lDtLQ5/9ZvUg4gEhNVmHnZiYnDrq+kqMD/FRvx4tJL6bpy6p7cbEzZla nmFyfFi+bNLQbpAD1gumx7P2MvESvyjgggEf3E3KWyNJf9AY+YsXHcNEj+Zy ZtchPoitsznaTvrVU+5vqrbVTHwi0phhPcgHxW/zLq1s48C2p11LhlVZ6Nz9 +/LSET6srJyWKbvPAVOXmw5imizszE3Nlhsn80ucsFxHfH1bTqKODgtbTPdc HZjgw68g9UmjVrLu7UPfg/VZWBc2VcT8yYe09RIpq1o4IJIn9uTnJhZeebv6 9lX5Qmi9pRsw0EjycmBj+uIdLAzsyR6dsisEdvZQ7U7S/zdO5cpZJ7BwMo9l UFRbCPKlv0mfJu+O3tKQhTfesFD+g/dnS941gGxd2zW+JBf3vS853w1D++FA OiW5CLRPj0iGSHKAv0Bz3nRWOBZPCZfaBFwHTeZ9h/35SSD0WSjWyjcCJW/3 DJjZ/wVN4bfW3lZKggLbNVz/jccwmTbel69TDH+W+btvSkkE5y2sK6oix1Hb qO553WwxqB64xdCfSACVtrMZYy3HsYHBOCE1XgLPxXNna3USwKh1VjnmSiRG 9fzNaG0ohWeJ5jkLvE6Ce2B8ZW3gCTQZMku9U3QDfh8NUJQ9yIa7Ee59/1hE oayUrnD6ljKIT+dstGXEw2a9bVIs6Wg8w9pSqV5aBs/TX2h2H4qDR4ellPS6 ozG5NuxYu3o5iDVTqzdsjIVqTeU7lddi8HIK81Bpajl0qcXri8hEQ7cZXfth Yyyu2pQSUixeAVdFqmYYf0TChMbLvvd0LFpvNHrPPlYBXeLliWE+EZDZk3Lo 08I4jGjlp58fq4Ba+bsPO+NZcM9pq8hdZhxqG65zEeyuhKHltmHrTUPhCldt ZG4oDl/rcTdp3CP+beFExrwj8CNN5t78bfFoHHHkou+6KigzK2nde3A/jPn7 qigVxaPo5SO/3SqsAtVc5nr3ez7A/PCiIXMxG0edNxbbLa4Gocw14f0KznDK Zv/ekQg2pi9wYBosqQYMK/D52OcEriV9xvnH2bi9LcBUflk1+L5xm/me7gSq i2yl/E+w8bpVavuAAqlPincZlnWCmr5VpcMxbAzdMD7B0CDueHvUSsIBRvd/ nhxKZKOw0gX9rLXVAG/3/ijutAGzxKjkwQtsVHn9sfSlUzXEcs8myNhbwsfG 8xXPy9jYzRMPb3Uh9eI5gapNAPXa4gmXK9jI9lOwKN1J6gv1yhQ3AyScCnPz qmLj+LNtD8Ldided+5HhbA6KLh4z/TfZWNqR81Hal7ii7pSohAlYDytv629g o1mlnYFhCPGlTVr0PkPInyt6+rSdjR9D/KbkGWR/2oWn6p0M4HCAQvHFTjbm rQrHn6HEs9jGW8NXw8aW09EeXWwU5+c7NYUR904rqlDTgwdnQjSePmRjR9aP o27RxOe91PnGUINpJaPgvmdsjNklu8k0lri7ZJ3KKWVoieNbZD1no8H/tITV 4on3OAeeXbMCzo0t/Z/7ABsvJDulvU0g7iKUohGxCH4v+VnTO8zGbdaBHg+S iFfdn3/aWBq+LDzMzRxl46TYCbUqLnHFwqTtkcLQwHzh6TbGxqI7aW+ykon3 rZT/cuJfC26fw+qlr9joGV1YHpVCXEiI89//1E5TFOp9zcb/A7XImFA= "]]}}, AutomaticImageSize->True, Axes->None, ImageSize->{450.25475418436247`, 295.9334617242832}, PlotRange->{{0., 5517.490992039059}, {0., 796.3812247592302}, {-637.1049819010173, 0.}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}, ViewPoint->{3.284293438605544, 0.7729203390953777, -0.2569255895104042}, ViewVertical->{0.3999201452106966, 4.544839669849937, 5.543506706743856}]], "Output", CellChangeTimes->{ 3.626152892730559*^9, 3.626152982268512*^9, {3.6261530412924137`*^9, 3.626153049410225*^9}, {3.6261543407284193`*^9, 3.626154351029676*^9}, { 3.626154417705696*^9, 3.626154426680876*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"g", "=", "9.81"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "*", RowBox[{"Cos", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}], ",", RowBox[{ RowBox[{"v", "*", RowBox[{"Sin", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", "g", "*", "t", "*", "t"}]}], ",", RowBox[{ RowBox[{"-", "w"}], "*", RowBox[{"Sin", "[", RowBox[{"beta", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}]}], "}"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"krivka", "[", RowBox[{"v_", ",", "a_", ",", "w_", ",", "b_", ",", "t_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"v", "*", RowBox[{"Cos", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}], ",", RowBox[{ RowBox[{"v", "*", RowBox[{"Sin", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", "g", "*", "t", "*", "t"}]}], ",", RowBox[{ RowBox[{"-", "w"}], "*", RowBox[{"Sin", "[", RowBox[{"b", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "*", RowBox[{"Cos", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}], ",", RowBox[{ RowBox[{"v", "*", RowBox[{"Sin", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", "g", "*", "t", "*", "t"}]}], ",", RowBox[{ RowBox[{"-", "w"}], "*", RowBox[{"Sin", "[", RowBox[{"beta", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}], "*", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", FractionBox[ RowBox[{"2", "*", "v", "*", RowBox[{"Sin", "[", RowBox[{"a", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}]}], "g"]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "a", ",", "1", ",", "\"\<\[UAcute]hel n\[AAcute]klonu zbran\[EHacek]\>\""}], "}"}], ",", "90", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"beta", ",", RowBox[{"-", "90"}], ",", "90", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "250", ",", "1000", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "1", ",", "10", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6261752592840204`*^9, 3.626175525681658*^9}, { 3.626175557577847*^9, 3.6261755750435934`*^9}, {3.6261756809921875`*^9, 3.626175684343522*^9}, {3.62617573092518*^9, 3.6261760590329876`*^9}, { 3.626176160989182*^9, 3.626176182353318*^9}, {3.6261763176798496`*^9, 3.626176385228604*^9}, {3.6261764757836585`*^9, 3.626176494743554*^9}, { 3.626176570844164*^9, 3.6261765774148207`*^9}, {3.626178582261197*^9, 3.6261786228815203`*^9}, {3.62617869211348*^9, 3.626178737078052*^9}, { 3.6261788875386577`*^9, 3.6261788933939924`*^9}, {3.6261790436985893`*^9, 3.626179077553526*^9}, {3.626179158209139*^9, 3.6261791690587597`*^9}, { 3.626179230520275*^9, 3.626179252722545*^9}, {3.6261793160861692`*^9, 3.626179339091485*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`beta$$ = -90, $CellContext`v$$ = 250, $CellContext`w$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 1, "\[UAcute]hel n\[AAcute]klonu zbran\[EHacek]"}, 90, 1}, { Hold[$CellContext`beta$$], -90, 90, 5}, { Hold[$CellContext`v$$], 250, 1000, 50}, { Hold[$CellContext`w$$], 1, 10, 1}}, Typeset`size$$ = {360., {59., 63.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$65166$$ = 0, $CellContext`beta$65167$$ = 0, $CellContext`v$65168$$ = 0, $CellContext`w$65169$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 1, $CellContext`beta$$ = -90, $CellContext`v$$ = 250, $CellContext`w$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$65166$$, 0], Hold[$CellContext`beta$$, $CellContext`beta$65167$$, 0], Hold[$CellContext`v$$, $CellContext`v$65168$$, 0], Hold[$CellContext`w$$, $CellContext`w$65169$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ParametricPlot3D[{$CellContext`v$$ Cos[$CellContext`a$$ (Pi/180)] $CellContext`t, $CellContext`v$$ Sin[$CellContext`a$$ (Pi/180)] $CellContext`t - (1/ 2) $CellContext`g $CellContext`t $CellContext`t, (-$CellContext`w$$) Sin[$CellContext`beta$$ (Pi/180)] $CellContext`t}, {$CellContext`t, 0, 2 $CellContext`v$$ Sin[$CellContext`a$$ (Pi/180)]/$CellContext`g}, PlotStyle -> {Blue, Thick}], "Specifications" :> {{{$CellContext`a$$, 1, "\[UAcute]hel n\[AAcute]klonu zbran\[EHacek]"}, 90, 1}, {$CellContext`beta$$, -90, 90, 5}, {$CellContext`v$$, 250, 1000, 50}, {$CellContext`w$$, 1, 10, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {145., 152.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.626175591471236*^9, 3.6261760669527793`*^9, 3.626176185059589*^9, { 3.6261763559466763`*^9, 3.6261763881548967`*^9}, 3.626176497837864*^9, 3.6261765835334325`*^9, 3.6261785280850983`*^9, 3.6261785838622885`*^9, 3.626178626057702*^9, {3.626178726497447*^9, 3.626178740469246*^9}, 3.6261788968901925`*^9, 3.626179080117673*^9, 3.626179170952868*^9, { 3.626179235093537*^9, 3.6261792571407976`*^9}, 3.6261793417546377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"a", " ", "\[Pi]"}], "180"], "]"}], " ", "t"}], ",", RowBox[{ RowBox[{"v", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"a", " ", "\[Pi]"}], "180"], "]"}], " ", "t"}], "-", FractionBox[ RowBox[{"g", " ", "t", " ", "t"}], "2"]}], ",", RowBox[{ RowBox[{"-", "w"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"beta", " ", "\[Pi]"}], "180"], "]"}], " ", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", FractionBox[ RowBox[{"2", " ", "v", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"a", " ", "\[Pi]"}], "180"], "]"}]}], "g"]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "a", ",", "1", ",", "\"\<\[UAcute]hel n\[AAcute]klonu zbran\[EHacek]\>\""}], "}"}], ",", "90", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"beta", ",", RowBox[{"-", "90"}], ",", "90", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "250", ",", "1000", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "1", ",", "10", ",", "1"}], "}"}], ",", RowBox[{"Deployed", "\[Rule]", "True"}]}], "]"}]], "Input", NumberMarks->False], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 8.931595706939689, $CellContext`beta$$ = -90, $CellContext`v$$ = 250, $CellContext`w$$ = 2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`a$$], 1, "\[UAcute]hel n\[AAcute]klonu zbran\[EHacek]"}, 90, 1}, { Hold[$CellContext`beta$$], -90, 90, 5}, { Hold[$CellContext`v$$], 250, 1000, 50}, { Hold[$CellContext`w$$], 1, 10, 1}}, Typeset`size$$ = {360., {66., 70.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$68054$$ = 0, $CellContext`beta$68055$$ = 0, $CellContext`v$68056$$ = 0, $CellContext`w$68057$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 1, $CellContext`beta$$ = -90, $CellContext`v$$ = 250, $CellContext`w$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$68054$$, 0], Hold[$CellContext`beta$$, $CellContext`beta$68055$$, 0], Hold[$CellContext`v$$, $CellContext`v$68056$$, 0], Hold[$CellContext`w$$, $CellContext`w$68057$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ParametricPlot3D[{$CellContext`v$$ Cos[$CellContext`a$$ Pi/180] $CellContext`t, $CellContext`v$$ Sin[$CellContext`a$$ Pi/ 180] $CellContext`t - $CellContext`g $CellContext`t \ $CellContext`t/2, (-$CellContext`w$$) Sin[$CellContext`beta$$ Pi/180] $CellContext`t}, {$CellContext`t, 0, 2 $CellContext`v$$ Sin[$CellContext`a$$ Pi/180]/$CellContext`g}, PlotStyle -> {Blue, Thick}], "Specifications" :> {{{$CellContext`a$$, 1, "\[UAcute]hel n\[AAcute]klonu zbran\[EHacek]"}, 90, 1}, {$CellContext`beta$$, -90, 90, 5}, {$CellContext`v$$, 250, 1000, 50}, {$CellContext`w$$, 1, 10, 1}}, "Options" :> {Deployed -> True}, "DefaultOptions" :> {}], ImageSizeCache->{411., {177., 184.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.6261825467999554`*^9}] }, Open ]] }, WindowSize->{1280, 942}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"10.0 for Microsoft Windows (32-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 171, 3, 31, "Input"], Cell[CellGroupData[{ Cell[753, 27, 2517, 76, 290, "Input"], Cell[3273, 105, 5224, 92, 311, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8534, 202, 3967, 108, 206, "Input"], Cell[12504, 312, 3173, 59, 314, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15714, 376, 1646, 49, 86, "Input"], Cell[17363, 427, 2772, 54, 411, "Output"] }, Open ]] } ] *) (* End of internal cache information *)