(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    137369,       3562]
NotebookOptionsPosition[    127158,       3214]
NotebookOutlinePosition[    127662,       3232]
CellTagsIndexPosition[    127619,       3229]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
IX1300 Introduktion i matematik\t\tLektion 19 november 2012\t
Jan-Olof \[CapitalARing]kerlund\t\t\t           ICT-skolan, KTH\
\>", "Text",
 CellChangeTimes->{{3.498809719703125*^9, 3.49880977015625*^9}, {
  3.49880980265625*^9, 3.498809848734375*^9}, {3.5308680225082684`*^9, 
  3.5308680367532682`*^9}, {3.561878368794263*^9, 3.5618783777322607`*^9}}],

Cell[CellGroupData[{

Cell["\<\
Potens-, 
exponential- 
och logaritmfunktioner\
\>", "Title",
 CellChangeTimes->{{3.498809647890625*^9, 3.498809694703125*^9}, {
   3.561878556402521*^9, 3.5618786020934563`*^9}, 3.561884912471504*^9}],

Cell[CellGroupData[{

Cell["Potensfunktioner", "Section",
 CellChangeTimes->{{3.49873440184375*^9, 3.498734410890625*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Funktionen ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["x", "a"], "  "}], TraditionalForm]], "None"]
}], "Subsection",
 CellChangeTimes->{{3.467551697125*^9, 3.46755177028125*^9}, {
  3.498734442859375*^9, 3.498734446375*^9}}],

Cell[TextData[{
 "Vi plottar funktionen f\[ODoubleDot]r olika v\[ADoubleDot]rden p\[ARing] ",
 Cell[BoxData[
  FormBox["a", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ":\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "\[LessEqual]", "a", "\[LessEqual]", 
    RowBox[{
    "5", " ", "med", " ", "en", " ", "stegl\[ADoubleDot]ngd", " ", 
     "p\[ARing]", " ", Cell["0.1"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Text",
 CellChangeTimes->{{3.561878870344025*^9, 3.561878927236496*^9}, {
  3.561878970120346*^9, 3.5618790809569254`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     SuperscriptBox["x", "a"], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        SuperscriptBox["x", "a"]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "0", ",", "5", ",", ".1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46755015178125*^9, 3.467550228078125*^9}, {
   3.467550268859375*^9, 3.46755028784375*^9}, {3.4675503195625*^9, 
   3.467550584*^9}, 3.467550822765625*^9, {3.467550874578125*^9, 
   3.4675508755625*^9}, {3.46755114996875*^9, 3.46755121596875*^9}, {
   3.467551905484375*^9, 3.4675519439375*^9}, {3.498734463765625*^9, 
   3.4987345265625*^9}, 3.498734557453125*^9, 3.498734785359375*^9, 
   3.498735174734375*^9, {3.498735216203125*^9, 3.4987352415625*^9}, 
   3.498735530296875*^9, {3.5618789641456227`*^9, 3.561878984893357*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 5., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0, 5, 0.1}}, Typeset`size$$ = {
    360., {119., 123.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$830$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$830$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`x^$CellContext`a$$, {$CellContext`x, -5, 5}, 
        PlotRange -> {-10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`x^$CellContext`a$$}], 
      "Specifications" :> {{$CellContext`a$$, 0, 5, 0.1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{415., {170., 179.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.5618787820180893`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["?", "Subsection",
 CellChangeTimes->{3.56187870494096*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 "Varf\[ODoubleDot]r blir det ingen kurva f\[ODoubleDot]r ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "<", "0"}], TraditionalForm]]],
 " ?\n"
}], "Subsubsection",
 CellChangeTimes->{{3.4987349494375*^9, 3.49873499403125*^9}, {
   3.498809890375*^9, 3.498809897765625*^9}, 3.530868011627268*^9, 
   3.561879243209297*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"{", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "2"}], ")"}], 
     RowBox[{"-", "2"}]], ",", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "2"}], ")"}], 
     RowBox[{"-", "2.2"}]]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.4987348244375*^9, 3.498734940734375*^9}, {
  3.498734987140625*^9, 3.49873498959375*^9}, {3.498735306421875*^9, 
  3.498735326921875*^9}, {3.498735368125*^9, 3.49873540453125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.25`", ",", 
   RowBox[{"0.17607255004231184`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.12792419562009183`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.561878822265442*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Funktionen ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["x", "a"], "  "}], TraditionalForm]], "None"],
 "om a \[ADoubleDot]r positiva heltal"
}], "Subsection",
 CellChangeTimes->{{3.467551697125*^9, 3.46755177028125*^9}, {
  3.498734442859375*^9, 3.498734446375*^9}, {3.49873508646875*^9, 
  3.498735125890625*^9}}],

Cell["Startv\[ADoubleDot]rde p\[ARing] a?", "Text",
 CellChangeTimes->{{3.56187931752298*^9, 3.56187934014124*^9}, 
   3.561887835106271*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox["x", "0"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", "5"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      SuperscriptBox["x", "a"]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.56187938381788*^9, {3.5618794181820364`*^9, 3.561879459924425*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQXfvc99P//8IHGMDgg/2UkgTvhtkI/mrG4iUM5gg+
a6q7kWSsEJwvfONozqKJgnB+0OFZyZqnBOD86ve2ORMe88P5O8pnZa3354Pz
/SaFKvybyQPnu8/d6+fxhgvOX3a88lpxNCecH9cyRfT8CnY4vy6BeR23MBuc
z6Arv9+5lQXOv9U9s331VSY4X4YrY+UXJ0Y4P9tUi/W2zP/9MH6y+b0Vhw//
hvO1Kqz+5y35AecvvBt8pNLxK5z/vFHUxl3iE5y/a6qG64uwt3C+wcubX/Tn
PoPzXXbd5vwb9gDOL1i5/oeg8GU4PyxNeeGlmp1w/vEzN7uMg3fYw/hWugc3
BUy/DOczlYneSZF8AOez8wQ0Jr17Buc3P7jmXLT4LZy/YXZbQN2nj3B+/qIU
gSdhX+H8uKxZsu2NP+D8zsAyS+M5v+F8FpGpz+p//YPzr59u/dDCz+gA44dW
J5nNOswE5+dwv1Y6F8UC58uvPjaN7RUrnF+9wzmYfzY7nF+wLGebmT4nnM/D
ZJ6k95QLznfNDZmqNZkHzpfYKZvvqsIH508q6phocJ0fzg9q89edu00AzteK
bgldUisI5197xrlocqgQnH8u6amjkLwwnK+2VFKqsx/Bh+YXOB8ADRIAzQ==

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox[
     SuperscriptBox["x", "a"], TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 5}, {-2, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.5618793969832673`*^9, 3.561879461109934*^9}}]
}, {2}]],

Cell[CellGroupData[{

Cell["Olika a-v\[ADoubleDot]rden?", "Subsubsection",
 CellChangeTimes->{{3.561887951932147*^9, 3.5618879959692535`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      SuperscriptBox["x", "a"], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         SuperscriptBox["x", "a"]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "0", ",", "10", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46755015178125*^9, 3.467550228078125*^9}, {
   3.467550268859375*^9, 3.46755028784375*^9}, {3.4675503195625*^9, 
   3.467550584*^9}, 3.467550822765625*^9, {3.467550874578125*^9, 
   3.4675508755625*^9}, {3.46755114996875*^9, 3.46755121596875*^9}, {
   3.467551905484375*^9, 3.4675519439375*^9}, {3.498734463765625*^9, 
   3.4987345265625*^9}, 3.498734557453125*^9, 3.498734785359375*^9, {
   3.4987351314375*^9, 3.498735137265625*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`a$$], 0, 10, 1}}, Typeset`size$$ = {
    360., {117., 122.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$724$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$724$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`x^$CellContext`a$$, {$CellContext`x, -5, 5}, 
        PlotRange -> {-10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`x^$CellContext`a$$}], 
      "Specifications" :> {{$CellContext`a$$, 0, 10, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{415., {168., 177.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.5308682468132677`*^9, 3.561878750928286*^9}]
}, {2}]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Exponentialfunktioner", "Section",
 CellChangeTimes->{{3.467551658546875*^9, 3.46755168175*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Funktionen ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["a", "x"], "  "}], TraditionalForm]], "None"]
}], "Subsection",
 CellChangeTimes->{{3.467551697125*^9, 3.46755177028125*^9}}],

Cell[TextData[{
 "Om ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", ">", "0"}], TraditionalForm]]],
 " och ",
 StyleBox["x",
  FontSlant->"Italic"],
 " \[ADoubleDot]r ett reelt tal \[ADoubleDot]r den ",
 StyleBox["reella",
  FontWeight->"Bold"],
 " funktionen  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    SuperscriptBox["a", "x"]}], TraditionalForm]]],
 " definierad"
}], "Text",
 CellChangeTimes->{{3.467551784421875*^9, 3.46755189034375*^9}, {
  3.49881004703125*^9, 3.498810064125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hur ser den ut f\[ODoubleDot]r olika a?", "Subsection",
 CellChangeTimes->{{3.561888162009267*^9, 3.5618881801669683`*^9}}],

Cell[CellGroupData[{

Cell["a \[LessEqual] 1", "Subsubsection",
 CellChangeTimes->{{3.467551973015625*^9, 3.467552008125*^9}, {
  3.561885143919924*^9, 3.5618851511737843`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      SuperscriptBox["a", "x"], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         SuperscriptBox["a", "x"]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "1"}], "}"}], ",", "0.01", ",", "1"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.46755015178125*^9, 3.467550228078125*^9}, {
   3.467550268859375*^9, 3.46755028784375*^9}, {3.4675503195625*^9, 
   3.467550584*^9}, 3.467550822765625*^9, {3.467550874578125*^9, 
   3.4675508755625*^9}, {3.46755114996875*^9, 3.46755121596875*^9}, {
   3.467551905484375*^9, 3.4675519439375*^9}, {3.5618850852348585`*^9, 
   3.5618851131109867`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0.36100000000000004`, Typeset`show$$ =
     True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, 0.01, 1}}, Typeset`size$$ = {
    360., {117., 122.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$752$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$752$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`a$$^$CellContext`x, {$CellContext`x, -5, 5}, 
        PlotRange -> {-10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`a$$^$CellContext`x}], 
      "Specifications" :> {{{$CellContext`a$$, 1}, 0.01, 1}}, "Options" :> {},
       "DefaultOptions" :> {}],
     ImageSizeCache->{415., {168., 177.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.5618850041647773`*^9, 3.5618851143901377`*^9}]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["a> 1", "Subsubsection",
 CellChangeTimes->{{3.467551973015625*^9, 3.467551999359375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      SuperscriptBox["n", "x"], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         SuperscriptBox["n", "x"]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46755015178125*^9, 3.467550228078125*^9}, {
  3.467550268859375*^9, 3.46755028784375*^9}, {3.4675503195625*^9, 
  3.467550584*^9}, {3.46755067628125*^9, 3.46755069153125*^9}, {
  3.467550781484375*^9, 3.467550804484375*^9}, {3.467552018171875*^9, 
  3.4675520268125*^9}, {3.467552224421875*^9, 3.467552261328125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 4.470000000000001, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 1, 10}}, Typeset`size$$ = {360., {117., 122.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$2768$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$2768$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[$CellContext`n$$^$CellContext`x, {$CellContext`x, -5, 5}, 
        PlotRange -> {-10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`n$$^$CellContext`x}], 
      "Specifications" :> {{$CellContext`n$$, 1, 10}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{415., {168., 177.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.5618863564156036`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SuperscriptBox["a", "x"], " ", "och", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "/", "a"}], ")"}], "x"]}], 
  TraditionalForm]]]], "Subsubsection",
 CellChangeTimes->{{3.467552477*^9, 3.4675525309375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox["n", "x"], ",", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "/", "n"}], ")"}], "x"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"{", 
          RowBox[{
           SuperscriptBox["n", "x"], ",", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "/", "n"}], ")"}], "x"]}], "}"}]}], "}"}]}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "2", ",", "10", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46755015178125*^9, 3.467550228078125*^9}, {
  3.467550268859375*^9, 3.46755028784375*^9}, {3.4675503195625*^9, 
  3.467550584*^9}, {3.46755067628125*^9, 3.46755069153125*^9}, {
  3.467550781484375*^9, 3.467550804484375*^9}, {3.467552018171875*^9, 
  3.4675520268125*^9}, {3.467552224421875*^9, 3.467552409734375*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 3, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 2, 10, 1}}, Typeset`size$$ = {
    360., {119., 123.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$3326$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$3326$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[{$CellContext`n$$^$CellContext`x, (
          1/$CellContext`n$$)^$CellContext`x}, {$CellContext`x, -5, 5}, 
        PlotRange -> {-10, 10}, 
        AxesLabel -> {$CellContext`x, {$CellContext`n$$^$CellContext`x, (
            1/$CellContext`n$$)^$CellContext`x}}], 
      "Specifications" :> {{$CellContext`n$$, 2, 10, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{415., {170., 179.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.5618864938174615`*^9}]
}, {2}]],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["R\[ADoubleDot]nta p\[ARing] r\[ADoubleDot]nta", "Section",
 CellChangeTimes->{{3.4675526755625*^9, 3.4675526818125*^9}}],

Cell[CellGroupData[{

Cell["1000 kr, \[ARing]rlig r\[ADoubleDot]nta 5 %", "Subsection",
 CellChangeTimes->{{3.467552708265625*^9, 3.467552723359375*^9}}],

Cell[TextData[{
 "Kapital efter ett \[ARing]r:\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"1000", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "0.05"}], ")"}]}], " ", "=", " "}], TraditionalForm]]],
 "1000\[CenterDot] 1.05\n\nKapital efter tv\[ARing]  \[ARing]r:\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"1000", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "0.05"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "0.05"}], ")"}]}], "=", " "}], TraditionalForm]]],
 "1000\[CenterDot] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["1.05", "2"], TraditionalForm]]],
 "\n\t\nKapital efter ",
 StyleBox["k",
  FontSlant->"Italic"],
 "  \[ARing]r:\n\t1000 \[CenterDot] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["1.05", "n"], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.46755275153125*^9, 3.46755275596875*^9}, {
   3.46755280225*^9, 3.467552941328125*^9}, {3.467552976546875*^9, 
   3.46755298325*^9}, {3.467553030328125*^9, 3.467553054125*^9}, 
   3.46755386740625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["I Mathematica", "Subsection",
 CellChangeTimes->{{3.5308686270082684`*^9, 3.530868634047268*^9}}],

Cell["\<\
Tabell (Kapitalisering varje \[ARing]r)\
\>", "Text",
 CellChangeTimes->{{3.530868677822268*^9, 3.530868680174268*^9}, {
  3.5308687545482683`*^9, 3.530868788411268*^9}}],

Cell[BoxData[
 RowBox[{"kapital", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"1000", "  ", 
     FormBox[
      SuperscriptBox["1.05", "k"],
      TraditionalForm]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467553064515625*^9, 3.46755311234375*^9}, {
  3.467553161375*^9, 3.46755316596875*^9}, {3.467553870359375*^9, 
  3.467553872578125*^9}, {3.530869205847725*^9, 3.530869242444042*^9}, {
  3.5308692793394203`*^9, 3.530869310703478*^9}, {3.5308708742198143`*^9, 
  3.530870878034196*^9}}],

Cell[CellGroupData[{

Cell["Plott", "Subsubsection",
 CellChangeTimes->{{3.530868687686268*^9, 3.530868689094268*^9}}],

Cell[BoxData[
 RowBox[{"plot1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"kapital", ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2000"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46755317034375*^9, 3.467553237*^9}, {
  3.530868856076268*^9, 3.530868860205268*^9}}],

Cell[BoxData[
 RowBox[{"plot2", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"kapital", ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2000"}], "}"}]}], ",", 
    RowBox[{"FillingStyle", "\[Rule]", "Thick"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46755317034375*^9, 3.467553237*^9}, {
  3.530868856076268*^9, 3.530868860205268*^9}, {3.530869667017106*^9, 
  3.5308696782652307`*^9}, {3.5308697445918627`*^9, 3.530869757389142*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Varf\[ODoubleDot]r ritar vi inte en kurva?", "Subsubsection",
 CellChangeTimes->{{3.530868803475268*^9, 3.530868821803268*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"kurv1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"1000", "  ", 
      FormBox[
       SuperscriptBox["1.05", "k"],
       TraditionalForm]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plot2", ",", "kurv1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5308690458837385`*^9, 3.530869102410041*^9}, 
   3.530869770239427*^9, {3.530869840347437*^9, 3.5308698450789104`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Vi kan \[ARing]sk\[ARing]dligg\[ODoubleDot]ra i ett stapeldiagram\
\>", "Subsubsection",
 CellChangeTimes->{{3.498805133296875*^9, 3.498805160453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"barkapital", "=", 
  RowBox[{"BarChart", "[", "kapital", "]"}]}]], "Input",
 CellChangeTimes->{{3.46755325203125*^9, 3.467553262640625*^9}, {
  3.46755330103125*^9, 3.46755331803125*^9}, {3.49880566871875*^9, 
  3.498805673734375*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{{0.4545454545454546, 0.}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[Opacity[0.7]], 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{0.5454545454545454, 0.}, {1.4545454545454546`, 
            1000.}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{25.219379321976724`, 
           53.413172541743975`}, {-27.648353827017743`, 98.1976168210897}}],
         StatusArea[#, 1000.]& ,
         TagBoxNote->"1000."],
        StyleBox["1000.`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1000., {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{1.5454545454545454`, 0.}, {2.4545454545454546`, 
            1050.}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{55.13255186372069, 
           83.32634508348795}, {-33.890652359423115`, 98.1976168210897}}],
         StatusArea[#, 1050.]& ,
         TagBoxNote->"1050."],
        StyleBox["1050.`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1050., {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{2.5454545454545454`, 0.}, {3.4545454545454546`, 
            1102.5}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{85.04572440546467, 
           113.23951762523193`}, {-40.44506581844877, 98.1976168210897}}],
         StatusArea[#, 1102.5]& ,
         TagBoxNote->"1102.5"],
        StyleBox["1102.5`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1102.5, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{3.5454545454545454`, 0.}, {4.454545454545454, 
            1157.6250000000002`}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{114.95889694720864`, 
           143.15269016697587`}, {-47.32719995042572, 98.1976168210897}}],
         StatusArea[#, 1157.6250000000002`]& ,
         TagBoxNote->"1157.6250000000002"],
        StyleBox["1157.6250000000002`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1157.6250000000002`, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{4.545454545454545, 0.}, {5.454545454545454, 
            1215.5062500000001`}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{144.8720694889526, 
           173.06586270871986`}, {-54.553440789001456`, 98.1976168210897}}],
         StatusArea[#, 1215.5062500000001`]& ,
         TagBoxNote->"1215.5062500000001"],
        StyleBox["1215.5062500000001`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1215.5062500000001`, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{5.545454545454545, 0.}, {6.454545454545454, 
            1276.2815625000003`}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{174.7852420306966, 
           202.97903525046382`}, {-62.14099366950606, 98.1976168210897}}],
         StatusArea[#, 1276.2815625000003`]& ,
         TagBoxNote->"1276.2815625000003"],
        StyleBox["1276.2815625000003`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1276.2815625000003`, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{6.545454545454545, 0.}, {7.454545454545454, 
            1340.0956406250004`}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{204.69841457244056`, 
           232.8922077922078}, {-70.10792419403586, 98.1976168210897}}],
         StatusArea[#, 1340.0956406250004`]& ,
         TagBoxNote->"1340.0956406250004"],
        StyleBox["1340.0956406250004`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1340.0956406250004`, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{7.545454545454545, 0.}, {8.454545454545453, 
            1407.1004226562504`}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{234.61158711418454`, 
           262.8053803339518}, {-78.47320124479214, 98.1976168210897}}],
         StatusArea[#, 1407.1004226562504`]& ,
         TagBoxNote->"1407.1004226562504"],
        StyleBox["1407.1004226562504`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1407.1004226562504`, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{8.545454545454545, 0.}, {9.454545454545453, 
            1477.455443789063}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{264.5247596559285, 
           292.71855287569576`}, {-87.25674214808623, 98.1976168210897}}],
         StatusArea[#, 1477.455443789063]& ,
         TagBoxNote->"1477.455443789063"],
        StyleBox["1477.455443789063`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1477.455443789063, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{9.545454545454545, 0.}, {10.454545454545453`, 
            1551.3282159785163`}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{294.43793219767247`, 
           322.6317254174397}, {-96.47946009654504, 98.1976168210897}}],
         StatusArea[#, 1551.3282159785163`]& ,
         TagBoxNote->"1551.3282159785163"],
        StyleBox["1551.3282159785163`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1551.3282159785163`, {
          GrayLevel[0]}], "Tooltip"]& ]}, 
     {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[Opacity[0.7]], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           
           RectangleBox[{10.545454545454545`, 0.}, {11.454545454545453`, 
            1628.894626777442}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{324.3511047394165, 
           352.5448979591837}, {-106.16331394242675`, 98.1976168210897}}],
         StatusArea[#, 1628.894626777442]& ,
         TagBoxNote->"1628.894626777442"],
        StyleBox["1628.894626777442`", {
          GrayLevel[0]}, StripOnInput -> False]],
       Annotation[#, 
        Style[1628.894626777442, {
          GrayLevel[0]}], 
        "Tooltip"]& ]}}, {}, {}}, {}, {{{{{{{}, {}}, {}}, {{{}, {}}, {}}, \
{{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, \
{}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, \
{}}, {}}, GraphicsGroupBox[
    {GrayLevel[0], 
     StyleBox[
      LineBox[{{{0.5454545454545454, 0.}, 
         Offset[{0, -4}, {0.5454545454545454, 0.}]}, {{11.454545454545453`, 
         0.}, Offset[{0, -4}, {11.454545454545453`, 0.}]}}],
      Antialiasing->False]}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0.4545454545454546, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{3.5618869144444723`*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Kapitalisering varje m\[ARing]nad (12 g\[ARing]nger per \[ARing]r)\
\>", "Subsection",
 CellChangeTimes->{{3.46755343384375*^9, 3.46755344325*^9}, {
  3.530871168587676*^9, 3.5308711840481305`*^9}}],

Cell["\<\
En tolftedel av r\[ADoubleDot]ntan l\[ADoubleDot]ggs till varje m\[ARing]nad\
\>", "Text",
 CellChangeTimes->{{3.467553452296875*^9, 3.46755347003125*^9}}],

Cell[BoxData[
 RowBox[{"1000", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["0.05", "12"]}], ")"}], "12"]}]], "Input",
 CellChangeTimes->{{3.46755349846875*^9, 3.467553550546875*^9}, 
   3.467553585796875*^9}],

