(* 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[     45162,       1383]
NotebookOptionsPosition[     39149,       1168]
NotebookOutlinePosition[     39812,       1195]
CellTagsIndexPosition[     39726,       1190]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Mathematica Class 2", "Subtitle",
 CellChangeTimes->{{3.4197905710328407`*^9, 3.419790598166359*^9}, 
   3.451098060704464*^9}],

Cell[TextData[{
 "The following ",
 StyleBox["Clear",
  FontWeight->"Bold"],
 " command is useful if you want to rerun the notebook. (You don't want to \
have any defintions from the previous execution of the notebok still \
around.)"
}], "Text",
 CellChangeTimes->{{3.4193342847484703`*^9, 3.419334549604704*^9}, {
  3.4193345808046*^9, 3.4193345953086576`*^9}, {3.451098081502273*^9, 
  3.451098090430152*^9}, {3.4510981878641768`*^9, 3.451098188446864*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.4193488683140574`*^9, {3.482504326411927*^9, 3.4825043440098886`*^9}}],

Cell[CellGroupData[{

Cell["Lists", "Subsubtitle",
 CellChangeTimes->{{3.419350249927148*^9, 3.419350250480453*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "2", ",", " ", "3", ",", " ", "4"}], "}"}]}], ";", 
  " ", 
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "4", ",", " ", "9", ",", " ", "16"}], "}"}]}], 
  ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Join", "[", 
  RowBox[{"a", ",", " ", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.482504319380649*^9, 3.4825043233780327`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "1", ",", "4", ",", "9", ",", 
   "16"}], "}"}]], "Output",
 CellChangeTimes->{3.482504351573595*^9, 3.482504447306798*^9, 
  3.482504773550288*^9, 3.482517212327943*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{"a", ",", " ", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.4195991096158037`*^9, 3.419599112088841*^9}, {
  3.419599143369574*^9, 3.419599151211216*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "9", ",", "16"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.419291227819119*^9, 3.4193341494741592`*^9, 3.419349064218252*^9, 
   3.419349172322934*^9, 3.4193493591599092`*^9, 3.419553600625533*^9, {
   3.419599103192279*^9, 3.4195991129072857`*^9}, 3.419599152053254*^9, 
   3.45109819845796*^9, 3.482491936286346*^9, 3.4824919770301027`*^9, 
   3.4824922957070293`*^9, 3.482504355156292*^9, 3.482504447357655*^9, 
   3.482504773604879*^9, 3.482517212373962*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Intersection", "[", 
  RowBox[{"a", ",", " ", "b"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.4192912279089947`*^9, 3.419334149555542*^9, 
  3.4193490642828283`*^9, 3.4193491723793488`*^9, 3.419349359216522*^9, 
  3.419553604759864*^9, 3.419599189393311*^9, 3.451098201366609*^9, 
  3.48249193632556*^9, 3.482491977083087*^9, 3.482492295756958*^9, 
  3.4825044474128933`*^9, 3.482504773655469*^9, 3.4825172124212227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"c", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"b", ",", " ", "100"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "9", ",", "16"}], "}"}], ",", "100"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.419291228009763*^9, 3.419334149739221*^9, 
  3.419349064327858*^9, 3.419349172431768*^9, 3.419349359265422*^9, 
  3.4195992275098248`*^9, 3.45109820565665*^9, 3.4824919363717327`*^9, 
  3.4824919771372766`*^9, 3.482492295806836*^9, 3.482504447461719*^9, 
  3.482504773692705*^9, 3.482517212453003*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "b", ",", " ", "c"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "9", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "4", ",", "9", ",", "16"}], "}"}], ",", "100"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.419291228110115*^9, 3.419334149827936*^9, 
  3.419349064378903*^9, 3.41934917247997*^9, 3.419349359333902*^9, 
  3.419599250380777*^9, 3.451098209580029*^9, 3.482491936422494*^9, 
  3.48249197718312*^9, 3.482492295857588*^9, 3.482504447511765*^9, 
  3.4825047737377996`*^9, 3.482517212502859*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", " ", "=", " ", 
  RowBox[{"Flatten", "[", "f", "]"}]}]], "Input",
 CellChangeTimes->{{3.419599303495878*^9, 3.419599344886155*^9}, {
  3.4510982224548893`*^9, 3.451098222722047*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "1", ",", "4", ",", "9", ",", "16", 
   ",", "1", ",", "4", ",", "9", ",", "16", ",", "100"}], "}"}]], "Output",
 CellChangeTimes->{3.451098224000546*^9, 3.482491936471932*^9, 
  3.482491977237995*^9, 3.482492295906954*^9, 3.482504447562179*^9, 
  3.48250477378784*^9, 3.4825172125537148`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g2", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"i", ",", "j", ",", "k"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.419599359760915*^9, 3.4195993876832333`*^9}, {
  3.419599464372707*^9, 3.419599465039648*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "4", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "4", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4", ",", "3"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "1", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "3", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"4", ",", "4", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "4", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4", ",", "4", ",", "3"}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.419599423464492*^9, 3.419599465633355*^9, 
  3.451098419144719*^9, 3.482491936523902*^9, 3.482491977284066*^9, 
  3.48249229595914*^9, 3.4825044476136723`*^9, 3.482504773839666*^9, 
  3.4825172126062202`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g3", "=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"g2", ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.419599469466901*^9, 3.4195994968294687`*^9}, {
  3.4195995396997843`*^9, 3.419599547645467*^9}, {3.419599660063097*^9, 
  3.41959966076232*^9}, {3.451098426591784*^9, 3.451098443225175*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "4", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "4", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "3", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "3", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.419599475152124*^9, 3.419599497945436*^9}, {
   3.419599541434538*^9, 3.419599548783599*^9}, 3.4195996614759502`*^9, {
   3.451098422013344*^9, 3.45109844396146*^9}, 3.482491936591674*^9, 
   3.482491977352304*^9, 3.482492296027054*^9, 3.482504447961128*^9, 
   3.482504773939362*^9, 3.482517212755204*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "g3", "]"}]], "Input",
 CellChangeTimes->{{3.4510984471563683`*^9, 3.4510984502971354`*^9}}],

Cell[BoxData["48"], "Output",
 CellChangeTimes->{3.451098450803134*^9, 3.4824919366575947`*^9, 
  3.482491977417597*^9, 3.48249229609278*^9, 3.4825044480286694`*^9, 
  3.482504773989973*^9, 3.482517212820735*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"g3", "[", 
    RowBox[{"[", 
     RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"Length", "[", "g3", "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.419599667663453*^9, 3.419599699725444*^9}, {
  3.419599774053423*^9, 3.4195997743450108`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", 
   ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", 
   "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", 
   ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", 
   "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", 
   ",", "3", ",", "1", ",", "2", ",", "3", ",", "1", ",", "2", ",", "3", ",", 
   "1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.419599704415169*^9, 3.4195997793907013`*^9, 
  3.451098561781187*^9, 3.482491936723995*^9, 3.4824919774842587`*^9, 
  3.4824922961589413`*^9, 3.482504448093893*^9, 3.4825047740408287`*^9, 
  3.4825172129554987`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "[", 
  RowBox[{"[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.482504402759828*^9, 3.4825044051048317`*^9}, {
  3.4825044927855463`*^9, 3.4825044954711943`*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.482504448163126*^9, 3.482504496108119*^9, 
  3.482504774090654*^9, 3.482517213021014*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g2", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "2", ",", "3"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.419599850991927*^9, 3.419599884811791*^9}, {
  3.419600018587817*^9, 3.4196001047314*^9}, {3.482504530881152*^9, 
  3.4825045312597313`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{
  3.419291228392857*^9, 3.4193341500233507`*^9, 3.419349064513538*^9, 
   3.4193491725796432`*^9, 3.419349359484687*^9, {3.419599852687199*^9, 
   3.419599886061428*^9}, {3.419600022470235*^9, 3.419600108873027*^9}, 
   3.451098566041325*^9, 3.482491936791705*^9, 3.48249197755118*^9, 
   3.482492296224264*^9, 3.482504448304283*^9, 3.482504532521882*^9, 
   3.482504774140418*^9, 3.4825172130881*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g2", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", " ", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.482517615606447*^9, 3.4825176197724943`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.482517620196692*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PrimeQ", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.419600192359487*^9, 3.4196002079716253`*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.4196002026821613`*^9, 3.4196002093923492`*^9}, 
   3.451098610307516*^9, 3.4824919368578033`*^9, 3.482491977618473*^9, 
   3.4824922963426323`*^9, 3.482504448361432*^9, 3.4825047741899157`*^9, 
   3.482517213154557*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"l1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{"j", ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "35"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.419600246499572*^9, 3.419600261340653*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", 
   "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", 
   ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", 
   "35"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4196002634472923`*^9, 3.451098613260498*^9, 3.482491936925288*^9, 
   3.482491977684966*^9, 3.482492296422676*^9, 3.482504448429885*^9, 
   3.482504774240058*^9, {3.482517213277179*^9, 3.482517241019723*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"j", ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", 
       RowBox[{"10", "^", "8"}], ",", 
       RowBox[{
        RowBox[{"10", "^", "8"}], " ", "+", " ", 
        RowBox[{"10", "^", "3"}]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.419600246499572*^9, 3.419600261340653*^9}, {
  3.482517271422064*^9, 3.482517302720398*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Select", "[", 
   RowBox[{"l1", ",", "PrimeQ"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4196002689262733`*^9, 3.419600303368232*^9}, {
  3.482517632992517*^9, 3.482517640870122*^9}}],

Cell[BoxData["54"], "Output",
 CellChangeTimes->{{3.419600281726573*^9, 3.4196003043673067`*^9}, 
   3.451098616245317*^9, 3.482491936991186*^9, 3.4824919777513*^9, 
   3.48249229647757*^9, 3.482504448497425*^9, 3.482504774290451*^9, 
   3.482517213338949*^9, 3.482517327576786*^9, 3.482517659832212*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"primelist", " ", "=", " ", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{"n", ",", " ", 
      RowBox[{"{", 
       RowBox[{"n", ",", " ", "1000", ",", " ", "2000"}], "}"}]}], "]"}], ",",
     " ", "PrimeQ"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.419600429449683*^9, 3.4196004429946947`*^9}, {
  3.4196005187353487`*^9, 3.419600539315054*^9}, {3.451098627630817*^9, 
  3.451098630426908*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1009", ",", "1013", ",", "1019", ",", "1021", ",", "1031", ",", "1033", 
   ",", "1039", ",", "1049", ",", "1051", ",", "1061", ",", "1063", ",", 
   "1069", ",", "1087", ",", "1091", ",", "1093", ",", "1097", ",", "1103", 
   ",", "1109", ",", "1117", ",", "1123", ",", "1129", ",", "1151", ",", 
   "1153", ",", "1163", ",", "1171", ",", "1181", ",", "1187", ",", "1193", 
   ",", "1201", ",", "1213", ",", "1217", ",", "1223", ",", "1229", ",", 
   "1231", ",", "1237", ",", "1249", ",", "1259", ",", "1277", ",", "1279", 
   ",", "1283", ",", "1289", ",", "1291", ",", "1297", ",", "1301", ",", 
   "1303", ",", "1307", ",", "1319", ",", "1321", ",", "1327", ",", "1361", 
   ",", "1367", ",", "1373", ",", "1381", ",", "1399", ",", "1409", ",", 
   "1423", ",", "1427", ",", "1429", ",", "1433", ",", "1439", ",", "1447", 
   ",", "1451", ",", "1453", ",", "1459", ",", "1471", ",", "1481", ",", 
   "1483", ",", "1487", ",", "1489", ",", "1493", ",", "1499", ",", "1511", 
   ",", "1523", ",", "1531", ",", "1543", ",", "1549", ",", "1553", ",", 
   "1559", ",", "1567", ",", "1571", ",", "1579", ",", "1583", ",", "1597", 
   ",", "1601", ",", "1607", ",", "1609", ",", "1613", ",", "1619", ",", 
   "1621", ",", "1627", ",", "1637", ",", "1657", ",", "1663", ",", "1667", 
   ",", "1669", ",", "1693", ",", "1697", ",", "1699", ",", "1709", ",", 
   "1721", ",", "1723", ",", "1733", ",", "1741", ",", "1747", ",", "1753", 
   ",", "1759", ",", "1777", ",", "1783", ",", "1787", ",", "1789", ",", 
   "1801", ",", "1811", ",", "1823", ",", "1831", ",", "1847", ",", "1861", 
   ",", "1867", ",", "1871", ",", "1873", ",", "1877", ",", "1879", ",", 
   "1889", ",", "1901", ",", "1907", ",", "1913", ",", "1931", ",", "1933", 
   ",", "1949", ",", "1951", ",", "1973", ",", "1979", ",", "1987", ",", 
   "1993", ",", "1997", ",", "1999"}], "}"}]], "Output",
 CellChangeTimes->{
  3.419291228536009*^9, 3.41933415012383*^9, 3.419349064590858*^9, 
   3.419349172630842*^9, 3.419349359551077*^9, 3.4196002349558077`*^9, {
   3.4196004337451143`*^9, 3.419600444494095*^9}, {3.419600523828841*^9, 
   3.4196005401368513`*^9}, 3.4510986322257833`*^9, 3.482491937150566*^9, 
   3.482491977846903*^9, 3.48249229662059*^9, 3.482504448590683*^9, 
   3.482504774345553*^9, 3.482517213453949*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "primelist", "]"}]], "Input",
 CellChangeTimes->{{3.419600564643314*^9, 3.419600574737749*^9}, {
  3.419600608152257*^9, 3.419600631066267*^9}, {3.45109863837361*^9, 
  3.4510986433064938`*^9}}],

Cell[BoxData["135"], "Output",
 CellChangeTimes->{
  3.419291228626914*^9, 3.4193341502232723`*^9, 3.41934906464673*^9, 
   3.4193491726801558`*^9, 3.4193493596190557`*^9, {3.419600544413665*^9, 
   3.419600576808955*^9}, {3.419600611973177*^9, 3.419600632606717*^9}, 
   3.4510986454919643`*^9, 3.482491937277219*^9, 3.482491977918335*^9, 
   3.482492296674559*^9, 3.482504448661392*^9, 3.4825047743900433`*^9, 
   3.482517213504982*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"primelist", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.419600706426929*^9, 3.4196007366835613`*^9}, {
  3.4510986606564693`*^9, 3.451098663594831*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1009", ",", "1013", ",", "1019", ",", "1021", ",", "1031", ",", "1033", 
   ",", "1039", ",", "1049", ",", "1051", ",", "1061"}], "}"}]], "Output",
 CellChangeTimes->{{3.4824919373413677`*^9, 3.482491978045521*^9}, 
   3.482492296742186*^9, 3.48250444873035*^9, 3.4825047744295464`*^9, 
   3.4825172135555573`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\

Functions\
\>", "Subsubtitle",
 CellChangeTimes->{{3.419350249927148*^9, 3.419350286977037*^9}, {
  3.41960096494739*^9, 3.41960097217962*^9}, {3.419601052147708*^9, 
  3.4196010545853558`*^9}, {3.4510986731781673`*^9, 3.4510986795859127`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", "a", ",", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.4196009907256737`*^9, 3.41960099277176*^9}, {
  3.4196011419391537`*^9, 3.4196011672223253`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{"3", " ", 
   RowBox[{"x", "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.419600977421424*^9, 3.419600979526051*^9}, 
   3.4196011990529537`*^9, {3.419601241069975*^9, 3.419601243586203*^9}}],

Cell[BoxData[
 RowBox[{"3", " ", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{
  3.419600982759396*^9, 3.4196011134635153`*^9, 3.419601172713292*^9, 
   3.4196012057540894`*^9, 3.41960124448809*^9, 3.4510988068955603`*^9, 
   3.482491937487338*^9, 3.482491978130392*^9, 3.482492296838068*^9, 
   3.48250444882436*^9, 3.482504774624984*^9, 3.482517213667729*^9, 
   3.482517750822545*^9, {3.48251779637286*^9, 3.482517799591259*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.48251780503771*^9, 3.482517808109614*^9}}],

Cell[BoxData[
 RowBox[{"3", " ", 
  SuperscriptBox["y", "2"]}]], "Output",
 CellChangeTimes->{3.4825178090103416`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.482517826578657*^9, 3.482517827522641*^9}}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{3.4825178279518948`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "d"}], "}"}], "^", "2"}]], "Input",
 CellChangeTimes->{{3.419601266186408*^9, 3.4196012957544413`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   SuperscriptBox["a", "2"], ",", 
   SuperscriptBox["b", "2"], ",", 
   SuperscriptBox["d", "2"]}], "}"}]], "Output",
 CellChangeTimes->{{3.41960129071378*^9, 3.419601296420665*^9}, 
   3.451098809885281*^9, 3.482491937540963*^9, 3.4824919781860027`*^9, 
   3.482492296892477*^9, 3.482504448895965*^9, 3.482504774670648*^9, 
   3.4825172137745457`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.419601131434371*^9, 3.4196011828291492`*^9}, {
  3.419601213787539*^9, 3.419601224808935*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "12", ",", "27"}], "}"}]], "Output",
 CellChangeTimes->{{3.419601134065865*^9, 3.419601254156437*^9}, 
   3.419601311547572*^9, 3.451098812524272*^9, 3.48249193759134*^9, 
   3.4824919782517757`*^9, 3.482492296941744*^9, 3.482504448963838*^9, 
   3.482504774704533*^9, 3.4825172138381567`*^9, 3.4825178663684273`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"f", ",", " ", "a", ",", " ", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.419349302906818*^9, 3.419349303816169*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", " ", "=", " ", "10"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", " ", "+", " ", 
   RowBox[{"k", " ", 
    RowBox[{"x", "^", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4196015549292393`*^9, 3.419601595944516*^9}, 
   3.419601759817919*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.4196017665482693`*^9, 3.419601767879874*^9}}],

Cell[CellGroupData[{

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.482518032984665*^9},
 CellTags->"Info3482492832-6093995"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"f", "[", "x_", "]"}], ":=", 
         RowBox[{"x", "+", 
          RowBox[{"k", " ", 
           SuperscriptBox["x", "2"]}]}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["f"],
  Editable->False]], "Print",
 CellChangeTimes->{3.482518033019062*^9},
 CellTags->"Info3482492832-6093995"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.4825047680197687`*^9, 3.48250476909979*^9}}],

