(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     14320,        505]
NotebookOptionsPosition[     11600,        406]
NotebookOutlinePosition[     11942,        421]
CellTagsIndexPosition[     11899,        418]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6883122068137407`*^9, 3.688312293861893*^9}, {
  3.68831234861399*^9, 3.6883123492067904`*^9}, {3.6883123999536796`*^9, 
  3.688312411981301*^9}, {3.6883124506537685`*^9, 3.6883124597173843`*^9}, {
  3.688314061896723*^9, 3.68831406342181*^9}, {3.688314107049305*^9, 
  3.6883141077213435`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "/", "x"}], ",", 
   RowBox[{"x", "->", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{3.6883141154427853`*^9, 3.6897837549739323`*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.688312615811259*^9, 3.6883141252913485`*^9, 
  3.6897837652387505`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  SuperscriptBox["f", 
   TagBox[
    RowBox[{"(", "3", ")"}],
    Derivative],
   MultilineFunction->None], "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.6897838710677366`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.689783791663597*^9, 3.689783807996826*^9}, {
  3.689783845967293*^9, 3.6897838549685087`*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["f", 
   TagBox[
    RowBox[{"(", "3", ")"}],
    Derivative],
   MultilineFunction->None], "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.6897837917103977`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x", "]"}], ":=", 
  RowBox[{"x", "/", 
   RowBox[{"Sin", "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.688312813822407*^9, 3.6883128275660305`*^9}, 
   3.6883128666128993`*^9}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  RowBox[{"3", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"Cot", "[", "x", "]"}], "2"], " ", 
      RowBox[{"Csc", "[", "x", "]"}]}], "+", 
     SuperscriptBox[
      RowBox[{"Csc", "[", "x", "]"}], "3"]}], ")"}]}], "+", 
  RowBox[{"x", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Cot", "[", "x", "]"}], "3"]}], " ", 
      RowBox[{"Csc", "[", "x", "]"}]}], "-", 
     RowBox[{"5", " ", 
      RowBox[{"Cot", "[", "x", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Csc", "[", "x", "]"}], "3"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.6883129116189785`*^9, 3.688314177807352*^9, 
  3.689783892065374*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "36"}], "}"}]}], "]"}], ",", 
   RowBox[{"x", "->", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6883129932703495`*^9, 3.6883130376606655`*^9}, {
  3.6883130868007517`*^9, 3.688313110309993*^9}, {3.688313584498417*^9, 
  3.6883135862925196`*^9}, {3.688313749874876*^9, 3.6883137518749905`*^9}, {
  3.6883141873768997`*^9, 3.6883141889219885`*^9}, {3.689783640360531*^9, 
  3.689783641826934*^9}, {3.6897839014409904`*^9, 3.689783905278597*^9}, {
  3.6897839359794507`*^9, 3.6897839391306562`*^9}, {3.6897839852755375`*^9, 
  3.6897839891755447`*^9}, {3.689784022138402*^9, 3.6897840234488044`*^9}, {
  3.689784091979725*^9, 3.6897840940701284`*^9}}],

Cell[BoxData[
 FractionBox["904185845619475242495834469891", "959595"]], "Output",
 CellChangeTimes->{3.689783714694662*^9, 3.68978391824222*^9, 
  3.6897839543250833`*^9, 3.6897840031531687`*^9, 3.6897840604676695`*^9, 
  3.689784116596568*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6897836990634346`*^9, 3.689783699094634*^9}}],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "16"}], "}"}]}], "]"}], ",", 
   RowBox[{"x", "->", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6883129932703495`*^9, 3.6883130376606655`*^9}, {
  3.6883130868007517`*^9, 3.688313110309993*^9}, {3.688313584498417*^9, 
  3.6883135862925196`*^9}, {3.688313749874876*^9, 3.6883137518749905`*^9}, {
  3.6883141873768997`*^9, 3.6883141889219885`*^9}, {3.6883150014314613`*^9, 
  3.6883150159972944`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{"math", "\[IndentingNewLine]", 
 RowBox[{"2", "^", "100"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6895137169408183`*^9, 3.6895137523528805`*^9}}],

Cell[BoxData["math"], "Output",
 CellChangeTimes->{3.6895137588580923`*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "3"}], "-", "1"}], ")"}]}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6895138388394327`*^9, 3.6895138524582567`*^9}, {
  3.6895138981819367`*^9, 3.6895139447636185`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"ArcTan", "[", 
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "x"}]}], 
      SqrtBox["3"]], "]"}], 
    SqrtBox["3"]]}], "+", 
  RowBox[{
   FractionBox["1", "3"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "-", "x"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "6"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "+", "x", "+", 
     SuperscriptBox["x", "2"]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.6895139517368307`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "+", "3"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.689514139514361*^9, 3.6895141497323785`*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.68951415609719*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.6895144514993086`*^9, 3.6895144894073753`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", "3"}]], "Input",
 CellChangeTimes->{{3.6895244016271334`*^9, 3.6895244055115404`*^9}}],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.689524409941948*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "^", "3"}]], "Input",
 CellChangeTimes->{{3.689524419036764*^9, 3.6895244239039726`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"y", "^", "2"}]}]], "Input",
 CellChangeTimes->{{3.689524818319465*^9, 3.6895248258074784`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "=", "4"}]], "Input",
 CellChangeTimes->{{3.6895248911403933`*^9, 3.6895248949156*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.689524897848405*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e", "^", "x"}]], "Input",
 CellChangeTimes->{{3.689524943306885*^9, 3.6895249483300934`*^9}}],

