(* 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[      5559,        180]
NotebookOptionsPosition[      5200,        163]
NotebookOutlinePosition[      5544,        178]
CellTagsIndexPosition[      5501,        175]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"tableOfTrig", "[", "upper_", "]"}], " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"m", ",", " ", "range", ",", " ", "t1", ",", " ", "t2"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"m", " ", "=", " ", 
      RowBox[{"Table", "[", " ", 
       RowBox[{
        RowBox[{"Integrate", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Sin", "[", "theta", "]"}], "^", "r"}], " ", 
           RowBox[{
            RowBox[{"Cos", "[", "theta", "]"}], "^", "s"}]}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"theta", ",", " ", "0", ",", " ", "upper"}], "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"r", ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"s", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}]}], " ", 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", "m", "]"}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"range", " ", "=", " ", 
      RowBox[{"Array", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "-", "1"}], "&"}], ",", " ", 
        RowBox[{"5", "+", "1"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"t1", " ", "=", " ", 
      RowBox[{"Prepend", "[", 
       RowBox[{"m", ",", "range"}], "]"}]}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", "t1", "]"}], " ", ";", "\[IndentingNewLine]", 
     RowBox[{"blankAndRange", " ", "=", " ", 
      RowBox[{"Prepend", "[", " ", 
       RowBox[{"range", ",", " ", "\"\<\>\""}], "]"}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"t2", "=", 
      RowBox[{"MapThread", "[", 
       RowBox[{"Prepend", ",", 
        RowBox[{"{", 
         RowBox[{"t1", ",", "blankAndRange"}], "}"}]}], "]"}]}], " ", ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Grid", "[", "t2", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tableOfTrig", "[", " ", 
  RowBox[{"Pi", "/", "2"}], " ", "]"}], "\[IndentingNewLine]", 
 RowBox[{"tableOfTrig", "[", " ", "Pi", " ", "]"}]}], "Input"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\"\>", "0", "1", "2", "3", "4", "5"},
    {"0", 
     FractionBox["\[Pi]", "2"], "1", 
     FractionBox["\[Pi]", "4"], 
     FractionBox["2", "3"], 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "16"], 
     FractionBox["8", "15"]},
    {"1", "1", 
     FractionBox["1", "2"], 
     FractionBox["1", "3"], 
     FractionBox["1", "4"], 
     FractionBox["1", "5"], 
     FractionBox["1", "6"]},
    {"2", 
     FractionBox["\[Pi]", "4"], 
     FractionBox["1", "3"], 
     FractionBox["\[Pi]", "16"], 
     FractionBox["2", "15"], 
     FractionBox["\[Pi]", "32"], 
     FractionBox["8", "105"]},
    {"3", 
     FractionBox["2", "3"], 
     FractionBox["1", "4"], 
     FractionBox["2", "15"], 
     FractionBox["1", "12"], 
     FractionBox["2", "35"], 
     FractionBox["1", "24"]},
    {"4", 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "16"], 
     FractionBox["1", "5"], 
     FractionBox["\[Pi]", "32"], 
     FractionBox["2", "35"], 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "256"], 
     FractionBox["8", "315"]},
    {"5", 
     FractionBox["8", "15"], 
     FractionBox["1", "6"], 
     FractionBox["8", "105"], 
     FractionBox["1", "24"], 
     FractionBox["8", "315"], 
     FractionBox["1", "60"]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.6305913892771873`*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\"\>", "0", "1", "2", "3", "4", "5"},
    {"0", "\[Pi]", "0", 
     FractionBox["\[Pi]", "2"], "0", 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "8"], "0"},
    {"1", "2", "0", 
     FractionBox["2", "3"], "0", 
     FractionBox["2", "5"], "0"},
    {"2", 
     FractionBox["\[Pi]", "2"], "0", 
     FractionBox["\[Pi]", "8"], "0", 
     FractionBox["\[Pi]", "16"], "0"},
    {"3", 
     FractionBox["4", "3"], "0", 
     FractionBox["4", "15"], "0", 
     FractionBox["4", "35"], "0"},
    {"4", 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "8"], "0", 
     FractionBox["\[Pi]", "16"], "0", 
     FractionBox[
      RowBox[{"3", " ", "\[Pi]"}], "128"], "0"},
    {"5", 
     FractionBox["16", "15"], "0", 
     FractionBox["16", "105"], "0", 
     FractionBox["16", "315"], "0"}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.6305913903119893`*^9}]
}, Open  ]]
},
WindowSize->{707, 637},
WindowMargins->{{72, Automatic}, {38, Automatic}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 2138, 52, 341, "Input"],
Cell[2720, 76, 1452, 50, 234, "Output"],
Cell[4175, 128, 1009, 32, 264, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)