(* 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[    209858,       3802]
NotebookOptionsPosition[    205128,       3683]
NotebookOutlinePosition[    205483,       3699]
CellTagsIndexPosition[    205440,       3696]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Catapult Problem", "Title",
 CellChangeTimes->{{3.5770432430825787`*^9, 
  3.57704324680157*^9}},ExpressionUUID->"c529f58b-248d-42b4-b766-\
0cb807be5ef8"],

Cell[TextData[{
 "A medieval city has the shape of a square and is protected by walls with \
length ",
 StyleBox["500",
  FontWeight->"Bold"],
 " =10*",
 StyleBox["50",
  FontColor->RGBColor[1, 0, 0]],
 " meters and height ",
 StyleBox["15",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " meters.You are the commander of an attacking army and the closest you can \
get to the wall is 100 meters.Your plan is to set fire to the city by \
catapulting heated rocks over the wall with an initial speed of 80 meters per \
second.At what range of angles should you tell your men to set the \
catapult?Assume that you will be firing from exactly 100 meters from the wall \
and that you will be firing perpendicular to the wall.We also assume that the \
walls of the city are impervious to heated rocks."
}], "Text",
 CellChangeTimes->{
  3.577043269224084*^9, {3.7348659873039618`*^9, 
   3.73486599159195*^9}},ExpressionUUID->"e3a13556-f46f-4ae3-b094-\
c57a65eeafa7"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzs3QdcU9cCBnD31qqtu1at1lqtWGvVWtsqtvbV0dLaYW3pblHrrF1iFdnL
[encoded data, 85766 characters]
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBh/g9qyGIC
    "], {{0, 580}, {875, 0}}, {0,
     255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVlwdQU9kax8+9N73QApFO6B0pAgGkhB5AQTrYCEkIoYSQEJpdEVdgLYiI
gLqiqyAKrgWQtSAWbItiw75BFgV1XSzYUHkXeIT33rydN++bOef+zjff/O/3
nXvOzHcNk7MiU2AAgJSATpGcPJZEwimIUkEXMSKpUCDi89iiHL6AL2EmQ6jz
IAWdAOUgRyzOgNGoTFGOJDLIlxGfkMjAPwYIUAZEYAocOFypmBUREQb+1j7c
BeOC4JbtuNbfx/1XU+XxpVwAoAiUk3lSbibKx9BRwRVLcgBAglG/SV6OeJzH
tdUlaIIorxxnwSRXjHPyJNdPxERH+qF8EgAChcORCAAgX0L9jFyuANUhD6Js
L+IJRWj9mih7cVM5PJTjUbbJzMwa5yKULZL/RUfwb5rJCk0OR6DgyVomjOAv
lIozOAX/53b8b8vMkE29Qx8dFGl6VCj61EX3LJ/LCYia4lQ+O2yKxTm+kVMs
zGFHK2JkwTFTLEuPYU1xelaoIl6UPDdcoS/1S5ziwtTouCnm8f0DpliSFamI
l+ZGBUzH+82d4jROSMQUcyQTtUwwPyMocjrnCEWeooy5ilpSJIGKGL50ut6c
1OhgBaMHQBEvDGQr6pUET+tnRCg0JbJIxT7wRTEKTR7HX7G3wA8IgQjwQSbg
AAbwR1dSIAYZ6Kogh5+fM16EX5a4QCIUpOYwWOhN4Nsw2CKunQ3D0d7BCYzf
q8nP9o4+cV8g+pVpXz569rzR7wlXTfsSNwBw6CwAdJVpn/EwADRDANqLuDJJ
7qQPMz5hAQm9sepACz0VxsAC2AJH4AI8gA8IACEgHESDBLAIcEEqmr8E5IGl
YBUoBqVgE9gKqsEusAfUg0PgCGgFJ8FZcBFcBTfAHfAQyMEAeAmGwQcwCkEQ
HqJCNEgLMoBMIWvIEWJCXlAAFAZFQglQEiSARJAMWgqtgUqhcqga2g01QL9A
J6Cz0GWoB7oP9UFD0FvoC4zAFFgd1oPN4JkwE2bBoXA0vBAWwNlwIVwEb4Cr
4Dr4INwCn4WvwndgOfwSHkEAQkboiCFiizARPyQcSURSEAmyHClBKpE6pAlp
R7qQW4gceYV8xuAwNAwDY4vxwARjYjBcTDZmOaYMU42px7RgzmNuYfoww5jv
WCpWF2uNdceysfFYATYPW4ytxO7DHsdewN7BDmA/4HA4Os4c54oLxiXg0nBL
cGW4HbhmXAeuB9ePG8Hj8Vp4a7wnPhzPwefgi/Hb8QfxZ/A38QP4TwQywYDg
SAgkJBJEhNWESsIBwmnCTcJzwihRhWhKdCeGE3nEAuJG4l5iO/E6cYA4SlIl
mZM8SdGkNNIqUhWpiXSB9Ij0jkwmG5HdyPPIQvJKchX5MPkSuY/8maJGsaL4
URZQZJQNlP2UDsp9yjsqlWpG9aEmUnOoG6gN1HPUJ9RPSjQlOyW2Ek9phVKN
UovSTaXXykRlU2WW8iLlQuVK5aPK15VfqRBVzFT8VDgqy1VqVE6o9KqMqNJU
HVTDVTNVy1QPqF5WHVTDq5mpBajx1IrU9qidU+unITRjmh+NS1tD20u7QBtQ
x6mbq7PV09RL1Q+pd6sPa6hpzNKI1cjXqNE4pSGnI3QzOpueQd9IP0K/S/8y
Q28GawZ/xvoZTTNuzvioqaPpo8nXLNFs1ryj+UWLoRWgla61WatV67E2RttK
e552nvZO7Qvar3TUdTx0uDolOkd0HujCula6kbpLdPfoXtMd0dPXC9IT623X
O6f3Sp+u76Ofpl+hf1p/yIBm4GUgNKgwOGPwgqHBYDEyGFWM84xhQ13DYEOZ
4W7DbsNRI3OjGKPVRs1Gj41JxkzjFOMK407jYRMDkzkmS00aTR6YEk2Zpqmm
20y7TD+amZvFma0zazUbNNc0Z5sXmjeaP7KgWnhbZFvUWdy2xFkyLdMtd1je
sIKtnK1SrWqsrlvD1i7WQusd1j02WBs3G5FNnU2vLcWWZZtr22jbZ0e3C7Nb
bddq93qmyczEmZtnds38bu9sn2G/1/6hg5pDiMNqh3aHt45WjlzHGsfbTlSn
QKcVTm1Ob2ZZz+LP2jnrnjPNeY7zOudO528uri4SlyaXIVcT1yTXWtdepjoz
glnGvOSGdfN1W+F20u2zu4t7jvsR9788bD3SPQ54DM42n82fvXd2v6eRJ8dz
t6fci+GV5PWTl9zb0JvjXef91MfYh+ezz+c5y5KVxjrIeu1r7yvxPe770c/d
b5lfhz/iH+Rf4t8doBYQE1Ad8CTQKFAQ2Bg4HOQctCSoIxgbHBq8ObiXrcfm
shvYwyGuIctCzodSQqNCq0OfhlmFScLa58BzQuZsmfNorulc0dzWcBDODt8S
/jjCPCI74td5uHkR82rmPYt0iFwa2RVFi1ocdSDqQ7Rv9MbohzEWMbKYzljl
2AWxDbEf4/zjyuPk8TPjl8VfTdBOECa0JeITYxP3JY7MD5i/df7AAucFxQvu
LjRfmL/w8iLtRRmLTi1WXsxZfDQJmxSXdCDpKyecU8cZSWYn1yYPc/2427gv
eT68Ct4Q35Nfzn+e4plSnjIo8BRsEQyleqdWpr4S+gmrhW/SgtN2pX1MD0/f
nz6WEZfRnEnITMo8IVITpYvOZ+ln5Wf1iK3FxWJ5tnv21uxhSahknxSSLpS2
5aijDcw1mYVsrawv1yu3JvdTXmze0XzVfFH+tQKrgvUFzwsDC39eglnCXdK5
1HDpqqV9y1jLdi+Hlicv71xhvKJoxcDKoJX1q0ir0lf9ttp+dfnq92vi1rQX
6RWtLOpfG7S2sVipWFLcu85j3a4fMD8If+he77R++/rvJbySK6X2pZWlX8u4
ZVd+dPix6sexDSkbuje6bNy5CbdJtOnuZu/N9eWq5YXl/VvmbGmpYFSUVLzf
unjr5cpZlbu2kbbJtsmrwqratpts37T9a3Vq9Z0a35rmWt3a9bUfd/B23Nzp
s7Npl96u0l1ffhL+dG930O6WOrO6yj24Pbl7nu2N3dv1M/Pnhn3a+0r3fdsv
2i+vj6w/3+Da0HBA98DGRrhR1jh0cMHBG4f8D7U12TbtbqY3lx4Gh2WHX/yS
9MvdI6FHOo8yjzYdMz1We5x2vKQFailoGW5NbZW3JbT1nAg50dnu0X78V7tf
9580PFlzSuPUxtOk00Wnx84UnhnpEHe8Ois429+5uPPhufhzt8/PO999IfTC
pYuBF891sbrOXPK8dPKy++UTV5hXWq+6XG255nzt+G/Ovx3vduluue56ve2G
2432ntk9p2963zx7y//Wxdvs21fvzL3Tczfm7r3eBb3ye7x7g/cz7r95kPtg
9OHKR9hHJY9VHlc+0X1S97vl781yF/mpPv++a0+jnj7s5/a//EP6x9eBomfU
Z5XPDZ43DDoOnhwKHLrxYv6LgZfil6Oviv9U/bP2tcXrY3/5/HVtOH544I3k
zdjbsnda7/a/n/W+cyRi5MmHzA+jH0s+aX2q/8z83PUl7svz0byv+K9V3yy/
tX8P/f5oLHNsTMyRcCZaAQQdcEoKAG/3A0BNQHuFGwCQlCb73gmDJnv1CQJ/
x5O98YS5ALCnA4DxVi90JQC1PgD9KQBADR3jLVy0D4CdnBTjnyZNcXKc1KKg
3R3209jYOz0A8O0AfJOMjY3uGBv7thdN9j4AHdmT/fa44dC/kHI9+Ds+5ZSt
XAz+w/4BDSMD4g==
      "], "RGB", "XYZ"], Interleaving -> True],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{875, 580},
  PlotRange->{{0, 875}, {0, 580}}]], "Input",ExpressionUUID->"8c513410-0220-\
40bb-8a65-29dc6acf9865"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzs3QdcU9cCBnD31qqtu1at1lqtWGvVWtsqtvbV0dLaYW3pblHrrF1iFdnL
[encoded data, 85766 characters]
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBh/g9qyGIC
    "], {{0, 580}, {875, 0}}, {0,
     255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVlwdQU9kax8+9N73QApFO6B0pAgGkhB5AQTrYCEkIoYSQEJpdEVdgLYiI
