(* 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[      6221,        200]
NotebookOptionsPosition[      5772,        182]
NotebookOutlinePosition[      6116,        197]
CellTagsIndexPosition[      6073,        194]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{"\"\< #1 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", "  ", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"t", "^", "2"}], "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", 
         RowBox[{"t", "^", "2"}]}], "+", "2"}], ")"}]}], ",", " ", 
     RowBox[{"1", "/", "t"}]}], " ", "}"}], ",", " ", 
   RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], " ", "]"}]}], "Input"],

Cell[BoxData[{"\"\< #16 \>\"", "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "[", "t_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}], ",", "t"}], "}"}]}], ";"}], "\n", 
 RowBox[{"r", "[", 
  FractionBox["\[Pi]", "4"], "]"}], "\n", 
 RowBox[{
  SuperscriptBox["r", "\[Prime]",
   MultilineFunction->None], "[", "t", "]"}], "\n", 
 RowBox[{
  SuperscriptBox["r", "\[Prime]",
   MultilineFunction->None], "[", 
  FractionBox["\[Pi]", "4"], "]"}], "\n", 
 RowBox[{
  RowBox[{"Curve", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"r", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Der", "=", 
   RowBox[{"Graphics3D", "[", " ", 
    RowBox[{"{", 
     RowBox[{"Green", ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"r", "[", 
          FractionBox["\[Pi]", "4"], "]"}], ",", 
         RowBox[{
          RowBox[{"r", "[", 
           FractionBox["\[Pi]", "4"], "]"}], "+", 
          RowBox[{
           SuperscriptBox["r", "\[Prime]",
            MultilineFunction->None], "[", 
           FractionBox["\[Pi]", "4"], "]"}]}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Vec", "=", 
   RowBox[{"Graphics3D", "[", " ", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"r", "[", 
          FractionBox["\[Pi]", "4"], "]"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", 
      RowBox[{"PointSize", "[", "0.05", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"r", "[", 
        FractionBox["\[Pi]", "4"], "]"}], "]"}]}], "}"}], "]"}], ",", "Curve",
    ",", "Der", ",", "Vec", ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1.3`", ",", 
      RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.41203276746875*^9, 3.4120328011875*^9}, {
  3.47015608678125*^9, 3.470156232140625*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\"\< #33 \>\"", "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "*", 
        RowBox[{"Sin", "[", "t", "]"}]}], ",", "1"}], "}"}], " ", ",", " ", 
     "t"}], " ", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\"\< #39 \>\"", "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", "  ", 
    RowBox[{
     RowBox[{"Norm", "[", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"t", "^", "2"}]}], "}"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], " ", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4120328163125*^9, 3.412032816734375*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\"\< #42 \>\"", "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", "  ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"2", "t"}], "]"}], ",", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "t"}], "]"}], ",", "t"}], "}"}], "   ", ",", "   ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "   ", "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\"\< #45 \>\"", "\[IndentingNewLine]", 
   RowBox[{"DSolve", "[", "  ", 
    RowBox[{
     RowBox[{"{", "  ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"x", "''"}], "[", "t", "]"}], "==", "1"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "''"}], "[", "t", "]"}], "==", " ", 
        RowBox[{"Exp", "[", "t", "]"}]}], ",", "  ", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "2"}], ",", " ", 
       RowBox[{
        RowBox[{"y", "[", "0", "]"}], "==", " ", "0"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "0", "]"}], "==", " ", "1"}]}], "        ", 
      "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "[", "t", "]"}], ",", 
       RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", " ", "t"}], "  ", 
    "]"}]}]}]], "Input"]
},
WindowSize->{1272, 922},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 487, 14, 52, "Input"],
Cell[1035, 36, 2498, 75, 259, "Input"],
Cell[3536, 113, 320, 9, 72, "Input"],
Cell[3859, 124, 443, 11, 72, "Input"],
Cell[4305, 137, 448, 12, 72, "Input"],
Cell[4756, 151, 1012, 29, 72, "Input"]
}
]
*)

(* End of internal cache information *)