Cell["Kapital efter k \[ARing]r", "Text",
 CellChangeTimes->{{3.467553621765625*^9, 3.46755363403125*^9}, 
   3.467553902265625*^9}],

Cell[BoxData[
 RowBox[{"kapitalm\[ARing]nad", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"1000", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["0.05", "12"]}], ")"}], 
      RowBox[{"12", " ", "k"}]]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.467553660625*^9, 3.467553661765625*^9}, {
   3.4675537004375*^9, 3.467553737546875*^9}, {3.4675538803125*^9, 
   3.46755388246875*^9}, {3.498805680953125*^9, 3.498805685140625*^9}, 
   3.4988057835*^9}],

Cell["J\[ADoubleDot]mf\[ODoubleDot]r modellerna", "Text",
 CellChangeTimes->{{3.5308710228196726`*^9, 3.5308710576887674`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"kapital", ",", "kapitalm\[ARing]nad"}], "}"}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5308706925356474`*^9, 3.530870764617855*^9}, {
  3.5308708309824905`*^9, 3.5308708529126835`*^9}, {3.53087097829122*^9, 
  3.530870993458737*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"1000.`", "1000.`"},
    {"1050.`", "1051.161897881733`"},
    {"1102.5`", "1104.941335558327`"},
    {"1157.6250000000002`", "1161.4722313334678`"},
    {"1215.5062500000001`", "1220.8953550254191`"},
    {"1276.2815625000003`", "1283.3586785035118`"},
    {"1340.0956406250004`", "1349.0177441587443`"},
    {"1407.1004226562504`", "1418.0360522260398`"},
    {"1477.455443789063`", "1490.5854679226443`"},
    {"1551.3282159785163`", "1566.8466494164977`"},
    {"1628.894626777442`", "1647.00949769028`"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.5618869483740377`*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Gr\[ADoubleDot]nsv\[ADoubleDot]rden", "Section",
 CellChangeTimes->{{3.5618892982617226`*^9, 3.561889309602777*^9}}],

Cell[CellGroupData[{

Cell["Kapitalisering n g\[ARing]nger per \[ARing]r", "Subsection",
 CellChangeTimes->{{3.46755343384375*^9, 3.46755344325*^9}, {
  3.46755384684375*^9, 3.467553852546875*^9}}],

Cell[CellGroupData[{

Cell["Tabeller f\[ODoubleDot]r olika v\[ADoubleDot]rden p\[ARing] n", \
"Subsubsection",
 CellChangeTimes->{{3.5308712131812167`*^9, 3.5308712348810463`*^9}}],

Cell[BoxData[
 RowBox[{"1000", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["0.05", "n"]}], ")"}], "n"]}]], "Input",
 CellChangeTimes->{{3.46755349846875*^9, 3.467553550546875*^9}, 
   3.467553585796875*^9, {3.4675539406875*^9, 3.46755394378125*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["0.05", "n"]}], ")"}], "n"], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "12"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46755398446875*^9, 3.4675541745625*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["0.05", "n"]}], ")"}], "n"], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "101", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46755398446875*^9, 3.4675542079375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["L\[ARing]t oss plotta funktionen", "Subsubsection",
 CellChangeTimes->{{3.46755453546875*^9, 3.4675545441875*^9}, 
   3.5308712412814064`*^9}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["0.05", "n"]}], ")"}], "n"], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4675544615*^9, 3.467554470078125*^9}}],

Cell["Mindre intervall i y-led", "Text",
 CellChangeTimes->{{3.467554562671875*^9, 3.467554571234375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["0.05", "n"]}], ")"}], "n"], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1.05", ",", "1.06"}], "}"}]}]}], "]"}]], "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Ett gr\[ADoubleDot]nsv\[ADoubleDot]rde", "Subsection",
 CellChangeTimes->{{3.4675559216875*^9, 3.467555926859375*^9}}],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["0.05", "n"]}], ")"}], "n"], ",", 
   RowBox[{"n", "\[Rule]", "Infinity"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49873773040625*^9, 3.498737769046875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Ett annat gr\[ADoubleDot]nsv\[ADoubleDot]rde", "Subsection",
 CellChangeTimes->{{3.561888892623707*^9, 3.56188890146885*^9}}],

Cell[TextData[{
 "L\[ARing]t oss studera ",
 Cell[BoxData[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     FractionBox["1", "t"]}], ")"}], "t"]],
  CellChangeTimes->{{3.46755494690625*^9, 3.46755500846875*^9}, {
   3.467555515671875*^9, 3.46755554709375*^9}}],
 " d\[ARing]",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"t", " ", "v\[ADoubleDot]xer"}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.4675550209375*^9, 3.467555046859375*^9}, {
  3.467555131625*^9, 3.46755518978125*^9}, {3.46755556253125*^9, 
  3.4675555708125*^9}, {3.46755560128125*^9, 3.4675556030625*^9}}],

Cell[CellGroupData[{

Cell["t\[Rule] 100", "Subsubsection",
 CellChangeTimes->{{3.5618889762695494`*^9, 3.5618889949110713`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox["1", "t"]}], ")"}], "t"], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "10", ",", "100", ",", "10"}], "}"}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.467555270609375*^9, 3.4675553281875*^9}, {
  3.467555626859375*^9, 3.46755568209375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.5937424601`", ",", "2.6532977051444204`", ",", "2.6743187758702947`", 
   ",", "2.6850638383899725`", ",", "2.6915880290736056`", ",", 
   "2.6959701393302256`", ",", "2.699116370976195`", ",", 
   "2.7014849407533372`", ",", "2.7033324610581952`", ",", 
   "2.7048138294215263`"}], "}"}]], "Output",
 CellChangeTimes->{3.5618870860422726`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["t\[Rule] 1000", "Subsubsection",
 CellChangeTimes->{{3.5618889762695494`*^9, 3.561889011883436*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox["1", "t"]}], ")"}], "t"], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "100", ",", "1000", ",", "100"}], "}"}]}], "]"}], "//",
   "N"}]], "Input",
 CellChangeTimes->{{3.467555270609375*^9, 3.4675553281875*^9}, {
  3.467555626859375*^9, 3.467555708859375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["t\[Rule] 10 000", "Subsubsection",
 CellChangeTimes->{{3.5618889762695494`*^9, 3.5618889949110713`*^9}, {
  3.5618890281694183`*^9, 3.561889031928922*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       FractionBox["1", "t"]}], ")"}], "t"], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "1000", ",", "10000", ",", "1000"}], "}"}]}], "]"}], "//",
   "N"}]], "Input",
 CellChangeTimes->{{3.467555755125*^9, 3.467555759015625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["t\[Rule] \[Infinity]", "Subsubsection",
 CellChangeTimes->{{3.5618889762695494`*^9, 3.5618889949110713`*^9}, {
  3.561889165367901*^9, 3.561889165367901*^9}}],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox["1", "t"]}], ")"}], "t"], ",", 
   RowBox[{"t", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.467555780515625*^9, 3.4675558051875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Talet e", "Subsubsection",
 CellChangeTimes->{{3.561889197191085*^9, 3.5618892025729465`*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"E", ",", "20"}], "]"}]], "Input",
 CellChangeTimes->{{3.4675558199375*^9, 3.467555828953125*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Tv\[ARing] r\[ADoubleDot]ntemodeller", "Subsection",
 CellChangeTimes->{{3.49873763275*^9, 3.498737644625*^9}}],

Cell["\<\
Kapitalisering \[ARing]rligen och kontinuerlig kapitalisering\
\>", "Text",
 CellChangeTimes->{{3.498737659921875*^9, 3.498737685703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", "1.05", ")"}], "n"], ",", 
     SuperscriptBox["E", 
      RowBox[{
       RowBox[{"(", "0.05", ")"}], "n"}]]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46755426140625*^9, 3.46755443071875*^9}, {
   3.46755449834375*^9, 3.467554508796875*^9}, {3.49873693025*^9, 
   3.498737018578125*^9}, 3.49873707425*^9, {3.498737208109375*^9, 
   3.49873720871875*^9}, {3.4987372391875*^9, 3.498737292125*^9}, {
   3.498737403078125*^9, 3.49873740328125*^9}, {3.49873747453125*^9, 
   3.49873747596875*^9}, {3.498806804859375*^9, 3.498806812234375*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzXk4lAkAx/FpdOFxjUmFmOnQgSn3lOP9hch9Dd4weVk2R2tU1o5NSU+R
o+iQSOmQ4vGIENW6C9Xomla15Zha1BN2Rrmymm3/+D6fP7/scIFvJJ1Go3n8
6H/dInbo0WlSIr4g76NIJCUOXjmqRSVLCe+3GRuMxVLi1kC1atO0lGhwn3mV
80ZKLOMryZNkMoKWNikMGZISQ/73+mXvvxC0AKtRBk1GHHZecVnyYIqoXx0W
N2EmI+5ukKxqzZIT5Veo8PwLMuKMsJbZkrUIc784NRwRjhPaj3vWssyYsBF3
bvxZ+JVwyMo2idXQRb+lsMvx2CTR5rsubfnfbBx7lBOxs3WauFk31GKsaQAj
xZBEfsws4VLduqfz23qkx++d7Fj7naiizwg0LDnYelI96mo9DSdbgj+LOCb4
eL5YVfcQHSz3h2/EemYwz9iWXOU/H2fpg2O3uBbYrc/ilKQvRPgCteaXHCtc
8cpNHHi0GLUXk9uX6GyGQ9GuB2uslTESfm6MY2INg0/l9SwDVezf1/Yyc5Ut
UldPc0+dVoe0slDSRBDQ94xtbAllIBHBGoplgGG58swiHhPFXvFqvEtbkSOo
ZAoCtGCd8I6VVWGPvj0ZDHnjMtCbn+Z8KHUAfWJc35SrA1t9bca6246ouO/y
k9NGPdxzTeMkt2wDW3qiLLGWhYiipBuyBie8KNt3zpG/EocU7lv4dTijtCZG
WrpjNTpz81g9rduh0WRa+iLSAD6fjl2LanBB5lEPRm/hOngGim2H212RVXrh
+JydIRI/l5ilN7ohc5uKi8OUMRh53TaaInfMLy5ScS/aBJnisoHKPz3QOBPV
FhxmitmSTwOx3Z7QYz5rJc3MIfRnTDD/8kJrgfPhOcoS6lphNYIYb2h1jN2v
LOZiwbDLnZBBb1x/UJX6TckatfZ9Xc0xPrBQWOL4/R9bCE0s082GfcAUZsfw
fwUmyzd7rYjzhdIrJ1mnrT0y6mkdS0d8oZq81DWV6YimsteKhbv8EGDxxEhR
3QkVBiGBp0b9ILEeMeILtqPK8qrf+Rge1mhM9U8NuCLued4O7XEeLp65XNbU
7YFunwIj9m/+CNKRpCof9IZ9JFXJ/eIPhixl9CvLF/EK4s0dSQGQXzuY6azF
Q625YkLEVADm5CWDmjoBKHDz3p+5NxATduL65dtJcEftsw2mA5GTG61W/D4I
I+wZN3ECCRteG02Sy8eTwOvf5Ykk0m/W9Qsu8FF13L/aKInECV0j5vxyPhJm
qrXSDpA4wq5Js2nn499nMRJuGonfM3qej07woXLoXeLFfBIPIxfO44XsBKev
+XL0XRIpIpVZO+NQqDPjeGf/INGrTZ93YEsoxl10F7U3kWA+7CttcQ7F7Trh
bt12EgqVA2/J8FDYHTexevqYBCIMOd35ofC0uSoy7yURlc/p+jCPwqa9Pilh
/SSsAiRBVYspMG7ITU5ISFjEvn+WokahRzMkf3iQxONNDbFrV1DY+ZkZXjhG
IuS0YUoBlwLY7cxO6Y//ow7PAwSFlYF7Or+Mkwhi5yhHOFEYaus28pgiEX3y
ks8WHoWu6f39STMkrCt29a4PplDO2XCqdJbEqpHAYN1wCtkRrx3FcyRcrlWL
NKIpCArTpuRyEkM1daZK8RT+A0gvLK0=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjXk4lAkAh6Vi9ZQcQ4iYtOUcTaJx7fdDh2sc45ivh+zMt3RIpOQotrYe
KlfRylGPEhsiYbFEjKY17UYqrcoqpkJyzbCFRbPtH+/z/vH+8dKpSE6ovJyc
HPsr/9s9ZPc6eTkJkV5ULFjyTEL8eCNJk5cgIfqo4JS0lxKiZqBauWVWQnw8
ltiv3S8htPaskMVLpURFqNjCfkxCDPk39UvfThNhJcpJ1xSkxOldeoXi32eI
itm6AbGdlLhrIjZsS5URjZ3xkUGlUuLnuFqaIFURddySR9T5KULnUc8mA0sa
bBPmz5/J/YdwTk1jHlTVRUNrkduRxs/EfY5RsvZ7Oj4OCT/7KswRd+qGBObq
G9HPGC6ufzhPuFa3RYn+NYbFwGkv5RtfiCr5uUhVawYSVhqWZyosQaYgcLSD
wUQN27kg9508DDz+eNW9zhKFvKXZZ7qW4bL84EQNywqni0pfFOkpglq+uvU5
YxtkWmW2B04qobYgQaix1gY/7eerGKqtxBiVO8Fg2kFFq+eTk9FqnDh6/3mK
oQPWXr0j6DFVhaQyX9xCEAjPrZxaoKkjBoGqSmVAlKlNtY6JBq55HV7td90R
gn3B5/K81sAuus8gtcIJlx+fXCt8qw351q4L7246Yy8r9kFqqi4c9HXUjOq3
I6K3JCq0WR9NbsmMBMEOsE1LirOu0BFyNb5U2rATpn2KWNhriFNLH1j5tu+C
o6ty8/qMbyG6mG3Q0+aC408e13SINsFn5Nwv+xtcsWNopNPXwgSe3G6HYaEb
LLiDW8pUzREzWmx59p47uswnFcaXb4Zadqe9eocHmqxpVcZdTEiVtAYq/2Lj
+qbqO3ltlpgvHhk42OkJzmTT81NCK8T5q32i9XqBrjp2YdGUBRVN/q+RYd5Y
w/+u7G2pLZYPuzYGDXrD91Ds62ekA2qd3jxsDfNBv0Gv/4ILEMe0Pms57IMv
sUKXqilHfL5l46UXwcHeknsJYVJnnP9Nrn3NGAcsV9rI0SU70VL2Uil/ny9u
9mpo6du7oGJjEDdr3BeiJ09Nyj+4ocq6yPdKmB/MjuY8SClnI+Jp9m6dKT+4
rHhxuyfRG50+eWb0WH9YmH3kWXtw4BTKq2RN+2M25lKjmrEfDi/ttmmPD4DH
NztbN4QGoHarUnTITAD63D6IObUk8ty9T6Qc4eKHrF3HllkGgjXulLZxlov2
cGGmPjMYY/Q59+5oEgeEGbmjRTw85pZ8kcWQGFc/PmhczkNVun+1WTwJ4Xj6
7oM1PETPVWsmJ5I4a3u7eUbAw8KTMDErmcRiyZ5s6zc8rDrVF1OQQ6K0SUfE
1uaD8aa18MBdEuG38uTGMvlQoUX4XW4mkSFcMZyZx8eUq66isIUEZ7qZblfI
R31dXLiukEQovTovp4qP79KZ27oeff2/v9Qc18WHp31Rx9bXJBx1tmi+XkVh
8xGfk/x+Ek83LE42aFBQK5UxM8Qk7LYlWeXqUehRD8oZHiRxcahNiW9OIXiU
RuVPkDCbFMnpsimALqSJJCRMLX0odX8K67lRoukpEq88L9kp76EwdL/TjD1D
4u/vPQKVD1F4OHuiP36ORIDhn8XqxyjcYphk3Zwn8bWG6yZSSAt5ub17kcQE
raDGKIlCZH7yjExGol5BFs9Kp/Afjoo4dA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 100}, {0., 148.41314410981948`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5305094227372108`*^9}]
}, {2}]],

Cell["Vad blir skillnaden?", "Text",
 CellChangeTimes->{{3.498806961921875*^9, 3.498806977453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{
       RowBox[{"(", "0.05", ")"}], "n"}]], "-", 
     SuperscriptBox[
      RowBox[{"(", "1.05", ")"}], "n"]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.46755426140625*^9, 3.46755443071875*^9}, {
   3.46755449834375*^9, 3.467554508796875*^9}, {3.49873693025*^9, 
   3.498737018578125*^9}, 3.49873707425*^9, {3.498737208109375*^9, 
   3.49873720871875*^9}, {3.4987372391875*^9, 3.498737292125*^9}, {
   3.498737403078125*^9, 3.49873740328125*^9}, {3.49873747453125*^9, 
   3.49873747596875*^9}, {3.498806804859375*^9, 3.498806812234375*^9}, {
   3.4988068478125*^9, 3.49880687915625*^9}, 3.498806923859375*^9, {
   3.530509450051942*^9, 3.5305094680677433`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjnk41Hkcx39LciW3RWKQI5nxm0SE/X6SFsl9zE+RSew6WleTNYv8aJOi
wjpyPJokR0njCEkMylGkcjzTsc6wIpEtdNnZPz7P+3k9n+fzfn00/cPdAoUw
DPMWzP/pEOCtLoQtIoylb8kc8ECnis8oMeMEjKu7JcR7opqx6s0tqwLuLpFR
1/dCyr4S6+ylJYRxT918dYqBpj3vjS5NLCOsfL+v385DKMl269XxhysIG3R2
76n2Q00G49ptqesIU/faqXo+EGXF1CnwUkUBa5xlyo9EIAlfjqJBv4BrK5hs
xUiUuDdNKUtODLAfNhZIOEaiMIkA5aA8AW+C7bebI5FdobyaTJk4YBeLMoWL
otDX1ihtZrskYEwdbCmIhQJE6TuxNWnAdt9KKaTEINXHw3oUYwXAEgZVbm0m
kWrxN/c8NwFniuV8ppJoC3sbKRelACSF+t3XkURqelH8DdWC/fW/On5JI5HG
aalzszRFIHPt4xMlE9E2C5u3NQZKgH2pzJqWSkK0m9WV+7WUgWwJnurS/hPt
S02jh8qqAXn8gWJbTgpqd9NPVnmjCaSy6IUAqwx0+840jyqvC7zjPcUOObnI
vrotsuvzdsDebrEZzihCXKG1cFlTGvCeFD1Iv3cNZfAOz/XS6EBGzf+jPVqO
KAd7XgyoGwO8OmnUyapCOUJTCzVmJsBLkqF/bK1B/iLSrYO03cDZoXJaOaMe
1RXFdShuMQfeWXO/itEmNO9/eYFGtwDOQs2EthYPxZ5oHzyvbQWwvPApXawD
LVblj7cgBBz74PLksk4UDYdlxSsAePpcEUb7I3TFOULag7MXKBvXTzrp9CML
1mtKaqU1kI8DL8HB50iotf/SZOk+AFMbu3yTIWSloSqnX28DFJ/xqcVnfHTv
QDItjrcfyEDRYwmTr1FAIbt8qfFnSNfZx/6jYAyRwg9M3Dttgett3tRsO4m6
0rMpw212kK7b1sPRmEausynXgxrtgSvZeTfUdhY5MQasZjoOAEjEejQZvEPR
cyXGZ+87AIeboltfsojksvss5XsPQkQsW+8ldRktiSuPVQ05Aj6SNDgi/Al9
KZkdC+1zAqi9T0sUWkMxnnIfFV46AxZt+xLjfkUySkdrw0NcQIwfp3XFHgOR
Gfu7PlMuwLQyGWkPE4I665Hu1hBXsPt3zXJAWgRi6KZnjWdcgfM9fJI6JAqf
bpg7bw1zA57Ibw36eyThXAPW+eO8G3Ce977f3r8ZWir44vm/ugNpYHXoNlMW
KnV9GJnv3AEvM3wf/kgeuKbX3AtCPMBMRlgn10MJwp5le6t+8ID09WPpJ8NV
oM81z1Dzd09wkcpYvDWhBtaBzCqzZU/AjQqZC0CBCOEB8062FwTJWZTORmtB
3S5xVsCKF6x6qU6s9GyDPAeX2PNRDIgoKJ7zZOiB2TvrNN1VBjSOP5HbwDKA
ec01hwEWAdysF0nVDVR4wij7vh5NwOX2ZW+NLipwL3hWG7IJ4K3Er2QNU4G1
Vq2UHE+AS+Ge7NyPVPj6NGTcLJkAbJdu12djGkiRr6OLcgkwS4sJtqyhAW2k
9WpwEwHd1ob07jojkFEI88hpJmD1aEGQ6UMj+GCvJtrRQgA5z39TOWQE9Xdi
jqt1CO5LNzXXfDKCny7Qd/c/JkA5e2lHhhoOTpbXenf9LehTUot45IcDHuWa
cHSUgKeskXKbIBzkytfpF8cJwJlKOh0ROAzL++TOTBGgX+W42JuIw5E5Bf/8
BYFvZGKTQgkOoNmh0LVIQKOdeyG3EgctRmTX8gfBf6GapOsdHKbb+wwdVwhI
P3HEkdOJQ/dq7Ch7jQB+o7yFUz8ON2gGmaVfCLBj157B+DikBfBtBr4JfPHH
jBrGcAjPT15ZXxf4cg7siZrF4T9Ue3fN
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{1, 100}, {0., 16.91189922638887}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.530509434678405*^9, 3.5305094507600126`*^9}}]
}, {2}]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Exponentialfunktionen ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"a", " ", "x"}]], TraditionalForm]], "None"]
}], "Section",
 CellChangeTimes->{{3.467551658546875*^9, 3.46755168175*^9}, {3.498735506*^9, 
  3.49873551153125*^9}, {3.5308716140004654`*^9, 3.530871614351465*^9}}],

Cell["e?", "Text",
 CellChangeTimes->{{3.5619640254264574`*^9, 3.561964032555703*^9}}],