gLqiqyAKrgWQtSAWbItiw75BFgV1XSzYUHkXeIT33rydN++bOef+zjff/O/3
nXvOzHcNk7MiU2AAgJSATpGcPJZEwimIUkEXMSKpUCDi89iiHL6AL2EmQ6jz
IAWdAOUgRyzOgNGoTFGOJDLIlxGfkMjAPwYIUAZEYAocOFypmBUREQb+1j7c
BeOC4JbtuNbfx/1XU+XxpVwAoAiUk3lSbibKx9BRwRVLcgBAglG/SV6OeJzH
tdUlaIIorxxnwSRXjHPyJNdPxERH+qF8EgAChcORCAAgX0L9jFyuANUhD6Js
L+IJRWj9mih7cVM5PJTjUbbJzMwa5yKULZL/RUfwb5rJCk0OR6DgyVomjOAv
lIozOAX/53b8b8vMkE29Qx8dFGl6VCj61EX3LJ/LCYia4lQ+O2yKxTm+kVMs
zGFHK2JkwTFTLEuPYU1xelaoIl6UPDdcoS/1S5ziwtTouCnm8f0DpliSFamI
l+ZGBUzH+82d4jROSMQUcyQTtUwwPyMocjrnCEWeooy5ilpSJIGKGL50ut6c
1OhgBaMHQBEvDGQr6pUET+tnRCg0JbJIxT7wRTEKTR7HX7G3wA8IgQjwQSbg
AAbwR1dSIAYZ6Kogh5+fM16EX5a4QCIUpOYwWOhN4Nsw2CKunQ3D0d7BCYzf
q8nP9o4+cV8g+pVpXz569rzR7wlXTfsSNwBw6CwAdJVpn/EwADRDANqLuDJJ
7qQPMz5hAQm9sepACz0VxsAC2AJH4AI8gA8IACEgHESDBLAIcEEqmr8E5IGl
YBUoBqVgE9gKqsEusAfUg0PgCGgFJ8FZcBFcBTfAHfAQyMEAeAmGwQcwCkEQ
HqJCNEgLMoBMIWvIEWJCXlAAFAZFQglQEiSARJAMWgqtgUqhcqga2g01QL9A
J6Cz0GWoB7oP9UFD0FvoC4zAFFgd1oPN4JkwE2bBoXA0vBAWwNlwIVwEb4Cr
4Dr4INwCn4WvwndgOfwSHkEAQkboiCFiizARPyQcSURSEAmyHClBKpE6pAlp
R7qQW4gceYV8xuAwNAwDY4vxwARjYjBcTDZmOaYMU42px7RgzmNuYfoww5jv
WCpWF2uNdceysfFYATYPW4ytxO7DHsdewN7BDmA/4HA4Os4c54oLxiXg0nBL
cGW4HbhmXAeuB9ePG8Hj8Vp4a7wnPhzPwefgi/Hb8QfxZ/A38QP4TwQywYDg
SAgkJBJEhNWESsIBwmnCTcJzwihRhWhKdCeGE3nEAuJG4l5iO/E6cYA4SlIl
mZM8SdGkNNIqUhWpiXSB9Ij0jkwmG5HdyPPIQvJKchX5MPkSuY/8maJGsaL4
URZQZJQNlP2UDsp9yjsqlWpG9aEmUnOoG6gN1HPUJ9RPSjQlOyW2Ek9phVKN
UovSTaXXykRlU2WW8iLlQuVK5aPK15VfqRBVzFT8VDgqy1VqVE6o9KqMqNJU
HVTDVTNVy1QPqF5WHVTDq5mpBajx1IrU9qidU+unITRjmh+NS1tD20u7QBtQ
x6mbq7PV09RL1Q+pd6sPa6hpzNKI1cjXqNE4pSGnI3QzOpueQd9IP0K/S/8y
Q28GawZ/xvoZTTNuzvioqaPpo8nXLNFs1ryj+UWLoRWgla61WatV67E2RttK
e552nvZO7Qvar3TUdTx0uDolOkd0HujCula6kbpLdPfoXtMd0dPXC9IT623X
O6f3Sp+u76Ofpl+hf1p/yIBm4GUgNKgwOGPwgqHBYDEyGFWM84xhQ13DYEOZ
4W7DbsNRI3OjGKPVRs1Gj41JxkzjFOMK407jYRMDkzkmS00aTR6YEk2Zpqmm
20y7TD+amZvFma0zazUbNNc0Z5sXmjeaP7KgWnhbZFvUWdy2xFkyLdMtd1je
sIKtnK1SrWqsrlvD1i7WQusd1j02WBs3G5FNnU2vLcWWZZtr22jbZ0e3C7Nb
bddq93qmyczEmZtnds38bu9sn2G/1/6hg5pDiMNqh3aHt45WjlzHGsfbTlSn
QKcVTm1Ob2ZZz+LP2jnrnjPNeY7zOudO528uri4SlyaXIVcT1yTXWtdepjoz
glnGvOSGdfN1W+F20u2zu4t7jvsR9788bD3SPQ54DM42n82fvXd2v6eRJ8dz
t6fci+GV5PWTl9zb0JvjXef91MfYh+ezz+c5y5KVxjrIeu1r7yvxPe770c/d
b5lfhz/iH+Rf4t8doBYQE1Ad8CTQKFAQ2Bg4HOQctCSoIxgbHBq8ObiXrcfm
shvYwyGuIctCzodSQqNCq0OfhlmFScLa58BzQuZsmfNorulc0dzWcBDODt8S
/jjCPCI74td5uHkR82rmPYt0iFwa2RVFi1ocdSDqQ7Rv9MbohzEWMbKYzljl
2AWxDbEf4/zjyuPk8TPjl8VfTdBOECa0JeITYxP3JY7MD5i/df7AAucFxQvu
LjRfmL/w8iLtRRmLTi1WXsxZfDQJmxSXdCDpKyecU8cZSWYn1yYPc/2427gv
eT68Ct4Q35Nfzn+e4plSnjIo8BRsEQyleqdWpr4S+gmrhW/SgtN2pX1MD0/f
nz6WEZfRnEnITMo8IVITpYvOZ+ln5Wf1iK3FxWJ5tnv21uxhSahknxSSLpS2
5aijDcw1mYVsrawv1yu3JvdTXmze0XzVfFH+tQKrgvUFzwsDC39eglnCXdK5
1HDpqqV9y1jLdi+Hlicv71xhvKJoxcDKoJX1q0ir0lf9ttp+dfnq92vi1rQX
6RWtLOpfG7S2sVipWFLcu85j3a4fMD8If+he77R++/rvJbySK6X2pZWlX8u4
ZVd+dPix6sexDSkbuje6bNy5CbdJtOnuZu/N9eWq5YXl/VvmbGmpYFSUVLzf
unjr5cpZlbu2kbbJtsmrwqratpts37T9a3Vq9Z0a35rmWt3a9bUfd/B23Nzp
s7Npl96u0l1ffhL+dG930O6WOrO6yj24Pbl7nu2N3dv1M/Pnhn3a+0r3fdsv
2i+vj6w/3+Da0HBA98DGRrhR1jh0cMHBG4f8D7U12TbtbqY3lx4Gh2WHX/yS
9MvdI6FHOo8yjzYdMz1We5x2vKQFailoGW5NbZW3JbT1nAg50dnu0X78V7tf
9580PFlzSuPUxtOk00Wnx84UnhnpEHe8Ois429+5uPPhufhzt8/PO999IfTC
pYuBF891sbrOXPK8dPKy++UTV5hXWq+6XG255nzt+G/Ovx3vduluue56ve2G
2432ntk9p2963zx7y//Wxdvs21fvzL3Tczfm7r3eBb3ye7x7g/cz7r95kPtg
9OHKR9hHJY9VHlc+0X1S97vl781yF/mpPv++a0+jnj7s5/a//EP6x9eBomfU
Z5XPDZ43DDoOnhwKHLrxYv6LgZfil6Oviv9U/bP2tcXrY3/5/HVtOH544I3k
zdjbsnda7/a/n/W+cyRi5MmHzA+jH0s+aX2q/8z83PUl7svz0byv+K9V3yy/
tX8P/f5oLHNsTMyRcCZaAQQdcEoKAG/3A0BNQHuFGwCQlCb73gmDJnv1CQJ/
x5O98YS5ALCnA4DxVi90JQC1PgD9KQBADR3jLVy0D4CdnBTjnyZNcXKc1KKg
3R3209jYOz0A8O0AfJOMjY3uGBv7thdN9j4AHdmT/fa44dC/kHI9+Ds+5ZSt
XAz+w/4BDSMD4g==
      "], "RGB", "XYZ"], Interleaving -> True],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{875, 580},
  PlotRange->{{0, 875}, {0, 580}}]], "Output",
 CellChangeTimes->{3.651520854160612*^9, 
  3.651521937168105*^9},ExpressionUUID->"2a467e4e-f2f1-4699-902f-\
330a4ceda846"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.577043260079913*^9, 
  3.577043264425056*^9}},ExpressionUUID->"5dc22647-9bfc-4d0a-a19b-\
d63bb8430c0f"],

