(* 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[ 6272, 211]
NotebookOptionsPosition[ 5751, 191]
NotebookOutlinePosition[ 6095, 206]
CellTagsIndexPosition[ 6052, 203]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)

Notebook[{
Cell[BoxData[""], "Input",
CellChangeTimes->{3.911292767186389*^9}],

Cell[BoxData[{
RowBox[{
RowBox[{"fla", "[", "x_", "]"}], ":=",
RowBox[{"x", "+", "3"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"flb", "[", "x_", "]"}], ":=",
RowBox[{
SuperscriptBox["x", "3"], "+",
RowBox[{"2",
SuperscriptBox["x", "2"]}], "-", "x", "+",
"3"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"flc", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"Log", "[", "x", "]"}], "+",
SuperscriptBox["E",
RowBox[{"3", "x"}]], "-",
SuperscriptBox["x", "2"], "+", "3"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"fld", "[", "x_", "]"}], ":=",
FractionBox[
RowBox[{"x", "+", "3"}],
RowBox[{
SuperscriptBox["x", "2"], "-", "4"}]]}]}], "Input",
CellChangeTimes->{{3.911292685076974*^9, 3.9112929674305553`*^9}}],

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"f2a", "[", "n_", "]"}], ":=",
RowBox[{
RowBox[{"n", "*",
RowBox[{"n", "!"}]}], "/;",
 RowBox[{"n", "\[Succeeds]", "0"}]}]}], ";",
RowBox[{
RowBox[{"f2a", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]",

RowBox[{
RowBox[{
RowBox[{"f2b", "[", "n_", "]"}], ":=",
RowBox[{
RowBox[{"n", "+",
RowBox[{"f2b", "[",
RowBox[{"n", "-", "1"}], "]"}]}], "/;",
RowBox[{"n", "\[Succeeds]", "0"}]}]}], ";",
RowBox[{
RowBox[{"f2b", "[", "0", "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]",

RowBox[{
RowBox[{"f2c", "[",
RowBox[{"n_", ",", "a_"}], "]"}], ":=",
RowBox[{
FractionBox["1", "2"],
RowBox[{"(",
RowBox[{
RowBox[{"f2c", "[",
RowBox[{
RowBox[{"n", "-", "1"}], ",", "a"}], "]"}], "+",
FractionBox["a",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"f2c", "]"}], "n"}], ",", "a"}], "]"}]]}],
")"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.9112929722378254`*^9, 3.911292988792249*^9}, {
3.911293260527937*^9, 3.9112932716665387`*^9}, {3.9112933141384335`*^9,
3.9112933882940707`*^9}, {3.911293422970437*^9, 3.911293603050764*^9}, {
3.911293634807884*^9, 3.911293649003766*^9}}],

Cell[BoxData[{
RowBox[{
RowBox[{"/;",
RowBox[{"n", "\[Succeeds]", "0"}]}], ";",
RowBox[{
RowBox[{"f2c", "[",
RowBox[{"0", ",", "a_"}], "]"}], ":=", "1"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f2d", "[", "n_", "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"f2d", "[",
RowBox[{"n", "-", "1"}], "]"}], "+",
RowBox[{"f2d", "[",
RowBox[{"n", "-", "2"}], "]"}]}], "/;",
RowBox[{"n", "\[Succeeds]", "1"}]}]}], ";",
RowBox[{
RowBox[{"f2d", "[", "0", "]"}], "=", "1"}], ";",
RowBox[{
RowBox[{"f2d", "[", "1", "]"}], "=", "1"}], ";",
"\[IndentingNewLine]"}]}], "Input",
 CellChangeTimes->{{3.9112936510062923`*^9, 3.9112937103699107`*^9}, {
3.911293754029991*^9, 3.9112938433638663`*^9}},
EmphasizeSyntaxErrors->True],

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"f5a", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"x", "+", "1"}], "/;",
RowBox[{"x", "\[LessEqual]", "2"}]}]}], ";",
RowBox[{
RowBox[{"f5a", "[", "x_", "]"}], "=",
RowBox[{
RowBox[{
SuperscriptBox["x", "2"], "-", "x", "+", "1"}], "/;",
RowBox[{"x", "\[Succeeds]", "2"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f5b", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"x", "+", "1"}], "/;",
RowBox[{"x", "\[LessEqual]",
RowBox[{"-", "1"}]}]}]}], ";",
RowBox[{
RowBox[{"f5a", "[", "x_", "]"}], "=",
RowBox[{
SuperscriptBox["E", "x"], "/;",
RowBox[{"x", "\[Succeeds]", "0"}]}]}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.911293848942771*^9, 3.911293896891191*^9}, {
3.911294010937118*^9, 3.911294129123523*^9}}],

Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f6a", "[", "n_", "]"}], ":=",
RowBox[{"Sum", "[",
RowBox[{
FractionBox["1",
RowBox[{"Sqrt", "[", "k", "]"}]], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"f6b", "[", "n_", "]"}], ":=",
RowBox[{"Sum", "[",
RowBox[{"k", ",",
RowBox[{
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "n"}], "}"}], "-",
RowBox[{"Log", "[", "n", "]"}]}]}], "]"}]}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"f6c", "[",
RowBox[{"n_", ",", "k_"}], "]"}], ":=",
RowBox[{
 RowBox[{"Binomial", "[",
RowBox[{"n", ",", "k"}], "]"}], "+",
RowBox[{"Binomial", "[",
RowBox[{"n", ",",
RowBox[{"k", "+", "1"}]}], "]"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.9112941319430995`*^9, 3.911294358174264*^9}},
EmphasizeSyntaxErrors->True],

Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{3.9112943635477977`*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
CellChangeTimes->{3.9112927153057785`*^9}]
},
WindowSize->{607, 592},
WindowMargins->{{-9, Automatic}, {Automatic, -1}},
FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (February 7, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)

(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 68, 1, 31, "Input"],
Cell[639, 24, 776, 24, 106, "Input"],
Cell[1418, 50, 1387, 43, 108, "Input"],
Cell[2808, 95, 804, 25, 72, "Input"],
Cell[3615, 122, 943, 28, 92, "Input"],
Cell[4561, 152, 1002, 31, 110, "Input"],
Cell[5566, 185, 89, 1, 52, "Input"],
Cell[5658, 188, 89, 1, 52, "Input"]
}
]
*)

(* End of internal cache information *)