Cell[BoxData[{"e", "\[IndentingNewLine]", "E", "\[IndentingNewLine]", 
 RowBox[{"N", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.5619640410109577`*^9, 3.5619640826476245`*^9}}],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 FormBox[
  SuperscriptBox["e", 
   RowBox[{"a", " ", "x"}]], TraditionalForm]]]], "Subsection",
 CellChangeTimes->{3.5619641415844636`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      SuperscriptBox["E", 
       RowBox[{"a", " ", "x"}]], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", " ", 
         SuperscriptBox[
          RowBox[{"e", " "}], 
          RowBox[{"a", " ", "x"}]]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "1"}], "}"}], ",", 
      RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.46755015178125*^9, 3.467550228078125*^9}, {
   3.467550268859375*^9, 3.46755028784375*^9}, {3.4675503195625*^9, 
   3.467550584*^9}, 3.467550822765625*^9, {3.467550874578125*^9, 
   3.4675508755625*^9}, {3.46755114996875*^9, 3.46755121596875*^9}, {
   3.467551905484375*^9, 3.4675519439375*^9}, {3.498734463765625*^9, 
   3.4987345265625*^9}, 3.498734557453125*^9, 3.498734785359375*^9, 
   3.498735174734375*^9, {3.498735216203125*^9, 3.4987352415625*^9}, {
   3.498735540546875*^9, 3.498735574234375*^9}, {3.49873564446875*^9, 
   3.498735674515625*^9}, {3.498735716734375*^9, 3.4987357250625*^9}, {
   3.4987357588125*^9, 3.49873576328125*^9}, {3.530509506817618*^9, 
   3.5305095177127075`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 0., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, -5, 5, 0.1}}, Typeset`size$$ = {
    360., {117., 122.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$4615$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`a$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$4615$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot[E^($CellContext`a$$ $CellContext`x), {$CellContext`x, -5, 5}, 
        PlotRange -> {-10, 10}, 
        AxesLabel -> {$CellContext`x, $CellContext`e^($CellContext`a$$ \
$CellContext`x)}], "Specifications" :> {{{$CellContext`a$$, 1}, -5, 5, 0.1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{415., {168., 177.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.530509480164953*^9, 3.5305095191278486`*^9}]
}, {2}]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", 
    RowBox[{"a", " ", "x"}]], TraditionalForm]]],
 ", derivata och primitiv funktion"
}], "Section",
 CellChangeTimes->{{3.530871849070465*^9, 3.5308718679744654`*^9}, {
  3.530872019051465*^9, 3.5308720196914654`*^9}}],

Cell[CellGroupData[{

Cell["Derivata", "Subsubsection",
 CellChangeTimes->{{3.530871961300465*^9, 3.530871964147465*^9}}],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   SuperscriptBox["E", "x"], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{3.5308718927694654`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    SuperscriptBox["E", "x"], ",", "x"}], "]"}], "==", 
  SuperscriptBox["E", "x"]}]], "Input",
 CellChangeTimes->{{3.530871908576465*^9, 3.5308719391134653`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Primitiv funktion", "Subsubsection",
 CellChangeTimes->{{3.5308719728354654`*^9, 3.5308719797714653`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   SuperscriptBox["E", "x"], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{
  3.5308717991234655`*^9, {3.530871882009465*^9, 3.5308718864494653`*^9}}],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", "x"]], "Output",
 CellChangeTimes->{3.561887166474841*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Arean under kurvan ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["e", "x"], TraditionalForm]], "None"]
}], "Subsubsection",
 CellChangeTimes->{{3.467551658546875*^9, 3.46755168175*^9}, {3.498735506*^9, 
  3.49873551153125*^9}, {3.498803727765625*^9, 3.498803734640625*^9}}],

Cell[BoxData[
 RowBox[{"exparea", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    SuperscriptBox["E", "x"], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "x"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.49880374103125*^9, 3.498803878234375*^9}, 
   3.498803989390625*^9, {3.498804023453125*^9, 3.49880410121875*^9}, {
   3.5308717281514654`*^9, 3.530871742079465*^9}, 3.561889395542075*^9, 
   3.561889447661007*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["En plot", "Subsubsection",
 CellChangeTimes->{{3.5618894788294077`*^9, 3.561889481418974*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", "exparea"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Arean f\[ODoubleDot]r  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "<", "x", "<", "4"}], TraditionalForm]]]
}], "Subsubsection",
 CellChangeTimes->{{3.49880447840625*^9, 3.498804497234375*^9}, 
   3.498804535609375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   SuperscriptBox["E", "x"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.498804196765625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  SuperscriptBox["\[ExponentialE]", "4"]}]], "Output",
 CellChangeTimes->{3.5618872159886065`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Arean mellan tv\[ARing] exponentialkurvor\
\>", "Subsubsection",
 CellChangeTimes->{{3.49880447840625*^9, 3.498804497234375*^9}, {
   3.49880453284375*^9, 3.4988045430625*^9}, {3.498804586890625*^9, 
   3.498804601203125*^9}, 3.4988070048125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", 
     SuperscriptBox["E", 
      RowBox[{"-", "x"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.498804342296875*^9, 3.498804344953125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAASmXo0cDpdT7hwOkVAADwPwRDGnDf
GVQ/SPL3QQcF8D8zn5icsxlkP2nhhAIQCvA/S83Xsp0ZdD9+lBdDJhTwP1dk
972SGYQ/BE8R0GUo8D/dL4dDjRmUP+fdYYkxUfA/oBVPhooZpD9JvSEC/6Pw
P4EIsyeJGbQ/2Uk72I5O8T9YWaGv8PHEPzv96nQy2PI/C/+BXEcezz9CGet8
Q2f0PyVR7ujDi9Q/7wjZF4gO9j93zjk/mPTZPz73g6CLAPg/F7QR3gEB3z9j
35V93/j5P7biQ8zPPOI/+aP4MERK/D/Cap0bWezkP7+tgE1UxP4/9SY9D61t
5z/Pcz2R3KIAQAL5qxAbJeo/HkzcADEcAkA2/2C2U67sP2IodGmQmgNAzIQ0
zsYq7z8Btw6mAjAFQB+Q6/mp7vA/bX6IRg4NB0Dr99/e1TDyP/gb2DTy7whA
pOq7yg6O8z9wypAtHSgLQA4dp+/k5PQ/9LvE6w2HDUCMabVmoCT2PyQBrJvA
7A9A9kCr5Gh/9z8kqBKMaV8RQHQyxLQWw/g/PCii0R7NEkDfrsSL0SH6PyF2
NT5qexRA+2rUmyl6+z/6gbeOR0cWQCtBB/5mu/w/OKwcFJUYGEBHoiFnsRf+
P1jt8RsOPBpAdx1fIuFc/z9ZwrXm/GYcQCzsVQvXTQBAIG5/uoKzHkATD/AI
xPoAQHWNOSf7syBABL+bryOcAUDLeN88ihIiQGs0u9kJSwJAs6hECQKvI0Cr
SWKgvvYCQFpeieCyZyVA9esaEOaWA0A7NbOoaSUnQLVTRwOURARA7Ux4JdYx
KUB/SIWftOYEQF8odSEvRStAId1K2KOFBUAK1aGTiHgtQDo3hJQZMgZA21rL
Aq8HMEBcHs/5AdMGQMbHPHIbVzFA9cqN4nCBB0AKosDzw+EyQJgEXnRSJAhA
asETjudxNEAT3rWiAsQIQMgUNK9WGjZABX2BVDlxCUC5++RyuQ04QACpXq/i
EgpAFNt90n0HOkBymq+NEsIKQLc7mEqUWjxAvSuICBFuC0Dh7fGJftY+QJnn
+rb2/QtAi1gvJr6LQEDrzWmI
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjnk41HkAh5Fb/BzFTjKeCZWjtCUlaz/fLora3SalHsLqQrXl2CcqaTwG
JdLM1FrkHMpKEwa7jrbNLEvOEEq0kjAYFSZHM9v+8T7vn+/L8DvLPK6koKCw
9wv/2/X4cNvjkZ+/vXDZpkMul0B5+7Jz/TR3iG2t+VPTEmzISE4roR1DXYt1
6phYAremruI7tFDskDvNve2SwOOYtJpDi8a5iyo/ygQSvLKN3Z5A48HB23Ra
5CtB5tLvY67R+FjjFX8yWzQBlnrJqqs0ITJx8KP/rXEcOpwlmHwvwmazxowg
azG05CwvF3oLwC800/hqBBb7JoZr4jvAeTbhfMn+Hc43OyB5qgcBhDj2uL+F
kVCvT1GxH5WGx89ml71B2cD2xpZvBhCmWiMyow3gSeAd48Njg/CZpxNL/mtM
r3SiCs+8Q5PVh6TK2j4ozRboGluMQrz/U0vkzl7Yy33L9j8Yg6qdsYSiv0Bj
tF1zrZUExQurF5ytumGaJJ7Nn5hEuLZ+jo39c4il/X2d6z5gvePOCN24DvBH
Kxt0Ej8iuFFtgfXiGXRM7koGB6cwKpX2fzrYhusBpScyzWfwvOFqZK5GK2ZI
waB/pBTBL+JiS8OaELpeJDSs+QQnWwP/EMen6H8gim9jzCG3+kz7Ifk/mA/s
SLW8MI+oHgbLc74W1lvVZCcqF6DSY1h3E3/DJZtxsshIBnpCxruV0TU4b+Kz
4l8vOeqitBKfqz6BzdgBra69CmTW3FTTpfAxDKhJddGcAonNZfmvu/sIyn+m
CszSFEm5QchksnsVTtlV9mi4KRFf51S+RKkCBbv9Mh/NKJG8EzER/uJyTIuX
6Q7dXkTOD9UpNtHLULrfZRFvhzJZcs8gyZspROQudoZwSJl0cNli/9piMF65
duewVci4QrdWtE8RtmyK5tHWq5JQB9qh/EkBvOgts4rtqsTCCNrtMYWYbkgY
OMdSI57VnNn7JgVIVvYOZZqrE9e8gLxZzXwY9JVmK4nUSUD6pqGlVnehEsFy
dwjSIGmjF7dY7s6FQr63YEBfkyROXVmdVJCD4BRBgv4TTVL/km9doZONaus4
db2ftMjGoqwWz5RM6LkG20TpLCZh0xuS1grT0bumtT28ajFJOXhfT98uDQ/T
YT7orU18Y01CU7RTcERgr2ci0yZuR2XZ5cuScYWdxer9TYe4miz3uLnqNgqH
TVJ19lCk/MzpWZcLPMTdYfv2fUeRN7KyTsMQHo4xxy0e7KOIUX3W5uFTPCyv
qnq414MijyafJnKO8HDthmftdT+KuDEFR1W28uBv/+t7zXCKvKpOG/VT52FF
9JJdankUucVku0uTuZBtvqTddY8i7NFm5lIOFz3jb57lFVDk8/h45cZ4LpI8
So44F1Hkh1UuTyMiuJBbMUPYVRQxziiptfLjorftRvqidopExnSFSK25+D1G
erS9kyKtjk4VjhZc8Bx9LHO6KUIPU/WOonPhlrtWuK2PIl97BFUY6nFREdZU
zxqhyOU/wgWeMxzcXrPxxr4xikzyG+qLJRwEDaS5MyQUYbgObFk8wsHqPaf7
H0996fUup9e+5EBZsYOfJKVICpWWuLKTg9eljoG+c1/+4lKYV5s5qArMsV33
mSK6DJeAiToOfjHVmpbLKSKTtbYd+IuD/wDtSEqR
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 4}, {0., 33.09174039184389}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5305095727202077`*^9}]
}, Closed]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["E", "x"], "-", 
    SuperscriptBox["E", 
     RowBox[{"-", "x"}]]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "x"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49880438925*^9, 3.498804390265625*^9}, {
  3.5618896211157446`*^9, 3.561889639742025*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lite om ln x", "Section",
 CellChangeTimes->{{3.499145977140625*^9, 3.49914598284375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Log", "[", "x", "]"}], ",", "1", ",", "2", ",", "3"}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "3"}], ",", 
      SuperscriptBox["E", "3"]}], "}"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", "/", "2"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "4"}], "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "E", ",", 
        SuperscriptBox["E", "2"], ",", 
        SuperscriptBox["E", "3"]}], "}"}], "}"}]}], ",", " ", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], ",", 
    RowBox[{"PlotLabel", "->", "\"\< ln x\>\""}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.49914209625*^9, 3.49914234421875*^9}, {
   3.4991424904375*^9, 3.499142815703125*^9}, 3.49914522790625*^9, {
   3.499145382015625*^9, 3.499145409953125*^9}, {3.4991454434375*^9, 
   3.4991454478125*^9}, {3.49914548478125*^9, 3.499145510484375*^9}, {
   3.499145550203125*^9, 3.499145753453125*^9}, {3.49914578559375*^9, 
   3.49914581740625*^9}, 3.49914585378125*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtiQs01Ikex2fGzPy90qLxfmTySl2P+U/UFr9fEdVm5TGl7m7RsdpikzKy
edRW66ohNqXClhZhsXd6YFfWChvyqpDxaGP2MtTGjEdmdoy57jn3e87nfM/n
fGwOxwR9QaNQKOHL/O8vO5y6SaVIgfL/NSyqspnmUnjz6bb4wekzIFty9JN5
SMEoap2jc6sAQjTOVj6NlUJZuUDnkF4+mOquOxM7JgWz0+fmJyXlUGh5wbCl
QwaplNLNcbsew89I+p7MmwVrojGBwXwGRhd4/M7aWajvcvme9fIZnPr9dJHj
4CxkWoTEivPbwXlXHe2NyRyschhfeuLcCcXB23/7JGcOXu5ofEplP4erkfs2
2n03D9RKMVVk3gNR6YlOotQFkPCzynsrRNDa9f1+8t4C7LnfdHKCOgD2+g1p
V35fADetiWrB3gEQX6dLfOhyUFCrAr9dGoDQOxmF97+Rg3cJzSxi5xD4PLhj
IUhSQO9Qf1pd+2uwEjXpeZ1Ugqbvnxm/+owCZ/DAHxcylWCsKkjviByF7cOy
yrYKJRydFcfWpI1C9Ii1P0+ihPNpg9bsjlF4PJEoiP5sERouu9gFB4ohVEFq
5vmqYLso5kU470+4alZElZupId/sSevC9jG44Lztb1E4FW0/UjzX7puA57bk
es4JKs7xQ+yPTU+AlbntQUEKFYNqz794qDUJtQSz0TOPisF576uZXpMwM9J2
6Yfe5V6z5/JPxZMQnh1oGu1Hw/6q9JI1sW8B5GEb1es10BJSq1IU70D55Gy8
nZyOH8uOHVvom4Kw0OjxaoKBkUFVAuH7KWieCt27w5iBLxyEa0IZ05BuznGP
cmegvv641SnuNFjw/zMvjGOgxT4/zaHvpmGL407+FhkDf240M2i2lULSFYO4
4LdMXIzeej7plRRUB4pjvxnWxITuE8P7bGeg4e3hRLcUXVxd3tjfETQHTKSf
l7t/hPFbRiZeR3wA54cMwV07Awz1/qpPgyOHapvgvLkZQ3yalazTXaUAjexV
UQESFgZtsNMp4SpBqLbZFlJrjPVzGzN4SYvAjikUhT0yxVVSmyDTZhUY/avn
oXuxOe433WPlObUEUbkBOdVxlljD+8vEcEYNF4Ww0SvKGl19Df2dkimoHvlV
6lGwGvnxdjv9ZBRUeT48siHVBm9w8if0PqfiwfzD9dVn2Vhr2tMgaadijLzG
JOPLNWhRIg4jnWko5rUESSJssezEbFNZNg1zCGeXe5/ZYUJr44H8GRoqqz9e
Wettj+6fNg8d9NPAxiPU7kAvBywN/Xpz8h0N3GR0/KqXoyOayPpq+VMaKDPh
yDNXrMWqskUDYhMddS2Fnl8wnfDmraT7ylQ69lv1pmZOOWHVjpZkdicd6ewH
//Z8uw6tP1yyzzJi4CjbfRj71uMKt4upvaEMVJ/WLy99/A9sCrz2ruUGA891
3dt/rcoZeVvtW2UDDLzPFuv03XbBPdrarB4WE9l177o6/F3RU7iX2hHCRF19
g6Ojba5oo6gwaM9iYleEzrcFnm644tWR9x4tTNz6y2iWzWM3fJDZyiuiEJiu
K7Dyd+Vg2u6Rza+4BMq1wlROhRwMSclR1kcSyNI06HhmTaLxesO6jDwCtRk3
LFjXSBzY5JB7t53AmjbaIYscEsNSNtTxOwiMuHL87pqbJLYod7fu7CTwN2Nf
e04+ibu7y27LugiMc5p3CSgiUb/zlg++JPBNQLD3pUckmqz1/XpAROCj3JXH
VL0kBlRbFyvHCAw/lFhB7ydxHUtLv3OcQD1byZTOwHJPuHzktoTAo5X1p8xe
kxjdFtmLkwRaNXyV7DFGIrNeXXnxLwLTxtqzYudJ/OXZ2QjNWQI3/OjRk7BA
4umY2UTRsouPF7LOKUh0i/dJKZ0j0FN+JveKisShl5neOz4QOKPtVFTO4GJ/
gfeLVAWBBd3Xxx8QXDzuboZ7/ybQ/xp1ba0WFysPSm/ZKQkstRyobF3BxeHI
Cr3mRQJ5Yh9p90ouRjXlrs1WEUgrEXL69bkoKb/lcniJQGGUBf8PQy5++c/K
1W5qAj93TasZY3GxQWdwUb3s/wVJ87s7
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvfvX4QP//7MfYACDD/ZSyhuz/+izwfkV3vPEfsaz
wPlrp014+6iQAc53vHY1+2PPz/0wvsLd8y+/R32C869v/Hx5n+RTOH+N5fz0
bwqn4Hz/sA5z5uZL9jD+qYyn37oOvoDzdzgYuxXN/gzny904zGdX9BvOb9Zz
+nUjkdEBxv99sL5M9QcLnP83amlh4x0OOP/Aq6RqwzoeOJ/NgaXph5kAnK+3
mbV7oaoQnL9NMXj2l0/CcD7zZJFs/+eicP6G/4pOIbvE4Xyl/MU3ErZIwvli
7Zc3my2VhvOzZ/lP21YiC+e3bLC3sMuWh/P/P9j7wXyBAsL9tpvTTdsU4fy4
OUn7ttUrwfn5P7ZL9GYow/mPQo8HPU9RgfOnsevpL4tRRYTPNiv+Xc5qcP6h
dMbzgXbqcL6lWN4kOw0NOP+jhNGPfl5NOJ9HdoNtKpsWnH9d7kpb/zsEn0Vp
03rbV9pw/kMlszsOV3UQ/isXXL1ity6c33BuWeSUrXpw/kalR9xX5+kjwnPP
63NnfA0Q9gsKZT48ieCfS+FuXWBrCOc77nw4QXE3gt/D0y3na2AE5//gTPir
tRjBF+UQOnNK3hjO52KdLiM6BcHfMos/6+8VBD/WoGP7U1ETOB8A3+76Qw==

     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvfvX4QP//7MfYIAABynljdl/9Nng/ArveWI/41ng