Cell["\<\
The projectile sometimes hits the front wall - and therefore doesn\
\[CloseCurlyQuote]t get into the city. The projectile sometiimes goes past \
the back wall and doesn\[CloseCurlyQuote]t get into the city. \
\>", "Text",
 CellChangeTimes->{{3.5770440648868837`*^9, 
  3.577044120293538*^9}},ExpressionUUID->"0fc66281-4dad-4edc-a037-\
0c25ee607b22"],

Cell[TextData[{
 "There is a range of angles that we are looking for\nFrom (0,",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "1"], TraditionalForm]],ExpressionUUID->
  "c20a4581-7e1f-4666-bf4b-a3560c4f1ce1"],
 ") the projectile hits the front wall.\nFrom (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "1"], TraditionalForm]],ExpressionUUID->
  "25618bcc-fbb1-45dc-872a-bd393bf1391e"],
 ",",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "2"], TraditionalForm]],ExpressionUUID->
  "78bb2982-7584-49ec-b3a9-5ca471de83bd"],
 ") the projectile makes it into the city.\nFrom (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "2"], TraditionalForm]],ExpressionUUID->
  "72da0ed4-e2e7-40e6-a2ff-c675193ea6f2"],
 ",",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "3"], TraditionalForm]],ExpressionUUID->
  "2c8ca62e-8bef-4276-b61c-503c854743cc"],
 ") the projectile misses the city and flies past the back wall.\nFrom (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "3"], TraditionalForm]],ExpressionUUID->
  "dc7d84b4-1d47-4320-9241-132b25c6fbf9"],
 ",",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "4"], TraditionalForm]],ExpressionUUID->
  "56baecd2-e1cb-448d-b68b-3b4ef8e24498"],
 ") the projectile again hits the interior of the city.\nFrom (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "4"], TraditionalForm]],ExpressionUUID->
  "8fd81d82-cbf8-483c-8763-4fad9a4d4406"],
 ",90) the projectile does not make to to the front wall."
}], "Text",
 CellChangeTimes->{{3.577044468202783*^9, 
  3.57704472222932*^9}},ExpressionUUID->"1100c2f1-afd7-48b5-b9f8-\
0150a3ba1710"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.577044459512603*^9, 
  3.577044460363768*^9}},ExpressionUUID->"83dd9b8d-49f5-4293-842e-\
1880911822d8"],

Cell[CellGroupData[{

Cell["The Model", "Section",
 CellChangeTimes->{{3.577044453915156*^9, 
  3.57704445550483*^9}},ExpressionUUID->"50567b47-2720-42d6-9716-\
4d3a77ffd4c3"],

Cell[TextData[{
 "Parametric Equations for the Path of the Projectile\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    RowBox[{"80", "*", "t", "*", "cos", 
     RowBox[{"\[LeftAngleBracket]", "\[Theta]", "\[RightAngleBracket]"}]}]}], 
   TraditionalForm]],ExpressionUUID->"0e928f6b-6b11-446b-a53c-cfc5036ae71a"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"80", "*", "t", "*", "sin", 
     RowBox[{"{", "\[Theta]", "}"}]}]}], TraditionalForm]],ExpressionUUID->
  "131ddeb0-e251-46e5-987a-1dbd3e10520b"],
 " - 4.9",
 Cell[BoxData[
  FormBox[
   RowBox[{"*", 
    SuperscriptBox["t", "2"]}], TraditionalForm]],ExpressionUUID->
  "48964af7-f621-47a1-a4e9-b73b3a47de5c"]
}], "Text",
 CellChangeTimes->{{3.577043498528852*^9, 3.577043685506493*^9}, {
  3.5771765692642*^9, 
  3.5771765720566*^9}},ExpressionUUID->"8f96358f-ef2b-4807-a077-9995608c3aad"],

Cell["", "Text",ExpressionUUID->"3c59b348-94ea-449f-869a-f5c5519ac65c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"v0", "=", "80"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"v0", " ", "t", "*", 
          RowBox[{"Cos", "[", "theta", "]"}]}], ",", 
         RowBox[{
          RowBox[{"v0", " ", "t", "*", 
           RowBox[{"Sin", "[", "theta", "]"}]}], "-", 
          RowBox[{"4.9", "\[IndentingNewLine]", 
           RowBox[{"t", "^", "2"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"100", "+", 
          RowBox[{"10", "t"}]}], ",", 
         StyleBox["15",
          FontColor->RGBColor[1, 0, 0]]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       StyleBox["50",
        FontColor->RGBColor[1, 0, 0]]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "700"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"3", "/", "2"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"theta", ",", "0", ",", 
     RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.57703590678804*^9, 3.57703604896598*^9}, {
   3.577042096342194*^9, 3.577042096700368*^9}, {3.577042245908386*^9, 
   3.577042271841467*^9}, {3.577042302971974*^9, 3.577042337315282*^9}, {
   3.5770423687058573`*^9, 3.577042391384057*^9}, {3.577042529488461*^9, 
   3.577042535534046*^9}, {3.577043426283783*^9, 3.577043426393469*^9}, 
   3.577176470561*^9, {3.651520905706141*^9, 3.651520974556711*^9}, {
   3.6515210202423887`*^9, 3.651521102711273*^9}, {3.6515211569607153`*^9, 
   3.651521157457657*^9}, {3.651521203935006*^9, 3.6515212731807413`*^9}, {
   3.6515213034432573`*^9, 3.651521340054535*^9}, {3.651521635309868*^9, 
   3.6515216637597513`*^9}, {3.651521964648554*^9, 
   3.651521968746468*^9}},ExpressionUUID->"b891c9f0-1513-4c9d-8f0c-\
9c6ea8f3edca"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`theta$$ = 0.2261946710584653, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`theta$$], 0, Rational[1, 2] Pi}}, Typeset`size$$ = {
    302., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`theta$635217$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`theta$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`theta$$, $CellContext`theta$635217$$, 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" :> 
      ParametricPlot[{{($CellContext`v0 $CellContext`t) 
          Cos[$CellContext`theta$$], ($CellContext`v0 $CellContext`t) 
           Sin[$CellContext`theta$$] - 4.9 $CellContext`t^2}, {
         100 + 10 $CellContext`t, 15}}, {$CellContext`t, 0, 50}, 
        PlotRange -> {{0, 700}, {0, 300}}, AspectRatio -> 3/2], 
      "Specifications" :> {{$CellContext`theta$$, 0, Rational[1, 2] Pi}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{347., {259., 265.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.651521665952524*^9, 3.651521938114253*^9, 
  3.651521969619432*^9},ExpressionUUID->"f2530342-e096-4696-ada6-\
7b42ecab7707"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Front Wall", "Section",
 CellChangeTimes->{{3.57704399910394*^9, 
  3.5770440011671267`*^9}},ExpressionUUID->"2b3c6848-f58e-4386-a470-\
a8c6d744b0e7"],

Cell[TextData[{
 "When will the projectile clear the front wall?\n\nThe projectile will hit \
the top of the front wall when ",
 StyleBox["x",
  FontSlant->"Italic"],
 " = 100 and when ",
 StyleBox["y",
  FontSlant->"Italic"],
 " = 15.\n\n"
}], "Text",
 CellChangeTimes->{{3.577043473656802*^9, 3.577043488966304*^9}, {
   3.577043699510313*^9, 3.577043737202834*^9}, {3.577043795412178*^9, 
   3.5770438228102407`*^9}, 3.57704416218396*^9, {3.577044205412635*^9, 
   3.5770442094365597`*^9}, {3.577044260468281*^9, 
   3.577044261691495*^9}},ExpressionUUID->"f62f92bb-5ec5-43f8-9a18-\
4ac3cfc9b18e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"80.", "*", "t", "*", 
       RowBox[{"Cos", "[", "theta", "]"}]}], "==", "100"}], " ", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"80", "t", "*", 
        RowBox[{"Sin", "[", "theta", "]"}]}], "-", 
       RowBox[{"4.9", 
        RowBox[{"t", "^", "2"}]}]}], "\[Equal]", "15"}]}], "}"}], ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.577043745565235*^9, 3.577043777133658*^9}, {
  3.651522000329465*^9, 
  3.6515220753444967`*^9}},ExpressionUUID->"58f23cd5-5973-4cb5-9fa8-\
a3dfde06929f"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{{3.57704376674619*^9, 3.577043777911663*^9}, 
   3.5771765284058*^9, 3.651520856841202*^9, 3.651521938749186*^9, 
   3.6515220012197533`*^9, {3.6515220486463346`*^9, 
   3.651522077093299*^9}},ExpressionUUID->"5603dcc2-0574-40be-9653-\
bda1de40b45f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"80", "*", "t", "*", 
       RowBox[{"Cos", "[", "theta", "]"}]}], "==", "100"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"80", "t", "*", 
        RowBox[{"Sin", "[", "theta", "]"}]}], "-", 
       RowBox[{"4.9", "\[IndentingNewLine]", 
        RowBox[{"t", "^", "2"}]}]}], "\[Equal]", "15"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "theta"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.577043842236166*^9, 3.57704390104712*^9}, {
  3.577044280838449*^9, 
  3.577044281366375*^9}},ExpressionUUID->"7e4840a1-1792-4442-9cef-\
d4915a683644"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(NSolve\\)\
\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \\\"NSolve::ifun\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.577043879859068*^9, 3.577043901490953*^9}, 
   3.577044282419467*^9, 3.5771765793417997`*^9, 3.6515208581613493`*^9, 
   3.651521938987977*^9},ExpressionUUID->"d7cd15fb-c482-4e66-b7c5-\
41d5c496c819"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", 
      RowBox[{"-", "16.08687475952258`"}]}], ",", 
     RowBox[{"theta", "\[Rule]", 
      RowBox[{"-", "1.648577829896174`"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.996976543665251`"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.0777030976299524`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", 
      RowBox[{"-", "16.08687475952258`"}]}], ",", 
     RowBox[{"theta", "\[Rule]", "1.648577829896174`"}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.996976543665251`"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.0777030976299524`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", 
      RowBox[{"-", "1.282814610305484`"}]}], ",", 
     RowBox[{"theta", "\[Rule]", 
      RowBox[{"-", "2.9149212028790186`"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.22473537002486751`"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.9744198342910442`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", 
      RowBox[{"-", "1.282814610305484`"}]}], ",", 
     RowBox[{"theta", "\[Rule]", "2.9149212028790186`"}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.22473537002486751`"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      RowBox[{"-", "0.9744198342910442`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "1.282814610305484`"}], ",", 
     RowBox[{"theta", "\[Rule]", 
      RowBox[{"-", "0.22667145071077463`"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", "0.22473537002486751`"}],
      ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      "0.9744198342910442`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "1.282814610305484`"}], ",", 
     RowBox[{"theta", "\[Rule]", "0.22667145071077463`"}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", "0.22473537002486751`"}],
      ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      "0.9744198342910442`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "16.08687475952258`"}], ",", 
     RowBox[{"theta", "\[Rule]", 
      RowBox[{"-", "1.4930148236936192`"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", "0.996976543665251`"}], 
     ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      "0.0777030976299524`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "16.08687475952258`"}], ",", 
     RowBox[{"theta", "\[Rule]", "1.4930148236936192`"}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "theta", "]"}], "\[Rule]", "0.996976543665251`"}], 
     ",", 
     RowBox[{
      RowBox[{"Cos", "[", "theta", "]"}], "\[Rule]", 
      "0.0777030976299524`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.577043879859997*^9, 3.577043901492482*^9}, 
   3.5770442824219933`*^9, 3.5771765793574*^9, 3.651520858170277*^9, 
   3.6515219390004387`*^9},ExpressionUUID->"7653a4a4-149c-44a0-96cd-\
b666e7a49756"]
}, Open  ]],

