(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 5122, 214] NotebookOptionsPosition[ 4841, 200] NotebookOutlinePosition[ 5211, 216] CellTagsIndexPosition[ 5168, 213] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["Easy as Pi", FontSize->18, FontWeight->"Bold"], "\n\nA) ", StyleBox[" For any circle: ", FontSize->16], Cell[BoxData[ FormBox[ RowBox[{"circumference", " "}], TraditionalForm]], FontSize->16], StyleBox[" = A \[Pi] \[Times] diameter", FontSize->16], "\n\nB) ", StyleBox["\[Pi] = 3.141B9...", FontSize->16], "\n\nC) ", StyleBox["\[Pi] approximately is equal to ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["22", "C"], TraditionalForm]], FontSize->16], StyleBox[".\n\n", FontSize->16], "D) ", StyleBox[" cos ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["\[Pi]", "D"], TraditionalForm]], FontSize->16], StyleBox[" = ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "2"], TraditionalForm]], FontSize->16], "\n\nE) ", StyleBox[" ", FontSize->14], Cell[BoxData[ FormBox[ SuperscriptBox["e", "i\[Pi]"], TraditionalForm]], FontSize->16], StyleBox["+ 1 = E", FontSize->16], "\n\nF) ", StyleBox[" 20\[Degree] = ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["\[Pi]", "F"], TraditionalForm]], FontSize->16], "\n\nG) ", StyleBox["ArcTan ", FontSize->16], Cell[BoxData[ FormBox[ SqrtBox[ FractionBox[ RowBox[{"1", "-", SqrtBox["2"]}], RowBox[{"1", "+", SqrtBox[ SqrtBox["2"]]}]]], TraditionalForm]], FontSize->16], StyleBox[" = ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{" ", "\[Pi]"}], "G"], TraditionalForm]], FontSize->16], "\n\nH) ", Cell[BoxData[ StyleBox[ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "1", " "}], "1"], RowBox[{ FractionBox["1", RowBox[{"1", "+", SuperscriptBox["x", "2"]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], FontSize->16]], CellChangeTimes->{{3.4426150805*^9, 3.442615181625*^9}}, FontSize->14], StyleBox[" ", FontSize->14], " ", StyleBox["= ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["\[Pi]", "H"], TraditionalForm]], FontSize->16], "\n\nI) ", StyleBox["1 - ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "3"], TraditionalForm]], FontSize->16], StyleBox[" + ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "5"], TraditionalForm]], FontSize->16], StyleBox[" - ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "7"], TraditionalForm]], FontSize->16], StyleBox[" + ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "9"], TraditionalForm]], FontSize->16], StyleBox[" - ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "11"], TraditionalForm]], FontSize->16], StyleBox[" + ... = ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["\[Pi]", "I"], TraditionalForm]], FontSize->16], "\n\nJ) ", StyleBox[" 1 + ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "4"], TraditionalForm]], FontSize->16], StyleBox[" + ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "9"], TraditionalForm]], FontSize->16], StyleBox[" + ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "16"], TraditionalForm]], FontSize->16], StyleBox[" + ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox["1", "25"], TraditionalForm]], FontSize->16], StyleBox[" + ... = ", FontSize->16], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox["\[Pi]", "2"], "J"], TraditionalForm]], FontSize->16] }], "Text", CellChangeTimes->{{3.442608236140625*^9, 3.44260823940625*^9}, { 3.4426153935625*^9, 3.442615427234375*^9}, {3.4426154630625*^9, 3.442615469921875*^9}, {3.442615505453125*^9, 3.4426155733125*^9}, { 3.4426157234375*^9, 3.442615872890625*^9}, {3.4426159281875*^9, 3.442616207828125*^9}, {3.44261629353125*^9, 3.4426165031875*^9}, { 3.44261653371875*^9, 3.44261664521875*^9}, {3.442616678375*^9, 3.44261668253125*^9}, {3.442616767921875*^9, 3.44261692175*^9}, { 3.44261697646875*^9, 3.442617014703125*^9}, {3.442617067953125*^9, 3.442617425359375*^9}, 3.442617714484375*^9, {3.442617837453125*^9, 3.442617925796875*^9}, {3.44261796128125*^9, 3.442617994953125*^9}, { 3.442618317484375*^9, 3.442618333*^9}}] }, WindowSize->{611, 750}, WindowMargins->{{508, Automatic}, {Automatic, 98}}, CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (March 13, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 4269, 177, 501, "Text"] } ] *) (* End of internal cache information *)