Cell[BoxData[
 RowBox[{"x", "+", 
  RowBox[{"10", " ", 
   SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{
  3.482504775142376*^9, 3.4825172145660973`*^9, {3.482518053201086*^9, 
   3.48251806812376*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input"],

Cell[BoxData["42"], "Output",
 CellChangeTimes->{3.419291228823873*^9, 3.419334150424253*^9, 
  3.419349064809904*^9, 3.419349172777801*^9, 3.419349359798719*^9, 
  3.419601447857094*^9, 3.419601624824594*^9, 3.451098829665811*^9, 
  3.482491938158695*^9, 3.48249197866924*^9, 3.4824922974450617`*^9, 
  3.482504449534363*^9, 3.482504775192313*^9, 3.482517214622479*^9, 
  3.4825180752925034`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", " ", "=", " ", "1"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input"],

Cell[BoxData["6"], "Output",
 CellChangeTimes->{3.4192912289740763`*^9, 3.4193341505554533`*^9, 
  3.419349064926456*^9, 3.4193491728384237`*^9, 3.419349359914221*^9, 
  3.419601482438229*^9, 3.419601645476565*^9, 3.45109884038059*^9, 
  3.482491938294217*^9, 3.482491978749136*^9, 3.482492297539755*^9, 
  3.4825044496284513`*^9, 3.48250477528811*^9, 3.482517214701302*^9, 
  3.4825181021863117`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"x", "+", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.419291229061057*^9, 3.419334150740732*^9, 
  3.419349064998454*^9, 3.419349172898767*^9, 3.419349359986734*^9, 
  3.4510988467916317`*^9, 3.482491938342469*^9, 3.4824919788031282`*^9, 
  3.482492297651394*^9, 3.482504449682371*^9, 3.482504775341514*^9, 
  3.482517214755702*^9, 3.482518119479107*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fun", "[", 
    RowBox[{"x_", "?", "NumericQ"}], "]"}], " ", ":=", " ", 
   RowBox[{"x", "^", "2"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fun", "[", "100", "]"}]], "Input"],

Cell[BoxData["10000"], "Output",
 CellChangeTimes->{3.419291229204666*^9, 3.419334150890419*^9, 
  3.419349065166453*^9, 3.419349172961857*^9, 3.419349360167428*^9, 
  3.419601859862599*^9, 3.451098853268237*^9, 3.482491938421445*^9, 
  3.4824919788821583`*^9, 3.4824922977223377`*^9, 3.4825044497793417`*^9, 
  3.48250477542208*^9, 3.482517214835083*^9, 3.482518221954578*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fun", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.419333960037463*^9, 3.4193339621019697`*^9}}],

Cell[BoxData[
 RowBox[{"fun", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.4193341509972258`*^9, 3.419349065249016*^9, 
  3.419349173015491*^9, 3.419349360238329*^9, 3.419601863660681*^9, 
  3.4510988605609217`*^9, 3.482491938476034*^9, 3.4824919789368134`*^9, 
  3.482492297776595*^9, 3.4825044498340807`*^9, 3.482504775476831*^9, 
  3.48251721488861*^9, 3.482518227389369*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"fun3", "[", "x_", "]"}], " ", ":=", "  ", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.451099281643556*^9, 3.4510993079750757`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fun3", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"1", " ", "/;", " ", 
   RowBox[{"PrimeQ", "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.451099314028664*^9, 3.451099340023624*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ints", " ", "=", " ", 
  RowBox[{"Table", "[", 
   RowBox[{"i", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.451099357625663*^9, 3.4510993901281853`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]], "Output",
 CellChangeTimes->{{3.451099367914123*^9, 3.451099390515637*^9}, 
   3.482491938574891*^9, 3.48249197909903*^9, 3.4824922978756*^9, 
   3.482504449952324*^9, 3.482504775625971*^9, 3.482517214987536*^9, 
   3.4825183732828693`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fun3", "[", "ints", "]"}]], "Input",
 CellChangeTimes->{{3.451099393513383*^9, 3.451099422711657*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.4510993981755743`*^9, 3.451099423381125*^9}, 
   3.482491938625683*^9, 3.4824919791532288`*^9, 3.482492297927308*^9, 
   3.482504450001047*^9, 3.48250477567745*^9, 3.482517215038907*^9, 
   3.48251838787466*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{"fun3", ",", " ", "ints"}], "]"}]], "Input",
 CellChangeTimes->{{3.451099402776445*^9, 3.451099427775693*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", "1", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.451099415703837*^9, 3.451099428688424*^9}, 
   3.482491938692515*^9, 3.482491979203054*^9, 3.4824922979774513`*^9, 
   3.4825044500679092`*^9, 3.482504775728087*^9, 3.482517215089073*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gg", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"3", " ", "x"}], "]"}], "^", "2"}], "+", " ", 
   RowBox[{"11", " ", 
    RowBox[{"ArcTan", "[", 
     RowBox[{"1", "/", "x"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4196027360933313`*^9, 3.419602765778966*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gg", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.482492137619851*^9, 3.4824921411062717`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"11", " ", 
   RowBox[{"ArcTan", "[", 
    FractionBox["1", "2"], "]"}]}], "+", 
  SuperscriptBox[
   RowBox[{"Sin", "[", "6", "]"}], "2"]}]], "Output",
 CellChangeTimes->{3.482492141968091*^9, 3.482492298073037*^9, 
  3.482504450164394*^9, 3.4825047758221893`*^9, 3.482517215175953*^9, 
  3.4825186565217667`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gg", "[", "2.", "]"}]], "Input",
 CellChangeTimes->{{3.482492149203312*^9, 3.482492151322823*^9}}],

Cell[BoxData["5.178196719642621`"], "Output",
 CellChangeTimes->{3.4824922981442537`*^9, 3.4825044502182302`*^9, 
  3.4825047758781347`*^9, 3.482517215225396*^9, 3.482518740688113*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gg", "'"}], "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.482492166509803*^9, 3.482492215226664*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["11", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox["1", 
        SuperscriptBox["y", "2"]]}], ")"}], " ", 
     SuperscriptBox["y", "2"]}]]}], "+", 
  RowBox[{"6", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"3", " ", "y"}], "]"}], " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"3", " ", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.482492152731917*^9, 3.48249221642769*^9}, 
   3.482492298194685*^9, 3.482504450286072*^9, 3.482504775928446*^9, 
   3.482517215295076*^9, 3.482518813720129*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"gg", "'"}], "[", ".3", "]"}]], "Input",
 CellChangeTimes->{{3.419602773462481*^9, 3.419602791664401*^9}}],

Cell[BoxData[
 RowBox[{"-", "7.1702002266314695`"}]], "Output",
 CellChangeTimes->{{3.4196027759118757`*^9, 3.4196027925165157`*^9}, 
   3.482491938864748*^9, 3.4824919793331823`*^9, 3.482492298243762*^9, 
   3.4825044503535357`*^9, 3.4825047759949837`*^9, 3.4825172153570423`*^9, 
   3.482518830194721*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "#", "]"}], " ", "+", " ", 
    RowBox[{"Sin", "[", "#", "]"}]}], "&"}]}]], "Input",
 CellChangeTimes->{{3.419333995798737*^9, 3.419334045967339*^9}, {
  3.419602693704876*^9, 3.419602703966592*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cos", "[", "#1", "]"}], "+", 
   RowBox[{"Sin", "[", "#1", "]"}]}], "&"}]], "Output",
 CellChangeTimes->{3.419602704870235*^9, 3.4824919387435207`*^9, 
  3.48249197925298*^9, 3.4824922982936697`*^9, 3.482504450402206*^9, 
  3.4825047760451527`*^9, 3.482517215405623*^9, 3.482518911596504*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "[", 
  RowBox[{"Pi", "/", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.41933405256697*^9, 3.419334056498608*^9}}],

Cell[BoxData[
 SqrtBox["2"]], "Output",
 CellChangeTimes->{
  3.419334057677874*^9, 3.4193341511930723`*^9, 3.419349065390171*^9, 
   3.419349173115157*^9, 3.419349360389922*^9, {3.419602687311956*^9, 
   3.419602698284679*^9}, 3.482491938910747*^9, 3.482491979387321*^9, 
   3.482492298343686*^9, 3.482504450452189*^9, 3.482504776095686*^9, 
   3.482517215456183*^9, 3.4825189197015333`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f1", "'"}]], "Input",
 CellChangeTimes->{{3.419334059999494*^9, 3.419334073642387*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Cos", "[", "#1", "]"}], "-", 
   RowBox[{"Sin", "[", "#1", "]"}]}], "&"}]], "Output",
 CellChangeTimes->{3.419334075020382*^9, 3.419334151296775*^9, 
  3.4193490654699793`*^9, 3.419349173165682*^9, 3.4193493604546347`*^9, 
  3.4196027124697*^9, 3.482491938960557*^9, 3.482491979436556*^9, 
  3.482492298393799*^9, 3.482504450561945*^9, 3.482504776144354*^9, 
  3.482517215505229*^9, 3.48251894018978*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{821, 707},
WindowMargins->{{4, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
ShowSelection->True,
Magnification->1.5,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3482492832-6093995"->{
  Cell[28707, 837, 118, 2, 58, "Print",
   CellTags->"Info3482492832-6093995"],
  Cell[28828, 841, 862, 25, 33, "Print",
   CellTags->"Info3482492832-6093995"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3482492832-6093995", 39541, 1182}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 133, 2, 69, "Subtitle"],
Cell[726, 27, 460, 10, 62, "Text"],
Cell[1189, 39, 207, 5, 64, "Input"],
Cell[CellGroupData[{
Cell[1421, 48, 94, 1, 39, "Subsubtitle"],
Cell[1518, 51, 300, 9, 40, "Input"],
Cell[CellGroupData[{
Cell[1843, 64, 153, 3, 40, "Input"],
Cell[1999, 69, 252, 6, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2288, 80, 203, 4, 40, "Input"],
Cell[2494, 86, 545, 10, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3076, 101, 93, 2, 40, "Input"],
Cell[3172, 105, 422, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3631, 117, 113, 3, 40, "Input"],
Cell[3747, 122, 471, 10, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4255, 137, 126, 3, 40, "Input"],
Cell[4384, 142, 670, 16, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5091, 163, 210, 4, 40, "Input"],
Cell[5304, 169, 375, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5716, 181, 487, 13, 40, "Input"],
Cell[6206, 196, 4826, 143, 386, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11069, 344, 322, 6, 40, "Input"],
Cell[11394, 352, 3694, 103, 225, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15125, 460, 130, 2, 40, "Input"],
Cell[15258, 464, 212, 3, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15507, 472, 375, 10, 40, "Input"],
Cell[15885, 484, 797, 13, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16719, 502, 198, 4, 40, "Input"],
Cell[16920, 508, 139, 2, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17096, 515, 276, 6, 40, "Input"],
Cell[17375, 523, 505, 9, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17917, 537, 175, 4, 40, "Input"],
Cell[18095, 543, 302, 9, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18434, 557, 127, 2, 40, "Input"],
Cell[18564, 561, 273, 4, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18874, 570, 234, 6, 40, "Input"],
Cell[19111, 578, 685, 12, 64, "Output"]
}, Open  ]],
Cell[19811, 593, 431, 12, 40, "Input"],
Cell[CellGroupData[{
Cell[20267, 609, 239, 5, 40, "Input"],
Cell[20509, 616, 304, 4, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20850, 625, 453, 11, 40, "Input"],
Cell[21306, 638, 2334, 34, 340, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23677, 677, 232, 4, 40, "Input"],
Cell[23912, 683, 438, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24387, 695, 257, 6, 40, "Input"],
Cell[24647, 703, 357, 7, 40, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25053, 716, 255, 6, 65, "Subsubtitle"],
Cell[25311, 724, 211, 4, 40, "Input"],
Cell[CellGroupData[{
Cell[25547, 732, 265, 6, 42, "Input"],
Cell[25815, 740, 448, 8, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26300, 753, 119, 2, 40, "Input"],
Cell[26422, 757, 118, 3, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26577, 765, 120, 2, 40, "Input"],
Cell[26700, 769, 73, 1, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26810, 775, 174, 4, 40, "Input"],
Cell[26987, 781, 393, 9, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27417, 795, 228, 5, 40, "Input"],
Cell[27648, 802, 366, 6, 40, "Output"]
}, Open  ]],
Cell[28029, 811, 167, 3, 40, "Input"],
Cell[28199, 816, 78, 2, 40, "Input"],
Cell[28280, 820, 265, 7, 42, "Input"],
Cell[CellGroupData[{
Cell[28570, 831, 112, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[28707, 837, 118, 2, 58, "Print",
 CellTags->"Info3482492832-6093995"],
Cell[28828, 841, 862, 25, 33, "Print",
 CellTags->"Info3482492832-6093995"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29739, 872, 121, 2, 40, "Input"],
Cell[29863, 876, 217, 6, 44, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30117, 887, 54, 1, 40, "Input"],
Cell[30174, 890, 397, 6, 40, "Output"]
}, Open  ]],
Cell[30586, 899, 77, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[30688, 905, 54, 1, 40, "Input"],
Cell[30745, 908, 401, 6, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31183, 919, 54, 1, 40, "Input"],
Cell[31240, 922, 396, 7, 44, "Output"]
}, Open  ]],
Cell[31651, 932, 166, 5, 42, "Input"],
Cell[CellGroupData[{
Cell[31842, 941, 58, 1, 40, "Input"],
Cell[31903, 944, 377, 5, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32317, 954, 124, 2, 40, "Input"],
Cell[32444, 958, 382, 6, 40, "Output"]
}, Open  ]],
Cell[32841, 967, 180, 4, 42, "Input"],
Cell[33024, 973, 226, 5, 42, "Input"],
Cell[CellGroupData[{
Cell[33275, 982, 262, 6, 40, "Input"],
Cell[33540, 990, 334, 6, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33911, 1001, 126, 2, 40, "Input"],
Cell[34040, 1005, 262, 4, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34339, 1014, 156, 3, 40, "Input"],
Cell[34498, 1019, 313, 5, 40, "Output"]
}, Open  ]],
Cell[34826, 1027, 344, 10, 42, "Input"],
Cell[CellGroupData[{
Cell[35195, 1041, 123, 2, 40, "Input"],
Cell[35321, 1045, 348, 9, 62, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35706, 1059, 122, 2, 40, "Input"],
Cell[35831, 1063, 184, 2, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36052, 1070, 139, 3, 40, "Input"],
Cell[36194, 1075, 580, 17, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36811, 1097, 140, 3, 40, "Input"],
Cell[36954, 1102, 307, 5, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37298, 1112, 291, 7, 40, "Input"],
Cell[37592, 1121, 339, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37968, 1133, 144, 3, 40, "Input"],
Cell[38115, 1138, 392, 7, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38544, 1150, 111, 2, 40, "Input"],
Cell[38658, 1154, 451, 9, 40, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)