Cell[TextData[{
 "The two solutions for which ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", " ", "<", " ", "theta", " ", "<", 
    RowBox[{"\[Pi]", "/", "2"}]}], TraditionalForm]],ExpressionUUID->
  "54f20f57-3167-4257-a606-7b14ce8969c0"],
 " are theta=",
 StyleBox["0.2267",
  FontColor->RGBColor[1, 0, 0]],
 " and ",
 StyleBox["1.4930",
  FontColor->RGBColor[1, 0, 0]],
 ".  In degrees:"
}], "Text",
 CellChangeTimes->{{3.651522154029902*^9, 
  3.651522258490157*^9}},ExpressionUUID->"34c5141a-8db9-4201-81b3-\
0e0d3fb4abcb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t1deg", "=", 
  RowBox[{
   RowBox[{"0.226671", "/", "Pi"}], "*", "180"}]}]], "Input",
 CellChangeTimes->{{3.577043939708416*^9, 3.577043964139162*^9}, 
   3.577044290383047*^9},ExpressionUUID->"9ab9623e-c61c-4935-b6bd-\
533e97471a1d"],

Cell[BoxData["12.987291638009886`"], "Output",
 CellChangeTimes->{3.577043965090088*^9, 3.577044291788028*^9, 
  3.651520858681178*^9, 
  3.6515219390860453`*^9},ExpressionUUID->"0e429eb0-fb9f-4fdd-9f56-\
3390526ec1b9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t2deg", "=", 
  RowBox[{
   RowBox[{"1.49301", "/", "Pi"}], "*", "180"}]}]], "Input",
 CellChangeTimes->{{3.577043967044531*^9, 3.577043977824946*^9}, 
   3.5770443053439903`*^9},ExpressionUUID->"eb44a7da-6fc5-49dc-82fc-\
f8af0f1fcf03"],

