(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     66122,       1402]
NotebookOptionsPosition[     63267,       1323]
NotebookOutlinePosition[     63641,       1339]
CellTagsIndexPosition[     63598,       1336]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Fun\[CCedilla]\[ATilde]o de probabilidade do desvio no \[AAcute]tomo de \
Thomson", "Title",
 CellChangeTimes->{{3.713004886495597*^9, 
  3.7130048976676097`*^9}},ExpressionUUID->"d2403783-f23a-4d72-ae96-\
97c4b020680f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{"NIntegrate", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"x", "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"2", " ", "4", " ", 
         RowBox[{"10", "^", 
          RowBox[{"-", "4"}]}]}], ")"}]}], "]"}], 
     RowBox[{"Sin", "[", "x", "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7130046354448547`*^9, 
  3.7130046654957347`*^9}},ExpressionUUID->"456d45b9-4c7b-4e31-a5f6-\
34c6b01080af"],

Cell[BoxData["0.0003999466709330895`"], "Output",
 CellChangeTimes->{3.7130046661442175`*^9, 
  3.713101294210213*^9},ExpressionUUID->"9a1ccb65-9deb-4347-b9c1-\
781992114f43"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "q_", "]"}], ":=", 
  RowBox[{
   RowBox[{"NIntegrate", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"x", "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"2", " ", "4", " ", 
          RowBox[{"10", "^", 
           RowBox[{"-", "4"}]}]}], ")"}]}], "]"}], 
      RowBox[{"Sin", "[", "x", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "q"}], "}"}]}], "]"}], "/", 
   "u"}]}]], "Input",
 CellChangeTimes->{{3.713004678156437*^9, 
  3.713004718012294*^9}},ExpressionUUID->"d03cad0c-7849-4d12-b12f-\
f6b53ed6a187"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "q", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "0.08"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta](rd)\>\"", ",", 
      "\"\<\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7130047260050287`*^9, 3.713004751433028*^9}, {
  3.713101415848117*^9, 
  3.7131014968410835`*^9}},ExpressionUUID->"86c1b400-1dc4-47e0-ab2f-\
ece5703e8a73"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13k4VtsXB3AligZDMmWKytXt3gxFCV8KGUqSqaQihZfMZApFA1GE0ICI
TC/vhLxKidJIg3ApRWXIcDIn4rd/f53n8+x9zl577b3W85w1zt5Wxxfy8PDI
L+Dh+f9Ty3ByKGyZjF7YNTm/Kd5hHSGt6oxK7rTeV/++cI5BoZ6iQ11UJFcA
PlZPww0NnusdTrC+/tZ8JWYei0Hf/aPexpO7Ao5xpaAiOTXKZ9Cvd3q97N1Q
MQUYz28tesgd03O5Jp5SZ66E67H9ixe5z+qZ8QufWRa9HjMXAh7l2/BCLUjA
y4arArrlwvOv9AUg2bPQIXNkI/hmdFNGJoQwv2Eu119MFZEvoqZiuSsx2h0q
LclQw7mNamWSnyXQc30q8b65BkS/2lfmusngP6uAxU69m2FXLv8xpVgBrwRH
TvNFa8Lg/bpMaxslsEN/0Cy426AjJqC2S18F+equXaM229E2m2kQfGYjrv/4
apc2ooMGZe1kxYlN0Kd7KfqI6WNK9gCNqtKAtgDdcUe3PmrUPIxPPdyCzccH
0sUYBhhn7Lq0rVMLyrJuQlXmO3GPP/kJzVUHCiH5ZpekDBERHHis7a0epD98
O+fYa4gG6XOfaor0sSLBaXZBtDH2fF1lrmm9E+OzB/vNuKY4xE5QcdYzxbB9
xlrZi2b4rPLsjmebGfo4rUcoG3PwTX6+LhS5Gx2e1i3JI7sxXzIwLzO6F07D
+U5eYpZo4o++lFu5H4dljCPtwiyhqXYiiLfSGgfNvt/U77aEfWFeEP2+Dazz
ldpEGfvQd+hbZGe7HUwOZ1tUmu/HrPX6F8XOh2AUD89s1n7MXGGe2Z/iiB3c
zthYKWuc3V1RtuPVYWwXl33i0GuN6bU750LvHsW/jRnbeaJtsYWZ0Ptu7zGs
0kv+y5R7ABn83jO9mu7YIOBm0q5yEC7D2fPiK2nQb9Zx88g4COfR8qrRURpo
tJ67CcEOWBURIVH2wBOPrm1TfqfpiOa10jYZ8EHFFHWVfuAo+NMnDJcfCICB
Y7tiUNJRTAh++BT0LQCvHtez9J4fhewJZUmObyC6EjLeNW11AiOEWVKQFIRl
a3eKjko4Q+6swPuA3mA4W15L0mw5hiGp2THaj9MYKo9aM7/cBUXqe6wmr0Yg
eLUHs8HIBYqPs6f26UYioQdv7ctdkFXunXrfPAr3wvuFw1KOI8Lp1+5HjDNY
UaiT+NDKlezf2FkuPwZVC75eNmmiQa9uqtBU9xLGbS89OczrgaZWv76m/EtQ
LdGYDdDyQJnK1FsZkXgU2Ma4387yQGyJ7HrBvnikF68z/O3tCf45ZeNNWZcR
bOM2XSzshbx3Cgo7pZJwo3mSubjQB+Jjh5Ztm0zB1nmz16J1PogMvnHPSCsV
LSpZfbKffNCVZhTNDk6FaOQu+c0ivjC4HbWONZuKOJX0+KMhvrjd3eu3TSAN
oRHbXKtM/eCk6xB1eHMGDv4VLuPxwx/DZc0bvd/dQrZ0ivcYbwBiynq/jclm
omdZyeMw2QD4/Mxze++eCd+RDrd4ywD8begQnrMwCxe528vpFQGIKP2iBZls
VOye2fPzbCBSNfQXJxy8DVHf0MjA1acQ/PR7RdavXLyoCu6O3B2KQA33/VOV
hbBdKaep7haKP7vtHv83WIhuz7rYb9Gh2BF4dXZoTRF+y69QM60ORdGC9Pji
+CKonM+NFN0QBkvvv/8OcSnGRatGmbzF4XDVYLEtZOnYNaBk9+Lxafz338Xt
zAMMOF/uPR53Mwo3zinIndbkYJTra1zWGo1IASHnFvv72PWmYKuY/QVYnQ4/
UaRah9R2eyWFZ3Fo/HL5snbuM0x+7g3h/5OAdasfaXElG7G8V8T3WnUibriJ
eMyovEOhg3yHuMNVLO6K6zbc+AG1Zu61tNFk2A2KT+VvbINOaSzjcEkqypzj
Ppf6dkD/SsaHhyZpeG9Twmw81Ym73yJ5axdn4JZFx8UbLV8Qx8mhp9Zch0ar
f471oW5MLShPaLW7iSUpYn873PuKp3W3gqpWZkKqKODbjOx3yPMGpS5hZYEW
J2282K4HJx2udoZVZaP2ZFPxYFIvYkcvqH5KvY26JufaU/Q+0EwCZQOP5cDf
IOXN/cx+hLe9XuG4Ixf9CZGJMpd+YL+y3I0w0Tv4yCpXo1sOwI0d/z268w5u
a3eKR/8ZQGnIic0fq/PgI/MrujtnEFVzWnIecfkIXPJa9KnKECYeBCwzo91F
3kh4oHfBELy5TfdEjQuw5tiBoGeiwygNVOQRXVmItxtyaiNdhyHn8cXcaaQQ
P9u6WnaXD2O//DX13kdFCBiucdQfHYakt8qIWH0Rnjyo6pQeG0Znzf2yHQ1F
0Be99GycmHb468bM10VwDhlrzZ8Yxtlbqso27UV4WJs3zDs9DMbql6vrxoqw
TvmmQc78MJZJ8vBlrS/GQP6tQt9lFJ4K01pt44vxV7xjqudaCgHLhVqeXynG
2OamXRrrKCgJcpp1kothe0f1yDRxFO/cW8XrxRh9qF8TrUxBezLp1fDdYoy3
z+9K2kChrKOq9nxdMTZv+O/jFVUK6fkCJRW/iyGm2nNDVocCTacwSty9BOmJ
luFX9lEQk+QesPAsQYRNmpOyFYUHYy/Uz3uXQCqg8n0NsXDx4LeJwBLspd06
MrifQqWUqumHs8QUXXaHLYVFUxUiKTdLINw77t12kEImsz5H5E0JpmVFLFnH
KLxf/6V+mRYd8YYnq1UCKJwoW9gZq01HrpagH5P4l9a6KX49Mm60vHxrIAUZ
U5rKAiM61NfFdhkFkfke4wkTVnR4lCl/OhhM4XfZErtOLzo8T8/f8Q6noLBN
rb8sn44kS/Us4xgKJ83PLt8vXopI12M81VfJfJbwglSpUgxNlc0qJFO4KJ01
3iJTij2uDXfOE+f0V3ccVCoFnxymLVMotF2YKHRWLQVTN6+qK5WCYb2bsZ9Z
KcyvXHwxlk7i090bmRRRirTFpfc6Mim8+ldmpKmnFA+Stz1/WkjBQij30oIf
pQjb6vVWoojCW0plvcZQKaqPNaW6EbcwtByujZXi8oXW/QLFFL6o739yiKcM
fXzbi3aVUBjTjMvolyrD7qiO/spSCtL4ZcC7pwx3he7NuLIpuO9tvqrJLkP6
k+h9wvcpNH/0PEmvKEPh4zF7O2J9Gp/JWm4ZnIRbZTOJxc9p/hGpJfPx+suG
BxQec9NdhxrLECNtss+ghuxnvaPOnR9lGO+OF3R+RMFtbnR0iQgD3GRDk4B6
Mv4h7GaQCQM9J3e29LyksHfpXJCYGQM3rARFVr+icNYgah/LnIHqv2/K7CXu
o8fwD1swMJfKya8gLj+f4HPchoExnZq46NckP1uzDK2dGVihLcUSa6Jw5sbj
QbVwBgZF3YNXvaPAeWvY0HSagT3lp0UNifsWN9w+GcnA+ZY3Z/yILQJe2hae
ZUD1n+ovjcTSe5ofKcQyUBBtl3vuPXl/7nuK0DUGXk2sOTDQTKHHSUB3qIyB
kTllr/RWCpe9UirpTAauLR9wfUK8JUxe3YvNQJKLxeZR4piULcpUBQOdS68Z
mbdRUGxwEhl5wMDW9miLGeIjG7nfx18y8Oe6pcz+dnJfJmmXZ3tJfhZllnd/
/H99Ti550M9AWkmXheAnCsrCZ6JPD5D1XyY+VCMOUkkLnhtmYHtGnXIUsdih
OmeeSQamMwIkVndSsKxdrbVoERPvPQKTTT9TeH7p1eelCkwMfRMcj+2iMNj8
/p/6NUzkc+NkS4hXyHWEhSsxQetRXNtIbMXolxhaz4TceunnIt0U2pv5LRv/
YcLEPTEwjfiHrMGjxO1MpNsy/G9+pSDIKM9eZcfEBZk7bQnfKWycvj/82p6J
YCX/L8XEFjvqdc4fZKLgjuzz58RXm9+1TToycSXxlC5fD8n/NCXc5sKEUIZD
eSjxhh0bzlz3Y+LckjO/j/RSMG/OdJK/zESLOPe6WD9Zf9lHGe4VJqoC8jf9
QxxnJNVmncTEpiGfEiPiFxXJFnEpTOSEjzsGEZtkXNw+cZ2JXy08uS3Ehof9
Vr28S+Lr29dw9QcF3T6j50G1TOh2v+X/PUDho0J0jEgdE122mg+FBimEH3iE
knomzK3nnNYR33+hXdHVwIQZi8/Vklibvil3dyMT9nuW+OYRa/pJnVbsYMLO
+Wiq+RCFTbODqo3jJP8+l7MvDlPYsVQj/tIkEzoTSiduEdtKh/Sa/GLiuQDf
KhZxxFa+zLoZJmJeL9zUQdwYILu0aiELraJ2thspCl5De77nCrMQcyv43Avi
0s7SjJCNLChMpv6e/Enqc2h8XPNfFi4PW68UGCH9YlbbcnwTCxMyiyRXE89J
N/B7axCviP6uR2xh99nfRZuF7n83JZ8jHmoSsthrwoLdO1czoVFynrU+C9e5
sGDs+Vep2BiFmoeDL+qPs7B9d/ARJeK9NW7JLq4sZPsdWqBO7Fd9dO0dGgum
o6sl9hLfK7c0VvJlgVm9PP4isWGRatyaCBbWRxkV/CI+lPxTRC6dBUm5/qWN
4xSGkzzbH2SwYP5KZaCdODKxL8fxBgu6p6rv9xLnJHzRuJXJAv0ov9aCCVLf
F97YyOSxIHOiIFaDOCCckSHNYsE3wY2VSnzpuM8aiVckXhkemuUkhWvZbg9K
X7PAH3TO34E4p+PoAeMmFvReuvieIObu25cU+I7ke87RLJz4h676guY2Fkaz
fPzuEpuJj39J/M7Co1WFd2aIBRtOZQvOs9BmvvrjjSnSLxf66OTwsMFoenku
j1hR161t20I24gtU1pURa7Pthd352Djvv8roMTEta1tUw1I2vhvXC/YRvzg1
cyRGko2GRqkKtV8UYv+KlJ9TY6P805OmB8SC2lEO9zTYaFL/d/opcZz5mTS/
LWzI5LRKvPm/vaKFerey8fLR6i3dxPGcC/NNYMNCu+An3zTpX/qJn2/vYeNE
XUGgOXGK/e0sI3c2fsY08zYRi9FyOuZpbDQfaPvRQpwalivB9WRDoCb4WSfx
tcy8K//6sDE7Vek6TJz2rTBS4hQb1cfNtZb/pnDdh3WkP4YN0b5IJVPi7It1
8gnZbHxNn/bnEmfG/n6mksOGsL/z60fEN+PU/J7mslH1d5F8A3F6fFb9fD4b
SxLGSt8TX0kMc/ejs7God1vIIHFEugbbjkvi6fr0WGaG3J+CXGPFZjZukeMM
Jj5Y2E7VfGDjF8On8zSxfZFIhkMrG3wDGxyiia1LIgdS2tlIK/xpcJnYnOGQ
uLiL7P9N0JNcYu17K9sHh9iQWMRf9JpY6ln0ycrFHHjFVIvJzpJ6dHkjFiPA
AY57uisSxyyQvW+5lAPbaeNKZeKf2hWCP1ZwoByZoadO/JTed1dGnIOjf5Jn
jYn9kvd0n1nLQcj4Yx1v4leHJex2G3AgOx3MW018dubYnORODg6eOhb/kFgr
nZH33ZBD/k9pQvXEOW9NxyNMONh8pZf3NXGIYXgScy8HQ/JudzuJ12/oeil+
mIOcvec6ef6Qfvb0H/+vRzioKvdexkecdCxUmuHEwa+cr5sFiGdvrnQ3Pc6B
gvfZQBHi90LG/OGeHDyptapYQ3yx5CrdxIuDtAv6VeuI9Uw/W6/y4WDP+4EK
FeKis8G5pf4kP4EpOWrER+WfmIUFku8HZSZuIV51X2R01ykOMq0jQ7YRv7A/
nCEWwsEtK11HXeKoiSL9rlAOLEs7txsQ/w+iGg6Y
       "]]},
     Annotation[#, "Charting`Private`Tag$409505#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta](rd)\"", TraditionalForm], 
    FormBox[
    "\"\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{674.4444444444439, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 0.08}, {0., 0.9996648949940639}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.713004742962287*^9, 3.7130047538909936`*^9}, 
   3.7131012954447193`*^9, 3.7131014285682163`*^9, {3.7131014918405538`*^9, 
   3.7131014982006035`*^9}},ExpressionUUID->"0893e09b-82fa-4f71-b2b5-\
bdad9fbabd34"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"q", " ", "Degree"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta](graus)\>\"", ",", 
      "\"\<\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.713004788305957*^9, 3.713004830759961*^9}, {
  3.7131015229219756`*^9, 
  3.713101535595195*^9}},ExpressionUUID->"3249191d-4d56-40c6-b14c-\
cb2381349da8"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1nc4l98bB3Aj8+PDZzQopSEKKU1K7jujIpRVErIpkUSESkaRslIZJTOh
xBcNLSsyIwqRRIj4PFllxe/8/nqu1/Wc85xz7ve57utZZXPa0J6Hi4vLmpuL
6//Pexdt+JXsfNXkTt8Sut8+olretFL3yMqj0Folr5ZIz1Gbr3gTuHLlCSh2
Lb8uTq9XE41+mivc6g6jK1aWqvd3qd0rviHFt/I8dDBk3WtFOGoKlF34vOMl
OHybpU2d/6v2VTRxbrYlAC4uiquR7OcC6QdC26dnguHVWtniJG4BOLXb0+Wv
VCiYSMwduywiCvnNXWnjGtehbNsaVicvG6addTtGHCOAM14mnXF+CSRxd4T+
1YoCncefjOIdJUGzLmrtn5ZoEF90aeRL30r4GbuvZPxEDPB8rJ6Y+bQGrtv9
Mx+buQVtHCPFjdyy0DTjFPNbKg5umPrkVtIU4Vzlik1UXjz8nC6AWxObYOnN
5pphjbuwPihxrx7vFrCRQ95fjvdBz61Fo957B/DM+HwY90sCmb1aD291qUBz
l8nyca1ksHpoE2LloArej2gvRltSoObs16i5XgSd6D7+0aRUuCel69dnog6S
3iXGIyfS4E/8NrX6Zg0o1vD6Tc2kA+9xxrqE+b0g0N4tOyyVCbuMn4cuFdKH
1uLXnkM/M+FTZ4nOyO+DkPUgtuxXXhak3ci7/n3sEOi76x8f1HgEFR5KYXLc
RnBbqOh2v+MTKMsuHA/3PAIFXjruZ8VzYSGddcA83RTuDu6QGPPLhd2shqVp
HUfBtYHlOKqVB4zODy7J1ubAuvueZ6TlP9AZ0FqV2m0FM6JPM91U88GmMsDZ
JdYaflxOPfQ7KR+2HXq+ZMzABp46XkykThSA4mh9xMYGWzDbsnUnZ6YQ/Ave
htpPOUBy9f0zv6ReQLBld0HwnAuMxxbKfbv+AhySl0VYLDgNex1rej5OvYCd
Hz9ZaAu4wRDvX5OipiIo71DJFBI/A8q79XeGXn0F00Ou/rlGZ6HhySyPLPUW
UoKUnG22eAMLhCzpisUwEDO3dXmbN+ySidl51a4YXEef1PFcPg/h45ljPo3F
ULpZ9LBeiw9sjfpkb5NdAoLKR6Za7l2AS9UKOkrHy2BrIHPDnqrL8DDvmUz2
rTKwb2pos90QAB9j1XnX1pZBfsLFiLjoAJB2NH0lrlIOl+9kue62CoRq3iBF
LvY74LnCZWQjGAyLd7ezPlRUwOaaZ7NTYSGQ8yS0/ZRiNTTZfNp1bWMkDLIG
r+tYV0MCf7rtetdIkD2no7Yuphrin61u2P04EpJUack9U9UgPvlbskIhCqKr
rjuYvauBg7FOfIZK0XCuJ2Jkn3kdWJgNhKgfioH7tJpAplYDtLcPfmj7EQtq
u33N/S0b4GfZuc5RpTjocJXfRnk1wNLQNeyLl+JA/GNYX21WA9Bts/0Hl8VD
VKyudgijEZ50XbYSN0uAwLX1ovPtjVAqlWz85Nc9cITGuCH3Jmhra0+8kJcM
XCl/itrDmsC047agfGcyxC6Q7KhOa4JLUfsD6bQUeF/lsCLzcxN00Z+6nrFP
gXXGsyn2O5uhUpnuli+ZCj+dZB91cn+CuZVzXqxbaXAy+sKbhsjP4Jw6RK99
lAGuvet7CnLawHiN8ouzHjnQZdkmWFLVBt9WNz0r+y8HjFpDFOt+tIH/vZbF
eiM5oFzTf7536Rco/qAQQzv9BHjz0hmLr34BF46AS/z2XIj1W6Xmdbwd9sjX
WjF35kEJWyJOhfEVfExrizpM8kF4VZDsN+UuyKV/MefqfAbhjBq5ZKseiJ9P
nM/OKQabduO3vLV9AGlZEnUXK+DMuyCb07KD0K+QyxAproU8NxEjce1h+Oru
am/s0wjJvs6Dm478hpFHwRnvppsh4P6swfjQCPQ79K64ZdAKXE1d+MpnDBKu
BQjNxreDjIeDt7HcBCS5iNQOrPoGPybuHKa9/gNnDYePFcl/B53ekxeiz0wC
wy+j9XdLN+j/iJRfsWIarrmZmDo4/IDBMhv/949n4NfZz04KZb2gyPy8XOP4
P3CpE/b/t6ofhGHCumNsDjJvblsqq/8T9g2b/V1twoUWny/1d3kMQGupHbeZ
AjdOmk6OHvcahMKQcsuVE9w4I2TVdEvvFzjweXbV1/MgX2LIrlyJIbB19y0U
iedFK+ncGdO3Q7DRUb5e13oB7vykpy2uOwwfWAo0TxU+FNzlzX+3fhjUXFwG
ElT5UGxMztasYRhyKnMqS4EPOwJ+JS75OAzhfkpBjL18KKUaWhj+aRh0+7b/
yzbkw/l1X0+d7hiG6hd7qG5nPtRJX35mZmAY3lkdaTqUyId+jbUqexZw4GVO
QIICLz9uKHZj3d/GAX5dk6V3+Pmxc9OrLOUdHDAYkI3jFuZHOqW6sFGZA/1r
6m5/ZvDjKBpbzO3iADtuSbT/Cn7cYcRo01HngHPgo5BmFX6kKahwPdLnwDLT
z55+bvxots/V5KYDB3y55Q7VfuXH70krF4vf5ECfJq1V5js/WmtvTbCL4cCh
kKHjl3/wY5dx+arcWxyQFntyevsvfqwwvbNNM5YDtZJbI5Im+XFcMP+q1T0O
rFBWq/dgC+Dg4xzDkxkcKHU11F2uLYB331bYVRRxQLjDZ79rgQD66f1c+LaT
A9u9MukRzwQwnPZ07PU3DlizWj8+KRLA0CFb9qsuDjzfv81ipFgANyctWvK0
mwMOhdQZjzoB3DRVvCu5jwMl4XYJPn0CyLXc5KgxhwPee/Q5V8QFUeSIYOum
fxzofbAq5r6fIHLKDcS+iFMwFPR9itdfEJs+PFB4I0HBqE3ycadAQVRv1QpJ
XkoBl9QqeaVrgvhwo8OsvSQFS++sLC29I4hbgzT6eqUoOHRV6nfvf4KY5+Cy
qVSGgleOy3UVBgTRuE534e8tFMSsk1jwwkQIZewPSKvqUmBuKZPRYyqEQQ42
F/qJpWO26IiaC+GWTrf90XoUFMzrRdraCGHrYmpbnz4FzZ8DJEVPC2GhZrn3
VQMK2MFDW21DhFDZ9Rf15DAF0d/f2tNfCmHE0DuFBCsKIuMdKq1XCqNVnHYy
x50Cr3MBZ/3WCGPwesmIc2cpsDRMlLojI4wxhTzCc8QKwp+9ahWE8US+zkOa
JwVV57XW7VARxm/Z5yJWeVHAc1Q6VMRQGPX99uop+1LguaRb51mgMKrrG2Sw
Aykwi7GoF+kXRpGYk5bRURRI5gsvcx4URo+C2V1C0RR8a3zmWDUsjGoG9g8v
EduJsbivjAvjs8RVG51vUuB6rWLLPDcNwzMZc6q3KAjw3xg3IklDz8gzVE0s
BZmnuO0+G9JwfpQZGHefglNhOblbD9OwK+pbL08SBYpZx/5FH6Vhusvxbmfi
//oLbx+0omE/qzxTNZnkYXOy6r0LDd3jVHzbUihoMG1SfBlCQ4mzE25cDyiY
1Eyfuv+GhtNTXp18jyjwe3k/sLyEhn6z8l/Mibk2x9MHymm4LTMqOJ9YQCpi
1eYaGk7Yuwwdf0zB4ilv7fIWGlouVuMuzKFgy2PduJ+/adiYF3LhUB4536Jx
ZaU1Irg83cZZ/ym5X2GcUhMZEXyRYdacQOzJM6Drs14EPVLixn8S+1Ffrco2
iqByzqdjAc8oCKuqDDFRFUFGeGJN3nMKHl5IaD1vIoLBcyU2vC8p6OlV9y69
KoIflgROu7+lQP1+fYpcmAhmSyy99Jo4ydSsLjpcBGdpl58KFJP8a86str0l
gjdNGtUSiL/kJtXyporg89Vjr96UUPDRd26l1huyvzcWWX/LKChlFlVVjovg
uxxNiS3vKVhVozW+cVIE/0Vbnfcg9g9qXBE7I4Kd+VdjConV/v4868RDx17e
sdntVRQUdSxZIcSgY6I1+972apJPhqe7jjwd7a7dPLS+loKU3UrL6qzpqGSx
WaHzA1lPXzhwxo6OE0GTCewGCrqP9wyud6Jjw2W5z/uJ1wTcKrriSkfDp9ez
/iNOq5g6ir7ke0KWrYGNFKQfLI3Nj6Hjm9ETbpJNpF7WRovjK+k4Ewt1sp8p
eO+ucPF9NR3PyEd3Hyb+GcjX96eOjrPqA5XBxOsePCs0aqZjUetB3h7izMFl
JvTvdFQoT92T0EJB1tkfN/2n6VixTZ6bt42Cx8GeTMcNongo9kF2bjvpJ6oW
AcGbRPGx9H/qbcQK45pjqVtEccwrJJe7g8y3WfipS0UUxQzXMQ2JH0J+rNle
UYwS3TL4mzht6reU/nFR9OIVWybbSUG8yynFbVGiOLxQ7/S5LpKXtPF9oxgy
X+y7dDyxRMcuhvsdUVx7I63wNXGsDm00554oGgzBiQXfKbglm1W4LksUU247
S0YSR37vV5UsE0XxsOMfkropuGpie4B3gqyvOLL/4Q+Sx8EOc/tJUbxT8167
mviVtolr5YwoMlQFpIeIR3fviwrjEUPTYiP7jb2kn8nIt7AZYuhnYiNVQLz5
76iNtLwYZqWkRj/to6AzNsBHy1oMA30Tzyf9pGAqeiYsw04M3a4t/f2aeOEN
j3tCTmLo8TdOs51Y+7JDcZ2rGN42VwxZNED64Qkd/sN+YqjVeO5CCPG1naxo
hztieFHVTc1pkIJtHcmZV+vEcCpdh5cxRAFD0WnySYMYdhonVckSD11S3Nfa
JIaaSuOeQJy25uWPdV/EcIg26+9KvNC5Waq6TwyPfNW3rSGe9uM9wM/FwId/
Glz9hyloo20v2S/BwOnvNw60ciio2Br3s2MpA++GH+EeJi6wmBU7I8nA2gHp
JG6K1PdJqWWcFAOPLZOJkyPeb3RwdmAtAzV3qPn6Ej+Pd9oRtpmBEdZ2bInf
JK/1CY/rDjDQXOiuguYIBeNje9MD9Rh4cp1bzhHig29G76ocZOCmVG9xZ2J+
I53r6YYM/CYWkR5F7Ok3dfLCUQb+kcx48JXY8MORdRscGehxp9PszCgFIp4L
U68HMNBC1FglZIwCJyiOVw9i4Js+n9FY4jKhU9GTwQxknPt1O5PYJ7Hssl0o
A5fo86dUEw9UulupRjIQRB6U0cbJ+Zc2Lh+6x8Co1Zb7rxFfKr4Re+AFA5Ps
X454T1Aw+LU4ZqqIgVpRb2avEB+eGYvMeMXAnpOn/sQQK2w3C+UtZuBU0qKn
ucSt2TI+LysYeFrruVM/8eY7b4/JNzPw0YWP2QZ/KOhzGVlBoxjorqost/Qv
BQZh0ste/GZgP1+Rogzxq4dHljiOMvD73o3Sm4lv9rwWK5tg4M5U5W5tYjx6
jct3loHrt6Y88iaO11zTPSjERPZzj9AmYr1lJunV0kzkC29svjhJ8vihWHxM
hok1eRmOIcQ/Hgu2D8kysfTmWiqK2A9fMcTkmfjsunZHGvEj+zV+RkpMNLh/
ZVM1sXDuiGHHbiaerzWoYU1RUKkZzsU5zMR5/jfL7hKzRJ2WXTJlIti6mKUR
W7bs2c4wY+LtZ9sjHhH/OTHhvNmCiRfy1NtfEctEmLecs2Viio/LXAdxUJtc
zvxpJq7KMPVZNk3BHtfKY8xQJq51exMZRTzdOrC3/BoTrXp8IY64QENks9d1
Jn48Jv4jiVhGwkDwawQTeTWkxHKJRcq/FDy8zUTho8+H64hbJTh0TGPiyKWQ
FoEZCtzeLSx2fcvEca4bOR7Ecpt2ZK8qIfs98nOjL3FP/NHbzaVMNHkc9fAy
8WG3xFM7K5g4xj11KZxYddk6Cf46Ju48q/4+g1jwzC73e1+YqJ3aXtlKfF/S
Rrp2gtTT7knV1lkKdm6RV7T5y0T7rad+qRA3a4/vmJxkoqBgNj8QC3pdOSA9
y8Tuidr12sRujVnufjwsXFR7do0FMV4ZK1YQY6F5ZelgIHE3FWRxYx15L+s/
U0vsx6/vuEaOham0yGONxIuXLznzQp6F2tv5nn4i1tHJDOpVZCFXm4pZJ/F/
aXXZu7ex0E82yIoiDjy6eHp4DwvVszVPMv6R/7eyjNv6x1hYNa6XqE9crzCZ
1mHOwrmqDE1DYu/b+/NPWrIwscSiz4S45sTAhyvWLAzrG1tmQezOkBd668jC
DU5Wh5yJ31rk+G70YOFMWHf3FWKzyQIrxg0WyjzK+FhEvMCG73RiOAtZf7M4
r4lzakwuKESyUEg+h7+EmPv+n7j9N1m43LJSrpL4oZZyk38cC+OxSqOJeCL6
pdZIOgvHyiRfDxJHbiiV+/iGhZeVrw8tniPjlY8JBRSzkFu6uFqC+K3GeL9S
KQu/mvWnSRJzjsqkR71j4eNuab3VxAeuXJMyqGWh0mXKZQMx/zfDhQ1tLOR/
vm9Cndg3sudf3TgLg74P7nYmjk7w67jwh4UTksfSXIizHix6uWGShTrV5gJu
xK2v9nnfmGGh0wuZMg/i7QPZo7o8bNzqbMS6SPx7j0d/jRgbJzVHWZHEDmML
Gqvk2HiIji/ziC2zNOvNFdj4cvOS+Hziw9ZBNdQGNq6zdzxXSLz3A2/FIiU2
7su8JPuCWCab56X1DjZ+/tXvXEzca8OVPqXBxjsOev71xHYfZ7zXW7Bx7I7t
0E9i89Bd515ZsrFut7r/ILEx+p49aMXGv+SSDhFr5ky7eNqyseHxlCJFLH1t
yqbkBBtnjWIOThD37Pmre/QcG0NVr2zgnqfAJm90ZWgEG1d7ebkuIT4VYDSr
E8XGt6c6BsSJPY0KWkRusvGB8qTNUuKQCc/wyNvE/tb6y4lzVKZm7txj4xeJ
w8JriKdK5j8/yGZjV+xNCUXiyI8iN8or2ThR0pulThyf6uJ0pYqN/U47ejSI
Uz3qNfbXsHHJkWQJLeKniyOna+rZ2KRQ5b+PuMOM7dT0iY0CvYXKusSyPRIa
3T1sPJZqZWBCvKnAZ0VaLxtjdl84dZh4Z3D7lH0/G3fwfA0+Qqwrey93YJCN
X7Xc8o8SuzuvXDEywsb2KIVpC2I/1ctT/42x0ehspsBx4mB6d7PHBBvjEi6w
rYhjn6SGTU6ykTd8m4wNcYr/AseiaTa6b1+xwZY428Be3W+WjVbdjpvtiAtW
VyxXm2Pjw8mF2+2J34zJTM3Ps7GxQ1bZgfh/t63BMQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$445168#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta](graus)\"", TraditionalForm], 
    FormBox[
    "\"\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{664.4444444444443, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 5}, {0., 0.9999266716758034}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7130047979356575`*^9, 3.713004801497363*^9}, 
   3.7130048331375127`*^9, 3.7131012969448776`*^9, {3.71310152861008*^9, 
   3.7131015376891675`*^9}},ExpressionUUID->"b3c3553b-a8ec-44ca-bf85-\
b7b76917d6a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"3.5", "Degree"}], "]"}]], "Input",
 CellChangeTimes->{{3.713005028958334*^9, 3.713005129468275*^9}, {
  3.713101700737715*^9, 
  3.713101711254455*^9}},ExpressionUUID->"ddaf36cc-fd6f-479d-8e56-\
04a3a9e33d4f"],

Cell[BoxData["0.990581470233095`"], "Output",
 CellChangeTimes->{{3.713005031717867*^9, 3.7130051306018896`*^9}, 
   3.7131012970073853`*^9, {3.7131017073790445`*^9, 
   3.7131017116607494`*^9}},ExpressionUUID->"53ebe25a-0a72-4fc3-ae9b-\
157cf015810b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[AAcute]tomo de Rutherford", "Section",
 CellChangeTimes->{{3.713092944767338*^9, 3.7130929475020027`*^9}, {
  3.71310173189727*^9, 
  3.713101733084896*^9}},ExpressionUUID->"6d87f7a1-afd5-411b-b9a2-\
a76fbc19b34a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v", "=", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], "/", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"x", "/", "2"}], "]"}], "^", "4"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"3", "/", 
       RowBox[{"10", "^", "3"}]}], ",", "Pi"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.713093066202095*^9, 
  3.7130931516642866`*^9}},ExpressionUUID->"797eb5c5-a265-4fd7-87ad-\
5d70b4d30544"],

Cell[BoxData["888887.5555558553`"], "Output",
 CellChangeTimes->{{3.7130930611859393`*^9, 3.7130931521018333`*^9}, 
   3.7131012970230117`*^9},ExpressionUUID->"ec7bbeff-e753-4a9a-bf78-\
8fda99a1fe91"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", "q_", "]"}], ":=", 
  RowBox[{
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Sin", "[", "x", "]"}], "/", 
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"x", "/", "2"}], "]"}], "^", "4"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"3", "/", 
        RowBox[{"10", "^", "3"}]}], ",", "q"}], "}"}]}], "]"}], "/", 
   "v"}]}]], "Input",
 CellChangeTimes->{{3.7130929600189557`*^9, 3.7130929673322315`*^9}, {
  3.713092998491787*^9, 3.7130930541383157`*^9}, {3.7130931710882225`*^9, 
  3.713093177604539*^9}, {3.7130932237813125`*^9, 
  3.713093225109578*^9}},ExpressionUUID->"13b322c4-01ca-4d4d-8409-\
cf87089f15a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"r", "[", "q", " ", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", 
     RowBox[{"3", "/", 
      RowBox[{"10", "^", "3"}]}], ",", "0.1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta](rd)\>\"", ",", 
      "\"\<\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7130931922154636`*^9, 3.7130931929655433`*^9}, {
  3.7130932343293066`*^9, 3.713093277396375*^9}, {3.7130933176193924`*^9, 
  3.7130933494821477`*^9}, {3.713101573989893*^9, 
  3.7131015742868*^9}},ExpressionUUID->"b5a6568f-1e1d-4456-855b-eb288e115152"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Xk01dv7B3BKGkQULoXKkKRkaDCUNyUJHSGKJClTIoRkOJk6OGSeZRYq
N2Q8oiQp5XuliAyZk8M5HxGXqPv7/P7a67XWXmuv/TzvZ++dtjdM7FZxcHBw
cnJw/P8qohTQ5pXgiLHH/35TlK7WTKB60L50OKIBNUUyqxPB1+agdZTfCRGf
5QOzavPB5WBSyXXPCRp+mY895SpA3Je9n0C7hmJnGj/HjiZcY4qZ/9t8DdKZ
Vpc+iTdj7PBm/gurnaFvIbybyduC3o8rIZKBzkj+S8+jo6UVLes+Opffvo5z
T7IOLph+gLb5Gxmh2usQ32H34KBkB+rz6wd9Fq6D2/Nmz4mpDjzVLDLVuumC
wnPKe8NcPyHT01+j/bor1rtYCc4d/QyRJvd55ceueDpa/Ud+4jPiNzmUJk+6
4nDtGgvHqG6EPzKWsra/gdPi/1k5ve+BulvC3YX9bmCevdpbL9GHReFo291G
blj88eV/+o/7UNUQDktXNxTkmis+O9APRR7qUkOJG25zuXLkaA5gV6Gjy105
dzR6HDnTpTiIMcMr+jV67giWkf27p3AQuXMXZScd3BFkXjykxDsEMW3TYcNC
d9A8Y07IBwxBoP+omaCUB2bkB43qjIbxT7Cqsu4xD5yTkBNvDBpGlJzKJp/L
HijaNrH57dNhcN/a3dqX7YG+LO7JRYERrAhsOZovdhNzgjX5ka9H8P3kd2ll
YU+siMuvOcE9hq/LsvWrVT1x2k/kuIrCGDpLHUy7LDxRaqkvdMFsDC/+mgjy
yfTEVf+gKufcMSRPjH99Lu0FuS2ULiGlcURlyHjH6nphT3vbgLnpOIKM7Hht
Hb0Q90mNf8FzHNdrxjTWlHihuI73oXX1OI6HjaYaqHhDOerPLi3lb1DVkFIU
N/NGvZzCcK/RNygQtm/Y3t4wEQk1nLn+DVvPjczH1XlD9YRzdMqDb5jZNWzS
o30LaWsO6soJTCCr5etGuzM+0Gp7sr/g0wQSfSUKDnn4QG8kt0KJOQG6grXG
ukQfGGXoX7Ll+A6v5AGnx90+uHNzhqdK/jsM7ftbfljfRsWp9J+m1O/4taY3
kOriiw5Xzl1zgpOYYYiKnInxBU10syRt1yS+uViU7iz3hZDHR7/PhyfR0dUz
0PzTF4m31wZUWkyi+EG3Oo+/H5w+b3UKT5+E2Ymunyl0f4TLZf99T4CJA9PN
H+Uf+YNbxp4zVYIJwYTKshet/rgoZBRyS56JzqGE6xPrApBZr7NYq8OEib/J
2KGwAFDfjYhbeDFBqWj/1BVCxexF+uWsdiYULF+UO+VTcbSwc6tBLxO8nKUx
v5uoqI+xXdM9xkQbJdpAZtUdcKkjJHqJCX2m4SvPwDvI7zonRd85hXx+uy8R
moG4fZhHVOz6FDaPWb01pQRiD6e67rznFIJrztaIWwdifWDMWGXAFGytdZLK
AwLxy1B0+Xv0FHaWSBl/qQ8Ek9O8R6FsCtknR97u1gjCtFH3dip7ChnUS7Vv
DgfD6YdSgo7VNEbaZy8eOxkMxa4tAtdtp7FnJ211g3kwzvJu4wh1nEbtqxLK
U69gPNr2kZPmOY3Odb/G7lcEY+jnHeGeyGlsTEgU8NgfgmYmP9fXmmmYjsnW
TGuG4FTPexOphmmkH3xm5UAJwcm+HUsXmqaxu2e4yMolBF/9k1lFbdM4Ib5f
8+TjEBTt3Fb3ZGga1KLWa2KyodBL7xNL5Wbh9aIVf8qhUJSUWtGleVjYqD9T
JaAbCg1KZWzhJhbSp4U519qFIrdqbjxShIVqpaspP/JCkbH+FM+gHAvEsz+v
WiTuQkmckdqoz4LNBxVxd2Ea8iKIH7toLBwvnszWkKVhTkLy6rcIFnYFZkty
q9LA8em8ZeY9Flj7eXZnWNDgciJJdTaRBd+YEeXX92lo6eV2U89nIZESpycq
FYa8/hQdi+cs3Np18v2oShjEdOd333/JguWfldNPdMLAucmFo6eZhZ1PHE2P
24fBpdnji/p7Fp7walm7PAyDmu5Di9JuFt60sW++3B+OUau9o1cIFh4VFCxE
aoXDbsB9RHOWhWh/y9vmxuEwOx+2tGWehbN7W6hTHuFwuTVZWvKLhaHIzAih
6nAQ6/8spK1h45e+YbbTkQjUHuDa5L6VDYXWh+8ETtGhPB9a7abFBi29xq3h
PB0z9aHBocfY+Or8WtjJkY68jon7iTpsRPMN2zaG0THLUz74UI8NwlRk2bWF
DrZxWeTDM2yUfaXJtx2PRFpmbA6XDRvKP69E0TSj0Fg4C2t/Nuiv3ZWVKVGo
CPPi4KGyMZJ8p2fgYhQ6v+xdrrzDRrxahvTBgChsi0yq4QhhY476sX70WRS4
C1TnbkWwUblem6Wldg9RlHEfZhIbh7ZLUJZVohE46/6R62829tyidCzoROPM
kEpr4BM2JNqpZ2fNolEyQjv2q5SNtXcGLSdvRYMzgufT+FM2er7mOHQ/i0b1
N4fVObVs+GZJBVUcj8HjQHHFB6/YGIwW7K2Si0VjwZKDYA8bvXUlGSrKsTh4
s/yK/hc2Or/pXCxXj4V0oeVtai8bbzW9hkoMSF81WjXcT9aD3fUt3yUWKlzy
/8YMsxFESZmLK48F50hraSqTDSm+rbyuanHgpTJSXJbZWLf0n1yzdhyiGq0k
nFbYYI+O627Vj8POxWC1K7/ZqGOUB7ZYxqGGQ1PV9D82TOxO/ZTwj4NNtUGe
5GoCgfU+fe3P48BclHcO2kCg/1r3QyWdeDAyYsuMRAg0mTW0hBnGI6O17L6k
KIFirfzRgbPxEN1m7PST9E3hG+J0u3h096uUJG4jsKGJO26EFg/6YVf+txIE
VEUP+SS0xsOqK2v1ijSBpDeJuvOUBJTsXTn2QJHAodJd88/ME2DjPjtmoETg
c3JtfrB1AtZlX3r+g7SwfT8Hv2sCYo1yxTRUCCRzST/bcy8BNO5TD5sPEkjV
rthv8z4BXZPemyrVCdx/1iHy/mQitDdt+MWjQ+BI/pU3cUaJuJrW+T6DdD99
3uv8uUR07Ptncc8JAuKWop/G7RPh7KbueFKXQNaizT0OWiJG7VbX+ugRyDk4
w3moORGOOf9jNRgSKCjlm8rRSoJ654XpnrME4nuVwjedSkL71B5XGzOynmvM
ZKjGSbjIZWQ0QfrihYxLF2yTUFZJV5kzJ++zdnenUGgSvBW2ZK+2IBBhrd1A
f5OEF/znP6+9SMCV1zPGk5IMofGltQVXCVippuwdNU8Gn43FEVE7AvpX6lqN
LyVj5i/D6XukZRkcXPvdkvE8hbvJy57A0NV7PpNxyTBW0LSEIwHT+sLL1l3J
KAqKHKtzJvvh/EVFzyoFLTO7jc97EBiOL7aVvZqCLvOG9BrS9LpbcdzXU6DU
RQkVvkmgb70w0eyXAocIZ7VPpKnFJo+0M1JwiNNVTc+LQPP4+x0avSkQzF5e
2eFD4IzNc16F86lwzotsiw0g4GSWP7HlbBoyFsx5g8II/NFodH9/IQ3CktaW
70jHSw4sB19JQ7tX6tUt4QTqCGH+WY80ZF1llheQ3kinq36IS4P6uVeqzREE
yp67R0S1p5E5aNL4N5LAgqyW/BqDdBQdMZDaH0sg9Fe/64J2Bi7vUwiZTyFg
Lx05Yaafge/rGSYHUwmcoqjZVJlkwO1g/oQnab68JGPPKxl4vFJhO0c69RTl
wGxoBkoE7z5gpREoSX2xxHqTgZw67/TuDAKdh/JCx0/fR1edtkBINgGpmw7p
nRaZ+P51d8CJQgKNaS8LCi5nQnfzdUUv0laN20o9nTLBPlveUEA6mffDK8Hb
mTi2YdR+dRE5L8WqrLOpmfhdrLn4nPRs/3qtrs+ZGM5fq7b/IYGXuiXjXaZZ
EMuRVJ9/TODS1h+K3aezYeC+vl+inMxDaL+ckXk20jcL+Z4ifYj9RvKNdTY2
pefO3yS9sSlLsOZGNvxYHXffkq51MlxMjstGS1Min9tTAvyMohfmXdm4tW7v
cG0FmR/5/bLOCjkwH9ALUK4mEPtuvIpZlQNv1dcpbXUElq1XDW2uy4HeJcVf
bNL2cxIbNJ7nAG6rjgs8I3BU7Lx1ZEsO+uu0ws1IM13ece/tzoEy1/hoP+kT
AqXnXBZz8FnXZv5bPYFf53yWCPVcsNc+kZ18TsBufMPR+Re5KBxwz3/URCA8
pXRJoDYPDR32Tb1vCbhU+IfvfZ2PWjd/x9h/COTatxpaNBaAvlFaducnAikh
mqMhHx5AzmC63a6bwCqq8yijrxAB93jK1/QRqN8kIrqqqwh+RUNVywPkPPCw
duiNFkPspf329iFyf5a2dc7gQyhTavZJjxLQ5qOs4ep+RP5bGh0K4wSOfQ+m
2o0+hl/7SarcBJlfi8P7vgyUQFzNxq7jO/k+HBB8os/6G8btbk9dmQTkWcWp
b/59gvkFv76+KQKcRxtqzWdKkZ9d+JqfRcBw2b/rB7UMJd9NXbXZZH6kLji9
XCnDi6SpAh2CAFtd6KmwTzkmQiw/7Jsh8Js2Osr8XQ6Nf7bOCP0gUJnlrvjW
9ymMZjx/95M2nNpiL72qAranT1fkzxKIXO1dHRFYAXs5xS+UOXI+NlQ+81yp
QAxfpC+TtLUu96OvwZVwF5P6TftJ9v+0SIUxRxW85lipfPMEjtM1HxwPrwK/
ULhaCmmbKi3DZ7zVWDW/bmjLAgGZklV8R+jVcK9ScA8k/b67p1ZDoAaCOhsD
2KRF2l2pOjE1EAjalEv5l8D2qqHFjxtqQSzdOFBEeu0He6uh2Fr4hEt5cy6S
/asu6V3gZUClVTr3DOk2B5qdDD8D52PkFo1JrxK1mTHdzIBiWyfFlLSr3xbu
cmEGvHdtXzYjravlq+S8nQH9JprRBdI/W0+GDyoyoBdfP2FH+szAyMG3pgxU
V6Z89iVNi65vXDBjYMPDQkl/0vVINpA5z8CewUuuAaRl805dDrZi4COtgyuQ
9B/7sqgjdgwM/arcd5d0yUzAaJk3A9LcyTdiSI/knnMd9GFg/oN5dSxpEVOl
JV4/BrpLX63EkQ6pGuNzvkOeL5YXnkja0tdAXSacgQOdnvfTSMfKy7w2pTNg
fjltKJ10S/8fo+AoBjZOXJO+T1oZT+0GYxkIPC30OIu040zkDG8CA//Ys1nZ
pLNy7fyOJDHwbtJTMZd0pwm4nVMYSJ8t9sgjvZ5LNC4tjYGLmfTKfNL/B/j2
/pk=
       "]]},
     Annotation[#, "Charting`Private`Tag$464779#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta](rd)\"", TraditionalForm], 
    FormBox[
    "\"\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\"", TraditionalForm]},
  AxesOrigin->{0.003000001979591837, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{639.9999999999998, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7130931951689024`*^9, {3.713093229438163*^9, 3.7130932363295183`*^9}, {
   3.7130932721458187`*^9, 3.7130932799747734`*^9}, {3.713093326839121*^9, 
   3.7130933511698275`*^9}, 3.713101297991864*^9, 
   3.7131015790060506`*^9},ExpressionUUID->"41686633-1446-4cf0-92c8-\
aea43c93e93f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"q", "  ", "Degree"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"q", " ", "Degree"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0.18", ",", "5"}], " ", "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta](graus)\>\"", ",", 
      "\"\<\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7130933998781185`*^9, 3.713093463447363*^9}, {
   3.713093506295658*^9, 3.713093507639551*^9}, {3.7131012624099636`*^9, 
   3.71310128033374*^9}, 3.7131013249009686`*^9, {3.713101584287861*^9, 
   3.7131015905072703`*^9}},ExpressionUUID->"8ac33a6b-cfa6-4aa1-8df6-\
a28ce7b26f37"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Xk0Vd0bB3AyhGS6r6FBSKlUlAZK+h5DpDIVjUKDaPASkswSaVLmUIbK
0EAaqIQk5TVfRKbM13Ddew/XLPE7vz/2Ouuz1t5r7/2c53m20mnng/YLeHh4
5qjx/+/pti793SKlKImR9nUMy0Wo8aG5rJ2lCPbZ9Gzx0Txk5pZ8VLhYinjl
Ztl9IoWYepC+kbeyFMX7Zey+RBcjbI+TbMm9/9Cx3yX+744yvH/bXru18D/E
3OPZ0lZejmYF87upnP+w/Gno6qcHK7FqRoP3plkZZn2aRueMapCXNcU0liyH
14L3Dl6OdehcdiE1T7ccK3lO7ZaTqIfArVbb9a7luEQ/fUjxfT3MzxT+FK0v
h+X2bqJx5Cf6ZG8U1kRVYMNl8yPXDH+BFigeYSVXBQvVwylyDq3Q4gQc+LG3
Cl7Cbx+UdrTC5gRXUPNaFbQ/CtqtPtyGF9savOVaqPlhsT7rdv0GwYy3b02o
hnFslMhvTjvOHRFVPFBZjfVruP33D3fgTolvS/5sNY559A2fzO9AY6KdWeLJ
GtyIzV2so9uJ3HWRj7LF6cjOOcrmznbCuLNiemANHSq9Bzrq13WhLYb/iBJB
x4r92fksqy7w8ntIRrjQ8bWxMLzpZRcOtB8NcaulQ9o0vVPSrBvdEStctkfW
YsZ50srdowdZDm1HPDNrEbnTzjQ2oQdeu+KRV1oLPSHskCnqgWSftPju2Vrk
Ppes3r6wF8SOxVl77OtwNYMWZB/WC1Gxiuib/nW4EXD+fEVWL5q6Q33L4urg
UVHpk1HdC5e7/CYm1XWYu9kg9lOUgaSOP0OWmvXwaWl/iyAGLrz/VB9jUQ//
T1uds5IY2H7r6uemi/XoPrJmzYvPDFRrjN62Tq6H0Q69FQe5DMwFM9edFf4J
ieCy6qfH+2C9odnBrfUnhv85zye/pB9reWPNcsZ/okJRtNFavR9jDZaak+IN
0LxwNc14Tz/u+NMFvQ0aoHPW88kml37k1ZWmXs9sQJDuaJxNcT/kruX2hPs3
otDz8yHXYwPoNXGvqI9rBEPrfqfaxQFkr9R4J/2+EdKKgguzfAZgVJl5PW6g
EbrnZYKmEgfgoZCqlGLxC6c0s++3dg6g4XukbbZyEyJ4g7TeHh/EGK/pz627
mpAfK5Up7zgIqd1Cxp8sm9DoX/DM7sogzHN9NIqDmwDa+qfO9wdRnmYv8LO/
CUm36L+Kvw6i6Kbmy8mXzcgqUgrPV2Ci49uIgk9JM6Za0xsZqkzMzb+M4vnd
jPZr3k7kNia0PRX9hMVa8EMg/0LqfiZyHYUtlrm04M2psxufX2HilXHrxO6t
reBNEgt3KmGiIjj64rcDrXg8OO5aU8UE86tZp5F9KwQ+3VSX+8XEmp0lZeYx
rdiVfeCx7SATT1QzH52eakVM3cvcGtEhxC7y1wvJb8N2sef3vc2GcL1qZViV
QTseZl7ZM/59CDFHrXsbrdshXufz82nlEF70RO/sdG9H5X16rF79EGqnhfq5
z9rxSnN1oEXnEBRVSMgJdMC/WFM+b3oIBX6fR05/70Cmylel9nUs0IXHjS79
7oDu4MOMVHUWeqPUEq+MdyAnVkzVbhsLIQ3mq0ukOhH5R+9jFsFC5tC32ka9
TkgYhK3MPczCrOwL1dknnYiWcfa8F0DN//2jged1J0Rnp79FB7Mg8bQnQOBz
JxLTlmtH3mZBWU3+l1h9JwqeZK75N4qFfQYPgpT4uiCZ0qCXns5CnItHm+GZ
LizNe3MFlSxsL9MLC1fuxmZPcfN8MTba5J/MxW/qxs6Ifx9wpdgIcuV1fqbT
jYfKCpUKsmzQlxWZfTjSjbnpigRbBTbO/6sj+ftONwpXy1tdVWfjEU0rau1Y
N0KXDrUvM2VDzzGWX4O3B8wmKFZZsDGQP+GuLdaDpH0ydA8rNrady7EyXduD
rfPBVe+s2aj+qCHrbt2DhcLCLo0X2OC12Rj/paQH/+go8tYEs5Hx9q5IWW0P
Pp4gDCRusWG6kOVV196DyM+nlPbfZSM++8UJxlQPEnKPszIj2NjKt1Z+0cZe
1D8yursuiY1zGSuTD0f3YjRVO1jwAxuVXNk0tj0DIoYGB/O62VjuPW4t58rA
3nKfWgUGG5f46mn6fgwU2s4jsJ+NRf+EBT6MYWBHnre4FouNfdv4T+qXMjBW
zHL1GGej7OowLW5tH878PErXWcjBj9n/Ag2G+qDE43VebS0HMsFpWs6TfYiW
W09XUuXg3OIbZBxfP5odkhSkNnAgsAInyWX9UMylRwyqc2CAHK34A/14HZrg
467JQXFgCklm9iP6cXTe/B4Ovgh6nUxwGUC5zYJM2ikONqyIby73HUCCuc1s
7WkOHm7Ls5q5PQB9UsX33lkOXM7OmBxLHYD7zT+qsw4crCz22i3bQvWNKpW2
j/9ycMPXWyFSfxCtXxVD3ntzYDzm03VbhgnhpauSmiM5yF30+GSeMhMKhpap
e6Op9coFzYObmKhKLAzMieFgxuJv7V6qjm+GxlSHxnHw6rVvsWAAE3lbjNVl
kjgQu+j39DpVl81yTk9qnnNQ3+Vv75U/hJWL3i1oKuAgL9n24KWyISz2EmHy
feEg2RawaRzCaXM7dbUiDv79PSenNzyEkhb5Tt9iDkSafSuFV7Hg/nBmg0gp
BwTde0vcHRY2scUnm2qo/Quv8n48zsarIfaS050cRPoe4Tx3YCN56wMl2y4O
9Z5otia4s3Eiuqv1eDcHRnkT7/3D2DA5kXXZtJeD7pwrjkbFbOQZPLNTGeBA
LtOtpnEdB3Pj5OYEkoPgBOfH41Mc3Hp5ipH2l/q/YVV0IQESVosmu53nOEgL
WM+/XJKEttnJCc15Kh/s+y/orSMRU2N49jsPCcFNtlr3j5EwPPQ4qIGPRGiJ
af3aPBIuyWt4KoVJ/JiI4c/SGUZVRvHQUmkSYsN7Ej/oD0OOc3RzGeXDg2Oa
X42H0e6+N8dDhkRf68GLP62GUbPtpU+NLImFX8XqZpyGkWpuudZzKYm9d0KS
jBKH4cs170lTIFGu4LGza24Ym+LuCQRS50q2+7HdSWAEYZbfB1arkriaIrNl
etEIXjevESunvEr5w3rJJSOw4U4oS2wg4asytVx3ywjMQ4QSItVIbNroNZ/s
MAL6FrcXnluoe+70K7Gjj+BPouz14l0kLnlXF7EaRyBt3ZZroUNCP39Fgefv
ETiLmpp2Uh7W+ZLzgDkC36U1GX92kzDW5Ukv4ufieLTo6vW6JGaNrt9S3MFF
oJrjH6c9JM5YhZh2pnBxa7dFU6gJFZ9sac5sOhe1aSk5fynniaTeW5LFhaev
maKrKQmJom+VB/O44HosST5mRiJflXf/9zouFibfOaZsQeIfHh+jF3yjcOEK
aTyxpOL/4jLhbj+KQytX7LI4QUKV56SG0LoxiPEfUnngQCJC7YCIoPoYlu5y
TGBS/mOt3c23bQwz96WKDBxJVH5aEjFPjGH215MlU5Sd3BpHJo6OIcV5WvbE
BRLZfWZvGKFjWG0yEy7lRGJ7ld6mbwNjGA4y7DV2JaEbv1bNL2Mc7/iWFw55
k9CS+OQ4lzWOIFm3vp0+JNRCjJ/65YyjYORD6S3Ky10vyPkXj2PawSZXxZfE
hPGrBQFt4yis3Wdy0o/Ei2n1X4ESE5hfcPl5QQB132OaAcGeEzi6WUvXJJjE
gKxh3d29k5gLT87/cI/E+3Tp7Memk2DGjGiMUvbXZNzLspzEt6v9XmphJGSO
3DCm201Ccun1gGeU9WOKi2jXJpF6Jt0h7D6JxH/wOv75JN5+DKs+Fk7ikKTW
3QyRKVh1Zu2gR5EoFFE1LKmcQvqz488NEqi3tDs+5Ej9FP7eqZ+/Rvnyp0Wl
zOYpvG/+s/415VWObCPJ/iks2LtYcMkjEne+Zxvb8E4j5Y/QDyblowGaJlPb
piHlfighJJHEyLiB5YakaVwQO/olOYVa32V7OuryDBj98fYO6VRd3t3UKuQ5
g2H+5Q8jKB/U5LX09ZvBflWxlwWU/e892XPuzgzUdYtcaRkkWnYw1mqlzmC7
Y9bdAsrhERfI1qYZ/NpXyy/6gsSc/hUfZeIP7FTImohXJJrTbse8FZvFgHb6
O5M3JAq6vOOn7/9FmUrQYvlPJDR4vhg2b57HsxFO/eEiEkPGZ7uGT/AQ+ToL
IpR+kAgWiHDTVecluob/dIVVUPmolSf5aY6XWDj4UWUjnURS2nfZPUULiKdB
T4vH6kkQgjOX5SP4iDreki/hv0h4JktuFTnMT/AnL7cJa6Hi81Z5wQoZASIn
pTJhw28SPLk2q/z6BIhWN9ddHzpIYMwni5shSJwot0VTFwmjVSV333kvJEoH
hXezeqh8qhC4mrBPiBD6Yl5RzCChk6VaFrtImBjvuKdv0U/iwHVP5842YaJl
SfWjlgES3AfPfXWSRQjueqvodUzqfLINsV9tFxGP1vYoHxmi+tf9dYIR6qKE
XpJMVBCLBJ/eqTaPEVHine5Gh2A2iWt9XwUzvi0mtMUPT4ZwSIR8F4hj3xQj
8q9Mjp4lSexcbqB5fK848eZrDKk2TOLE24aoW6ISRMmHZ2ozlBmjM7rDThJE
oAb39IsRKv+yti7x/SVBsHzE+ay5JKKeXfSQhyQh53duzRxlJa2ohf8lSRLd
5fTLd0ap+jaoLX4oJEVUBbvkLR0jYcaZf+N2QYoYxbOJWMqd9evXnC6XItRT
r55dNE71fY1LPzw0aETlievigZSl1RLjoiNpxA1XQ/MByo9M5PWNomlErXa+
OJOystMj1lQMjYgYL6georz5VTys42lER4v9fpKyiWosY2UKjeit2I8JysEq
DzZnZ9GIUaFISf4JEuMrrpeVl9EIQ3+lUwqUfXbzuvlU0IjGslNSSpT5bAKW
q1XRiJF+jW8rKUs+9nMOp9OIgu2hyiqUNy7zlj76i0Yc0+fr2EDZXtb9FKOX
RhwUttbdSZm1fVQkto9GlGp/HtKm7HbY9f3eARoRG58ZrUM5MNpl4ashGmF2
+cAAQfkxzSnTlUsjxu94hBpRXrWFdXjVGI3wVXVTN6b88uBFnsZxGtG+jL9x
H+VP4ecP7ZimEatu9SiZUibeDMwyZ2jEpIlGqRnlUrpD2qNZGnFmUvqSBWXT
4T4z0zkakfc8TOIQ5Qbxc9Pz8zRC7daj95aU/wem0RRg
       "]]},
     Annotation[#, "Charting`Private`Tag$475639#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV1Xk4VV0XAHDEdd173fEtUoaKDMkUUsleRCJDJbwNEkWGyljKWD6VpJAx
kUpJGUIlZCYiSkllKnPGexAZ49vvX+f5PWc9a6+1917nrLN3O+DAx8PDI8fL
w/Pf076je5cOpRZdrRsM1he/jkKNLJayt9ei1FgnvkdXr6Os/OoCSddaZLrI
E9c2fh3NRj7ZzNtQiwoTjrg11IahWwZnRKpvvkNRx3/+UxYUjoqyZ4eNWPVo
KMTIrIsaiTiXGbctRRuR81Tghtjf0UiLe8mkZk8jmuTRV76tEYOOHZkkbb3Y
iH6VCh6d9YlBzzRa/ETbGpE092nl8t8YBMOJDu13P6Btg4snZulxKF8+OimH
0YR+mFwODdBPQD23Jdw1oz+hLMfhnRp/k1D2qQ7rC1mfUPv6V8bNB5KRr3Yi
Kqr9hDiBBV5D6cmINbCSobP4CV2i2ycEWN1DsE0428DhM7IUTIzRfZ2CUn4u
jBzc2owcnVWu3TR8gI4qtp7yav+C7F7+DYrc+wi1vI22zdnwHb1x1HZV5MlA
U7xmX9S1v6OsYA3/RxoZiK1DNio8+B2J/KJ8NnHNQPvy/dUqr3xH14z7SUrf
MlB9moPAl1/fUV7YhUyV3ExUfm1rxkxGK1Km9HnIns1GmUbtf3TU25HKikC1
bIFcFNy4/laj/g9UNufFa//rJdKs07sVtaEH2ej/VRjyK0ENkyJpYw79aMxz
KjOdUo3KSL42d90H0a4l7rxqUB1q7g5y8C0eQTKXPs+tav2Irtx1S56e5SKq
2PdgBfVmVC95fnv30jiy+1yW9/bwV3TC8qpZ14NJ5PNjwjWxqRUp8NiokeWn
UApTeMNDoU6kmyinFJg+jR6zbncvsLvQoMjuz+F7ZlCnFb2oLL8blVIUdlc3
zOJzE8jOVepF0t229jEe88jqdFeUdG4fak0Li8ujL6IrmmO1cv8MoJJuv8S5
iL/oZJPvjRuGv5AaT9nuVtVlZMYlTlZeHEQjRie7x4/wgMnH+dMhAUPoisBt
L11lXrDz/ERN9x1GNVpFrMIlXrCtpPirWI+glLS3IgblfFC52meEoI0iIM17
iN9eAcOt5LPmhaPown2WOsWKH2oNfz/I1h9D/+Zt4JNYJQDJH2cOVBSNIZ78
Y9KBAwJQWBJC5pXjojmla3+uDQnA5IyIxXl5Lpp88vxd1KgANDfOPR1W4KK+
OzxnHk8KQHanQ2DTZi56F/DwVcOSANiXC3yI3MJFkQYDu9eIkOBa10XnPh0u
kmo541xgSALX1f3xbQe5CE35Z0+mk2Dez7tHLJCLeFh/cndmkuBSUj7bI4iL
yje7vQp9ToKBiiX9mktcBKfsiiXySXCysCb3zP+w2wzqjatIUG+39U1OKBfp
ltMHHnaSQNzmsAA5mot2hd8Xt2ALwucEI+XlNC4ylK4Of+EnCEL7fPU2N3DR
gMIZRSJQEDq0L0/rNXJRiOqqBoVgQSj+Qfpi/YGLKnWcqA9DBUHSxndlUBMX
aR+ihUXGCsK9P26vq75wkdqtg9fOPBeE1fSEHplOLpKY7bss2ysII1GrZPeP
cdGf9wI+d43J4KkWfsmGSqAgWzOnFFMyFLX2uavRCET+HXcodR8ZRIqVKknC
BBITk9POsCJD+VPy9Sw6gZCTMe8bezKI84/n/mYRKJQ/4kabLxkkyvgq7EVx
/E7R+6szyOBiUb//gzSBdmYr1MVTheDNfFQNdweBbvVXjXTQhWDQ3SMiS5tA
P9ba0NezhUBy8uxr150ECrwRYZEpKgQrt5zbOKBDoFKnqc5yGSHIr/UPb9Yl
EGwonRxCQtDfa/U10pBA+gn712p7C4He8uLuhAMEMgm+4NbVIQSZ/+vWmHAk
0NXdub1jP4VAKO7Iu0unCFRBGbZe6BECMX2+foYTgTSjj8CqISEI62GWKjoT
aN0jHZbJtBAUhb6fOe5KoD9v+V+8FqaAlTvpwws3AqUIRf25pUMB76WfUgIX
CDQZ+TRg530KHPY+UOt4jUBUxL61I5UCEtPlE9+xpcd8721Lo0B6RWexcSiB
rI1MyjQyKWBqp6C5+TqBinkJHqUCCtx9pFs8Fobr9VQPkWiiwPqOm+Y2twi0
+mBZ2PIyBexZWyxnY3D/Ii3xFbZUYCUFhW56QCAp51utPCeoEKdn9DQCm/eN
4RpwpEIjR/b0b+zKY0X3Sk9TwWTGsLXwIYF2paU8fnORCtkxaof0HhFot4bL
i1fRVODXLVbWe0KgvRbLH57WUmGb1jHl5UwCWUXIk24r06DXPzYj4DXen7PB
d+6o0UB+X9i2WuxRk3bFBxo0yNxaEsIsINBlyk2LnB008NyaafEQO/PK+P0P
hjRIGd3XWlmI6/N/vYN6nAY+24/nzLzB750MPEIiaXCuLHdUtZxAPob3+MOj
aRD+2jHEC1tv40x8dBwNdp6M//kS+1tveunDJBqE5G3q1qwgEJ8tjVaRToOh
sH9XaVUS6F/L5rS/5TSgvpLxVK4m0Ao9u47zEzTQ2Zaq/ruWQDHVlAdlUzRQ
FLPzV3tHoI2GLx3IszTgV/34Pw9sYxNB4s4SDZSakz9zsW9bZfGWUIVBXFz+
/EAd3m/XuY0rNgoDM+mOQP17AunERHlEHBaGTWbkqhMfCdS0aofmdxthYK+2
cL2LbX+nb17KThgubuS0fca+em9rSN4pYZgoqaDqNhGoMb0zrsVbGDRf+LwV
+0SgoyXyxWsihKFuZXVp1WcCXRyoIKVXCUPuI2OZsRZ8H6cp4oU1wnA1TrJK
7CuBPAUObqmvE4amHAX1Pdgu0gO2ox+FQXHBP/Ih9mF7SqFKhzB4WyNNy28E
0v5xwLVwShiU75lb530nEM/X3o/1MnRY/PJz0qSdQP79igPtcnSIXU+gc9iz
U+cWRzfRwfvMx5PJ2BMcsjxDjQ7P4iM0x7B79isGW+jQwYO/+29YB4GqGr3V
O6zooL+Xtr2sE/f7VuDO2DUc3xJlSe0iUHdp4F4ijA4BB4U2K2FrF8z8Hb9J
h+azo937sCeeDdlPRdOhze1sXyz20chGxYUUOrQ+zzCX6CbQliOx5eQCOgyp
/9Mq10OgrnHpwQ2DdLhqGfg/mT4C7RhOTpQZoYOInouuPnZc7ypTWS4dJh8d
77LH3vuVnKcwRYdZ2faKFOz8N6N+qjwMcJcUXCXaT6CbV18ykCgDTNpnxFYM
EGj7Wv2th/cwILGDf3/VL1xPofCa5L0MGJLkye7CDrT6tvTTjAGPL3kO/8Wu
jHSpcbBkgFauNp/WIL5PAlGWHvYMiH7QnfMM+xC30yvUnwGsFVyZsCECXSj3
ycnPYcAYf6WB2giBEm10Y+ZeMKCkqbRxL3bxPOWC9msGdC7xbnPA5tG4hypL
GLCv8UNhPHbo0+oPjfUMkO1LPbWAHX+bNdbXh9d7PhdeMkqgI3ktMddpTOjh
Wpdt5uL7aBimzKAzwWa65rQetlOHTn0MgwnEYwV+a2xvUvpyCpsJnzZLTwRh
hx/2dckXZcLXLfI1TdilfJLQK80EddFbZ88SeB4snEa0dzLhluyIQeI4nqfB
tVcrdZgQwvY+lImtGPBJag8wQWzS81ApttaT7VYWu5gg7Skh2YO9f4FW4WzE
hA417Sq5CQIFp+bGxVkyYcfKzsA87P7f87rjZ5jgGdKuVzBJoA9t1ufi3Jjw
0qH+UB12QcXLdG0PJuiruh1tww6POMu47s2EPYdVZRax1Tb1dKzzY0KZxe8a
nd8EumRf52MRyoSKaMFj5dhrP8Vn5T9kwn0zbddXUwQiFUx1HX3EBFup4HXV
2OP39v+zIg3HyzJqPmNXnab6mT9lAp1i0kZgu5CD9gw+Z4JEkLOq/DSuBzn2
ri5hQnhd0bMEbIts9dUB3/D6a82MXf/g/Qh7mrimlQltsQV5PtgkR4m1RW1M
SD0FtBDsAnGy5EwnE353DN5Owl57s13ao48JLGnb8QbsPtdgFYcJJii+KJtT
mMHnJd9kaEplgaKfWl4HtqmAQd0IjQXvV9w4+gt7Y3ehcRidBdphw3MT2N8T
Uk1rWSzIm50RFpzF80f2sdAVZcF62fYkFWz+X+K2GjIsKKug2l/Gjnnkel4c
seBBWuzQ6jk877tzpO4DC0aL0jzXY6sMTdWv12NBpvnAhAJ24+ZASTkDFjCV
xZp3YJNeR75T28uC7RJe62ywfepeie2xZoHD+ZI/ydiHuculnm4siNR0eSc6
T6D0SH3naXcWJFdEKEhh/1G7zrngyYJzhWtCZLGjfdhOAedYYHr7hrgmdgOP
DCvUjwWSPnXDB7B1OMYnkq+xoMsm7k8Y9jqtGMF3KSx4fDOAOY19QPGysesD
HD/WMLeAHSJ19iY9lQXxzrvb+BYINEjew7FMY4Hg+u5LTOyc1gWJnkwWPKe3
OGzC1vE7oblYyIIdzyPibbEPl6o5qHxhwbj9xI8K7PA8yfTmFhZc2/a+vBa7
NI02cv4bCyYvkO42Yq+LGHAvaWPBK5+3Wq3/rWeb6G/czYKtOnZi49jnefli
TnJZMNDzIWDtIv7/6H+qTCCz4Wh1BK879rblm0pSFDb4JpRkeGN3FRonPqGy
QVddfd9FbCXlao98Ohu0I1aGBmPXr34t9eUfNjQuHHkZg81LJAUy1rHherEf
fwG2+x2n7Ve3scG9ri1rHlvkoEya8A42RL+RzVrCLqX3sGK12XCuKugJ318C
0UKODKUiNhDVp25SsNPPmiVUGLBhavUrCTHsrl3qfxb3s8HFSeKoFrY5dznX
y4UNVdKNpzywB5K/uP52ZUNvW2+FN7a/6VMZrzNs6OdvF7nwX77MA3c83dng
6RPwOhCbz/XxJY/zbDBcu7LmBvbLX8bmbsFsoA1FST/GFu2OHXVJZMPKsC6B
FuzsSJe04btsMJqt7PuGrQ/ouEsyGzaSOeVt2B4pg83O99mw6grtdBd2vc2O
N05pOJ/Jtzsj/9XT1nXdMQ/n+75vH+8S7qd5k6x9PRuG70vqK2Afbkm/yNfA
BvGGxDFF7C9fZRoeNrLBosIrWhm7tlXSo7eJDc+99n9Rx87+yXlz8hsbPr3Y
sQlhB4wsmJ3qY4OOeYGqBbbYiobzp5fYYEXOKLuAHcNvVEfj4cAUr/NfX2w6
qWZNFi8HtlrQtQKw+YTKy8f4OUAakHh0GXuI/pLiRuVAiFyNdRh2gVjSPQ9R
Dsz1RarcxbZUO11zXo0Dz94YVRZh688X6C5s4UBqo0JIMfaWSoGSIA0OJHSU
7yrFZh1IeRGqxYEcEZHiCuxGj8/3E3U4IGhXGPUO2yBXy6/UmAPpMprNLdga
KgIqpBMcuFHoW8HFlp7dnxF2kgO7P8uhcWxO+b2NDEcOPHX4WTSBPWGuJS7q
zIHiDLfMKewsN1eKghv2L9sL89gyzz/1mfpxIP9bxCuBZQKtVLp3JzaaA5up
8i1i2Emm4rsMYznQkNq1cy32hjNJo7NxHFA7HvRIHFs1MxEdTeSAPBHgKoVt
qhDfv/4BzgdNXTLYVzZGquZkc8D1or6rCva0RHBdfR0H+quusPWx/XV4vfzf
c+CxeMhOA+wVxy6tVWrElih33I3NSg50i2rigD7fwos92JvX+K389xsHpukV
20yxHUS87fr7OND77umUJfao5m9K/AAH7B4+5rfG9rLyfLlnkANWJwQ4/2Jf
jnUXzBzB54c/54exkzlnsjwnORCnPm14DFt6y6iV9BQHkvPM99piZxxw5fk6
zYGLbCnT49iFUc4W2+Y48Fd7k4k9NuQOLg7Pc4B9wsXoBHZt06m0pEUOdK6T
MziJbTY+YG62xIHBFEfkgN3CcJxbXsbmkdNyxP4/4qT67w==
       "]]},
     Annotation[#, "Charting`Private`Tag$475639#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta](graus)\"", TraditionalForm], 
    FormBox[
    "\"\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\"", TraditionalForm]},
  AxesOrigin->{0.18000009836734693`, 0},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{645.5555555555554, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.71309345163361*^9, 3.713093465103789*^9}, 
   3.7130935098429103`*^9, {3.7131012820526733`*^9, 3.7131013002108493`*^9}, 
   3.71310159322631*^9},ExpressionUUID->"cd263573-ff39-4b93-8e2c-\
f50ba8003756"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"q", "  ", "Degree"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"q", " ", "Degree"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "30", ",", "180"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta](graus)\>\"", ",", 
      "\"\<\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7131013380742407`*^9, 3.7131013597952952`*^9}, 
   3.713101601414678*^9},ExpressionUUID->"eabd6bcc-b829-4f09-9c20-\
765f556988af"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwd1Xs0FOgbB/CxyyakMhq7XVBaaStZuoqZx5gZM0YyaJBZjDG6bapdwkqj
3FYXVIyyvza7tmlUKs6mcql0MamdXCKlNKYaWZcGpSLye5/94z3P+Zz3Oef9
/vE8550bud1f+gWFQokjB2vf01AXCoUOn0rZXtcm9AzJhV4HlSkdsuhLk9Ht
+5Kss63ooM58Uo6uX/jb5NlL6WDUsHPOdWJFfLtmZRgduI1VenQENeTg9mo6
vHY3zqolbvUW6p4nMOCR+m3ubWIf6672U2kM8GIqrqNvD8Y1/pjLAJvY+W/Q
5cfyq0ZPM6CWk+59hzi3q+UwrY0BgZO0lDrib2sX2pyeCTDbgRmlItaIlPef
JwBoQ49Pukf8vjiF6iED4J+tdEGb9QaHFqcDdLQow9GuiZN7Nx4B8B/sq0DL
87eYDJ4FiL83W3If8z1YzPtSA2D/XlT+D3Elo6xuAdsDuuT+jg3ETRlZ5vv5
HmDreCIQ3a0WC/sEHnBwW80vaJrIoutimAf8r0NWh96Z8LORa4IH5K+gihqJ
HcqWs3zOeoCXgVLWhO/Pq6zdMZ0JUxfTzjwkXhmTWh1txYRyO7969OOrPpdF
c5hwlL21Gz1ToDnHXciE+yVs+xbikzLDY7YeTKgT5BShlc98Yxp3MGGv67Gc
VuKr8pcznRqZEHQ+LbiN+JnJlFh9tidYhjufaCf+qG6SqfI8YUIZeAlNPSw/
cLLQEx6GiNVobyvb4nUKT+gSuo6jr9q5NF+o8YTetP7Qp5jfLcRpR58nyDfF
zHhGLIg51TfAYwH/TkpiB3Fdk7t0yJAN4HrRpJPYfciCzjNlg6Tmjg36b4tu
WtF0NrxxvrsM/WfAkbtrrdlQ4pcXhk5u7VpUspINHQ/4ZehlT3KGwrewofk7
foAW+zu1MnUDG04l2Ox/gf369EJlIQdOPg9TvSLeY+ljf7SIA/4RTm3olNUW
5ckKDnwdP9yF3pf6e71/OQfyCjZ8pSPOsLr8cayeA6UmR1jobEa3UDDCAduK
G9fQRTne1NEgLxi/u/NMF/GtpVMP8mdwIUZdIO4mti3Xvfp7FheW7Lm5Hb17
WbW79Twu2HRok9HLVm/WDzhy4ffWz8fRCuYtfzmXCyNj5U3oX9fHf6NN4sLy
AHPGv8RrkzSKXS+4INyjmd5D3FZ3ofaPCzyYtuX7wl7i8zf2Luq/xANhuuIU
Oq0yIH9VNQ86nahlaOfzHzY13OVBfshDFTo7nzFtXMsDeav+HZoV1RAWbOkN
zglFa/tw/wz0n8wTvWFxAm0Ene3muGI3kw8sXffqN8QtLf3RnpU+kNFnzx/A
+b91+2mNwBfWBPa4DBHvb31m9u2DdbCvxarqLd5Hbqb/+ocfKOgi42Hin77a
caxtqwAkh5Z7vif2XFPgd8LBH5YcdmZ9IE6ade+M27A/jE81Xf2R2Kh363zr
awFgeVpmNkL8iO84FpcYCJkNpVVo8+CxuNOs9dB8y1g6inmHe9au+0II3gW+
Q+hYuk7V2CCEatOUpE/E53b5ivOOB8Guj9+9Qy+Gx8EP1gfDzMzrIWPEFpe2
DWnnhkA/za8GDVV2PVs7QyDrZdz0ceIbF7kGq37bAH9OLhChFYLEyg5pKCyx
vaRAt6TeaxqZJ4KMb4p16M3iBQf0ehGMq6/YfSb2c3wrWXD1B1iTTw1F7zmo
KWyNDYNDrYv2o6nytp9/gHBY1VN1Ba13GjgT+jkcytoFneicjiqKrygCJqtV
X04QhyQYjW+ojYC5nH/s0arQcIdiGzH40uJY6G7L6/Mfp4tBOZQtRpfSlvpx
dWJ4ZGn+C3pWrvDAE2YkbDx0OQftpkktCFJGwpH+yr/QBvG1zdMmSUCXNa8C
nfjKUFOxTQLlKyrq0IX1E6PJzRIwG1S1oE3zbx76/K8ESoxvtqF3R6Tbygyi
oJZxsh0d/sGEk+IUBUIzw060+6qpU8Z4UbAirvbFf3kSqS3xkiiYMyVMh24b
nRW5XR4FSx4v70Hris5lGtZFgTTT6w36Lce99PhwFJi96BlEP1KWbGDMl4J0
msUw+ooJzVjnL4WfUpo+oGODjKz3pkvBblvwKNrpr3cuc65IIWvdxjE0fcaP
WuFrKRzd9Hoc7ZPxMjuXFg0RLpQJ9CYjNxaXHw1y6o3/nJqWNzIhiwb8SymU
Acb/Aefd83k=
       "]]},
     Annotation[#, "Charting`Private`Tag$502559#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxF1AlMk3cUAPCvXCKbnEKUbjM4GS5xQMJCiON4clkpR1sLbWlLLwqyemWr
HGHIDB4baNslBAdmE3QygjKEDMaxbmMaDIUhEK5xlWNMBmgZxxyHMJb/S/mS
L19+ef//e+9/5POQn+MoLSiKStx+///ODwv9KCoY/qVtg1oI6YtKmB7LDAEd
RWwUVbSPZQIcmN/afkwhTSE1rV4Rx8AfxxcdbGo57xQKXCfixqIpd9+uUIjG
+SN2e9QmTRhMbpH57LP35hdOhMOv6NbuIOWiVQTcQ98Zn8j97WkEqLuIc0xX
SipKIqGjjbhUG+WyxjsOgf3Ej3wcrjNdGfDPHHFMtrE8fZIBSuxvoLW6paz6
BDyzJa6lmdbts6Kg8jViTaC3/yehTCjFeI2tplOyyYQfbYh7e5+nhDVFQ7kV
cVK0oIy6GgNtFsQzjx4P69mxcBnrNXaw1H87xIEB15/fN/K6Z2ccyP4i/fX/
qZLHhLOgBT0jTwv+rIwFYy+Iq74/PVdtw4b8VeKPbM5/OaBiwxtYf6g0T33U
wIY67D/sg5usrw5zQIr1JfcfvprXcCBnH3E23VAZuMKB5+7EYHkrtUpwEnT7
ia3nVIfe+ukkaPcSn6XHOBroXDi2h7if6b1xIYsLCqy/yHZttDdyoWKZ9GfP
37jwbXg8pE4Sd5YvybLvxoNTH7FmZTYmziIBdB3ENPcZO8e0BAjD81QHTz/p
epoA+nZi3VBxYe37PPihh/hBeqyssJgHdSPEp4Uu4pqXPOA9Iz4Cg/zOeD44
LRLfXrvjOdjMh/sbxM51ZxYnPARQj+f1bgPjxTuXBNBujfvR/PasalwAw7uI
Kf/6le6gRFjH+/DLQwYt4FYi8HYT+9EmRvMpITijy9lZTaNKIXBxvH7Wo1X1
WAgSzNebZ+hePSgCNt6nrxczv1N/LoIjWD9N5lVgMonAHfd35PiNjAKuGHws
iVneSwqvRjGcwv5TxWm5m25J0I3nffG6saRPnQR8NOML4bXioSRYxvvnUjTw
sRgkUIG+NKXQim5LIB1t8l2oFG5KgIO2XN8/p39PCgFo7WgzFSuSgid6uXL8
Yq9GCvvQgkzrV4ktUnBAO35Y65y7IIXd6CdCyeG7B2Rgg+YHaMv1HBlYomf2
/nxo8IoMaGiDa8ZRXd2Oq9x8WIxpGVBoui6h4PdQOWzh/yLQmHeTVyE3x2kZ
LT2OuxSwifGsP6yM9WcU5nhJ29ZaTs+OJS/tIj/1TTbno2e59GYoks3xgTW6
/FxRsrmf6dIH16xak835lyKDqopXdsY32LnZTnOUZvt+s+z3ZoPSnD/66pRG
55Zijp+yDgxnMFPM+fMuF65u5e7E/wOZRmsK
       "]]},
     Annotation[#, "Charting`Private`Tag$502559#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta](graus)\"", TraditionalForm], 
    FormBox[
    "\"\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\"", TraditionalForm]},
  AxesOrigin->{30.00000306122449, 0.9999686615023501},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{631.1111111111113, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7131013477471423`*^9, 3.713101361092308*^9}, 
   3.7131016036805434`*^9},ExpressionUUID->"aeb8e867-1152-4e46-b1bb-\
78379bdb5981"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"r", "[", 
      RowBox[{"q", "  ", "Degree"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"q", " ", "Degree"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "3", ",", "30"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta](graus)\>\"", ",", 
      "\"\<\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"FontSize", "\[Rule]", "14"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7131013776721916`*^9, 3.713101382219549*^9}, 
   3.7131016352620187`*^9},ExpressionUUID->"4ee273ec-8676-4b9d-a06e-\
4388c33c4c6d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwd1Hk0ldsbB3BJxmM+hmM4HEmoSMbw9j6KcDMUIZUMlZCbIU3kEjdkSnUN
oaKuIYky5Ra6UUoqJDLUyTUm8QopU37P+f2x17M+a6+99vd51l6b5RXgcJib
i4urChenPv0yY83FxQ+v3HkymEMUqZ4W8+67GD9c6E4KMkcnmsm6j7H44cGB
Iwu+6N0ZJiGd2/hBqSN6dQV6yCLqenEsP1SMCn00H6ZI3lzR6T2iAiAi4nB7
zwhF+tnkhtspCwDXCcUvZ9BvfmziN9cRAIPg9yOZ6DQ7Z0VtRwGI8xxU+IBe
u5htuSpdAEaHz0bu+0yRVi6a2feZgnBBfPtju1GKLOauUSvQFoTgY75Mf7RY
ie39bBCEeu5y8wvoLp6gxlgvQeD25BqtR/uWPZh0yxeEpDzJHN0vFBkvbGEh
qCUE95hTW4TGKLK5wX3Ci6CBXPTlW2lfKZI7703hM3saPHhR0VGKNo4hDqp7
0SArYrLzBbrISr5rPIYGgSl3rObRca87n5xupUEiO2t27zhFmr+3TU0+KAyC
bux+yQmKrPtiYvrwggi0txGj3hRFzjYXzSpki0Df+NH3oegNdxn3I0pEYEN4
a24yOjvgxxqLdhHo6b/0qhIdOlMm2qogCvtdxaO5JynS8JfGwFCpKNxUa/4n
Fd3FT3vGf1QMxhWV7fO+UeSh4Q1a14+LwctufusK9GSDfbruWTGo6b28rgHN
F3HF90CSGOTb2dzpQxt8lxOpKBUDptj5TLkpikz9T8PFfUYMMsd4PeLRDg8t
RyvDxeFMv+29vdMUyU73ddgRIw5S4gWSR9B+JxIe9SWLw28Xuw8dR5/b2JIk
lCMO0VUubQnoe/nOmzzrxeFsZVTnI7TolcNhND4JOGTSWSI7Q5GvjkYLH0yR
AHrF26BG9PbA4X2vMyTAYngxsxX9b4h1kWGuBNRYHa7qQZeHi1rSyiSASnF8
OoHOvJgVWdkuAWfr7Ejp7xTpU14+zScjCVw8To1eaJ6Fge7ia5JwP0mgfAr9
x/J2dZl8SZAwktm5gP65sujkuRJJ+NUi179yliLHaIGSzo8lIei73RAd/Za5
aLPcJwkNNwP9DNA5W+n/7lKlQ2ilZcQptEm8ef5sER3MnltbT6Gva6QlylTQ
IXJKZfs8mrtpJNiolg6x24KNuH9Q5Au+BDK0hQ6a+rVL4mjn821dS9N0eHaT
S1gHHRx5QGgVIQWXE3Jsf0cXnTwdKNkiBXFqn16y0SLSL531uqTA1yk8fQgd
VClPOP0nBbZVmfu+oo1m6gTSp6WALyXh5Ry6MWjVLTlZaQhpe2lO/0mR/f6X
O1ie0hDjklhliZY7WGy8cVoaFM7QPheijwV8Xl+5IA1tVMDeEvSTMFUlYx4Z
ENZ80ViO9vkre6W5lAy8uxiaVIeuepb4ysVQBvSYH9vb0Q7qvx+ICJMBXikp
myV0/PiGqDcrZaGqR2a1zRy+nznfEEeaLLz11hvcidbhzffuosuCi9z2HCd0
F5O5o3+NLGR6HxZwR6vtFKHPWspCwoBLThC6vmwiTzFRFiRU+EZS0fOnSpv8
6Qxgj/Gu6kUbKvU4FioyYB/7e/wndEgjD3tAjQH3078IDaIp+t6pvZsZsDmc
e/krevA+j7z1AQYErqws+oV+M+bqv6aQAWC2lcmap8ib7jyibBM5GD/p/bcX
+hOv9lWGhRxM6JhmeKMVSlxXO9nJwT3r0Vg/dPpiieErDzlIae/bG4xOvOrq
8fC8HLTMDrWcQ59sL7mf1iIHsm4bFm6grS1dd9sflIfcubGwbnSI1LMGd395
qKdoQx/QOQMbdQNPyEN/0+vf+tCzEfwSl2LlYWQcaCOcfNUPWt7ekYee6iNH
ZtCLGtI7nGfkwcToZJTIAkWW0NrN3M4rwLVeTR9AS7610T5aoAhGc871WWgt
4VtFn0oVQatNzfw6+jeruTW7qxXBQLe9IQcdWZenQDQpQrN1c00e+mvRLwHR
MUXopMJSS9GN0fcGy7SYEJs6PlCPPq1Pz5yvZEIAz0eez2h2Ri9P/FMlqLKM
al6/SJEDx5RlK18rwdGESyu00Z/ND6/r61QCYelqfR30t8mJXQajStDz1DFD
Hx2les7+G68yWBpzW25Bp539K/vaOmVo5pGxsUfXrX9kMBuiDONVnisD0cJJ
/EcL+Fhg9Tz3YjE6TitnfkKIBUkW50xL0NythvEGYiz4bsL8XIqelThy+5ks
C7iyU03K0X0Zz0YGNFgQq3Ct/R90xd9Rh5RtWOBYwmpqRO+vWXS7msKC8POW
bz+h74xN7kxgqADf5pJMkSX8v5U1HGsVVWB/5thPUXSyk6cTxVKB0EV9Z3F0
4OM2V0dNFYgw/y5MRxtcKfOSN1EBbz2DYAa63jgk5M5+PN8bKaKK7r7wI735
hgpUmazINkLzqf9iC6mthknPRX13dNYTtp+7tSqseDX8pRCtPUcL0XNdA+V5
HU4D6IUkkbAPEWqg+25FEuMXRZ7n0tdk5a6F1rb9ZpZoUfHbziMl6rB/B83V
H932x2RkZLsG2CxdTL6IvhJ/Xj1rUBN81DqOF6OTpsdfx9HWA2P8X8UXaAvj
MHlJ7Q3g7qqm2odeYjoPM7dowYf6TvUZ9LgHT+nSQW3YPVtwjW+ZIgOUI+e1
TDZCbZb2tAx6e0RK0N0nG+Ejw+GUGro6Mf5IqqMO/Nx0q04Pvc53nUJdrw6Y
N4z0ANp4ptJ+Z8AmyHS40WqDXjvh8H4jly7w1wZEu6ClHqQpOsTqwq03LkUe
6BtaT/s/MPSANDvU5IvWOJHhXXhTD95vksoJQl/WjNhSr64PDxv/rD2NTku2
T7V4qA914W39Ecuc+TYWCWw1gDlmrVgM2vTWWtKwwwCcy3OtEtEfHbUv5x0w
hK2d20ouod2OW2/2GjIErZc+N9LQZ8xs3eNOGcGe0YCcLHQq+8c2atkIVN9V
LN1A22omFjy+shma4s74/Y0eGNzkzlY1hitGB0IL0aHHIjuIYmMIMiAEitF3
8x+85CVNwCf60u1SdN/d1D/EXphAsMqnrjL01OqYGB87Uzi9q6C5ktO/lYew
Zp8p7BkMbK3m3Gf6n8N6HwIELX4/8wg9XBOYm+BHQIH//J8cRxJck1/8CWC/
+DOF47ItSkm3gwioVrlUwLGsmdtztTAC4ERcB8eDFt0mrGQC/N2mNtZw8tq3
qUpXEHDY+58hjumtHsdPVBGg2z0xyfHdnZNP3lUTUJ/NWuS4b5eo+5VaAqIZ
ERK1aIvdtlfFnhMQukKO5FjMtUlYqIcAF+vWdI6Luvfs9/tAwAqt3pscb9v7
uaiJTcB84MBdjk/u47OKGyBAVuprA8cf3CyiVo1jvvGP1P/32e9aD1EEVPS2
z3Ms6n5I6ek3Aia0nq+qQ2/1iK6JmiUggC9fnuPePgmh/p/YT/IlNY5DPG+6
mi0QkBUeqsOxSL9OYc4SAe86PEw5LvB6Mru8TMBourklx/8DQGe6Xw==
       "]]},
     Annotation[#, "Charting`Private`Tag$513769#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw113k8Fe37B3BxZOfgOIs1j7LvsmRpLrK28agUyZJIKVsqWaKyR/Ul22MJ
lQohhZKypBKVkkRJkrViZM2W3z2d8/vrvN6vec0119z355o5I7vfz96TnY2N
DVaxsRG/Td+nbdjYuKHudNaalZlxTDEtpmOGzA251rZGywvjWKIp3fWHLDdU
3ox6OrQyju3MMArq3MQNAcfoGuE8ODZocTa3JBZ5rOfIYwkc2/xLVKkggxui
q89LyqzBsdLs63fTb3HDgkaYydG1OHZiqrn5bCs3XE7a3dquimOr84Wm9gjx
gGnl2NMXxjh2eGt++PY1PJBv/vlONuDY6zltbnMtdLxfeMrFHMfStjtIaezg
gXBuUZeKLTimsJRtxZnOAwfilOhZjjhmvVs5+440L7Dx1EZdC8SxEvZa+Rsa
vDA3vpcj9jiOkUu3obq8oK0sB87BONZFCngWu58Xksoya7+E49ihiuqJfYW8
oD9bLmMXh66/zyZ0RzUvDEgX/XqVgGPaPJ84bZp5QVnmKCck4diC6x/x9d95
4dPdU0WrknEsQcDCgledDy5fT/yw8h+Ojd/vbFvZyAe6c2Y31+bgmP0Bb6cZ
Wz5I7lgljV3BMfGH5/36AvggJetR3q6rOFbk3Z5ZVckHJ64XRAoU41jrE9fx
/Sb8wDgb9qflPo6xX39986ktPwh9yTE9XYNjhjEmHor7+eHlUYqWYi0631qi
ayyGH45X0prc6nAs7lVnQ/Abfhh/Zup+6CmO1ZdahH3q54f0H5srOp/h2NzF
e3obZ/jhgGTbslEzjnnZJxdziAuAndM3GbwFx8w/bEu94CEAF6GtfLENx8Lu
19r+Oi4A/2w+vqD6FsfuZqrw7owTgEshLV6723HsH2eeCMZtAahPGNXM6MCx
VV+bvK/NCoBY1ln1V104ZtCoI8fFIwjO+WTd1m4c879a8PmQhCC8H9T1ePIR
x/o8I+01QBDcU7pLC3pw7PF3I+OaeEGID6rRWdOHY7OtRbOS2YLAXtVWNIms
dptxJ6JUEL4971er/4pj2X5z6yzeCYK+jlrD1m84FjJdIfRGUgikZ1W+qQ/h
WMV72RZtDSGgv7GL6kEerboUlWoqBKc6tX5HD+PYnlO+805eQpCZtfvuyxEc
0/+j9G2wTAgM4wt6VX7gmO+XjBzrRiHY+UA4sga5sJ5rT3GHECxKKuVZ/MQx
6rnBl/7zQmBx7XvRv2MoH+fsPoXLkmGTfNiSGY7yOx1rUKZMhpIv/92oRtb2
rEvt0yHDsCHmqTSB8mepbrfJkgynWk/uJf1C+eTmf8rtQ4bCTNp85iSOHRhS
U889Rga6XNTzSeSJJ7bpOmFkuHvp+3GbKRzjikg55JJEhnfGkfkTyHoz4oL3
ysiQnpvupzCDY43txidt7pNBavP6UH/k7eUufb31ZPisiD+uRvbyKajgaSdD
+e1RquksjqV+VdrtOk2Ge7ftaDCHY2vqttRPL5Hhh9yNqVDkkuyjSgmcwlDx
IHpHFXLT7juL96jCcDBGpl7+N45NvzLI490gDH1LKjpzyJHFTjx5psKQUnxQ
VHEex/jjwwJ1NwvDTsqB6t3Icub15m57hUFl5/2Dd5Hta6xGK8OFYUzIWG3f
Ao71ph+y3xIjDMcpqyaikA8fP/+w74IweKbNlhQjn9FsS+LLE4aQFj71WeTy
Qgdt90ZhoJn2/YpYxDHjqOCs2RZ03EhSNQ+52f0/UuI7YSBbnrxQh9wn2dtZ
NSAMpEHjvkVkoRTPUH4uERj2qjLzWcKx//xjB/KFRCCf84hNNLL89lvb9Oki
MOHzPjcXeSPPmMx+JRF4845h1YbsGxHUVL1FBIp/B61SWkZ5cE5T27ZTBFLC
4iZNkGMM76f1O4tAeEOyvT1yzsyit4CvCHzqZvM9hfzS55yAxyURuCqLBzYg
W/oP7X2VIQKeah2jb5Hrg2yK9PNFQMqIgn9FvhsuZMVfIQLp4XNlbH9Qvxez
IivfiUCrwbzDBmTK5T+vZXpE4Mqrz4mWyBcy3KUSBkSg/Lmc1w7kM/kKNS4z
ItD7xoD/CLL33btTXDRRWOzf5JmJ3F9NNQuUEYU1cw4zV5Gda09d6lEQBclo
PcNSZNunmNodA1GwcJf+3oCs96HVy8lJFOgxe6lDyOWf1Cub9ovCw+ypyHFk
5b7/cWj4iEKaYHXpLLLU6O48jjBRcDwr57R6BcdIi9+6S3JEYeNreQk55NMr
loq0QlF42j/7Qgn5N0fRiTOlogBCDVaayD/4/UUd6kThk1xkpTFyu/TS1pU+
UdjGGRO2A3mrnGvWoVFRWGmAZ3uQnyk0jr77JQpq9Csj+5AfaMbF3GSngHVd
4sODyHlmlPp/11JA7lVm1SlkcauTgrWqFOgUF+kPR7685aOzvC4Ffg8IjJ9B
jt2ZN79gQYFd4TzF8chsjhzWntspcKepel8Scsg+r7Q2BwqcqbOcvoTs66Wq
c+0gBRpLFd6kI48cvnhG0J8C5SLL1Cxkd7/JtuBgCmyxrjHPRd4ZfP/ItngK
eJys3X0N2SjBvHC2iAKC4Um+Zci5SmmJtHsUuBarrVeBzP5iONDgEQWMrh8b
uofczHUeC2mjgHJJCUcNsuqNnnVZXRSojeIOrEW+aKnOX/uVAhnpza2PkR2i
33YtT1EgK4XT/AlyzVq5OullCvikPfZ4iizVFHQdWy0GP613BjxHHmCnB56h
i0HAn717WpEDI134OE3EwJWz50A7cqdM+a91lmLwuz2TvQN5Q92qLktbMQjy
d0h+T6zXn2vX4tzFYGRVanwX8oGc2YRbh8XA7f3kr27k58bWAS3HxKDCm2v7
J+QLoT9M+GPE4Fb3SP9n5Elxk7VqF8WAXSxY8gvyrpoLvNszxKB+zmxLH7Lk
vNaHi0Vi0J42Ed+PXHQi2F+0TQwSdD5cHkIWpLY4rO8SA+tVUWeGkQMqJUx2
fRWDvJpJzxFkg+nHPOlTYnDKV4X2HTk7hTxRvSQGjxtCBgivaO/v7OKkwqb2
tKIfRL4COK+K06mw11/pnzFkZeHd8UayVFjeKdZBOKn8pp+zMhXeNtyPGCf2
F99inGtMBfrSUhOO3H8k+b2sOxXOvl/in0S25B94aHaYCosZOsmEbxXrFngc
o8LNE9dFppD9v3f5Xo+mwvDyF85p5I545V3PLlBhkvw7mLC+UpjRcDoVmtZ9
Hyb856AMt1IRFfwdxx7MIO/nChi3uUuF+9zmUrPITwsbOw7XUoE8thJGOHHQ
M7/kNRUqzOW154h58Cgx1JyiQmvakRO/iTz7jahWLlIhP3nfQ8INoWtlDEk0
iNaaWCbsfTmbw1yMBvKBNmHzyLV5XTPNUjRYpOrdJyx0mzKyTZ4G233Jk4Sr
nia+3K1Pg/yud64LyLztzY97MBoEu/WmEN7XS7rjbk2DJ4mMZ4RJc2GpPo7I
oq7rFpHtFY+6RITSIIXnwRvChetv2ZGiaNB9pneO8DwMmsUn0mBS66rUEjHv
jvsUUnJocPPUBk/C056ZDHohDeTqZGMJWwW+58sppQFHbucNwuMJ2yYK62jg
mdE2SNgsPb5fpZkG6mkKHMvIqVefdpS/oYHq3DEZwsa1Jg9qvtIgSktwF+GE
MbWzrzno8OikXiXh3vlDQTv46RBZKdtKWGt1oVcXhQ6Xysz6CHdJS2/pX0eH
E1dNuf8Q86viZHJQnQ7SE6oShCP00zR+6tHBr8BbjbC8nSBl1ooO3RGjtoRD
nDevDrWjA77N0I3wK++Y3yt76PClZdKPcNCZPz08h+mQwF6eRLixYvy6VCId
nLmGGglT65QzCi7TwRJjayN8qNUrQSGHDk/Ubn4kTB7o9dUqpUO21Z0Jwgcm
xN2rquhgqii+SLh6yWGHUR0d7FXXcK4gu4i16Vu8oYNXvjCdcIUsn3JLFx2s
nnPIEuZUt5K0/UqHf8PylAiXWNaxOU7SwbdxcAPhhZNlL45QGNBhiTsQ1pf5
uOOmFAMU4sguhIOekXq/yTOAajF8gDBOcZp02sCA4vb6AMKqtVFhaWYMuK32
4iThwx5lq9u3MEBYIjmc8MAdkoSNCwOkrvrFEZZ11LgedZAB+5fikv72z+ak
Ue/PAPLBI8mEu7eXbdI/x4DK2cwswq9/OB5Zd5MBMrrPiwnzpUTNut1hQO6Y
dxlha8OyyOwaBvr/+q2C8JM4UqroKwZoiPs8IMymqSFj28mAsdiQWsIbPzje
SvjCAHbSoTrC99eVPVo1yYADx0eaCM+87LYyWWRA6UToc8LaQaT2YJI42MZO
vSB8u9FxCKeKQ875lNeEC1xJQr1G4hAnf6+TsGSpo9yu7eJwY2nTR8LpS6X6
L93Eodw59jNhkS2krZuOiYPA6ag+womZjm410eIgJmH6jfDqkdIgrQxxSA1p
HCR8Ro8Uf7NIHOKDBUYIL0U55sg8EgfrC/LfCZ94V3onrU0cFrqFfxL28Xf8
GDUtDsKjR3HCbgIkjmMMCVg6bTxJeGdRqYr7RglwNL08TdjGynGnrYcEfN4R
N/u3vhJ1i8O0BKxuO7tIuJT/nem+aEk45jK8/LceftHgAFUKTPR4VgiLtm/V
8LkhBcKGl/46WJfy30KlNDhFDf91b8YnUkKTDMD3hb9+rPpQbzZoDRTxr/y1
QBK3zw0uWfjwnmnn2qV9mZdkgUxCH9dsE1jxjwm784x/4JAw093xc+mtV/4B
VTamuRT/9PLJy4Eny2+Dxq9VVstB/wqzXlZD72FXm7XwkmXPz8dxm7droYpl
jXn+oPWO60DzC9OpT5JOxv1cB4zXTC8mCYb2RMiD5Aum4Xl++2myAvS2MR3N
pqssm68Air1Mt3D7AUlREWCcaSHhWw7DpYpwY5npiecvf+iYKsEpTla/pyci
I98pwUMepitIDzsEnJUhgY/plIRoxawBZfgfy+S6DYv/C1YBFW6mk6bGXsXx
q0L6aqZH0+5Nv8pRhd+s9bMwDJUQ1VCDOA6m80tG2DKr1CCQnellaYch6Y3q
kL+K6Rns9mbBt+rAwfKYG6ls2UMDslnrO2TH3q42pgFuLPutiVxQN9KEy6PM
+/toy63ne1oTgn4ybRlxKeB2gya0/WJ6JTrpSD6vFqgvMH0/MeFg6g4tsGX1
M7nwseFWuhbUcDGtckhF8vEnLTAUYK1P6YRu7DptUGFd33C60tbOTxsMWNYM
iEqpr9YGK5YVxu0/aLLpgDPLue1BIQ2bdGCKtf9i1WlS9rE68JPlj4Fqkelv
dOAry1fUm/p7GOuhk+WBf0uvmbmsh+csKx3P8LpZsB4esdzbdt6+cnA93GM5
WTliY6OiLtxi+bLz8Oi5AF1I/8R02gXbVIsa5Ham6Yp8eQp/dKHn5f/n91kR
j5kehLHyd0R7LijvvB5YsWx8VQHTf68HU61MJ4YWe48z9CH3DdOfd2gkX3fR
h8lOpnM8agc5CvTBjJXXfcdsNuwf1If1Q0yfMt3mGnfSAC7PMc11qeDtw4cG
gF4+zPnonduErxhAM2u/AkiNxz/YbICXrDxvU068UZeyATRY+cyIdeWw7dkA
o6x8fxvQdu1dawh8rDyX3nIUv+BtCNksh/hGvjcpMYQ6li/zStoVzBjCOtb5
twurW1ZjRlDCqm9ZVHjt/DkjILPcdzv1NLnZCPay8jMpFxPjvd0YPrD6u2Lt
JqDcZwxWrPk40bhGU2WtCVxhzcc246/2qt4mwMdyiO3btdR7JnCCdb839jeg
56QJzLPm4/8Agzv1rw==
       "]]},
     Annotation[#, "Charting`Private`Tag$513769#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"\[Theta](graus)\"", TraditionalForm], 
    FormBox[
    "\"\[Integral]P(\[Theta]) Sin[\[Theta]]d\[Theta]\"", TraditionalForm]},
  AxesOrigin->{3.000000551020408, 0.9675288807738623},
  BaseStyle->{FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{665.5555555555559, Automatic},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.713101384969841*^9, 
  3.7131016388874035`*^9},ExpressionUUID->"ecd31f02-0248-47a6-94ed-\
fc3f498f23b2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{759, 833},
WindowMargins->{{Automatic, 572}, {64, Automatic}},
Magnification:>0.9 Inherited,
FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 226, 4, 150, "Title", "ExpressionUUID" -> \
"d2403783-f23a-4d72-ae96-97c4b020680f"],
Cell[CellGroupData[{
Cell[831, 30, 596, 18, 28, "Input", "ExpressionUUID" -> \
"456d45b9-4c7b-4e31-a5f6-34c6b01080af"],
Cell[1430, 50, 175, 3, 28, "Output", "ExpressionUUID" -> \
"9a1ccb65-9deb-4347-b9c1-781992114f43"]
}, Open  ]],
Cell[1620, 56, 662, 21, 28, "Input", "ExpressionUUID" -> \
"d03cad0c-7849-4d12-b12f-f6b53ed6a187"],
Cell[CellGroupData[{
Cell[2307, 81, 646, 17, 35, "Input", "ExpressionUUID" -> \
"86c1b400-1dc4-47e0-ab2f-ece5703e8a73"],
Cell[2956, 100, 7603, 144, 376, "Output", "ExpressionUUID" -> \
"0893e09b-82fa-4f71-b2b5-bdad9fbabd34"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10596, 249, 674, 18, 58, "Input", "ExpressionUUID" -> \
"3249191d-4d56-40c6-b14c-cb2381349da8"],
Cell[11273, 269, 8946, 166, 358, "Output", "ExpressionUUID" -> \
"b3c3553b-a8ec-44ca-bf85-b7b76917d6a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20256, 440, 254, 6, 28, "Input", "ExpressionUUID" -> \
"ddaf36cc-fd6f-479d-8e56-04a3a9e33d4f"],
Cell[20513, 448, 252, 4, 28, "Output", "ExpressionUUID" -> \
"53ebe25a-0a72-4fc3-ae9b-157cf015810b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20802, 457, 222, 4, 62, "Section", "ExpressionUUID" -> \
"6d87f7a1-afd5-411b-b9a2-a76fbc19b34a"],
Cell[CellGroupData[{
Cell[21049, 465, 502, 15, 28, "Input", "ExpressionUUID" -> \
"797eb5c5-a265-4fd7-87ad-5d70b4d30544"],
Cell[21554, 482, 200, 3, 28, "Output", "ExpressionUUID" -> \
"ec7bbeff-e753-4a9a-bf78-8fda99a1fe91"]
}, Open  ]],
Cell[21769, 488, 721, 20, 28, "Input", "ExpressionUUID" -> \
"13b322c4-01ca-4d4d-8409-cf87089f15a3"],
Cell[CellGroupData[{
Cell[22515, 512, 851, 20, 58, "Input", "ExpressionUUID" -> \
"b5a6568f-1e1d-4456-855b-eb288e115152"],
Cell[23369, 534, 7148, 138, 357, "Output", "ExpressionUUID" -> \
"41686633-1446-4cf0-92c8-aea43c93e93f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30554, 677, 974, 24, 58, "Input", "ExpressionUUID" -> \
"8ac33a6b-cfa6-4aa1-8df6-a28ce7b26f37"],
Cell[31531, 703, 13151, 237, 347, "Output", "ExpressionUUID" -> \
"cd263573-ff39-4b93-8e2c-f50ba8003756"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44719, 945, 820, 22, 58, "Input", "ExpressionUUID" -> \
"eabd6bcc-b829-4f09-9c20-765f556988af"],
Cell[45542, 969, 5546, 113, 332, "Output", "ExpressionUUID" -> \
"aeb8e867-1152-4e46-b1bb-78379bdb5981"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51125, 1087, 818, 22, 58, "Input", "ExpressionUUID" -> \
"4ee273ec-8676-4b9d-a06e-4388c33c4c6d"],
Cell[51946, 1111, 11281, 207, 358, "Output", "ExpressionUUID" -> \
"ecd31f02-0248-47a6-94ed-fc3f498f23b2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)