Cell[BoxData[
 SuperscriptBox["e", "3"]], "Output",
 CellChangeTimes->{3.689524951216099*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.6895251407876315`*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", 
  RowBox[{"z", "^", "3"}]}]], "Input",
 CellChangeTimes->{{3.689525216946965*^9, 3.6895252288185863`*^9}, {
  3.6895253423555856`*^9, 3.6895253444303894`*^9}}],

Cell[BoxData[
 SuperscriptBox["z", "3"]], "Output",
 CellChangeTimes->{3.6895252311585903`*^9, 3.6895253515440016`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["x"], "Input",
 CellChangeTimes->{3.6895253597652164`*^9}],

Cell[BoxData[
 SuperscriptBox["z", "3"]], "Output",
 CellChangeTimes->{3.689525369952034*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"z", "=", "2"}]], "Input",
 CellChangeTimes->{{3.689525391511272*^9, 3.6895253946312776`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e", "^", "x"}]], "Input",
 CellChangeTimes->{{3.689525411448107*^9, 3.689525452351379*^9}}],

Cell[BoxData[
 SuperscriptBox["e", "8"]], "Output",
 CellChangeTimes->{3.6895254179689183`*^9, 3.6895254545665827`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ff", "[", "x", "]"}], ":=", 
  RowBox[{"2", "*", 
   RowBox[{"x", "/", 
    RowBox[{"Sin", "[", 
     RowBox[{"2", "*", "x"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.689525691593399*^9, 3.689525723386255*^9}, {
   3.6895257892183704`*^9, 3.6895257994207883`*^9}, 3.6895263642197804`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"ff", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}]}], "]"}], ",", 
   RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6895261733066454`*^9, 3.6895263367637324`*^9}, {
  3.68952638100541*^9, 3.689526411893464*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(8\\)\[NoBreak] is not a valid variable. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.689526325126112*^9, 3.6895263403049383`*^9}, {
  3.689526387916222*^9, 3.689526416729473*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(8\\)\[NoBreak] is not a valid variable. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/ivar\\\", \
ButtonNote -> \\\"General::ivar\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.689526325126112*^9, 3.6895263403049383`*^9}, {
  3.689526387916222*^9, 3.689526416776273*^9}}],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", 
     RowBox[{"{", 
      RowBox[{"8", ",", "4"}], "}"}]], 
    RowBox[{"(", 
     RowBox[{"16", " ", 
      RowBox[{"Csc", "[", "16", "]"}]}], ")"}]}], ",", 
   RowBox[{"8", "\[Rule]", "0"}]}], "]"}]], "Output",
 CellChangeTimes->{{3.689526325204112*^9, 3.6895263403673387`*^9}, {
  3.6895263879786224`*^9, 3.689526416776273*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6895244337007895`*^9, 3.6895244337163897`*^9}, 
   3.6895244866160827`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6895244995953054`*^9, 3.6895244995953054`*^9}}]
},
WindowSize->{759, 586},
WindowMargins->{{Automatic, 197}, {Automatic, 18}},
FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 7, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 344, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[927, 29, 230, 6, 48, "Input"],
Cell[1160, 37, 121, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1318, 44, 155, 5, 48, "Input"],
Cell[1476, 51, 204, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1717, 63, 143, 2, 31, InheritFromParent],
Cell[1863, 67, 204, 7, 31, "Output"]
}, Open  ]],
Cell[2082, 77, 228, 6, 48, "Input"],
Cell[CellGroupData[{
Cell[2335, 87, 155, 5, 48, "Input"],
Cell[2493, 94, 749, 24, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3279, 123, 820, 16, 48, "Input"],
Cell[4102, 141, 245, 4, 46, "Output"]
}, Open  ]],
Cell[4362, 148, 94, 1, 31, InheritFromParent],
Cell[4459, 151, 571, 13, 48, "Input"],
Cell[CellGroupData[{
Cell[5055, 168, 177, 2, 72, "Input"],
Cell[5235, 172, 75, 1, 31, "Output"],
Cell[5313, 175, 102, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5452, 181, 313, 9, 48, "Input"],
Cell[5768, 192, 527, 19, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6332, 216, 153, 3, 52, "Input"],
Cell[6488, 221, 69, 1, 31, "Output"]
}, Open  ]],
Cell[6572, 225, 158, 3, 70, "Input"],
Cell[CellGroupData[{
Cell[6755, 232, 119, 2, 31, "Input"],
Cell[6877, 236, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6984, 242, 117, 2, 31, "Input"],
Cell[7104, 246, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7214, 252, 140, 3, 31, "Input"],
Cell[7357, 257, 95, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7489, 264, 115, 2, 31, "Input"],
Cell[7607, 268, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7714, 274, 117, 2, 31, "Input"],
Cell[7834, 278, 93, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7964, 285, 71, 1, 31, "Input"],
Cell[8038, 288, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8147, 294, 193, 4, 31, "Input"],
Cell[8343, 300, 119, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8499, 307, 71, 1, 31, "Input"],
Cell[8573, 310, 93, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8703, 317, 117, 2, 31, "Input"],
Cell[8823, 321, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8932, 327, 115, 2, 31, "Input"],
Cell[9050, 331, 119, 2, 31, "Output"]
}, Open  ]],
Cell[9184, 336, 328, 8, 48, "Input"],
Cell[CellGroupData[{
Cell[9537, 348, 368, 10, 48, "Input"],
Cell[9908, 360, 510, 10, 21, "Message"],
Cell[10421, 372, 510, 10, 21, "Message"],
Cell[10934, 384, 424, 12, 33, "Output"]
}, Open  ]],
Cell[11373, 399, 124, 2, 31, "Input"],
Cell[11500, 403, 96, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)