Cell[BoxData["85.54317177082704`"], "Output",
 CellChangeTimes->{3.5770439788172407`*^9, 3.577044306502891*^9, 
  3.651520858752942*^9, 
  3.651521939153516*^9},ExpressionUUID->"b04a5868-21be-41fe-8723-\
c41215060696"]
}, Open  ]],

Cell[TextData[{
 "So we need our angles to be larger than 12.99 degrees and less than 85.54 \
degrees.\n\nThese two angles are ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "1"], TraditionalForm]],ExpressionUUID->
  "7f7bff94-cb22-47f5-857f-1946f966d610"],
 "and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "4"], TraditionalForm]],ExpressionUUID->
  "34a7f8e2-4a96-476b-a996-01c8b7c3cdba"],
 "."
}], "Text",
 CellChangeTimes->{{3.577044219623129*^9, 3.577044249412202*^9}, {
  3.5770442974857883`*^9, 3.577044313227323*^9}, {3.577044736325201*^9, 
  3.577044781476297*^9}},ExpressionUUID->"3f717302-e813-406a-928d-\
e5c3a165b0a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Back Wall", "Section",
 CellChangeTimes->{{3.57704399910394*^9, 
  3.5770440126471148`*^9}},ExpressionUUID->"605fb6b2-e371-42a3-8709-\
6352e0149c50"],

Cell[TextData[{
 "When will the projectile go past the back wall?\n\nThe projectile will hit \
the top of the back wall when ",
 StyleBox["x",
  FontSlant->"Italic"],
 " = 600 and when ",
 StyleBox["y",
  FontSlant->"Italic"],
 " = 15\n\n"
}], "Text",
 CellChangeTimes->{{3.577043473656802*^9, 3.577043488966304*^9}, {
  3.577043699510313*^9, 3.577043737202834*^9}, {3.577043795412178*^9, 
  3.5770438228102407`*^9}, {3.5770440305034113`*^9, 3.577044032782607*^9}, {
  3.577044177423098*^9, 3.5770442011885443`*^9}, {3.577044254843997*^9, 
  3.57704425881177*^9}},ExpressionUUID->"fc64a173-9dcf-47d2-b9d3-\
97e3f52d349c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"80", "*", "t", "*", 
       RowBox[{"Cos", "[", "theta", "]"}]}], "\[Equal]", "600"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"80", "t", "*", 
        RowBox[{"Sin", "[", "theta", "]"}]}], "-", 
       RowBox[{"4.9", "\[IndentingNewLine]", 
        RowBox[{"t", "^", "2"}]}]}], "\[Equal]", "15"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "theta"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.577043842236166*^9, 3.57704390104712*^9}, {
  3.577044274495667*^9, 3.577044274789934*^9}, {3.57704431785366*^9, 
  3.5770443180449867`*^9}},ExpressionUUID->"562de2f4-1163-473d-9288-\
1e4eb896f5c1"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NSolve", "::", "ifun"}], "MessageName"], ":", 
  " ", "\<\"Inverse functions are being used by \[NoBreak]\\!\\(NSolve\\)\
\[NoBreak], so some solutions may not be found; use Reduce for complete \
solution information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/NSolve\\\", ButtonNote -> \\\"NSolve::ifun\\\"]\\)\
\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.577043879859068*^9, 3.577043901490953*^9}, 
   3.577044318839102*^9, 3.577176712617*^9, 3.651520859003256*^9, 
   3.6515219393480263`*^9},ExpressionUUID->"5c20f1a7-7596-452e-805a-\
b9ceba738f05"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", 
      RowBox[{"-", "13.206512522017062`"}]}], ",", 
     RowBox[{"theta", "\[Rule]", 
      RowBox[{"-", "2.174750573233465`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", 
      RowBox[{"-", "9.274760366650153`"}]}], ",", 
     RowBox[{"theta", "\[Rule]", 
      RowBox[{"-", "2.5126436135323047`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "9.274760366650153`"}], ",", 
     RowBox[{"theta", "\[Rule]", "0.6289490400574884`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[Rule]", "13.206512522017062`"}], ",", 
     RowBox[{"theta", "\[Rule]", "0.9668420803563283`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.577043879859997*^9, 3.577043901492482*^9}, 
   3.577044318841535*^9, 3.577176712617*^9, 3.6515208590068073`*^9, 
   3.6515219393520527`*^9},ExpressionUUID->"a0399b81-10a2-4bea-997b-\
b61b83d590cc"]
}, Open  ]],