/LXTJrx9VMgA5zteu5r9sefnfhhf4e75l9+jPsH51zd+vrxP8imcv8Zyfvo3
hVNwvn9Yhzlz8yV7GP9UxtNvXQdfwPk7HIzdimZ/hvPlbhzmsyv6Dec36zn9
upHI6ADj/z5YX6b6gwXO/xu1tLDxDgecf+BVUrVhHQ+cz+bA0vTDTADO19vM
2r1QVQjO36YYPPvLJ2E4n3mySLb/c1E4f8N/RaeQXeJwvlL+4hsJWyThfLH2
y5vNlkrD+dmz/KdtK5GF81s22FvYZcvD+f8f7P1gvkAB4X7bzemmbYpwftyc
pH3b6pXg/Pwf2yV6M5Th/Eehx4Oep6jA+dPY9fSXxagiwmebFf8uZzU4/1A6
4/lAO3U431Isb5Kdhgac/1HC6Ec/ryaczyO7wTaVTQvOvy53pa3/HYLPorRp
ve0rbTj/oZLZHYerOgj/lQuuXrFbF85vOLcscspWPTh/o9Ij7qvz9BHhuef1
uTO+Bgj7BYUyH55E8M+lcLcusDWE8x13PpyguBvB7+HplvM1MILzf3Am/NVa
jOCLcgidOSVvDOdzsU6XEZ2C4G+ZxZ/19wqCH2vQsf2pqAmcDwAa/8m3
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvfvX4QP//7MfYAADDgcp5Y3Zf/TZ4PwK73liP+NZ
4Py10ya8fVTIAOc7Xrua/bHn534YX+Hu+Zffoz7B+dc3fr68T/IpnL/Gcn76
N4VTcL5/WIc5c/Mlexj/VMbTb10HX8D5OxyM3Ypmf4bz5W4c5rMr+g3nN+s5
/bqRyOgA4/8+WF+m+oMFzv8btbSw8Q4HnH/gVVK1YR0PnM/mwNL0w0wAztfb
zNq9UFUIzt+mGDz7yydhOJ95ski2/3NROH/Df0WnkF3icL5S/uIbCVsk4Xyx
9subzZZKw/nZs/ynbSuRhfNbNthb2GXLw/n/H+z9YL5AAeF+283ppm2KcH7c
nKR92+qV4Pz8H9slejOU4fxHoceDnqeowPnT2PX0l8WoIsJnmxX/Lmc1OP9Q
OuP5QDt1ON9SLG+SnYYGnP9RwuhHP68mnM8ju8E2lU0Lzr8ud6Wt/x2Cz6K0
ab3tK204/6GS2R2HqzoI/5ULrl6xWxfObzi3LHLKVj04f6PSI+6r8/QR4bnn
9bkzvgYI+wWFMh+eRPDPpXC3LrA1hPMddz6coLgbwe/h6ZbzNTCC839wJvzV
Wozgi3IInTklbwznc7FOlxGdguBvmcWf9fcKgh9r0LH9qagJnA8AtV3LVw==

     "]]}},
  AspectRatio->NCache[
    Rational[1, 2], 0.5],
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotLabel->FormBox["\" ln x\"", TraditionalForm],
  PlotRange->NCache[{{-3, E^3}, {0, 4}}, {{-3, 20.085536923187668`}, {0, 4}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic},
  Ticks->{{{0, 
      FormBox["0", TraditionalForm]}, {
      NCache[E, 2.718281828459045], 
      FormBox["\[ExponentialE]", TraditionalForm]}, {
      NCache[E^2, 7.38905609893065], 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "2"], TraditionalForm]}, {
      NCache[E^3, 20.085536923187668`], 
      FormBox[
       SuperscriptBox["\[ExponentialE]", "3"], TraditionalForm]}}}]], "Output",
 CellChangeTimes->{{3.499145690296875*^9, 3.49914575596875*^9}, 
   3.499145818234375*^9, 3.49914585515625*^9}]
}, {2}]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", 
     RowBox[{"Log", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "5"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "5"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "x", ",", "\"\<\!\(\*SuperscriptBox[\(e\), \(x\)]\) och ln x\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49914209625*^9, 3.49914234421875*^9}, {
  3.4991424904375*^9, 3.499142815703125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAALj8W6v//B8BLdKESsX2pP2/5I4j5
+gfAWj8CALmNqT+wszEm8/UHwP/XSwLLnak/MihNYubrB8Br1/leDb6pPzcR
hNrM1wfA9KpDKwz/qT9A4/HKma8HwBSZ27D3gqo/UofNqzNfB8AxzkVRtJKr
P3fPhG1nvgbAQl4wx0DTrT/U1AvqwWEFwEcdeFkgrrE/HcBvFDccBMCg51PX
6rm0P7VrxAUP3QLA/+UB/7A4uD9gjDHw2YIBwHfQs5e0rrw/+JJ7iL8/AMAV
rP03wcrAP0YdvDMww/2/Nw3PYEzswz86lWLkphP7vwbsiU91kMc/B9nC8FKS
+L+4wWnw8Y7LP/oGVO/k2vW/jErSuzhU0D/GAJ9JrFHzv0cvj2QwItM/MHvL
MTnV8L/9jK78mVnWP4C/URhYRey//uE9J0x02j9SIICEqDznv797UmwE9t4/
cVUQ1cTH4b9mZkuGz1viP5UXx4LY2Ni/AsjrMT+05T9XZ6mU+bXNv8DQBsUP
X+k/buGXauMSsL9pbjdCdA3uP0JOhpjWYrg/tstZl12Z8T/jdiVejA7RPyX1
otXv4vQ/wFej3kzR2z/0wdDA87X4P5wEHfib7eI/CWcADkTo/D8LiYacxV7o
P+7eeLkQIgFAyHV8iYRz7T8Ts14R1RQEQKWwVy1cN/E/a/ccGbl2B0BAPMAj
EOvzP1dkOevGxwtAAvxuvo5w9j/9TRbX1UIQQJ7R7GYnLPk/xywGYi1KE0Dy
fAQ6rbb5PwAAAAAAABRAEQMnDg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwdk3k4lP0exmcYWyg8XR1L2d6UNd4kWer7S7Y66ryWUIpJlCIk500SEaKF
iopoFJkiIUui4fdMkUihmJSlsVTGkinLeJS8nXNf1319rvu/zz+3lm+Ii78Y
jUaL+N3/MW3sQXdeTAHQ/h9p8uHtf6eGixfCnUH8+ChPiiyKP2Xcdq4I3Nhx
9ceUpUj9v68tnHr9AGgpNkeLsSR592BJq4FSCaSnNezJPCxJOucLq561lMJF
VcLCq1mCVFCfz7kR/BD2JYNZRbQE+fqaTNJRhTKQOy40wWYSpFOStqeGWzkY
yllQf95nkLJ0YzQzXQ6MKvVAx0MMsvmEle6r6xVw+Iqy1BE9BukQ6DYb2V0J
54N2bfIrESdtdiRm8Hwfg+ww64hxqxh5/IIkY51SNXx4cnAi7JoYWdScGHKZ
Ww3sqfpfG33EyGUOZ+2dNJ+AXfx9ddVpOjkKSVPc3lq4eDq3W8KETmpGSzM1
LtZBWIV6TDqdTrpzkl5GWWPwKGt6od9BI5nZtu1Z20kI2j1pvzmKRjYr291z
L+IC94owi1a8gIfMJbwlGE/B9XVkyD6fBbzg3kBUeD0FS97enRuVFvC6q3Yx
irLPQL6HJmcc9QvnKNq7txyqhy9Jrv0sn3kcvsiBYbO6EVwd1P0eef3AKXpS
NcLoRpj02OF6SeMHLnBsDMnhNYKZb6ba1qE53Jfo0P0z4QXklhrKbwqdw47i
jmVVQ01waJVxfNplCq/46cg0ym2B+U7phUvTIrxBTWZZD9UCndWiMz31Iuxi
2fTynPMrWKutm1KTLsJJEVvNh2mvYfPqH2Wa60X4+9TWxXk+rdArXyKzMWYG
D/6t431hcTs8O0hJ2etO4wPBq5nXLdphXsDaq0ybxiP+er65fu2gSQ+4uaNr
CgvdjA48rmmHyqT3Gz4mT+Ffa82Chw68ganHFn7e3yax6oRttDV+C/6GXZYB
bd+xy0E/1lgID8aVu1baNwgxz/vALdENHkTkqDU8ZAvxLveAXLHnPPhEeAZ4
JAkx0y6Irbz8HfTtTHPZ7iTEwX+EF9u+eAcGe2rHMh9M4OSPZ+qyNd/DHb55
1+eRcUx65PU5tXcD4V3pVlYwghPLBOfCqW4IEPrtyD05gp3kTcyztXqgdZmz
ecf2Edz1lJM6erQH1p7RGZ37LsATRjx0TqkXTNu2EAgJsDpDJq/RtQ/ijyic
Wvr5C97kWWWqFcgHVmd6Dnf3J3w74YOMWQwfrLScWqtMP2FG+fxHxzQ+GMyu
9O+V+4Sb5W0vhD7hQ6Aua64CD2H3Z21DWLYfas9rFySvHsJH1oxc9S7qh6N/
TvcFLQzgbMaK2azxAeixeGgZ84qPiwuLWUzxQfCxjzVpvMfH5F/ITkdlEOLv
H1G2iOfjwez9V4ptByFdZ5NNphUf65sVGnKzBiH8ZWl1rOdH/NjffN/nrUPA
ZqtIknq9uOO5c7MJ+xPUyKo+8xR7j2WTE7MbvIfhWJLxrmvB7biOaZmhfGwY
pOKSy50s2nHohq9pgWeH4ektXwdjRjvmfdl5XrF0GKZO3xAdv9GGc+11IvfS
BeCpMrBN40ortmTUe0znCaBTf1eS+Z4WfDiGTugIRiC6aFrlhcFz/OK/Ucnx
x8Z/+zcFRUIlzi/1MNpj/g3u5WiXR3PLAFmTfyiMTsJyRfAsk2kBsZ/BdSmh
M6BUsLuDm98JrPaxA6sNKRBertK8SeuF7FXJsXMffoA+odo/WdsP3JJAlOH1
C07GqB4siR4C5t0USd1kGmqQUxEstf4Ck5cWwaFXdCTPsZOrzBDAhpqrpQ6y
4qgxcnxSmjsKh4Kl9Uz9GGh0wX+P5LdxKLZmTYqzJVCmyHHnv7ongH9VraFf
TAoFDFhlZHwRgo4MZ/iOozRSHI0oW1L/DZZzAu0kkmSQePX35C2Xv8MCJVYQ
NrAIZekzDF77TcKMc613g44cSuVUSHVpTsGHdT5qOvHyyOAHx9Z5cApCPBQU
tXsWo/yuPtvCzGmQ3RZmGLdYAXX5BmbVWc8Az6jt7QmOAoq4oJJ/9vMMFLJg
5ZC3InqiEifxNVoEHiXrFVf8UkRZoW4qkktmITLhdmxPoRIqrVkU2JE/C3eH
V2QtdiKQlsOjyEdGFMTdTGD27SAQ2/mliqwJBd4u4zrFzgQaLpXw9VlLwTIO
p3S7B4FKIv/zVdKcgoRUr+cXfAlUvGZ21hlRsH995rdFJwik3xc79s6FAo34
pY5SbAI16/tQeccpmNsQJf/uHoGc/7IdHz9BAW988A37PoGC7vleNI+iIMWj
fK/9w99Xu1/4puk0BfP6LscSOAQ6/UE8fCSZgu72VJb4WwLdjclYtTybgkeJ
ov1vOwnUd9tUwGRRcMXKRy+vi0D0rXG78m9RsC1/TYVNH4FYXte3GOVTUB3x
qilWQCB1vj6yKKYg3cgs1XmMQKa1Y2EnSykIHch205r4vc+pudWWUaDrFPSR
nCKQ64SaNqqigEHvuHNJRKDeILUlsdUU8CutDjPnCGSQP1jIfUIB53Cesck8
gciw89P0Ogqua8hOLywQ6Dhbb2IzScE/try4xw==
     "]]}},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SuperscriptBox[\\(e\\), \\(x\\)]\\) och ln x\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 5}, {-3, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.499142753296875*^9, 3.4991428171875*^9}}]
}, {2}]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", 
     RowBox[{"Log", "[", "x", "]"}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "5"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "5"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "x", ",", "\"\<\!\(\*SuperscriptBox[\(e\), \(x\)]\) och ln x\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Thick", ",", "Thin"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49914209625*^9, 3.49914234421875*^9}, 
   3.499142562859375*^9, {3.499142842734375*^9, 3.49914286259375*^9}, {
   3.499143515890625*^9, 3.499143569015625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAALj8W6v//B8BLdKESsX2pP2/5I4j5
+gfAWj8CALmNqT+wszEm8/UHwP/XSwLLnak/MihNYubrB8Br1/leDb6pPzcR
hNrM1wfA9KpDKwz/qT9A4/HKma8HwBSZ27D3gqo/UofNqzNfB8AxzkVRtJKr
P3fPhG1nvgbAQl4wx0DTrT/U1AvqwWEFwEcdeFkgrrE/HcBvFDccBMCg51PX
6rm0P7VrxAUP3QLA/+UB/7A4uD9gjDHw2YIBwHfQs5e0rrw/+JJ7iL8/AMAV
rP03wcrAP0YdvDMww/2/Nw3PYEzswz86lWLkphP7vwbsiU91kMc/B9nC8FKS
+L+4wWnw8Y7LP/oGVO/k2vW/jErSuzhU0D/GAJ9JrFHzv0cvj2QwItM/MHvL
MTnV8L/9jK78mVnWP4C/URhYRey//uE9J0x02j9SIICEqDznv797UmwE9t4/
cVUQ1cTH4b9mZkuGz1viP5UXx4LY2Ni/AsjrMT+05T9XZ6mU+bXNv8DQBsUP
X+k/buGXauMSsL9pbjdCdA3uP0JOhpjWYrg/tstZl12Z8T/jdiVejA7RPyX1
otXv4vQ/wFej3kzR2z/0wdDA87X4P5wEHfib7eI/CWcADkTo/D8LiYacxV7o
P+7eeLkQIgFAyHV8iYRz7T8Ts14R1RQEQKWwVy1cN/E/a/ccGbl2B0BAPMAj
EOvzP1dkOevGxwtAAvxuvo5w9j/9TRbX1UIQQJ7R7GYnLPk/xywGYi1KE0Dy
fAQ6rbb5PwAAAAAAABRAEQMnDg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwdk3k4lP0exmcYWyg8XR1L2d6UNd4kWer7S7Y66ryWUIpJlCIk500SEaKF
iopoFJkiIUui4fdMkUihmJSlsVTGkinLeJS8nXNf1319rvu/zz+3lm+Ii78Y
jUaL+N3/MW3sQXdeTAHQ/h9p8uHtf6eGixfCnUH8+ChPiiyKP2Xcdq4I3Nhx
9ceUpUj9v68tnHr9AGgpNkeLsSR592BJq4FSCaSnNezJPCxJOucLq561lMJF
VcLCq1mCVFCfz7kR/BD2JYNZRbQE+fqaTNJRhTKQOy40wWYSpFOStqeGWzkY
yllQf95nkLJ0YzQzXQ6MKvVAx0MMsvmEle6r6xVw+Iqy1BE9BukQ6DYb2V0J
54N2bfIrESdtdiRm8Hwfg+ww64hxqxh5/IIkY51SNXx4cnAi7JoYWdScGHKZ
Ww3sqfpfG33EyGUOZ+2dNJ+AXfx9ddVpOjkKSVPc3lq4eDq3W8KETmpGSzM1
LtZBWIV6TDqdTrpzkl5GWWPwKGt6od9BI5nZtu1Z20kI2j1pvzmKRjYr291z
L+IC94owi1a8gIfMJbwlGE/B9XVkyD6fBbzg3kBUeD0FS97enRuVFvC6q3Yx
irLPQL6HJmcc9QvnKNq7txyqhy9Jrv0sn3kcvsiBYbO6EVwd1P0eef3AKXpS
NcLoRpj02OF6SeMHLnBsDMnhNYKZb6ba1qE53Jfo0P0z4QXklhrKbwqdw47i
jmVVQ01waJVxfNplCq/46cg0ym2B+U7phUvTIrxBTWZZD9UCndWiMz31Iuxi
2fTynPMrWKutm1KTLsJJEVvNh2mvYfPqH2Wa60X4+9TWxXk+rdArXyKzMWYG
D/6t431hcTs8O0hJ2etO4wPBq5nXLdphXsDaq0ybxiP+er65fu2gSQ+4uaNr
CgvdjA48rmmHyqT3Gz4mT+Ffa82Chw68ganHFn7e3yax6oRttDV+C/6GXZYB
bd+xy0E/1lgID8aVu1baNwgxz/vALdENHkTkqDU8ZAvxLveAXLHnPPhEeAZ4
JAkx0y6Irbz8HfTtTHPZ7iTEwX+EF9u+eAcGe2rHMh9M4OSPZ+qyNd/DHb55
1+eRcUx65PU5tXcD4V3pVlYwghPLBOfCqW4IEPrtyD05gp3kTcyztXqgdZmz
ecf2Edz1lJM6erQH1p7RGZ37LsATRjx0TqkXTNu2EAgJsDpDJq/RtQ/ijyic
Wvr5C97kWWWqFcgHVmd6Dnf3J3w74YOMWQwfrLScWqtMP2FG+fxHxzQ+GMyu
9O+V+4Sb5W0vhD7hQ6Aua64CD2H3Z21DWLYfas9rFySvHsJH1oxc9S7qh6N/
TvcFLQzgbMaK2azxAeixeGgZ84qPiwuLWUzxQfCxjzVpvMfH5F/ITkdlEOLv
H1G2iOfjwez9V4ptByFdZ5NNphUf65sVGnKzBiH8ZWl1rOdH/NjffN/nrUPA
ZqtIknq9uOO5c7MJ+xPUyKo+8xR7j2WTE7MbvIfhWJLxrmvB7biOaZmhfGwY
pOKSy50s2nHohq9pgWeH4ektXwdjRjvmfdl5XrF0GKZO3xAdv9GGc+11IvfS
BeCpMrBN40ortmTUe0znCaBTf1eS+Z4WfDiGTugIRiC6aFrlhcFz/OK/Ucnx
x8Z/+zcFRUIlzi/1MNpj/g3u5WiXR3PLAFmTfyiMTsJyRfAsk2kBsZ/BdSmh
M6BUsLuDm98JrPaxA6sNKRBertK8SeuF7FXJsXMffoA+odo/WdsP3JJAlOH1
C07GqB4siR4C5t0USd1kGmqQUxEstf4Ck5cWwaFXdCTPsZOrzBDAhpqrpQ6y
4qgxcnxSmjsKh4Kl9Uz9GGh0wX+P5LdxKLZmTYqzJVCmyHHnv7ongH9VraFf
TAoFDFhlZHwRgo4MZ/iOozRSHI0oW1L/DZZzAu0kkmSQePX35C2Xv8MCJVYQ
NrAIZekzDF77TcKMc613g44cSuVUSHVpTsGHdT5qOvHyyOAHx9Z5cApCPBQU
tXsWo/yuPtvCzGmQ3RZmGLdYAXX5BmbVWc8Az6jt7QmOAoq4oJJ/9vMMFLJg
5ZC3InqiEifxNVoEHiXrFVf8UkRZoW4qkktmITLhdmxPoRIqrVkU2JE/C3eH
V2QtdiKQlsOjyEdGFMTdTGD27SAQ2/mliqwJBd4u4zrFzgQaLpXw9VlLwTIO
p3S7B4FKIv/zVdKcgoRUr+cXfAlUvGZ21hlRsH995rdFJwik3xc79s6FAo34
pY5SbAI16/tQeccpmNsQJf/uHoGc/7IdHz9BAW988A37PoGC7vleNI+iIMWj
fK/9w99Xu1/4puk0BfP6LscSOAQ6/UE8fCSZgu72VJb4WwLdjclYtTybgkeJ
ov1vOwnUd9tUwGRRcMXKRy+vi0D0rXG78m9RsC1/TYVNH4FYXte3GOVTUB3x
qilWQCB1vj6yKKYg3cgs1XmMQKa1Y2EnSykIHch205r4vc+pudWWUaDrFPSR
nCKQ64SaNqqigEHvuHNJRKDeILUlsdUU8CutDjPnCGSQP1jIfUIB53Cesck8
gciw89P0Ogqua8hOLywQ6Dhbb2IzScE/try4xw==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Tiny], 
    LineBox[CompressedData["
1:eJxFxW0w03EcAPCZzbCsDafu2Ema6BApFHfbuSM53G2nW3dq1lQOZeJ6EC/Y
bbI7h3N2OLOuwzx1rJOuun9MeehpV8vTjIS5Ena45WETq17s+3vxuY+PQMi5
jsfhcEn//D+Y6bFstZLUtoVm3zKzBa3qCfUzbaJP+ScJfqygI2hi/adJNMuw
8aG+G815qOkMS0Pf+yy+ldHnAI+NkZcHrhJhulroHuFFgHuzB4kHv+Fhfnno
+pTIDt6pLizrZ+LgODoWFvJ2r9/2OZlgUem2C5Om3qxzqndgi0PK2qJ+Ex7G
PbrwhG2CQwo/hp4dX4eL+9mHL8WuwpwjxeK26J/w7YvU8cGReVh2aESk0+lg
bkZ7jblXA+fM12YZXFVwTHJp3YTgBdO24S6DV07Rwmpu02yidhqWE+g7DcYF
mCwtlQ/xluB3d4qk4nwj3KLiBl2O2IBZ0Wpf6ooJxv/J6avI3YIV2tUbxwPN
sNxPWmLR78ID3dmsutR9mN9a4eAvxbFsm6qcmZkaOzjylUx1nmwPZ+Y4BoRd
I8Bd0QqTvZIIz8k8h+bxJJjhhC01xzvCXlh2LLHMCbaa8e15C87wFvs1b4hx
ANafTvNkiF1gIZdKOzpDgckJeYEiChWeCPoyWoChOxTMY4s8GsztDqfR99EP
JI9LZjpc4dYlegMl0Q0WNUr4s8loHsfI6GKjPTBMlcRFSypTh8sF6PTw+g3n
ArS32D2epERbIotcJtvQE0bDV2UnuoLbcyXuKXrvBCdfgqGntZUK+1H089Lt
9NFxdHVUWkCTDp3QEvwsZhb98r7mfckvdE3QmUr2Kjp3QZ7is4b2T7z5Xf0b
TbAba67aRs/1RmXxLWgsq+lkyB661pu8abWi/wIv0Ejz
     "]]}},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SuperscriptBox[\\(e\\), \\(x\\)]\\) och ln x\"", 
     TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 5}, {-3, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.499143527*^9, 3.499143570390625*^9}}]
}, {2}]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", 
     RowBox[{"Log", "[", "x", "]"}], ",", "x", ",", 
     RowBox[{"1", "-", "x"}], ",", 
     RowBox[{"3", "-", "x"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "-", "x"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "5"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "5"}], "}"}]}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "Thick", ",", "Thick", ",", "Thin", ",", "Thin", ",", "Thin", ",", 
      "Thin"}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "->", "\"\< symmetriska kring y=x\n\n\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.49914209625*^9, 3.49914234421875*^9}, {
  3.49914244840625*^9, 3.49914245859375*^9}, {3.499142918609375*^9, 
  3.49914302796875*^9}, {3.499143059953125*^9, 3.499143072359375*^9}, {
  3.499143109046875*^9, 3.49914315371875*^9}, {3.49914320375*^9, 
  3.499143265890625*^9}, {3.49914363740625*^9, 3.499143640515625*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAALj8W6v//B8BLdKESsX2pP2/5I4j5
+gfAWj8CALmNqT+wszEm8/UHwP/XSwLLnak/MihNYubrB8Br1/leDb6pPzcR
hNrM1wfA9KpDKwz/qT9A4/HKma8HwBSZ27D3gqo/UofNqzNfB8AxzkVRtJKr
P3fPhG1nvgbAQl4wx0DTrT/U1AvqwWEFwEcdeFkgrrE/HcBvFDccBMCg51PX
6rm0P7VrxAUP3QLA/+UB/7A4uD9gjDHw2YIBwHfQs5e0rrw/+JJ7iL8/AMAV
rP03wcrAP0YdvDMww/2/Nw3PYEzswz86lWLkphP7vwbsiU91kMc/B9nC8FKS
+L+4wWnw8Y7LP/oGVO/k2vW/jErSuzhU0D/GAJ9JrFHzv0cvj2QwItM/MHvL
MTnV8L/9jK78mVnWP4C/URhYRey//uE9J0x02j9SIICEqDznv797UmwE9t4/
cVUQ1cTH4b9mZkuGz1viP5UXx4LY2Ni/AsjrMT+05T9XZ6mU+bXNv8DQBsUP
X+k/buGXauMSsL9pbjdCdA3uP0JOhpjWYrg/tstZl12Z8T/jdiVejA7RPyX1
otXv4vQ/wFej3kzR2z/0wdDA87X4P5wEHfib7eI/CWcADkTo/D8LiYacxV7o
P+7eeLkQIgFAyHV8iYRz7T8Ts14R1RQEQKWwVy1cN/E/a/ccGbl2B0BAPMAj
EOvzP1dkOevGxwtAAvxuvo5w9j/9TRbX1UIQQJ7R7GYnLPk/xywGYi1KE0Dy
fAQ6rbb5PwAAAAAAABRAEQMnDg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwdk3k4lP0exmcYWyg8XR1L2d6UNd4kWer7S7Y66ryWUIpJlCIk500SEaKF
iopoFJkiIUui4fdMkUihmJSlsVTGkinLeJS8nXNf1319rvu/zz+3lm+Ii78Y
jUaL+N3/MW3sQXdeTAHQ/h9p8uHtf6eGixfCnUH8+ChPiiyKP2Xcdq4I3Nhx
9ceUpUj9v68tnHr9AGgpNkeLsSR592BJq4FSCaSnNezJPCxJOucLq561lMJF
VcLCq1mCVFCfz7kR/BD2JYNZRbQE+fqaTNJRhTKQOy40wWYSpFOStqeGWzkY
yllQf95nkLJ0YzQzXQ6MKvVAx0MMsvmEle6r6xVw+Iqy1BE9BukQ6DYb2V0J
54N2bfIrESdtdiRm8Hwfg+ww64hxqxh5/IIkY51SNXx4cnAi7JoYWdScGHKZ
Ww3sqfpfG33EyGUOZ+2dNJ+AXfx9ddVpOjkKSVPc3lq4eDq3W8KETmpGSzM1
LtZBWIV6TDqdTrpzkl5GWWPwKGt6od9BI5nZtu1Z20kI2j1pvzmKRjYr291z
L+IC94owi1a8gIfMJbwlGE/B9XVkyD6fBbzg3kBUeD0FS97enRuVFvC6q3Yx
irLPQL6HJmcc9QvnKNq7txyqhy9Jrv0sn3kcvsiBYbO6EVwd1P0eef3AKXpS
NcLoRpj02OF6SeMHLnBsDMnhNYKZb6ba1qE53Jfo0P0z4QXklhrKbwqdw47i
jmVVQ01waJVxfNplCq/46cg0ym2B+U7phUvTIrxBTWZZD9UCndWiMz31Iuxi
2fTynPMrWKutm1KTLsJJEVvNh2mvYfPqH2Wa60X4+9TWxXk+rdArXyKzMWYG
D/6t431hcTs8O0hJ2etO4wPBq5nXLdphXsDaq0ybxiP+er65fu2gSQ+4uaNr
CgvdjA48rmmHyqT3Gz4mT+Ffa82Chw68ganHFn7e3yax6oRttDV+C/6GXZYB
bd+xy0E/1lgID8aVu1baNwgxz/vALdENHkTkqDU8ZAvxLveAXLHnPPhEeAZ4
JAkx0y6Irbz8HfTtTHPZ7iTEwX+EF9u+eAcGe2rHMh9M4OSPZ+qyNd/DHb55
1+eRcUx65PU5tXcD4V3pVlYwghPLBOfCqW4IEPrtyD05gp3kTcyztXqgdZmz
ecf2Edz1lJM6erQH1p7RGZ37LsATRjx0TqkXTNu2EAgJsDpDJq/RtQ/ijyic
Wvr5C97kWWWqFcgHVmd6Dnf3J3w74YOMWQwfrLScWqtMP2FG+fxHxzQ+GMyu
9O+V+4Sb5W0vhD7hQ6Aua64CD2H3Z21DWLYfas9rFySvHsJH1oxc9S7qh6N/
TvcFLQzgbMaK2azxAeixeGgZ84qPiwuLWUzxQfCxjzVpvMfH5F/ITkdlEOLv
H1G2iOfjwez9V4ptByFdZ5NNphUf65sVGnKzBiH8ZWl1rOdH/NjffN/nrUPA
ZqtIknq9uOO5c7MJ+xPUyKo+8xR7j2WTE7MbvIfhWJLxrmvB7biOaZmhfGwY
pOKSy50s2nHohq9pgWeH4ektXwdjRjvmfdl5XrF0GKZO3xAdv9GGc+11IvfS
BeCpMrBN40ortmTUe0znCaBTf1eS+Z4WfDiGTugIRiC6aFrlhcFz/OK/Ucnx
x8Z/+zcFRUIlzi/1MNpj/g3u5WiXR3PLAFmTfyiMTsJyRfAsk2kBsZ/BdSmh
M6BUsLuDm98JrPaxA6sNKRBertK8SeuF7FXJsXMffoA+odo/WdsP3JJAlOH1
C07GqB4siR4C5t0USd1kGmqQUxEstf4Ck5cWwaFXdCTPsZOrzBDAhpqrpQ6y
4qgxcnxSmjsKh4Kl9Uz9GGh0wX+P5LdxKLZmTYqzJVCmyHHnv7ongH9VraFf
TAoFDFhlZHwRgo4MZ/iOozRSHI0oW1L/DZZzAu0kkmSQePX35C2Xv8MCJVYQ
NrAIZekzDF77TcKMc613g44cSuVUSHVpTsGHdT5qOvHyyOAHx9Z5cApCPBQU
tXsWo/yuPtvCzGmQ3RZmGLdYAXX5BmbVWc8Az6jt7QmOAoq4oJJ/9vMMFLJg
5ZC3InqiEifxNVoEHiXrFVf8UkRZoW4qkktmITLhdmxPoRIqrVkU2JE/C3eH
V2QtdiKQlsOjyEdGFMTdTGD27SAQ2/mliqwJBd4u4zrFzgQaLpXw9VlLwTIO
p3S7B4FKIv/zVdKcgoRUr+cXfAlUvGZ21hlRsH995rdFJwik3xc79s6FAo34
pY5SbAI16/tQeccpmNsQJf/uHoGc/7IdHz9BAW988A37PoGC7vleNI+iIMWj
fK/9w99Xu1/4puk0BfP6LscSOAQ6/UE8fCSZgu72VJb4WwLdjclYtTybgkeJ
ov1vOwnUd9tUwGRRcMXKRy+vi0D0rXG78m9RsC1/TYVNH4FYXte3GOVTUB3x
qilWQCB1vj6yKKYg3cgs1XmMQKa1Y2EnSykIHch205r4vc+pudWWUaDrFPSR
nCKQ64SaNqqigEHvuHNJRKDeILUlsdUU8CutDjPnCGSQP1jIfUIB53Cesck8
gciw89P0Ogqua8hOLywQ6Dhbb2IzScE/try4xw==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Tiny], 
    LineBox[CompressedData["
1:eJxFxW0w03EcAPCZzbCsDafu2Ema6BApFHfbuSM53G2nW3dq1lQOZeJ6EC/Y
bbI7h3N2OLOuwzx1rJOuun9MeehpV8vTjIS5Ena45WETq17s+3vxuY+PQMi5
jsfhcEn//D+Y6bFstZLUtoVm3zKzBa3qCfUzbaJP+ScJfqygI2hi/adJNMuw
8aG+G815qOkMS0Pf+yy+ldHnAI+NkZcHrhJhulroHuFFgHuzB4kHv+Fhfnno
+pTIDt6pLizrZ+LgODoWFvJ2r9/2OZlgUem2C5Om3qxzqndgi0PK2qJ+Ex7G
PbrwhG2CQwo/hp4dX4eL+9mHL8WuwpwjxeK26J/w7YvU8cGReVh2aESk0+lg
bkZ7jblXA+fM12YZXFVwTHJp3YTgBdO24S6DV07Rwmpu02yidhqWE+g7DcYF
mCwtlQ/xluB3d4qk4nwj3KLiBl2O2IBZ0Wpf6ooJxv/J6avI3YIV2tUbxwPN
sNxPWmLR78ID3dmsutR9mN9a4eAvxbFsm6qcmZkaOzjylUx1nmwPZ+Y4BoRd
I8Bd0QqTvZIIz8k8h+bxJJjhhC01xzvCXlh2LLHMCbaa8e15C87wFvs1b4hx
ANafTvNkiF1gIZdKOzpDgckJeYEiChWeCPoyWoChOxTMY4s8GsztDqfR99EP
JI9LZjpc4dYlegMl0Q0WNUr4s8loHsfI6GKjPTBMlcRFSypTh8sF6PTw+g3n
ArS32D2epERbIotcJtvQE0bDV2UnuoLbcyXuKXrvBCdfgqGntZUK+1H089Lt
9NFxdHVUWkCTDp3QEvwsZhb98r7mfckvdE3QmUr2Kjp3QZ7is4b2T7z5Xf0b
TbAba67aRs/1RmXxLWgsq+lkyB661pu8abWi/wIv0Ejz
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Tiny], 
    LineBox[CompressedData["
1:eJwlxX0s1HEcwPHfnbv7ncffpaKG5jmi5qGhdtv3M0ulybhptBpRaVFI6WHK
sFu5Jpl16yrpDyXK0KJHfL+pK6sk5fFI3XnMw7Cb2x1FD9/39t7LJSlddpjP
MEzA3/+5CdlNLC+zhMpBusmtwLTAEioHdY/9PfXzLKFyEOC1O2l0kiVUDoJX
yDUfe1hC5QCG5t7fqGUJlQPZpbaHgQksoXJwpl1+/EiziFBtoLPTcuJVopBQ
rcGJpK8KdhQQqhU0pL4Rct/4hGoBBwr9Z/vyeYRqDsaS7AKMGEIVw3anxkC/
179xuc3gWpVWBFuVScMVKxfx7V3+mV8VQmD7WmZlJUYsP5Z41jtcAAuimJlh
zTy+YPbgTOY0H94yd8Kro/X4YG67e3clD/yyP/hv6ZrFqqYRVWkKA7k4ek1c
2BQm372sql2XkMw5V14pHcPeEgiNKVtEJ/ZIut680+JnGwpSdENGpLR/l9/b
24tH1I+cg4IMKPZI1TVTQxue9FUG4Cd6lKa9njJkW4ftc6qCNvHmUGjkRVV3
0jMUEjTje08/hYZOe8QX2nSgom3Tn5+fHUMktnwwoqMfOcfUFO+116FSgZPx
1rQOtRrUXKu7BlkqLpaq48dRZ//IlZ/yT6g167xCfnIakWjH+v6D9eheXezG
/cFzKMoiu6sl6zEGKXGTTOoRo+Oty4trx/xfac1FGQYknn1p2trSh8s6ppLX
+5qQtLyvLTJOh0s9FXkLmkUUstvWbL5hDL+qTQXVviWUn9CT6/d0Ch+4XyTy
UjBAIp2so2znsL7YAh1t48Goy+qcLzf1OOSFsm6HpRlknPJJvGpnwEfTxN6B
hwTwZUAiS2414hppmd6sQgj7z0nH2IhF/EPpoNbyWSA+wZdfC5ewh3nj+N2d
YqAyxLExNUxYYA5UHlk28asydRZA5RNDdFO82sMKqAKi2Zzg4CG3BqqQpMdK
VrgO2ABVRJj/SYAqJn8AII+B5w==
     "]]}, 
   {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Tiny], 
    LineBox[CompressedData["
1:eJwtjH1Q03UcgAcDNpnSxneISiSWJCogpZgx6vuRQ0RFdDty3DEGN0gTDBGU
BMkDDjjxEMhYwElkDhCkQ7jytZ985gsvljvlfby0YFCOUwQEFNDtl109d889
/z2rVIdln1tzOJytb/y3/6P9L2IIcmU2+tw1o4w3sfhBIgE/tWq0mrzC0Kpl
N8buOQKv786k7OwcBlz1YYpXO8KCXdjEaP8sNll1S26kiKCF88OOn6TT+KH2
gGN8lxB8Tvz+wcfdk/jAkBQS6iuEDJQuC9/2FIcOi+32id4CmVtGdo3/YxTz
3Vate7gEjnwm7L7XOowKp0DfqSOLQe3cmqXX63HaGC50cRGA/EBt8fwVHR77
bmdZ1MAiSBguiRtxbEABhrmUZPAhIDS3tEd1nRboJLvG/HkwkuKuzHdop6ul
kqPeBlvQyjWGkPYBylevj+3JsYFyG9e5c+NG2tc0Z1UWyAVBXm55s9JEb0Ua
SkNNVtB2LD0vO3mcFhjP//GOhgNVDXIvxUdTNGJPTYemzULBX/ue8Mk01d6l
gxPi19T6dUJTQeILauF+s/VI4TytaH+6f43nPFV5kzJ95wta/n5e5kL/Kxrb
l3LS1n2G3r4cD6URFkr3FuOByikafbHAziOPAxmq5r+iBsbpdJE9Paizgk1M
NzfiNxPdclPdsF3ABTfn2k+GO0bowQT+2o2xNnA9n7m23zBI6/0rprnVtlC0
wiFm6GEHHVK7NA9b84ATeEbRqkHqvogxVQbzAXZYb/BbewHfZuK32Z5aBNrb
v+4Ly2hDdt66NsloD3MPnYPVpBdfSG8pm90Xg377bJpTyRD2b4pycc9eAl90
pn9ZLPwbD8uFoncHHYCJ3Bp4KvEJCnYmeWY5CMHT434j328Se7wedaYyQgi/
BnseTz3HSxV09ahSBDVplqKiE7Mov7xZ5GoRgeJWf+DRuZeYlvNj5uAlRzA5
5dol1S3gRZPrOYcQAuUXvjrk52PGrO9zog2hBPgpS7NSJWZUysbd66UEju+4
UnI9yIxLGaZht5xA+OTzO5sjzZhTGNGSryIg/jRh+cbTZozZXDZln0ogvy+2
Zf2oGVdmi4N51QTShTI311ILLmxJX9JbQ8A0Mumr0FiwZ3yko7ruze9a4a5z
9RYskP8cGdRIYItSl7K82YLmdbLkHIbATF2wzum5BQfaCyu4nQQObadpDiEs
Xs19GdPZTUC/wlC4W87iWUnUWo2eQPCz9Kp8FYs7q7x/CTAQ8FDffGSfyuKN
47r7mWMERo2+a3jVLBZ7+RZKnxLYe7XLP6iRxURjediqCQLavGRZDsOiR8ih
P7UzBM77NH7N7WTRxqqrsuglAaHN3m8DDCwOXZHERS8QyOh9VpM5xiITp9ng
YyYweelMk3aGxZKVglmWJaA46dnFsiz+A1xO+Yw=
     "]]}, 
   {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Tiny], 
    LineBox[CompressedData["
1:eJwBcQKO/SFib1JlAgAAACYAAAACAAAALj8W6v//B8BcfizU////P2/5I4j5
+gfA3vJHEPP1/z+wszEm8/UHwGBnY0zm6/8/MihNYubrB8BkUJrEzNf/PzcR
hNrM1wfAbiIItZmv/z9A4/HKma8HwIDG45UzX/8/UofNqzNfB8CkDptXZ77+
P3fPhG1nvgbA7p4J2858/T/U1AvqwWEFwKipF9SDw/o/HcBvFDccBMA6gN8o
bjj4P7VrxAUP3QLAateICx669T9gjDHw2YIBwMAYY+CzBfM/+JJ7iL8/AMDw
JfcQf3/wP0YdvDMww/2/jDp4Z2CG6z86lWLkphP7v3QqxchNJ+Y/B9nC8FKS
+L8OsoXhpSThP/oGVO/k2vW/6BtQvZNr1z/GAJ9JrFHzvzAG+Exijco/MHvL
MTnV8L8AZm85JqeqP4C/URhYRey/AARyPT/Vvb9SIICEqDznv1y///auhtG/
cVUQ1cTH4b8eVd9VdnDcv5UXx4LY2Ni/NnScvpOT479XZ6mU+bXNvyqm1ZqB
kui/buGXauMSsL/SA62So/3tv0JOhpjWYrg/5GSIaS2G8b/jdiVejA7RP7ld
iRejQ/S/wFej3kzR2z/w1ag3U/T2v5wEHfib7eI/ToIO/M12+b8LiYacxV7o
P4ZEQ85iL/y/yHV8iYRz7T/kOr5Ewrn+v6WwVy1cN/E/UtirFq6bAMBAPMAj
EOvzPyAe4BGI9QHAAvxuvo5w9j8BfjdfRzgDwJ7R7GYnLPk/z2h2sxOWBMCc
JomB+tr7P06TxEB97QXAwa9rQJhb/j/g1zUgzC0HwAAAAAAAAABAAAAAAAAA
CMClHkAO
     "]]}},
  AxesOrigin->{0, 0},
  Frame->True,
  PlotLabel->FormBox["\" symmetriska kring y=x\\n\\n\"", TraditionalForm],
  PlotRange->{{-3, 5}, {-3, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.499143594296875*^9, 3.499143641671875*^9}]
}, {2}]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.499142893828125*^9, 3.499142897453125*^9}, 
   3.49914314628125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "x"}], ",", 
     RowBox[{"Log", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "5"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "\"\<1/x och ln x\>\""}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thin", ",", "Thick"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.49914209625*^9, 3.49914234421875*^9}, {
  3.4991424904375*^9, 3.499142815703125*^9}, {3.499146042359375*^9, 
  3.499146053671875*^9}, {3.4991460941875*^9, 3.499146140203125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Thickness[Tiny], LineBox[CompressedData["
1:eJwdlnk81P0exY2xhWL8ut1ShlTP2B5xS5L4fGlBFIlEqShLSChUVJ5EVDKJ
h0iirCGVsiQkPcww0yBkX8bW2GaMYYbJ3O49r9d5nf/PH+9zNrtfsvcQFxMT
K/zt/2V9STpf5TkFxP6vtaj4dWyPny4VnLv7B20fYoilxHpwyI0KkRk171O9
MUQKOWSqkUiFxS20/uB9GHq+Vy6TKaDCF9FrX8aSEkqgPPB0+doEL217UN0l
JRTCjOdYnKLBfOJyuXEAAb09yM7aFk8DdasLSUb2BDSbb+eAr6OByoHLMs92
EpB3AKGsmkQHm3JaUsKSInL5lRBuwKWDe/D+gPl7iihDrimScIAB7EXzc6Sr
CsjUJOxUxGkGqFGnfcwtFFCvv7bBbCgDTKMSQufXKaD1rffHmgsYYBkX2KpU
vgY9SrGxilFsgd0PikPYYmtQ5Db6GlFPC4gH2XQTX8kjdaeb4xd5LXAdr2Ma
dVse1cbo1vauaYWi3c0rri7ySDj5MLDSrBXOJ0UTz8jJo+C3tt+Dc1sBvz2l
6WKQHPKClidTQW3A1wwlWR+TRWJZC5U999vAi2pi/EFfFqVIbOqlvmwD5o7L
8SGKsqiR4knM72gDDsmNy6GvQhoOwiyPPd+BFhje88Z2FZrwJhX249oh6TAu
zuWMDIposqHRlNshy3xkbby5DFqvGzRTtaMdekO/Hpf+QwZZcqv00jzawXpP
gGPNtDTKv2H/3onSDhqFYgd3Rkgjn4Qb1QxyB9yPbVQNLZFC4rysgZr8Dqj6
RzktIlkKpTo1ir2u64CMZrnG2ptSiLoJ2xc33wFS7OGLw4elkHZuXoPViU6Q
U31BSJmRRFMf2xh1qj8gUNVrExhJIv9RTWZpcRd4u300Js/i0eDpLpnPlC6A
rQUBud14dOxHjC5tpAvKk7UdWF/xaHfT+LVR5W7o9G+S5jzFI/ybbMV1d7vB
pmm4lmuDRynhm01Dz/SA53FHonupOPqMbXhipNgHZQ9/bu9Px6GdcY3VB7T7
YK5qs1NMHA7lSF0dOXqwD3ZQK4vsbuDQA0HHdp/wPvjW2PR0jysOHR9I/Cd1
og8MlA8V+xBxiFWgOL9c2w8r925m8rPFkOzmO6SB3YOw3W71FUa8CBr3Ptp+
88Ag7MrZZegYKoLoE88MVewHIeFyQqfotAjEyeUWJ30HIXQ53f6rrgiWVqa8
OtMHQd1v54A0YwUmex3zvokPAf3CgmDLhhVoTiFp1jYPAeNgw0DhFyHcK92p
f6ZrCFj1WwWOr4VgyTAzWhkdgrJW5ueNaUKolz5ltVc0BO3/VgsQBgmhKoR8
oVx/GFoOelDltgqhyEGQX/L3MFzI+9mtd38ZHio2aWWeZUKJ1qPebX5LUGGo
8v6IPxMMO456P3BegpHTl0AYxoRgvjJhtcUSGBdhDk7JTNAJE/WfVF+CCatT
N1bTmXCsrvCRZrcA9kVOf7tmPAKy1RYuJ44IgM9TCLZfNwrJm8lryiz4sEXF
XSTaMgoG/J13cLv5cGR/aWyR/iiMiSWgsxp8yE448Uzm8CjsDzTkOK/ig/32
zIbqyFFoKDUR39O8CEXe/1HW5ozCndDBpw8cF8G9x6EG3zwG8odM8+8HL4Bs
2tDFwK4xcI0wKTnhvQBvXfw3DYyNwQ/nan2DkwuA7757rRI3DuxdPYabzBbg
5Y/KHYGG49Az7uCVsXoBxtrV8vqzxkHXwZFxLp8HPowpcsW1CTCQ1bHYOzkP
SuRrQLo7ATUsVd/GgXmotJWaSUycgKzpUCW37/Mg903VOuD1BJB0s5+UfZqH
Qpq9JGl0AtY20pwWyfMwQy2/lmj3E5hPJ+JKjOYh8Osd90skFmRfNR2PfcwF
4shBqYUdLDinGLpL9x4XmsRXFYQjFlg6913uieDCNhTHiXVmwc8Es2g7fy50
VSZFvLzPAlaXYsELKy6YleQ865plgduHTGDiuEBIa+zeVz4J0W/iykKuzsGb
APlj662mYUDC2ysvjAPNqdi1ouPTECUscCZf5sBYvXKG+flpeO4h1XDLlwPK
GzQn/W5Ng3lyyc8rJzlw5/OByM/vp2FoVZp+mTEHjivdeuejPgOPY2yJj3+x
YekdB/u0PANvX10ie0azITPMl6XnxIZOUW42cpwFvdpV/LuubEgip2uoWM1C
rUSe5MA5Nmgdy1fAm8zCYNyIWlwAG3wz4vpZW2eB+NzV6WcsG2bzePaavBlI
rbetz6xig3qwpNeJ5BlIWL3zmZI6B5ZCRzi7h6fhdobw6PwUB7Im6vpE8VNg
p1ceqM3lwLKWAX5T9BQQP19+5C7ggI95tsg0fAoqh1kMhuTvXur03J54T8Hc
ti7bIuIcPLrBEc8wmwL3wveHPe3moEdTp3Z8fhLMKvytfrybgzG3WT46Owli
bYOo6joXoiccq6osWfDHFc+rDlo8CMdv3P9FbwJGeMnH5T4tQKW8q8jhzhgc
GvW5kRDIB78CS89dcyNwZISsTSQugT+RUxGVygTWF/eIxqJlYIibuAbfGgZd
QofKvjO/oLjZOCPEfwhkgefWy12Bkh3+Jmn3BsFi2mVR3VEM1esScvSdB+BH
3Xmciw4OZZUa/nJk9MH7mPrTajwcOlETe1wsshc8JYMH6XRxpOfi3ooz6oFz
QWHv5VPxqC7ExaeG2A3bvbTpNm4SCGeaPXtWtQu+KenIBf/mtM5HRmTUb25/
LL6dpoOXQhkfNe1DzDshDKdl19wnhUSKYTprz3eAbO91S/9SaRS7cazA6Uk7
jOZsTswIl0H2O9hudRPfIVFjg0SF4yqkabw3JsngO5BTPRvc1GRR4fWQttaU
NnBJdKXLj8uiIwKNKWWZ37u4P1uQUS2H2tzWt+650grMUfOrdXflUXpZau7m
uRbIMtHfSHNbjYoYj8V4fi1QFBVM8PpzDVqX6Pzm3CID7jqes8bz1qD94/F5
v2IZYNCbmX+XpoAGaswMz29gQIpmWhHNWhHpfmrs3eb7DW7VxqVYVygiG4V/
dQel0+HwRsds6lYCCu/DF4f10cDMv+EkIZaA4ucuSb77Dw0yNrlvbeYRUHVM
YM7sX82w9Uvu30dOKiGLlgVd65EmIP9Zp9VarYQ0kNx5I7sm8ORKtFC0MKTq
VJx6+gMV3N/MqcXGY8h9v1QSRYcKfrePCQ89whCdfbD1khYVgo+Vdso/xpA9
PSFsnQYVYnjBD8l/Y2imuZPgsYUKxUaC5eR0DG2YY1lJK1NB8FnUkfMKQ9N5
fPoZaSqQW+Xj6hsw1Hxk+PzZYQqkvrjoHU3BkJDEm8QGKfDiCn2fZROGlM3u
9DT0UeDDOvJSEx1Dbou5XL0uCvS6YN5t7RgaFAglZBgUIDE37BtmYii3sOIx
5RMF9EqvE1+OYuhTe1pS5EcK7InqEXiMY8i3xmzFpIICNqT0kp8sDBnJ+OFL
SykQ5KtG5HAwxOGYd798RYHwvX8J3nIx9O60tYJ7PgWiVg9/v8LD0Pop0wLV
XAqkvH5xn8/H0AdaGOFpFgWyIiS8KpcwpOQX3+fy+4e+OuphHi7EkHWNuoLy
MwqUqv+jYrqCIRmJjTldaRSo5v4hEIkw5BThmvXkCQX+Cx4eSXs=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], 
    LineBox[CompressedData["
1:eJwdi3s4lOseQMcgQmK+LpSUnkJEl1Mbbfm9kUilFGVT2RSTSCjdTCpdJF2Q
aiplIyIh5VKK9xNihjSIYkZoDIYRhsGHOPuc9TzrWX8tPa/ju73pNBrtyr/+
r8RorCwkLB1o/0eZ/E4WhUi604F8n5H99IcS+SKVXdqb8wLslhcbhSYqkY7B
jh49Ni+hdaCD9FupRN6fWXi/i5kNggcZ7GfOM8jc0w7BJ7Rewd7QkruMpTPI
+B4z7SHWK7BNcbrxdkCRDOAxmFLbHPgtM8kJjlEkGfGV9MFvryGmrPQDtCqQ
E+r56YGWb8DcMstRMU+B7LiUvGvgnzewMbvJPiVKgcxnhj3t982FEUHe/t1/
KpBu/1m34ddEHuy2dT5/M1meTOQmBPUufgd5G/XSiVg6OczOM2q9+Q68p+sn
Xh6nk1uYVcI66h3co15UfdtBJyXyoy6F9YXQzdm39osqnTTf6LghMuID7Byw
Nq+5JUfysifpBv0YYuoLHolTaSQDZh6cZUpC9pxDJ6ujaOSf+nEbIg6TsHev
CU0liEbeHk4fOldLAs1okzjKkkaui2nw9soogb827y5ryZrGF7grHdZ4lMKR
aJsVC/+Ywmk5BfoZ90rhVrdhuPvMKVzHtpZfXl0KaTUmafNbfuNlTNcPWhZl
kO6/o3ns6m/Mlb9iSiPKIS3NoFa7ZRLP28hnfPn0CYSVVvbipxM4KzuS72/K
hcibDXb2hyncw+i56eDJBb76ltBdthQ2OOVgZRjHhZqmduM4fQr/Y6maKKS4
cDvCIowrHsOxnJs+buVVsGWpx3Z+8Bg+JbwzaLf/M1yI57i03h7FCapVlzVt
efD07ryuMrEMW20M3X/xIA+ee/mGNfBkWBBgvL7/NA9I4OapvZVhrbqozuoX
PKhayzDuuybDMeztW69r1MIr/55XvvoyfHl5jfo0vxYkNK2oIb9hzITah5Lg
eihc68TPUx/CtKSRQn5UPTiwQstgXIrZCjoC7rN6CNSZyheKpLiS46Ob3lgP
dgu25pwpkmJD58kk7w1fwT5krhzvmBR3HzF4+UOuAXY+OLB6um4QH409X8yL
boQl99V+/MwcwHRZUitOb4RewZVcq/gB/GhfJS37YyN40DTFmTcGMFeHsLk1
3Ahzl90pLWcOYOPnaRVbXb9BGku5uHHpAJa8r+d9XPwdpgx/teSb9+MA0Qph
blYTMMTW2WKzPtx2sEm5hNMEvvc4E3bz+vCe79dNP3c0gVukEoszLMHmVV1n
RQuaQUHxt3TdawmWz0nRmBfRDNKb23tTTCWYzdKzOu3Bh4fGBVtyTXpxCaH9
0EKjBWY3z7lcbS3GKnpXDFrN2+D9p/mT24tEuNIyZlWYbRtUt2jNDXomwtdc
n5ot2t0GzeldAWlRIkyPfmvn7tcGl8I3B+xyE+HxKQnz25M2MK8y8Q8f68C9
Ape0L/R2WBWX+sHFvANXsw1WkNXtcL13fSet/Ce+rVFllPi3ENpFpwp3zWrD
XnxnLF/dCawDC5aOv2nAQeVXvI4b9MAsqd119zoOzglU26O1tQ8ebviDbZuT
jxND/XpW7xsAxzM0/xcx9yA8YdJpWDIIKa5y79nzi4BW34Y+nBuC1zsL11as
4oD+SZ8zzkYyGNf3LRV01UKH7MFe1aIReHyUIz0V1ggOoqPnY4PGYCJ5jYLl
Yj44dkQb6+qOw2lcEhSxvxV6Sr0uVmZOwKaKds0fke1gqtm4yMbjN2Cdq/1b
A4WgAjJPwdAU7FN8/TVpkQjs+txGl7rQ0J00Sy1uYyd8/3hYzm2lHAoQx+uO
BHVD3vWyg0tkcsjFt86H0yoGH8WQtpoaOvKMkj3nuPXCoeDQPLVH8ohQSi1g
ZUpgFdO4ZrunAhLYBGqelfTBF8ZK1RALRbQ3pshU2aIf3meFP14pPwNltOlZ
168ZgFA5o13VLTPQOmfz2sLPA6AiOGcfkKuElN2F+y08B0GUqheXwFJGNFev
10adgxBnqK3wzmUmOlFxcUZCkBSiH/lUeC5RQdtCRR6p/VJwiztQo9alghao
RM+PYg7B2OYUKqFYFenejxBwREMgFFmf+RihhrTj5xkYuw5D0sY1Cz97zkI4
bdu5NN4wZF4N0WSaqKOYJSeN1a1kEOFyaJu8TB19ddP5KypVBusFiekRn2cj
i9lO36VzRoC94nHm520aaFl8roPH2RG4QN5ib3ungS7ruQ6yhCOwY6FLCneZ
JqI7/GiZvXUUNgVUuGtGaqKrYQxvdsooJOh4LauWaaLZ8w0sE5TGYFnp8/uO
7gzU533sjabnGESbfDSqK2YgvWb1r535Y+AzpFDLMSKQ4a41E8oMCrxypEsi
7xAoQ3PfDXtvCvzD90w6xBBofDAr6K0PBSF7cr+p3SVQh9mUmeERCq7LQm5H
3yeQY8YjTyU/CrIsqIkHTwi0szFwRVkgBVTJdGNqBoFWmhVGm7EoiK5Tu1VW
QaCYA1mdincpeJR87Mg1DoHoT5zeBsVRkHyyxsa+ikDS0VTflnsU5M+LHq+q
IZBRf5hfLpsCgRtxpL6BQNfmXpH8/ZQCA6G2zU8hgSr4rd1v0ilYnXtO95mI
QP4ZTm8XZVCw4Sqf8u4ikEYSjxnxkoLtBk9eiXv+/WPVmG7ZFAT7LdEdHCSQ
nMaCrqlcCliWl6jXQwQazIktYOZTcHXWz68nZQS6FWh7hFdAATs7OWpsjEAn
k44fTSykIOmiArNwnEBem6TvZ36gIMPJ25o1SaDNzuV9QUUU5C79tMhqikBW
x35NNxVTUDykT01PE2hK54R0E0nBfwHYoDs0
     "]]}},
  Axes->True,
  AxesLabel->{
    FormBox["x", TraditionalForm], 
    FormBox["\"1/x och ln x\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0, 5}, {-3, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.49914605534375*^9, 3.49914609484375*^9, 
  3.499146141796875*^9}]
}, {2}]],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivata", "Section",
 CellChangeTimes->{{3.5315483854436016`*^9, 3.5315483978764825`*^9}}],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"Log", "[", "x", "]"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.499146215484375*^9, 3.4991462338125*^9}, 
   3.499146268078125*^9}],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"1", "/", "x"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.499146284484375*^9, 3.499146302125*^9}}],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Closed]],