Cell[TextData[{
 "Again, we\[CloseCurlyQuote]re looking for solutions where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", " ", "<", " ", "theta", " ", "<", 
    RowBox[{"\[Pi]", "/", "2"}]}], TraditionalForm]],ExpressionUUID->
  "cf98da4d-e91e-4f93-9220-bb8055c69899"]
}], "Text",
 CellChangeTimes->{{3.651522294393217*^9, 
  3.651522315293376*^9}},ExpressionUUID->"af79f0aa-0461-49a4-8860-\
3b305dde5022"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t1deg", "=", 
  RowBox[{
   RowBox[{"0.628949", "/", "Pi"}], "*", "180"}]}]], "Input",
 CellChangeTimes->{{3.577043939708416*^9, 3.577043964139162*^9}, {
  3.577044328384617*^9, 
  3.577044349797514*^9}},ExpressionUUID->"76e59907-d5ed-4163-8e0e-\
b219ef5f6c65"],

Cell[BoxData["36.036123228973615`"], "Output",
 CellChangeTimes->{
  3.577043965090088*^9, {3.577044336457951*^9, 3.577044350634899*^9}, 
   3.651520859085229*^9, 
   3.6515219395297117`*^9},ExpressionUUID->"6c5e7f39-fa91-4d0e-a16c-\
2109e7b22f23"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t2deg", "=", 
  RowBox[{
   RowBox[{"0.966842", "/", "Pi"}], "*", "180"}]}]], "Input",
 CellChangeTimes->{{3.577043967044531*^9, 3.577043977824946*^9}, {
  3.5770443555249443`*^9, 
  3.57704435725312*^9}},ExpressionUUID->"b522e952-f675-45b2-bac7-\
cc068dca2036"],