Cell[CellGroupData[{

Cell["Exponentialfunktioner, Plottar", "Section",
 CellChangeTimes->{{3.531549572584669*^9, 3.5315495835356584`*^9}, {
  3.5618901257320185`*^9, 3.561890133437974*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   SuperscriptBox["E", "x"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.499147331453125*^9}, {
  3.49914736234375*^9, 3.4991473661875*^9}}],

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   SuperscriptBox["E", "x"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.49914735078125*^9}}],

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", 
     SuperscriptBox["E", 
      RowBox[{"2", "x"}]], ",", 
     SuperscriptBox["E", 
      RowBox[{"3", "x"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.49914735078125*^9}, {
  3.5314718423747807`*^9, 3.5314718810467806`*^9}}],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Closed]],

Cell[CellGroupData[{

Cell["Exponentialfunktion och potensfunktion", "Section",
 CellChangeTimes->{{3.531548640048339*^9, 3.53154866488338*^9}}],

Cell[CellGroupData[{

Cell["\<\
Tv\[ARing] potensfunktioner. Vilken \[ADoubleDot]r st\[ODoubleDot]rst?\
\>", "Subsubsection",
 CellChangeTimes->{{3.5315500418114862`*^9, 3.5315500710144987`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", 
     SuperscriptBox["x", "6"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.531550002031741*^9, 3.5315500297995634`*^9}, {
  3.531550075507283*^9, 3.5315500760220833`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Vi l\[ADoubleDot]gger till en exponentialfunktion. Vilken \[ADoubleDot]r st\
\[ODoubleDot]rst?\
\>", "Subsubsection",
 CellChangeTimes->{{3.5315500418114862`*^9, 3.5315500710144987`*^9}, {
  3.5315501267844834`*^9, 3.5315501455980835`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", "x", ",", 
     SuperscriptBox["x", "6"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Black", ",", "Red"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.499147331453125*^9}, {
   3.49914736234375*^9, 3.499147420171875*^9}, 3.5314643462047787`*^9, {
   3.5315501533200836`*^9, 3.5315501572668834`*^9}, {3.531550281313674*^9, 
   3.531550328579553*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
N\[ADoubleDot]r \[ADoubleDot]r Exponentialfunktionen st\[ODoubleDot]rst?\
\>", "Subsubsection",
 CellChangeTimes->{{3.531549914547502*^9, 3.53154993364178*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", "x", ",", 
     SuperscriptBox["x", "6"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "25"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Black", ",", "Red"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.499147331453125*^9}, {
   3.49914736234375*^9, 3.499147420171875*^9}, 3.5314643462047787`*^9, {
   3.5315498311036367`*^9, 3.531549887622074*^9}, {3.5315503663298593`*^9, 
   3.5315503671410227`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Vilken \[ADoubleDot]r st\[ODoubleDot]rst", "Subsubsection",
 CellChangeTimes->{{3.5315497873147173`*^9, 3.5315497933206787`*^9}}],

Cell["Studera kvoten", "Text",
 CellChangeTimes->{{3.5315503934882402`*^9, 3.5315504011162977`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{
       SuperscriptBox["E", "x"], "/", 
       SuperscriptBox["x", "100"]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "600", ",", "700"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5"}], "}"}]}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.499147331453125*^9}, {
   3.49914736234375*^9, 3.499147468234375*^9}, {3.499147499140625*^9, 
   3.49914763946875*^9}, {3.49914913184375*^9, 3.499149133859375*^9}, {
   3.5314642415893183`*^9, 3.5314642577499337`*^9}, 3.5314642888480434`*^9, 
   3.5314643256677246`*^9, {3.5314643818393416`*^9, 3.5314644426914263`*^9}, {
   3.53146447553371*^9, 3.5314644786300197`*^9}, {3.5314649388370357`*^9, 
   3.5314651624303927`*^9}, 3.5315496972886705`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/eqlICPDgSYHBjD4YP+kTObXzeMI/j1m9c+bzyP4
0jlCHLseIPhy3Q3+8z8g+HtfmB8xYWiG85dOORotI4jgB32/qvpYAcH3WLFH
6I8hgn9r+hudo04IvpHd/MrcIAT/spHGy/RkBN/qnnG3YzGCb3uiI+p0E4Lf
wbDFZ/lkBH/m+8TCpMUI/medZzvytyD4L1ds1tU9iuT+28xXT15B8FfFaM3f
8RTBL51yeXbbVyT7pIJ3L2NrgfPN70tzlIsj+Gui0tvV1BH8LJVOTQ0LBP/d
Et1/HB4IPl+KNMOscAS/rPC+Sm0Ggr/EVK3GvgLBl/Zw/hbcieDrzVw5V2IW
gs++cFL5npUIvub3wJJNuxB8QZYpi9tPIfhT/eUZeG8h+IkvG+qfvELwP1um
Gs7+heCfuyHPtoS7Fc7P14vl7ZFG8Ncceuyooo3gGy11mMlng+DX2iko3/BG
8AXVrp3/HIPgO/pcXbk/F8E31wzfllWL4JeFrH+a3ofgV5t1ubvMQ/Blwtdd
u7AWwWc9tqJj/T4Ef8tr1dzccwj+UwaubWbXEXwxsXf//t9H8AEv0/0C
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13c8V9//AHArW2ZWyAxlE+F9zz1GSCQzo4wokhUlIeu+bcmKjJBQ4YPs
sikaqMhIEio7I0Qiv/P9+ePt8Xy8H9xzX+e8xhG54G12kYqCgiIXffzv9/wc
OyVFWwQ0o/M0ESqwJZmB0fcAmbrzy8M8MzvS85SC/FvIZ/ytFavpzpFiNZXh
X+Q//y7SMYWdJ0ndtgj93R4BpS5/zAmzciS5KmTsLnZGwIWPBjYRTC6k7/4C
25+6I2DnLz+hdhkv0ji15Fr1uwiYtz1lL84XTjrowUH/fCICBvEQL6XUn5DG
1n7aVH+PgMdbIzXpeapJOUGvS8tmI6DoeSnTHz+aSLwqM3ARuU5GeFPocTMp
bZFm6OhcBBTLtoj19W4hJZyHFKXIFVqCvVu0baRgvN7iyXwE5NYslJfobied
py7aLVqMgGxlu0JdX1+SQHdKccFSBNR5EUkhOv+GJBQfZpK3EgEH7Cau7SS+
J/X78/xL/hUBjdIaQ7oMP5KiLpSXkdcjoMWzyw0y4yMkx5E/1CEbEfAUxT7N
mOjPJI3TJ+xu/I6AP2m37EdujpO4XiRV+WxGwHGB1G/+4xOkJfUxBvetCMiT
ZtxSXzZFelUh6eT8JwIWxN3YCCj7TiqQ8Gs4tx0BA41npOm/TZOCs1tYrf5G
wDm2ihBdqzmSFTujq8lOBEwM1FQuZ14kKURbthjsRsAsk+9zN1iWSYy7+Qe0
/0VAvrFr340UVknffRc9NPfQevlcLPzo1kjNs2ovVCgIKHVW9AU7+wZJwGqd
ogl5Y42Ke1f7Nym4sxLToSTgxIJanm7UJkkjV7relIqA7DQbEzO626RMpum1
EeSr25DSreMvaSugQMGRmoDP5HkHEy13SfXmB0u8aAjYG+l1f9qRAuNuH57e
QPaJ3nB7dZoS85dLE7u1j4D7B7pyjxhSYSoMLPfjaQlI5cZ+I8GDBkv1f/2J
g46AybjXU9W7+7Bf3yK5s5DfyvsM1PfRYk9b/t15TE/AhpdsM4cCGDA2mcYe
eQYCZm8mrfHPM2I+mTcY6pHD7PObua8yY3LXViJeMhLwhfqi/kwHK3Z7sqzV
iImA/zL/Tki/YsMWT1/eGUCuppTT+NPIjpVKT12fYibgB0ut4ZleTszWEXId
ZiGg+GYZ5Rs7LowxI7fqMvKa8CBb0U8uzJ3GbnkF+RPFyN0GQW5M6uuA295+
9Lx0Wc3iKl5s5IASnQ4rAR82vDTMdubDoo2SiqKQDeNzG8l8/Nj0M6MpFjYC
/nn66nNn2kGsKO2lnQA7AXNuah7m7hXCFIZ++tshl2ruuHzNOoQ95+FOyUJW
n1anp1ETxt5nXXrFy0FAoWlRKTKHCLadT3fsACcBj+8Mem4uimKRU/JnLJBb
g3w/XbkihrGJW19JRRaX6IyW/SmGSTx6/ICdi4CPG38mrW6LY2f+O7l//wEC
ejP4tzBpS2Kfl65KGyM/Pf1++PoXSeySQpZuAvJJXd2xpWApLKh6PpCRG+33
9bH5wFfSWPGz+BlaHgLWxHh3CN+VwRT/VlPpIccr6kqKWchiTaQxwUhkBT5L
QpRXDvvQKmNBzUvA+v/uX82tkMd2Xva27SELBkk0qSQpYtF0vz8DPvR9EidH
+j4ljOOk0OYt5JtjcUr0IUqYZI+X7A7y9Opdx6sByphZP2vWFj8BA0XEhBru
HsPGOI/Xqh1EzzecmduRUMVcLR3f+yMTFT9saJ+rYsEjlbQbyFIuRg96fqph
j8ZN/VYFCBj1XpeeM1oDUxIOTFQQJOBWQ8dHl+OaWJNTwRNv5Lr7HnbWS5pY
//dfX38iG45kWD1ww7Cd+VSjeSECtuUFukobQyxapslV+hAB7X7teoo+hxiH
1/cIN+QrkhePrUtrYZKrKs+mkW0c6Gu8OLQxs81BiW/CBGSOLni7Tq+LcafE
xkqKoPUa9O/oZuliozLYzyvIf9xH46vlT2AXLhTWrCP7/itUdHHVw672+urQ
ihHwXoVi4B2Wk5iK2+FHhsjxNwa/GXSexLaoRhnvIEfIe/yRCjHEwo5r9fOI
E1Bt1f7NGrURlvSQ1UlaAv2/FcfbrBYmmAXofOGJzDS74fvk4BmM95O/VBXy
v3M/2oikM1je/vFljcMofrux/pBsipXfLAsxkiSgy1eXtdR0c8yXy3EqCblf
ee1PhbgFplrBqTeI/JXPxXmgzgJr+R7IYi+F8k9wXaV4xhLrNTmZ4y2N4pXl
d+t7iDWWNL+zV43MEvf+Xa6CDWYRWem8hVz6SkjMecYGG3vOczT8CAETpyYU
77vYYYsS089SjqL1BGRG8hfYY5VtmYLDyLXrTvlOYQ7YNTvj8IMyBDTIuiEY
pOSI/U2qMShEdmFLlpwQdsIYdyKGa2UJ+N6Tujpd0hnrS1fV3EYerW2oSq9y
xlIU53OBHAFFJ+y6orVcMH5X00vdyHLTyYGVVy5i0v2HNkbkUb2Ufyrgu+6K
LXoMWAsqEPC+seflUwVuWCVddJMT8njO+SkOy8vYcWyJmEf+/F9m5s5rd8zg
cRPHjiIBh/hCfFw3PDFaNwk1XImAq0+Y7/W/8cJeSCbaRSAPY88q5Iq9Ma1H
DoX0ygQMFVCTqKr3wTSKqVQPqKB6vl5SbvPYF9u6eMXWGnk7eVFNT9YPq5P4
GJKNPHo96tB0rR+mXFTULXKMgHEZUWdK+q9hMoUGNnKqqB583Lplhd3A5p2f
3rqK/OHtzUsLUzewx2L8BTXIAZyKMQK3AzCJhwvzGmoEVFJnmRhevokJFSQG
6x8nYGdc/62oX8HYmNNmfhxyzP38zjdtt7BsEceXvciPKMUce9NCMN4Hivst
1AnI+d8vQxvJMIw9/2OeowYBo3VfNznSRWDvHbAXD5HvqT97PhodgSUeKp6d
RjanPJ43y0RgjHk3FD01Caj94vbk4UNkjCaXv/MmCcWzM6ZI4noU1nGemGlC
5husiVA6EI2FCS4yUWAov2+wXq95Fo3t5jRbRP3PffLFGWyx2O9sx+kUQEDb
mp7MxD/xWI3da8Yh5MmRb09W2xIw34NK8nw42v94baep27ex5SzqgDzkgC+m
Zszqd7DZzGKGMojyKSXU4o5HMlZswyq3jCydYsXcMZuMufAFmClpofpQZeDs
7paCTd47md2AXCvfYRHqm4qNZizKvNRG+cdUXZ5Zcxe7duFQH7UOWh/UHXir
m46xyJp5ayOXb3WdaBpJx2BH/dNWZPfeGT0S8z0MzTaqz3UJiCX+0c4uzMJA
fe3wFnKHy3G+XMtsbCR8NkDtBPr7/Ah3daYcjJHndGMN8luJ+oga8n3MR4sP
VugRMP25cJGYbT7GyGw0+RM53Neq6XVXPvZwKCRCRp+ATuUEhbbqA2zoyvcX
T5DbGVvT1gULMM30ipOFBigfQwVSEzkKsY+OU/NTyLn8H0KWMwoxr6MHEkRO
ov3SMmXoFi7C8tsC+3KRb97trlbFijHahRPmmYYo3jqUHzsfPsbyawPWh5Ff
3249Fq7/BFMPK73LfYqAf0/4CIUuP8E8DrCPpCInrSacLzcqxT7gY+cSjQh4
+ctEswhejrkzsv7rQS7QSSiSoK/AaAa18piMUb6EXNpxGqrAVN0fTcYgl/30
n4hur8Ry0nwvEadRf+ucpXyYVIWpOhTRdSCzl/r/oGWuxt5JjzymMCGgfumw
Ul5cNUbVii3cQo5gaBjrSK7BXOfofQLOoPOznkNh8qYOo6jRZK9HZilYPvjW
qR7LCvGq2kBOxuLDVXfrsR7Oj+u+pmh+YiyN14XPMCWQd9PTjIAjaklWetuN
GM2F885PkVdOgnDpF03YcORB4w3khIx2lpbUZiy4N0P4ljnq75XeM/m6rVjX
uaTuBAsCUsd+HWa62Y7dCzv99D2yuq+BjPhmO3alkDmbyxL1lwfUg28COjC2
xRivHGTtSa6MI9GdmG1Q+IEyKwL6BRl1Kw68xGTy8L1l5LHr/03V+nRhex27
s8pnCbhgP6RVytGNFTIGNjUi19PuMV1xeYUtZfo6v7VG+clL3fJX+y3W1qxg
zGpDwN2dfSttdD1Y6uSSqjmy3KfAJY7+Huy49BXGz8g+Kox9/270YRENzk/n
bdH+HGMbfU/7AbMYE8mWsyNgkWrls4bwD5gkxQTZFznon5AwL0U/1qN/znob
+cY9UZcCugGMe9hij+E8it+1mNp3uoPY7DbHnDFybeRhdtvxQaxR6EN/MvL+
qdM66sFDmOMl42I+ewL6d7Qev/ZyGCvZOGEs7UDAJWW9kvDkUSyYj0bNE7nN
b+ComelnzATrEH6K7OXwgCGBewxbJ4P1446ony2RbD89/YIBLrVsAycC8jdJ
qKjcm8DYjm+QE5D/m7A6s49tEvtmV+31HtnpyZkxtfhJLOahvLb1BRTfnYEn
YglT2ICS1JyrMwGNVL49WHr+HQtzqjR5hJxS2v4yXu8HJpd0vG4a+fj62bjB
wR9Y3E8D4qILmreMU0r796Yx+PiyoPNFlH+vy7rNyHPY0tAqUYA8GtjHr6Aw
j2XvC5yfRJa1vuyVOjGP/b4QV+94iYDyQnqjl0wWsTLBUlN7V3TepVr137gt
Y7ZGyg33kVO5DOdkhVYwuqBGoS/Iw3hxaGvcCnZh5O2CnRvKr29rT2M8VjG+
1MVIm8so3zsC709YrGFd7dcW7yF/ZtDk5h9ew66t7JiNIMubXBBpP7eOvTdm
ET7rTsDz0jJ/a3w3sCh6uecWV9D5FrHjnHq7iamo1QmnITPpFHgreWxhkxdB
9ADyc832441sfzBS52kLMw/Ub5QVC2YvbWNrt7yXTDxR/qsbTOwZ7mL5ZZsW
d5CPhFE227H9w05/Dm3sQ/bIxt/Mjf7DSo4nxRh7EdBx4nMHF6QAjmuVoqe8
CVh88e7eQzoqsF9UPTYOeeqm7NShcCrQeKZ9+TWy9qna/L5dKsBd/qHJwIeA
H52sYg9S0oBet19WelfReRQ0zVlTpAWBGYHNkcgVH3fkiW5aINVFJf4Suc56
ao3KiQ6QxThXdXwJeEjEbxvLpwca48rxWn4E5HaW66gzYwJTilerQpH76UR7
ZeiYQVxk+admZD9nK/lTbcxgVEZaSuMaOr9rS7M7cD8IDBJ6qXQd1ZtfYvVT
rWxA9J3dog/yZY8i7kg5dvBGNJOzAvnRydhQqnx2wP+G88JRfwL2ddpeGY3n
AI28DHtiNwh4KUjjgVwsF3Dx0Dt8AXlmpoJuiO0AYG4jjPORhzKUPu9mHwDn
XP9lCwQQ0LrFcPtoMzfYqV07fuAmAZvcj/VUyvKBQgZFR3Pkw2LAhvYjHzA6
7xWdjFxpKXb4UQg/yKGZG2QJRO9X4fuKNHkQkMzHfWmDCJjh/tyM6qsQ+F58
MEsX+RNPpORmySGQsG3dHoFs3s66wwOEwdiDAdY9ZLKX3mgwjwgIXnlVthmM
1iuepPB3URSI69J+PHYLzRfvEtdo3cVAT4bOXz9kU7EedeN5MSCAt5xcQU79
pa31dV0cNN2unp4NQeezPjA6RUUSuEyusEiGovfhFWGY7ZUEzMfkjl1E/kfa
d1D5ihQ4N/aYmER+xbhtyVklDXaO5AqPhqF+nH5iiOaaDCgM+azPG476sZwS
C5OCLDDq5/W2Qi7TlNBcXJEFOTdTm/uRbT/Qt7WFywPsVYzt2wgCdpewBtde
VQRC103f7CfQ/SY/PvXnkiKgEOXXMEMuPRoz9thbCXQElfJ9Qv6oq1m8P1gZ
6Mn3jUyT0Xk7kWQb3XkMSI6lGxyJRPFrlU1/4aAK6GMdGjyRUyvyPjtTqIG3
UysZ68hDBw7b6pscB2fSOc9SRaP6qZs4bySpCRR1xrpOIP+gy3TF5zUBx0qh
aiwytY8eXUkVCXw8qcrNFoPuw68rNyMtALDZtR4UjEXnz+cLp/8KBBolIiec
kH+rZ1Jwu2sBgbPzNYXIFcdvRx6a0QLjlUFpR+PQ/dHkpUD/gja44JJrrh5P
QHBOISZJ9ATQYXftDEb+1rtSa/78BBBvkVduQ+68PMtoY6UHZnjaOfQTCEiz
lO1ZlK0PPN5++2BxG61/LvbyoL0hMA4o07qHPOAqEKwicArISVx/+hl58fre
n2/jp8BKCG3yhUQCBoswsPRdMwbXlaTP+NxB87OK0d18vzPA6utqazVy9Bel
5O65M+B4wnP5TWRNefrLuLMp2P5xijUkCeUXi3JpuKMZCMn06otPJuCZPKpd
7mgL4KCnBt4hU8nWrkXxWwK4tvcfRwoBr1pNa/FXWQJq4+TbmcjLv4KqRZes
QAxFjdGjVDT/ZVJXKt63AboNeurTyJUVV7hqDWwBhc8nCYk01E8/Op6r3bIF
N7/++1eAnDPqWlp06Rxwbzn5NPcu6k//0fB33HIAh/3H7n9Blqz6KGAm5Qim
ZL3jBNLR/X7OPSYyzRHY3U9zzkImCqN+3LruBIyCvx5Iz0DzzA5/5Sc7Z0Cv
4ks1iJzSPXAh9IszeLFAs8x5D91Hmm8/ib3gAjC7I6+SkZkW7MIkb1wEchrX
A29nElDj5muPo72uYH6VzrUH+Q1v+WyahxsofpJlzpRFQEW+Y/5H2C6DQ3xt
MrHINscKzxm6uAO2Lcav5Gw0f1nOJGbreIKeivtvO5HPVTVs5tJ5gRhXhQaq
HAKyqlh3db73ApTDlslhyMzOYF+Iug/4VZuvE3wf9et1gjtl9yoo91RWaEQ+
2LU6zeXvC9wlugS2kQ8cdtBtXfUF39IWNm7kovlIofH1119+4KOf6mO/PPS+
Pbt9nUL+IOno67Qq5LQQHrm1Kn9g9M0ufBXZUEg1j/rUDfDSLNzWOx/NEx9F
PRSiA0CdYg/zlQeo3u1Yvm1WCgK+c/Z/niD/p99qvjEbBOQfrP6YRU7dSuX+
9TAYPGbjab1UQMB1jXW2JqkQkLnsdPXCQwJeJGRqHzaEgUSKsOJi5KKC2muq
SuGAzJ77eR75spaQD1YRDryUR0/4FRIwb3L9LEtNBNC9YcZPLiJgyFLmi4IF
MtCI8TF5hfyD50FMGxEJ5DMTyczFBKSgV3upIBwF+BvfLKUhV8vs2kRfigYr
/7Q7ix6hevIo2LJeJg5MszptzSFrFVx3YFmIA5+FQ2XlHqN4Xtzde1seD7q0
GzPqkB3knVJE9G+D7Chlj+4nBBw8yi0z5ZAEkjJMHzCVoHw8Uc24OZQEoh57
D5kgU6jHaHqZJgOfN6VwBPn9w4tvps+kAL394gfmStH9fcTx+tfgNEA6pG0o
W4b64a8C0Un2u0BRwTH0KnK2G/dPodK7QMAsZ+4Psn3HV+q38+lg9S5XC2M5
ml8mN6aCCzLBdLHS2mlkiUgPh9VzWWCs/oxUKjILL1V8lUA26PqUkHKwAs3P
bwct6spyQI7gPleZSgLmX2s7+4AhH6TIieX4IJObXqgYhuSDaFzrQw3yvAfN
ts7vfODrdEsTe4rO43OtoPiVB8CgaIP1dBUBFRQXsjTYCwGo4zyRgnzuXMEN
1YeFQLlbMXAI2c7NuNZavQgIzXl+t68moK4EB32cbzFYk5lu8K4hIO9PkTAJ
gSdg6sKz8ipkiZ095avvnoD+ewmFG8ify1Zzm6NLQBWNclJQLQF1GB9lzNKV
Ad+xUNfoOtSvUl6HVBpWgAsc5uffIP9mPeXEcaASmBkcNmepR/1o90TRfHQl
UKzpAanI4pYKpiY3noKVeD7uvAYCbia8IIWHVoOJ9kWmKWQuBxnbNsYa8H6z
lVLiGZqXtjV1pzJrQKXzpZ8lyB+ylO3Ai1rgrVn9ou45AWHjdYNUowZgfzXq
+R9krrSTzoe2G8DpRzaVpEYUn+/xPkTZMyDHSZHTgbwnQDNgL9wIluaN/Pqa
CDgL6ALdDVrAuLDwZfZm1J/YTyXUC7eCPqs1ewvkWZ2Rw/v3WkF5R6bhKHJU
huo37Zk24Jk1LTLdgupBC7t7/3gHOPf+GY90KwEtWwPlci92AiPa2yweyGbt
jHKyK51Axlf5zyryp32mxyjZX4LFk2Hvd9tQvYLRdA/J3WAs1LwLtqPnuVyw
LJJ5BXpqDzcRyNEXLI2sP70CpSK9jxg60P1f0FznrNYb4P6HL/RAJ5pfZ7eL
8016ga38z2vWyOx+cc4MIn3A8GKbezZyc96vTsOtPnDkwyUrkRdovmxTnQ49
9x7MPa6WlX2J8q1O3JFetx/UzJ3Jv4JcZf/q5YPmfhByZImjBDn2fsMfF40B
wFUmtXW4i4A8GU2FzdhHACvudwh3E5Cy/NZNaa8hwLSiccyh+3/35xDRUOph
MKQw8ug+soBtuFN9zjDwqOK4zf+KgKc3B4bVPo+Ae7XRZ7leo36iEv0lIP4z
cP4t/sYM2a2U9c+49hiQU+sgJf/v+4f38hn3xsCLhh2R/W/QPPpLI00pahys
NF5dpHtLwJ1OVvPncxOgcWe/gx6y8BWKfGvbSRCFlX0gI5+8ysf9o3cSCLRO
11H2oHp8sIifp2UK6HfYhf9FdrEMohd7+R1wUP9ZU+8lYAz77Atfkx9gTCf9
UgCy54HoCbsvP4Dvy/enNpD7qxRe2tLMgNxXJ7iX+whYskLDNxA+By4zfIuR
fYf6qxx9xNOj80DFMOzvFeTp29sZfz/Ngzdvn0/MIj8Oo3c9qbsIfvfJl069
J6Dx7bTVY+bLoJ21V1DkA4p3rGr0AvsKSDjjnuTwPwsOHlgLXgGi/YXXx5D3
C79n9rFbBacH+eBQPwF79NddNUhrgI+7voprgIAdJrQT1k1r4LuVhYQ5MuMA
L2Uvvg4CRxIZ3yPHLbk/ZzXdAEWfqQdff0Tzh6R5bUreJii5LpPEMoj6dbmC
mpfhFihntTxlipxrtjMjuL0F6nSK20eQ7a9o5Ee5bYOuUoPymSECfj/bM3kn
che8OXH18tFhAp7S0nrPa/cP9H3NFPdG3s3h/1iiugeGOBeyfiPfye9jMg6j
wKeDbkfv+4TmK1zKxN6XCp8/UKd9ElluXj+1b5MKX6oY301A5njQfJUmnBr/
/U3+Gtco6hdju9tyeTQ4nVG/o9hn1M/3OZT8x0KHM09vH3RFrtKP5rlWQ4ez
hYkNlyBf+i7it+pAj/PWXDNWGiNggxaFX9ZLBlxKgEdD6wvaj5PfH+S9Y8Zl
6vANMjJNxU0V9nwWXOGMW+Ur5PTfJY6u/vvx4+Rnh8+Mo/5Kw1pVx8+GGyza
cTp8JWAjBaPtIgUHbhRF7itAbim7+FWe4MDPCP8XO41clp0PRBk4cWuLf3ue
E+i8VbNthghz4Zeb8heDJ9H+1iQ1K4dx415Wrx+1IV8buxVDI8aD+66sXqCZ
IqCV/YlJ7zc8eKC4zqd45LkwragcST48LuHHy6xvqH8PsW3LHxLAEw/vDx9H
tlfrt306L4CntKmSRL8jP4cra42CeNZ6dNUTZMW3mpkuPofwknNH8hp+oHzV
ogycSRHBYykFhzeRQ209WcMZRHG3YlZWtWkC3nKbNdUkRHHJlfWQWuTUcM75
S2FieCHRal81g+r/musrlkIJnJCqSl9FxgvEAwRUD+MXegv7FGbR/WdY58S+
nsO4ME8cqEC+ESC41Usthd8vsRAqm0PnP1swBBYfwYNN9K0WkOXbPhkJ2x7F
z62rJx6ZR/OzzaP8Fg4ZnB8c+vcYeX0i7Ut9iiye/mHuS9ECen/1cFKJmwJ+
3X/swA/kqFuFZp7DCrjFwXfG4osElCGKLAVOKuKcF2uaC5ANLlreu31MCU/a
Crmf9xPNo3RNgO6YCu59/+rgOHJSVkqAT7MKflrbhUVoiYBf02KmfE8ew5kT
Tt7KQZYSE5Es8lDFYw9xnc9cJiCp525g8tRx3O0F7d0R5DIbtr3kOHXc4PKf
Hp4VdF/NDhKiVNPAaavHSenIAtsPmx/e18Qj9J4IpK4S8MF3kS9+RQB3Wsi2
6Ef+omzncP4ajsOkxAT2X2j+shWStxeH+N4nv507yCOMyU/UKLXwYE8wlrCG
7vNxgSZb49q4HYciVw+yjD9zorO9Dq5RL2bEtI7mw0QLv6OTOvgWBUNTLLKd
9PBjmVVd/HraQHbUBup312aDMjB9PDHFVOAt8qw2xfTAjD5enPQuh/U3AWmN
SM+W0w3woYS39+8h06g8D7WkMcSPR3bmlWyifjdG1UEtbIyfIbSEl5HrPExX
7DeMcbfw1nzlLVRPhqRyB9+fxjNvNT5oQtb/7bPgYnwG375e/bDvD4pPGq0g
NTTDOa4pinNuo/O1Uv6s7qUZfsS3ovAs8m+RfkVgYo7beZUWTSALz9e1qXtZ
4E2XHj769RfF73MLpfRXK/yji4iU2g4BI8M+fWqMOosvXsh7HIR8wfjDFL+y
NS7okP2EZhftX+5P0tssGzzkbGop9z/0/BO+Aqwl5/B0S3YZO+TXftU/uIPP
4+Xmd8rykCdGdo6KWtjjX03i/5PaQ/V85MvlQCZHHBoQFRoUZOjRlON59rcT
bq1HqRCKfMq/Rnfz5gX8qm5oZSfy+WquLTtKZ7wABj01okTfg4envh10wanV
/artqchwgELhqShxCRdQW1V+iPyFtg4KSrniKse8a2aQ1x/SnPjwwRV3UbxS
60NNhtTX7sFV5ct4l7RzfQQNGW4JxJ86qOaBj0tOqnUjt1syav/Y54n/lnBo
YNpHhj/4WE9nj3rikqJ2z9KQQ/NmHgSme+Mx/OaNxbRkKHPt/eX48qt4Nha1
M4esSFtyrU3WFy93fIbJ0pHhnFbsdkylLz5QfKitGrlUbvsoqd0PF1JefNFG
T4Z1seG9Rzj8cUWrQ7Q0DGSYOt2a+rvSH9e9aaavjxx/tV5L3eIGfrm14XUv
cj+l5rvCxwF4zanIvlFGMox1XT00kBCEd3s1sAoxkeGUJ5a33zwYH01eOOOE
zJFnuDUmdAvfGzYdmEFuAooTA90huKGL0Mg6Mxmys7inLyiG4+ejTfmOs5Ah
OdXZ+tF/4bhPCdk2CJlaq+z1F5kI/O7K/BjlfjJMqS4pOqRK4BPB9ZP7WZE/
DJ2e8o/E1/LmRc2Q72w8+WXDHoXTdgq63EW+7t6XIV0ZhR9lIE8fZCPD1tPV
M6f/RuP+d88sSLGT4UZi8Hmrt3F4bAMh44HceG58TyYhHs/5XOdZgWzWw7Lt
bZaAt4sIrhzjIMMrCs8NR5Zv48zlc+vanGSo4PEq1OFZEn7og4BqFHLU1oFv
LYrJuNK6yY3XyE3Rgpth/yXjZzXq/phwkeHz+jz3OxUpeEFXxL9zB8gQl1rN
KJtIw2vmavF8ZM7hda51/7t4N/Nc2DfkOX2Zsuvs6fiimQm1OzcZHt7N7Xtg
noGrfT1If4OHDAWuy3RJs2Xh4ix8XbXIMnJ5r+has3AOTW7yOvLqDzO/IN9s
fCmdjcKXlwxfGx+szJvJwYtP79vy4CND8XWTL6p0+XhaMFVdKbIarOnt8M3H
I0r2/OaR/3B73ReezMfP024vu/KT4X+fBLlzux7gXC1LMxcOkiEFp3xWf91D
nGpxoegB8q9IGncBzUJ8hW/OeQI518ROc7yjEO+5/u3reQEyrPZ4USL5pQgn
ZEeGrQXJMEGG2SYSf4z72A3ezUAWkO7uAlOPcfvYfvMh5CsUx+6RYp/gGj96
3pkLkaHEcZWugO8l+K+c9u7Th8jQ7dqStN7Af/jEm5bI28gvfvlk+GSX431b
jTo9yMLyeqOjbhX4E4u61pPCZNjjE+P2L7YSd2QurdcVIcOTPjVFXWer8NMa
j68TyAZUXVHf+qtwkluRcgfyBcf0fxqm1Tjvi7wKXJQMC04sU62ercHfBaU9
0hAjQ6cpG8PdO3V405PkizeRFYIbGLwl6/GS4USxBuTQ+NCSTx31eJRybN4x
cTK8KRK3Q0P7DAcLtzIUJMiQ9lgVf09bIy7DF2TpjSwyvx3EG9SE8+sHcJYj
61BVjulrNOMbBb53jh4mQ2bcq2uguwUvs3WNPixJhkGi+tfr2dvxgcnl2+7I
BRMdCjyJ7fi2W0BaObJI3Mkgyv0duMGN2AeqUmRo/vBaxxfeTvx7ammjnjQZ
3hWhya8//xJnOqjSEYecWt5BXP7zElcqaHrVhwwyvlrHZXbhYZW9g1ZHyHCY
VpMze6YbF+hdXr50lAwj3a+ENbe8wXUsAn6XIE/tm8koCn+Lu3+m2F1C/s/S
IIXfsAdvmGNnvCFDhiP/3oHTi724Ba2KeLQsGarGCx81bH6PB91uOvIW+crA
3+mTah/wAq4TiqxyZDh96gR3Z80HfEXUCmQg+7nc+xb9vB+PxwOsH8mToZiN
h4vJ+ke8qovCYQGZs3nmMOPtQXzEOPaivALKL0nFEKEjQ/jhc1m+9chf7OUb
B64O4x0BTQndiii/spjVxTRH8bk93VQmJTJ8+zr25tntUZwtujfTBJnxQ/LK
bstn3P7uePEw8qwKf7yWzRd8+ylF+4wyGXLbUtwQvTKBi6jHdh9VQfGy5vLv
n5rADdrY+7yRff1ctRbOT+LpfaKfN5Ept4c9G+2ncKUF3Q06VTLs+Jt8uun2
d9zGt/fvKeSguETVNLEfeNgfS6ok5E91WzOVzT/wPjpXVl41MjxU5HVQdW8a
dxePlZY6ToZSzy/zszfO4R51n8tckUdZztKwus/jXgZyCo+Q0429faoFF3Bf
jwHVw+pkyBvXD7xTF/HAGkFdcQ30/EN60g5Ny3iwnk+3M7Ip7QyNgOEKHjLS
YfgQuXJrrGm6YQWP2HE1FdUkQ43lb7kX81bxeN0qe2ESGYa0H9Q1TlnDE4do
phyQXVJDczx41vEkt7MX85BnSNStB/LX8bSEnStCGOp30p52l5o28JyPejcF
ABne85fJ6BHbwnMvZe7YITP/vFVC+WoLz99aCM1G9kn5I5jm8wcvFEiO4sfJ
sOTNnW6Dd9t4mcvnVF6Izp/yDK1L1y5e/luWxxp5/2jEi9Wkf3hlTFhWBvIv
Q935Scc9vKZM4gG3FhnutvdFtMRQwKZ173IubTK0g2Kfls9RwZaoDkUL5BRA
avzyiQq28R6oTUXWNtkaFLSlhi9Izxs5dFD96rRqW3ahgb1kmtdsuqg/c4oa
BxbTwvfcZ43OIC8fcvl6F9LB/sdP3t1BFkplM30zTgeHek4P7T9Bhta39SWW
JBngOFfmN2Y9MtRrLAu3X2GCE8ULl4z0/ldPAnlvljPDqeNgPh45L8C68MFV
Fjh97tsKoz4ZaqaZyj+iY4VLhbL/6A1QvoZ+c9bSZIfzdse09f9nxrEO2XJ2
OMOBRUUih9PfGOMV54ATYUb7qU6i/Tvr8EyTjxO2WIjHeyFT/P8PF/w/5T9k
AA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{600., 0},
  PlotRange->{{600, 700}, {0, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.5618904654884977`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Logaritmisk plot", "Subsubsection",
 CellChangeTimes->{{3.531550512887048*^9, 3.5315505348670254`*^9}}],

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["E", "x"], ",", 
     SuperscriptBox["x", "100"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "600", ",", "700"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.499147290625*^9, 3.499147331453125*^9}, {
  3.49914736234375*^9, 3.499147468234375*^9}, {3.499147499140625*^9, 
  3.499147737328125*^9}, {3.49914777875*^9, 3.499147817890625*^9}, {
  3.499148731734375*^9, 3.49914875909375*^9}, {3.499148855890625*^9, 
  3.499148921890625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Sk\[ADoubleDot]rningspunkt", "Subsubsection",
 CellChangeTimes->{{3.531550588062002*^9, 3.5315505940678864`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox["E", "x"], "==", 
     SuperscriptBox["x", "100"]}], ",", "x"}], "]"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.5314641419041495`*^9, 3.531464192223382*^9}, {
  3.5314651929184413`*^9, 3.5314651943015795`*^9}}],

Cell["", "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["N\[ADoubleDot]r \[ADoubleDot]r funktionen definierad?", "Section",
 CellChangeTimes->{{3.5314749497729807`*^9, 3.531475016519981*^9}, {
  3.531548723429804*^9, 3.531548723648203*^9}, {3.5618907477502656`*^9, 
  3.561890773068741*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"f", "(", "x", ")"}], " ", "=", 
   StyleBox[" ",
    FontSize->36,
    FontWeight->"Bold"], 
   StyleBox[
    FractionBox["1", 
     SqrtBox[
      RowBox[{"1", "-", 
       RowBox[{"ln", "(", 
        RowBox[{"x", "-", "2"}], ")"}]}]]],
    FontSize->36,
    FontWeight->"Bold"]}], TraditionalForm]],
 FormatType->"TraditionalForm"]], "Text",
 CellChangeTimes->{{3.5618907813366346`*^9, 3.5618908965882907`*^9}}],

Cell[CellGroupData[{

Cell["?", "Subsection",
 CellChangeTimes->{3.5618909364772353`*^9}],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "-", 
     RowBox[{"Log", "[", 
      RowBox[{"x", "-", "2"}], "]"}]}], ">", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5314751479729805`*^9, 3.5314752043779807`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Hur ser den ut?", "Subsection",
 CellChangeTimes->{{3.5618909759293823`*^9, 3.5618909812333484`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   FractionBox["1", 
    SqrtBox[
     RowBox[{"1", "-", 
      RowBox[{"Log", "[", 
       RowBox[{"x", "-", "2"}], "]"}]}]]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5314750347729807`*^9, 3.5314750875619807`*^9}, {
  3.531475644894981*^9, 3.531475665794981*^9}, {3.561892403447671*^9, 
  3.5618924055224314`*^9}, {3.5619729611936426`*^9, 3.5619730522327323`*^9}, {
  3.5619736450148106`*^9, 3.5619736699945607`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Log", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5619644685448637`*^9, 3.5619645356400633`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "-", 
    RowBox[{"Log", "[", 
     RowBox[{"x", "-", "2"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.561891730574545*^9, 3.561891773739468*^9}, {
  3.561891812645619*^9, 3.5618919168841505`*^9}, {3.5619645765120635`*^9, 
  3.561964579772464*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"x", "-", "2"}], "]"}], "\[Equal]", "1"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{3.561963120720918*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"2", "+", "\[ExponentialE]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.561963122530669*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"x", "-", "2"}], "]"}], "\[Equal]", "1"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.561892012151987*^9, 3.561892071117341*^9}, {
  3.5618921389742956`*^9, 3.5618922718959312`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", "4.718281828459045`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.561892050073885*^9, 3.561892077435057*^9}, 
   3.5618921081656785`*^9, {3.5618921588010063`*^9, 3.5618922729566836`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"E", "+", "2"}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.561892324216795*^9, 3.561892352717447*^9}}],

Cell[BoxData["4.718281828459045`"], "Output",
 CellChangeTimes->{{3.5618923287095084`*^9, 3.5618923540746207`*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
},
ScreenStyleEnvironment->"Presentation",
WindowSize->{1264, 889},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingPageRange->{Automatic, Automatic},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 363, 6, 79, "Text"],
Cell[CellGroupData[{
Cell[933, 30, 211, 6, 291, "Title"],
Cell[CellGroupData[{
Cell[1169, 40, 100, 1, 130, "Section"],
Cell[CellGroupData[{
Cell[1294, 45, 270, 8, 63, "Subsection"],
Cell[1567, 55, 566, 15, 75, "Text"],
Cell[CellGroupData[{
Cell[2158, 74, 1146, 26, 88, "Input"],
Cell[3307, 102, 1643, 34, 389, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[4996, 142, 64, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[5085, 147, 337, 9, 82, "Subsubsection"],
Cell[CellGroupData[{
Cell[5447, 160, 496, 14, 63, "Input"],
Cell[5946, 176, 241, 6, 60, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[6248, 189, 358, 10, 49, "Subsection"],
Cell[6609, 201, 141, 2, 47, "Text"],
Cell[CellGroupData[{
Cell[6775, 207, 525, 16, 63, "Input"],
Cell[7303, 225, 1175, 27, 277, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[8512, 257, 120, 1, 47, "Subsubsection"],
Cell[CellGroupData[{
Cell[8657, 262, 1103, 26, 117, "Input"],
Cell[9763, 290, 1662, 34, 385, "Output"]
}, {2}]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[11495, 332, 102, 1, 83, "Section"],
Cell[CellGroupData[{
Cell[11622, 337, 224, 7, 63, "Subsection"],
Cell[11849, 346, 498, 19, 49, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12384, 370, 129, 1, 63, "Subsection"],
Cell[CellGroupData[{
Cell[12538, 375, 155, 2, 47, "Subsubsection"],
Cell[CellGroupData[{
Cell[12718, 381, 1068, 28, 117, "Input"],
Cell[13789, 411, 1692, 34, 385, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[15527, 451, 95, 1, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[15647, 456, 975, 24, 117, "Input"],
Cell[16625, 482, 1652, 34, 385, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[18326, 522, 276, 8, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[18627, 534, 1302, 35, 117, "Input"],
Cell[19932, 571, 1744, 36, 389, "Output"]
}, {2}]],
Cell[21688, 610, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[21793, 618, 126, 1, 83, "Section"],
Cell[CellGroupData[{
Cell[21944, 623, 131, 1, 63, "Subsection"],
Cell[22078, 626, 1025, 32, 275, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[23140, 663, 103, 1, 49, "Subsection"],
Cell[23246, 666, 180, 4, 47, "Text"],
Cell[23429, 672, 578, 14, 63, "Input"],
Cell[CellGroupData[{
Cell[24032, 690, 96, 1, 47, "Subsubsection"],
Cell[24131, 693, 371, 9, 58, "Input"],
Cell[24505, 704, 526, 11, 58, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[25068, 720, 133, 1, 36, "Subsubsection"],
Cell[25204, 723, 530, 15, 93, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[25771, 743, 164, 3, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[25960, 750, 259, 5, 58, "Input"],
Cell[26222, 757, 11209, 299, 253, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37492, 1063, 208, 4, 63, "Subsection"],
Cell[37703, 1069, 165, 3, 47, "Text"],
Cell[37871, 1074, 240, 7, 84, "Input"],
Cell[38114, 1083, 132, 2, 47, "Text"],
Cell[38249, 1087, 574, 15, 84, "Input"],
Cell[38826, 1104, 127, 1, 47, "Text"],
Cell[CellGroupData[{
Cell[38978, 1109, 397, 9, 58, "Input"],
Cell[39378, 1120, 777, 18, 328, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[40216, 1145, 122, 1, 83, "Section"],
Cell[CellGroupData[{
Cell[40363, 1150, 175, 2, 63, "Subsection"],
Cell[CellGroupData[{
Cell[40563, 1156, 158, 2, 47, "Subsubsection"],
Cell[40724, 1160, 281, 7, 84, "Input"],
Cell[41008, 1169, 308, 9, 84, "Input"],
Cell[41319, 1180, 320, 9, 84, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[41676, 1194, 148, 2, 36, "Subsubsection"],
Cell[41827, 1198, 306, 9, 84, "Input"],
Cell[42136, 1209, 106, 1, 47, "Text"],
Cell[42245, 1212, 350, 11, 84, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[42644, 1229, 124, 1, 49, "Subsection"],
Cell[42771, 1232, 287, 8, 84, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[43095, 1245, 131, 1, 49, "Subsection"],
Cell[43229, 1248, 609, 17, 55, "Text"],
Cell[CellGroupData[{
Cell[43863, 1269, 107, 1, 47, "Subsubsection"],
Cell[CellGroupData[{
Cell[43995, 1274, 401, 12, 84, "Input"],
Cell[44399, 1288, 389, 8, 60, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[44837, 1302, 106, 1, 36, "Subsubsection"],
Cell[44946, 1305, 405, 12, 84, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[45388, 1322, 161, 2, 36, "Subsubsection"],
Cell[45552, 1326, 358, 11, 84, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[45947, 1342, 164, 2, 36, "Subsubsection"],
Cell[46114, 1346, 286, 8, 84, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[46437, 1359, 100, 1, 36, "Subsubsection"],
Cell[46540, 1362, 142, 3, 58, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[46731, 1371, 117, 1, 49, "Subsection"],
Cell[46851, 1374, 151, 3, 47, "Text"],
Cell[CellGroupData[{
Cell[47027, 1381, 742, 17, 63, "Input"],
Cell[47772, 1400, 3834, 70, 262, "Output"]
}, {2}]],
Cell[51618, 1473, 102, 1, 47, "Text"],
Cell[CellGroupData[{
Cell[51745, 1478, 862, 19, 63, "Input"],
Cell[52610, 1499, 2338, 44, 266, "Output"]
}, {2}]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[55006, 1550, 316, 8, 83, "Section"],
Cell[55325, 1560, 86, 1, 47, "Text"],
Cell[55414, 1563, 182, 2, 117, "Input"],
Cell[CellGroupData[{
Cell[55621, 1569, 168, 4, 63, "Subsection"],
Cell[CellGroupData[{
Cell[55814, 1577, 1535, 36, 117, "Input"],
Cell[57352, 1615, 1696, 34, 385, "Output"]
}, {2}]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[59106, 1656, 285, 8, 83, "Section"],
Cell[CellGroupData[{
Cell[59416, 1668, 99, 1, 47, "Subsubsection"],
Cell[59518, 1671, 146, 4, 58, "Input"],
Cell[59667, 1677, 220, 6, 58, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[59924, 1688, 112, 1, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[60061, 1693, 205, 5, 58, "Input"],
Cell[60269, 1700, 107, 2, 60, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[60425, 1708, 292, 7, 36, "Subsubsection"],
Cell[60720, 1717, 438, 10, 58, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[61195, 1732, 100, 1, 36, "Subsubsection"],
Cell[61298, 1735, 221, 7, 58, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[61556, 1747, 238, 7, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[61819, 1758, 211, 6, 58, "Input"],
Cell[62033, 1766, 150, 4, 62, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[62232, 1776, 256, 5, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[62513, 1785, 330, 10, 58, "Input"],
Cell[62846, 1797, 3277, 61, 268, "Output"]
}, Closed]],
Cell[66138, 1861, 354, 10, 55, "Input"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[66541, 1877, 96, 1, 83, "Section"],
Cell[CellGroupData[{
Cell[66662, 1882, 1279, 33, 126, "Input"],
Cell[67944, 1917, 5354, 103, 262, "Output"]
}, {2}]],
Cell[73310, 2023, 44, 1, 4, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[73379, 2028, 719, 21, 99, "Input"],
Cell[74101, 2051, 3981, 74, 389, "Output"]
}, {2}]],
Cell[78094, 2128, 44, 1, 4, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[78163, 2133, 923, 25, 231, "Input"],
Cell[79089, 2160, 5019, 93, 389, "Output"]
}, {2}]],
Cell[84120, 2256, 44, 1, 4, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[84189, 2261, 1273, 32, 408, "Input"],
Cell[85465, 2295, 8559, 154, 438, "Output"]
}, {2}]],
Cell[94036, 2452, 44, 1, 4, "PageBreak",
 PageBreakBelow->True],
Cell[94083, 2455, 117, 2, 58, "Input"],
Cell[CellGroupData[{
Cell[94225, 2461, 851, 22, 93, "Input"],
Cell[95079, 2485, 7061, 124, 470, "Output"]
}, {2}]],
Cell[102152, 2612, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]],
Cell[CellGroupData[{
Cell[102233, 2618, 97, 1, 83, "Section"],
Cell[102333, 2621, 198, 5, 58, "Input"],
Cell[102534, 2628, 172, 4, 58, "Input"],
Cell[102709, 2634, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]],
Cell[CellGroupData[{
Cell[102790, 2640, 168, 2, 83, "Section"],
Cell[102961, 2644, 274, 7, 58, "Input"],
Cell[103238, 2653, 230, 6, 58, "Input"],
Cell[103471, 2661, 442, 13, 63, "Input"],
Cell[103916, 2676, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]],
Cell[CellGroupData[{
Cell[103997, 2682, 122, 1, 83, "Section"],
Cell[CellGroupData[{
Cell[104144, 2687, 173, 3, 47, "Subsubsection"],
Cell[104320, 2692, 355, 10, 63, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[104712, 2707, 250, 5, 36, "Subsubsection"],
Cell[104965, 2714, 632, 16, 63, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[105634, 2735, 170, 3, 36, "Subsubsection"],
Cell[105807, 2740, 614, 15, 63, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[106458, 2760, 135, 1, 36, "Subsubsection"],
Cell[106596, 2763, 100, 1, 47, "Text"],
Cell[CellGroupData[{
Cell[106721, 2768, 916, 21, 93, "Input"],
Cell[107640, 2791, 14479, 244, 281, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[122168, 3041, 109, 1, 36, "Subsubsection"],
Cell[122280, 3044, 550, 13, 63, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[122867, 3062, 119, 1, 36, "Subsubsection"],
Cell[122989, 3065, 309, 8, 63, "Input"],
Cell[123301, 3075, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[123394, 3082, 240, 3, 83, "Section"],
Cell[123637, 3087, 474, 16, 86, "Text"],
Cell[CellGroupData[{
Cell[124136, 3107, 67, 1, 63, "Subsection"],
Cell[124206, 3110, 264, 8, 58, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[124507, 3123, 107, 1, 49, "Subsection"],
Cell[124617, 3126, 536, 13, 96, "Input"],
Cell[125156, 3141, 240, 6, 58, "Input"],
Cell[125399, 3149, 389, 10, 58, "Input"],
Cell[CellGroupData[{
Cell[125813, 3163, 215, 7, 58, "Input"],
Cell[126031, 3172, 184, 5, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126252, 3182, 293, 8, 58, "Input"],
Cell[126548, 3192, 264, 5, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126849, 3202, 139, 3, 58, "Input"],
Cell[126991, 3207, 115, 1, 60, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)