Cell[BoxData["55.39596605598754`"], "Output",
 CellChangeTimes->{3.5770439788172407`*^9, 3.577044358151308*^9, 
  3.6515208591600246`*^9, 
  3.6515219396096067`*^9},ExpressionUUID->"9fa3de9c-87ef-4c7e-b06a-\
77854b57324f"]
}, Open  ]],

Cell[TextData[{
 "We have just computed ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "2"], TraditionalForm]],ExpressionUUID->
  "361e29df-ff13-4b06-968d-877445508116"],
 "and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Theta]", "3"], TraditionalForm]],ExpressionUUID->
  "b0cba11b-208e-47a7-a19e-465a463339d0"],
 "."
}], "Text",
 CellChangeTimes->{
  3.577044379621958*^9, {3.5770448031162567`*^9, 
   3.5770448256777687`*^9}},ExpressionUUID->"ce8074fe-1347-492f-957f-\
d3cde50aed06"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Conclusion", "Section",
 CellChangeTimes->{{3.57704399910394*^9, 3.5770440126471148`*^9}, {
   3.577044837277952*^9, 3.577044839083811*^9}, 
   3.577045088301484*^9},ExpressionUUID->"e073b537-bd15-4f91-aaab-\
8cefe96bc2b8"],

Cell["\<\
Therefore

For angles between (0, 12.99\[Degree]) the projectile strikes the front wall \
and misses the city.

For angles between (12.99\[Degree], 36.04\[Degree]) the projectile makes it \
into the city.

For angles between (36.04\[Degree], 55.40\[Degree]) the projectiles clears \
the city and strikes the ground past the back wall.\[LineSeparator]\
\[LineSeparator]For angles between (55.40\[Degree], 85.54\[Degree]) the \
projectile again strikes the city.

For angles between (85.54\[Degree], 90\[Degree]) the projectile hits the \
ground in front of the front wall.
\
\>", "Text",
 CellChangeTimes->{{3.577043473656802*^9, 3.577043488966304*^9}, {
  3.577043699510313*^9, 3.577043737202834*^9}, {3.577043795412178*^9, 
  3.5770438228102407`*^9}, {3.5770440305034113`*^9, 3.577044032782607*^9}, {
  3.577044177423098*^9, 3.5770442011885443`*^9}, {3.577044254843997*^9, 
  3.57704425881177*^9}, {3.577044865605749*^9, 
  3.57704508830179*^9}},ExpressionUUID->"c545342a-4ce4-4175-a561-\
03a1fede77cf"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 1038},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 27, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 160, 3, 92, "Title", "ExpressionUUID" -> \
"c529f58b-248d-42b4-b766-0cb807be5ef8"],
Cell[742, 27, 972, 23, 87, "Text", "ExpressionUUID" -> \
"e3a13556-f46f-4ae3-b094-c57a65eeafa7"],
Cell[CellGroupData[{
Cell[1739, 54, 90060, 1482, 595, "Input", "ExpressionUUID" -> \
"8c513410-0220-40bb-8a65-29dc6acf9865"],
Cell[91802, 1538, 90128, 1484, 595, "Output", "ExpressionUUID" -> \
"2a467e4e-f2f1-4699-902f-330a4ceda846"]
}, Open  ]],
Cell[181945, 3025, 152, 3, 32, "Input", "ExpressionUUID" -> \
"5dc22647-9bfc-4d0a-a19b-d63bb8430c0f"],
Cell[182100, 3030, 359, 7, 30, "Text", "ExpressionUUID" -> \
"0fc66281-4dad-4edc-a037-0c25ee607b22"],
Cell[182462, 3039, 1642, 45, 135, "Text", "ExpressionUUID" -> \
"1100c2f1-afd7-48b5-b9f8-0150a3ba1710"],
Cell[184107, 3086, 152, 3, 32, "Input", "ExpressionUUID" -> \
"83dd9b8d-49f5-4293-842e-1880911822d8"],
Cell[CellGroupData[{
Cell[184284, 3093, 153, 3, 64, "Section", "ExpressionUUID" -> \
"50567b47-2720-42d6-9716-4d3a77ffd4c3"],
Cell[184440, 3098, 880, 24, 88, "Text", "ExpressionUUID" -> \
"8f96358f-ef2b-4807-a077-9995608c3aad"],
Cell[185323, 3124, 71, 0, 30, "Text", "ExpressionUUID" -> \
"3c59b348-94ea-449f-869a-f5c5519ac65c"],
Cell[CellGroupData[{
Cell[185419, 3128, 2099, 51, 75, "Input", "ExpressionUUID" -> \
"b891c9f0-1513-4c9d-8f0c-9c6ea8f3edca"],
Cell[187521, 3181, 2031, 39, 541, "Output", "ExpressionUUID" -> \
"f2530342-e096-4696-ada6-7b42ecab7707"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[189601, 3226, 156, 3, 64, "Section", "ExpressionUUID" -> \
"2b3c6848-f58e-4386-a470-a8c6d744b0e7"],
Cell[189760, 3231, 600, 15, 106, "Text", "ExpressionUUID" -> \
"f62f92bb-5ec5-43f8-9a18-4ac3cfc9b18e"],
Cell[CellGroupData[{
Cell[190385, 3250, 611, 18, 32, "Input", "ExpressionUUID" -> \
"58f23cd5-5973-4cb5-9fa8-a3dfde06929f"],
Cell[190999, 3270, 315, 6, 32, "Output", "ExpressionUUID" -> \
"5603dcc2-0574-40be-9653-bda1de40b45f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191351, 3281, 676, 19, 54, "Input", "ExpressionUUID" -> \
"7e4840a1-1792-4442-9cef-d4915a683644"],
Cell[192030, 3302, 690, 13, 24, "Message", "ExpressionUUID" -> \
"d7cd15fb-c482-4e66-b7c5-41d5c496c819"],
Cell[192723, 3317, 3542, 94, 180, "Output", "ExpressionUUID" -> \
"7653a4a4-149c-44a0-96cd-b666e7a49756"]
}, Open  ]],
Cell[196280, 3414, 526, 17, 31, "Text", "ExpressionUUID" -> \
"34c5141a-8db9-4201-81b3-0e0d3fb4abcb"],
Cell[CellGroupData[{
Cell[196831, 3435, 259, 6, 32, "Input", "ExpressionUUID" -> \
"9ab9623e-c61c-4935-b6bd-533e97471a1d"],
Cell[197093, 3443, 219, 4, 32, "Output", "ExpressionUUID" -> \
"0e429eb0-fb9f-4fdd-9f56-3390526ec1b9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197349, 3452, 260, 6, 32, "Input", "ExpressionUUID" -> \
"eb44a7da-6fc5-49dc-82fc-f8af0f1fcf03"],
Cell[197612, 3460, 218, 4, 32, "Output", "ExpressionUUID" -> \
"b04a5868-21be-41fe-8723-c41215060696"]
}, Open  ]],
Cell[197845, 3467, 654, 17, 70, "Text", "ExpressionUUID" -> \
"3f717302-e813-406a-928d-e5c3a165b0a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198536, 3489, 155, 3, 64, "Section", "ExpressionUUID" -> \
"605fb6b2-e371-42a3-8709-6352e0149c50"],
Cell[198694, 3494, 621, 15, 106, "Text", "ExpressionUUID" -> \
"fc64a173-9dcf-47d2-b9d3-97e3f52d349c"],
Cell[CellGroupData[{
Cell[199340, 3513, 729, 19, 54, "Input", "ExpressionUUID" -> \
"562de2f4-1163-473d-9288-1e4eb896f5c1"],
Cell[200072, 3534, 685, 13, 24, "Message", "ExpressionUUID" -> \
"5c20f1a7-7596-452e-805a-b9ceba738f05"],
Cell[200760, 3549, 1013, 27, 32, "Output", "ExpressionUUID" -> \
"a0399b81-10a2-4bea-997b-b61b83d590cc"]
}, Open  ]],
Cell[201788, 3579, 405, 10, 31, "Text", "ExpressionUUID" -> \
"af79f0aa-0461-49a4-8860-3b305dde5022"],
Cell[CellGroupData[{
Cell[202218, 3593, 285, 7, 32, "Input", "ExpressionUUID" -> \
"76e59907-d5ed-4163-8e0e-b219ef5f6c65"],
Cell[202506, 3602, 248, 5, 32, "Output", "ExpressionUUID" -> \
"6c5e7f39-fa91-4d0e-a16c-2109e7b22f23"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202791, 3612, 286, 7, 32, "Input", "ExpressionUUID" -> \
"b522e952-f675-45b2-bac7-cc068dca2036"],
Cell[203080, 3621, 222, 4, 32, "Output", "ExpressionUUID" -> \
"9fa3de9c-87ef-4c7e-b06a-77854b57324f"]
}, Open  ]],
Cell[203317, 3628, 500, 16, 32, "Text", "ExpressionUUID" -> \
"ce8074fe-1347-492f-957f-d3cde50aed06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203854, 3649, 229, 4, 64, "Section", "ExpressionUUID" -> \
"e073b537-bd15-4f91-aaab-8cefe96bc2b8"],
Cell[204086, 3655, 1014, 24, 239, "Text", "ExpressionUUID" -> \
"c545342a-4ce4-4175-a561-03a1fede77cf"]
}, Open  ]]
}, Open  ]]
}
]
*)

