(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     92728,       2940]
NotebookOptionsPosition[     77858,       2458]
NotebookOutlinePosition[     78490,       2482]
CellTagsIndexPosition[     78404,       2477]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Lektion 1", "Title",
 CellChangeTimes->{{3.43019860365625*^9, 3.430198608484375*^9}, 
   3.528105527484375*^9, {3.528265785890625*^9, 3.52826579096875*^9}}],

Cell[CellGroupData[{

Cell["Reella tal", "Section",
 CellChangeTimes->{{3.430198625375*^9, 3.430198626265625*^9}, {
  3.430200899265625*^9, 3.430200911796875*^9}}],

Cell[CellGroupData[{

Cell["Naturliga tal, Positiva heltal", "Subsection",
 CellChangeTimes->{{3.430198673453125*^9, 3.430198678140625*^9}, {
   3.430198729671875*^9, 3.43019873734375*^9}, 3.430199164828125*^9, 
   3.430199361109375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"N", "=", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "..."}], 
    "}"}]}], "\[IndentingNewLine]"}]], "DisplayFormula",
 CellChangeTimes->{{3.4301991065625*^9, 3.43019923640625*^9}, 
   3.430199307625*^9, 3.430199347796875*^9},
 FontSize->14],

Cell[TextData[{
 "Funktionen ",
 StyleBox["Table",
  FontWeight->"Bold"],
 " hj\[ADoubleDot]lper oss att g\[ODoubleDot]ra listor av olika slag,\n\nt.ex \
de naturliga talen fr\[ARing]n 1 till 10."
}], "Text",
 CellChangeTimes->{{3.528208617921875*^9, 3.528208736546875*^9}, {
  3.528208857015625*^9, 3.528208860515625*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"n", ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.430198690671875*^9, 3.430198706015625*^9}}],

Cell[CellGroupData[{

Cell["Sum", "Subsubsection",
 CellChangeTimes->{{3.528265944765625*^9, 3.528265947328125*^9}}],

Cell[TextData[{
 "\nSamma struktur har funktionen ",
 StyleBox["Sum",
  FontWeight->"Bold"],
 " som ber\[ADoubleDot]knar summor"
}], "Text",
 CellChangeTimes->{{3.528265657859375*^9, 3.528265713015625*^9}, 
   3.528265890203125*^9}],

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{"n", ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.430198690671875*^9, 3.430198706015625*^9}, {
  3.52826563028125*^9, 3.528265634609375*^9}}],

Cell["...vilket ocks\[ARing] kan skrivas", "Text",
 CellChangeTimes->{{3.52826573646875*^9, 3.528265750375*^9}}],

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"n", "=", "1"}], "10"], "n"}]], "Input",
 CellChangeTimes->{{3.5282658179375*^9, 3.528265842296875*^9}}],

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

Cell[CellGroupData[{

Cell["Heltal", "Subsection",
 CellChangeTimes->{{3.4301987575625*^9, 3.430198760625*^9}, {
  3.430199333484375*^9, 3.43019936334375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Z", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"...", "-", "6"}], ",", 
     RowBox[{"-", "5"}], ",", 
     RowBox[{"-", "4"}], ",", 
     RowBox[{"-", "3"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", 
     ",", "5", ",", "6", ",", "..."}], "}"}]}], 
  "\[IndentingNewLine]"}]], "DisplayFormula",
 CellChangeTimes->{{3.4301991065625*^9, 3.43019923640625*^9}, 
   3.430199307625*^9, 3.430199347796875*^9, {3.430200466390625*^9, 
   3.430200467765625*^9}, 3.5281056790625*^9},
 FontSize->14],

Cell[TextData[{
 "Heltal fr\[ARing]n ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", "10"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " till 10"
}], "Text",
 CellChangeTimes->{{3.52821066946875*^9, 3.528210717328125*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"z", ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.430198765140625*^9, 3.430198769109375*^9}, {
  3.43019898053125*^9, 3.43019899978125*^9}}],

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

Cell[CellGroupData[{

Cell["Rationella tal", "Subsection",
 CellChangeTimes->{{3.430199052125*^9, 3.43019909209375*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Q", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox["m", "n"], ":", " ", "m"}], ",", 
     RowBox[{"n", " ", "\[Element]", "Z"}], ",", " ", 
     RowBox[{"n", "\[NotEqual]", "0"}]}], "}"}]}],
  FontSize->18]], "DisplayFormula",
 CellChangeTimes->{{3.4301991065625*^9, 3.43019918703125*^9}},
 FontSize->14],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"m", "/", "n"}], ",", 
    RowBox[{"{", 
     RowBox[{"m", ",", 
      RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.430198765140625*^9, 3.430198769109375*^9}, {
   3.43019898053125*^9, 3.43019899978125*^9}, {3.430199466125*^9, 
   3.430199514640625*^9}, 3.528211149453125*^9}],

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

Cell[CellGroupData[{

Cell["Lite listhantering", "Subsubsection",
 CellChangeTimes->{{3.430200128328125*^9, 3.43020014434375*^9}}],

Cell["\<\

Det blev lite sn\[ARing]rigt, s\[ARing] vi kan f\[ODoubleDot]renkla lite\
\>", "Text",
 CellChangeTimes->{{3.528210858578125*^9, 3.528210865890625*^9}, {
  3.528210913796875*^9, 3.528210927453125*^9}, {3.528210957765625*^9, 
  3.528210990046875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Flatten"}]], "Input",
 CellChangeTimes->{{3.430200157484375*^9, 3.43020016103125*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Flatten\\\", \\\"[\\\", \
StyleBox[\\\"list\\\", \\\"TI\\\"], \\\"]\\\"}]\\) flattens out nested lists. \
\\n\\!\\(\\*RowBox[{\\\"Flatten\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \\\
\"TI\\\"]}], \\\"]\\\"}]\\) flattens to level \\!\\(\\*StyleBox[\\\"n\\\", \\\
\"TI\\\"]\\). \\n\\!\\(\\*RowBox[{\\\"Flatten\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \\\
\"TI\\\"], \\\",\\\", StyleBox[\\\"h\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
flattens subexpressions with head \\!\\(\\*StyleBox[\\\"h\\\", \
\\\"TI\\\"]\\). \\n\\!\\(\\*RowBox[{\\\"Flatten\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"list\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"s\\\", \
\\\"TI\\\"], StyleBox[\\\"11\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"s\\\", \\\"TI\\\"], StyleBox[\\\"12\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"s\\\", \
\\\"TI\\\"], StyleBox[\\\"21\\\", \\\"TR\\\"]], \\\",\\\", \
SubscriptBox[StyleBox[\\\"s\\\", \\\"TI\\\"], StyleBox[\\\"22\\\", \
\\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\
\"}], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}]}], \
\\\"]\\\"}]\\) flattens \\!\\(\\*StyleBox[\\\"list\\\", \\\"TI\\\"]\\) by \
combining all levels \\!\\(\\*SubscriptBox[StyleBox[\\\"s\\\", \\\"TI\\\"], \
StyleBox[\\\"ij\\\", \\\"TI\\\"]]\\) to make each level \
\\!\\(\\*StyleBox[\\\"i\\\", \\\"TI\\\"]\\) in the result. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Flatten"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.4302001623125*^9},
 CellTags->"Info3430207362-9352344"]
}, Open  ]],

Cell["\<\
% ger oss inneh\[ARing]llet i senaste out-cellen\
\>", "Text",
 CellChangeTimes->{{3.528211068015625*^9, 3.5282111055625*^9}}],

Cell[BoxData[
 RowBox[{"Flatten", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4301995316875*^9, 3.43019954809375*^9}}],

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

Cell[CellGroupData[{

Cell["Sortering", "Subsubsection",
 CellChangeTimes->{{3.430200183859375*^9, 3.430200188015625*^9}, 
   3.430200258484375*^9}],

Cell["Vi kan sortera listan", "Text",
 CellChangeTimes->{{3.52821126309375*^9, 3.52821127653125*^9}}],

Cell[BoxData[
 RowBox[{"Sort", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.4301995316875*^9, 3.430199577671875*^9}}],

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

Cell[CellGroupData[{

Cell["Sk\[ADoubleDot]rning", "Subsubsection",
 CellChangeTimes->{{3.430200238890625*^9, 3.4302002445625*^9}, {
  3.430200345359375*^9, 3.4302003455625*^9}}],

Cell["\<\
Och vi beh\[ODoubleDot]ver bara ett av varje element\
\>", "Text",
 CellChangeTimes->{{3.528211397890625*^9, 3.52821143359375*^9}, {
  3.528211632828125*^9, 3.528211644609375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Intersection", "[", "%", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4301995316875*^9, 3.430199577671875*^9}, {
   3.4301999678125*^9, 3.430199972234375*^9}, 3.528105854640625*^9, 
   3.528211309265625*^9}],

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

Cell[CellGroupData[{

Cell["Allt p\[ARing] en g\[ARing]ng", "Subsubsection",
 CellChangeTimes->{{3.430200290390625*^9, 3.430200295265625*^9}, 
   3.430200660078125*^9}],

Cell["\<\

N\[ADoubleDot]r vi nu testat de olika delarna kan vi kombinera funktionerna\
\>", "Text",
 CellChangeTimes->{{3.528211696515625*^9, 3.528211739578125*^9}}],

Cell[BoxData[
 RowBox[{"Intersection", "[", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"m", "/", "n"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "1", ",", "7"}], "}"}]}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4301995316875*^9, 3.430199577671875*^9}, {
  3.4301999678125*^9, 3.430199972234375*^9}, {3.430200027*^9, 
  3.430200067875*^9}}],

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

Cell[CellGroupData[{

Cell["Irrationella tal", "Subsection",
 CellChangeTimes->{{3.430199052125*^9, 3.43019909209375*^9}, {
  3.43020068646875*^9, 3.430200688453125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalODoubleDot]vriga", " ", "reella", " ", "tal"}], ",", " ", 
  RowBox[{
   RowBox[{"t", ".", "ex"}], " ", Cell[TextData[{
    "\[Pi] och",
    Cell[BoxData[
     FormBox[
      SqrtBox["3"], TraditionalForm]]]
   }]]}]}]], "Text",
 CellChangeTimes->{{3.4301991065625*^9, 3.43019918703125*^9}, {
  3.43020070721875*^9, 3.430200740796875*^9}, {3.430200853703125*^9, 
  3.430200874109375*^9}},
 FontFamily->"Times New Roman",
 FontSize->14],

Cell[TextData[{
 "Funktionen ",
 StyleBox["N[ ] ",
  FontWeight->"Bold"],
 "ger oss ett numeriskt v\[ADoubleDot]rde"
}], "Text",
 CellChangeTimes->{{3.528211829546875*^9, 3.528211894375*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", 
  SqrtBox["3"], "]"}]], "Input",
 CellChangeTimes->{3.528211949078125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"Pi", ",", "100"}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.430201737296875*^9, 3.430201759390625*^9}, {
   3.430201875578125*^9, 3.430201879*^9}, {3.52810597625*^9, 
   3.528105993203125*^9}, 3.528211924375*^9}],

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

Cell[CellGroupData[{

Cell["Olikheter och intervall", "Section",
 CellChangeTimes->{{3.43020577421875*^9, 3.4302057909375*^9}}],

Cell[CellGroupData[{

Cell["Studera olikheten ", "Subsubsection",
 CellChangeTimes->{{3.43020581390625*^9, 3.43020581965625*^9}}],

Cell[TextData[Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["x", "2"], "-", "1"}], "<", "0"}]],
 CellChangeTimes->{{3.43020582590625*^9, 3.430205931828125*^9}}]], "Text",
 CellChangeTimes->{3.528199306640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["I Mathematica", "Subsubsection",
 CellChangeTimes->{{3.528199318890625*^9, 3.52819932946875*^9}}],

Cell[TextData[{
 "Vi definierar variabeln ",
 StyleBox["olik",
  FontWeight->"Bold"],
 ", som inneh\[ARing]ller olikheten"
}], "Text",
 CellChangeTimes->{{3.52819934353125*^9, 3.528199385203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"olik", "=", 
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "2"], "-", "1"}], "<", "0"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.43020582590625*^9, 3.430205931828125*^9}, {
  3.528199514515625*^9, 3.5281995149375*^9}}],

Cell["Sedan l\[ODoubleDot]ser vi olikheten", "Text",
 CellChangeTimes->{{3.52819940071875*^9, 3.528199414234375*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", " ", "[", "olik", "]"}]], "Input",
 CellChangeTimes->{{3.43020582590625*^9, 3.430205931828125*^9}, {
  3.52819943346875*^9, 3.528199444625*^9}}],

Cell["\<\
Vi kan f\[ODoubleDot]rst\[ARing]s l\[ODoubleDot]sa den direkt ocks\[ARing]\
\>", "Text",
 CellChangeTimes->{{3.52819968834375*^9, 3.52819971259375*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", " ", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "-", "1"}], "<", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.43020582590625*^9, 3.430205931828125*^9}, {
   3.52819943346875*^9, 3.528199444625*^9}, 3.528199734671875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Svar?", "Subsubsection",
 CellChangeTimes->{{3.528171725203125*^9, 3.5281717330625*^9}}],

Cell[TextData[{
 "Svaret blir ett intervall ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], ")"}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.43020595646875*^9, 3.4302059861875*^9}}],

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

Cell[CellGroupData[{

Cell["Olikheter ger ofta intervall som svar", "Section",
 CellChangeTimes->{{3.430206113421875*^9, 3.43020612496875*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", " ", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SuperscriptBox["x", "2"]}], ")"}], ">", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.43020605046875*^9, 3.43020607509375*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", " ", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["x", "2"]}], ")"}], ">", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.43020605046875*^9, 3.430206088890625*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", " ", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["x", "2"]}], ")"}], "<", "2"}], "]"}]], "Input",
 CellChangeTimes->{3.430206104*^9}],

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

Cell[CellGroupData[{

Cell["En lite b\[ODoubleDot]kigare olikhet", "Section",
 CellChangeTimes->{{3.5281060713125*^9, 3.528106077453125*^9}, {
  3.52819987915625*^9, 3.52819988871875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TraditionalForm", " ", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], "<", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.4302061404375*^9, 3.430206220703125*^9}, {
  3.528201135609375*^9, 3.528201143796875*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], "<", "0"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.5282011454375*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell["Hur ser det ut?", "Subsubsection",
 CellChangeTimes->{{3.5281061193125*^9, 3.528106127671875*^9}, 
   3.528199909734375*^9, {3.528200323125*^9, 3.5282003240625*^9}, 
   3.52820107646875*^9}],

Cell[BoxData[
 RowBox[{"Plot", " ", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43020623921875*^9, 3.43020625509375*^9}, {
   3.528200032375*^9, 3.528200060171875*^9}, {3.52820017*^9, 
   3.528200190546875*^9}, 3.52820023925*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Vad h\[ADoubleDot]nder mellan ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "2"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " och ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "3"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "?"
}], "Subsubsection",
 CellChangeTimes->{{3.5281061193125*^9, 3.528106127671875*^9}, 
   3.528199909734375*^9, {3.5282003270625*^9, 3.52820032784375*^9}, {
   3.52820040734375*^9, 3.528200454015625*^9}, 3.52820077959375*^9}],

Cell["\<\
Best\[ADoubleDot]m v\[ADoubleDot]rdet av uttrycket f\[ODoubleDot]r ett v\
\[ADoubleDot]rde i intervallet:\
\>", "Text",
 CellChangeTimes->{{3.528200564453125*^9, 3.5282006294375*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "1"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "+", "2"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "3"}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "-", "2"}], ")"}]}]], "/.", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    RowBox[{"5", "/", "2"}]}], "}"}]}]], "Input"],

Cell["\[CapitalADoubleDot]ndra plottintervallet (y-led)", "Text",
 CellChangeTimes->{{3.5281061193125*^9, 3.528106127671875*^9}, 
   3.528199909734375*^9, {3.5282003270625*^9, 3.52820032784375*^9}, {
   3.52820040734375*^9, 3.528200454015625*^9}, {3.52820075025*^9, 
   3.52820075921875*^9}, {3.528200796625*^9, 3.528200806390625*^9}}],

Cell[BoxData[
 RowBox[{"Plot", " ", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "30"}], ",", "20"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43020623921875*^9, 3.43020625509375*^9}, {
  3.528200032375*^9, 3.528200060171875*^9}, {3.52820017*^9, 
  3.528200190546875*^9}}],

Cell["\[CapitalADoubleDot]ndra plottintervallet (x-led)", "Text",
 CellChangeTimes->{{3.5281061193125*^9, 3.528106127671875*^9}, 
   3.528199909734375*^9, {3.5282003270625*^9, 3.52820032784375*^9}, {
   3.52820040734375*^9, 3.528200454015625*^9}, {3.52820075025*^9, 
   3.52820075921875*^9}, {3.528200796625*^9, 3.528200820546875*^9}}],

Cell[BoxData[
 RowBox[{"Plot", " ", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.528200481109375*^9, 3.528200487546875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Vad h\[ADoubleDot]nder f\[ODoubleDot]r ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "<", "2"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "?"
}], "Subsubsection",
 CellChangeTimes->{{3.5281061193125*^9, 3.528106127671875*^9}, 
   3.528199909734375*^9, {3.5282003270625*^9, 3.52820034871875*^9}, {
   3.528200890015625*^9, 3.52820090653125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", " ", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43020623921875*^9, 3.43020625509375*^9}, {
  3.528200032375*^9, 3.528200060171875*^9}, {3.52820017*^9, 
  3.528200190546875*^9}, {3.52820091609375*^9, 3.528200923640625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["L\[ODoubleDot]sningen", "Subsubsection",
 CellChangeTimes->{{3.52820110265625*^9, 3.528201105359375*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", " ", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "3"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"x", "-", "2"}], ")"}]}]], "<", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.4302061404375*^9, 3.430206220703125*^9}}],

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

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.52820010365625*^9}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exempel: Absolutbelopp", "Section",
 CellChangeTimes->{{3.3987073258466*^9, 3.3987073294034*^9}, {
   3.3987073674049997`*^9, 3.3987073973570004`*^9}, {3.3987083235134*^9, 
   3.3987083307362003`*^9}, 3.398708960789*^9, 3.528106709265625*^9}],

Cell[TextData[{
 "Absolutbeloppet ",
 Cell[BoxData[
  FormBox[
   RowBox[{"|", "x", "|"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " kan plottas med"
}], "Text",
 CellChangeTimes->{{3.3987041292804003`*^9, 3.3987041308716*^9}, {
  3.3987047160004*^9, 3.3987048150292*^9}, {3.3987053248996*^9, 
  3.3987053912307997`*^9}, {3.3987074069666*^9, 3.398707445873*^9}, {
  3.3987084015914*^9, 3.3987084550526*^9}, {3.3987086772122*^9, 
  3.3987087895945997`*^9}, {3.3987089773873997`*^9, 3.3987089938297997`*^9}, {
  3.5282667276875*^9, 3.528266749625*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"Abs", "[", "x", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3987089966066*^9, 3.398709020459*^9}}],

Cell[CellGroupData[{

Cell["Ett annat absolutbelopp", "Subsubsection",
 CellChangeTimes->{{3.528106776171875*^9, 3.52810679821875*^9}}],

Cell["Hur ser |x-4| ut?", "Text",
 CellChangeTimes->{{3.5282668203125*^9, 3.528266849234375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"x", "-", "4"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "7"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"Abs", "[", "x", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5281067379375*^9, 3.528106752625*^9}}],

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

Cell[CellGroupData[{

Cell["\<\
Exempel: Olikheter med absolutbelopp\
\>", "Section",
 CellChangeTimes->{{3.3987073258466*^9, 3.3987073294034*^9}, {
   3.3987073674049997`*^9, 3.3987073973570004`*^9}, {3.3987083235134*^9, 
   3.3987083307362003`*^9}, 3.398708960789*^9, 3.528106709265625*^9, {
   3.528106835484375*^9, 3.528106856578125*^9}}],

Cell[CellGroupData[{

Cell["Ex 1", "Subsection",
 CellChangeTimes->{{3.528107620109375*^9, 3.528107621328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TraditionalForm", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"3", "x"}], "+", "5"}], "]"}], "\[LessEqual]", 
   RowBox[{
    RowBox[{"2", "x"}], "+", "6"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3987090416448*^9, 3.3987091176792*^9}, {
   3.3987103821216*^9, 3.3987103921368*^9}, 3.3987104376576*^9, 
   3.528201497359375*^9, {3.5282016425625*^9, 3.528201652171875*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   TemplateBox[{RowBox[{
       RowBox[{"3", " ", "x"}], "+", "5"}]},
    "Abs"], "\[LessEqual]", 
   RowBox[{
    RowBox[{"2", " ", "x"}], "+", "6"}]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.5282016536875*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell["\<\
Hur ser det ut? B\[ARing]da funktionerna\
\>", "Subsubsection",
 CellChangeTimes->{{3.5281073045*^9, 3.52810731125*^9}, {3.528201550265625*^9,
   3.52820155346875*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"3", "x"}], "+", "5"}], "]"}], ",", 
     RowBox[{
      RowBox[{"2", "x"}], "+", "6"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "None"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.3987099689712*^9, 3.3987101041764*^9}, {
   3.3987102989892*^9, 3.3987102993168*^9}, 3.3987103338864*^9, {
   3.398710398564*^9, 3.3987104306376*^9}, {3.39871048569*^9, 
   3.3987105122567997`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Hur ser det ut? VL minus HL", "Subsubsection",
 CellChangeTimes->{{3.528201448796875*^9, 3.528201457265625*^9}, {
  3.5282015685625*^9, 3.52820158315625*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"3", "x"}], "+", "5"}], "]"}], "-", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "x"}], "+", "6"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "None"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.3987099689712*^9, 3.3987101041764*^9}, {
   3.3987102989892*^9, 3.3987102993168*^9}, 3.3987103338864*^9, {
   3.398710398564*^9, 3.3987104306376*^9}, {3.39871048569*^9, 
   3.3987105122567997`*^9}, {3.528201354765625*^9, 3.528201399765625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["L\[ODoubleDot]sningen", "Subsubsection",
 CellChangeTimes->{{3.5282016245*^9, 3.528201632828125*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{
     RowBox[{"3", "x"}], "+", "5"}], "]"}], "\[LessEqual]", 
   RowBox[{
    RowBox[{"2", "x"}], "+", "6"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.3987090416448*^9, 3.3987091176792*^9}, {
   3.3987103821216*^9, 3.3987103921368*^9}, 3.3987104376576*^9, 
   3.528201497359375*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
H\[ADoubleDot]r \[ADoubleDot]r ett alternativ till att \
\[ARing]sk\[ARing]dligg\[ODoubleDot]ra l\[ODoubleDot]sningen (\
\[CapitalODoubleDot]verkurs...):\
\>", "Subsubsection",
 CellChangeTimes->{{3.3987041292804003`*^9, 3.3987041308716*^9}, {
  3.3987047160004*^9, 3.3987048150292*^9}, {3.3987053248996*^9, 
  3.3987053912307997`*^9}, {3.3987074069666*^9, 3.398707445873*^9}, {
  3.3987084015914*^9, 3.3987084550526*^9}, {3.3987086772122*^9, 
  3.3987087895945997`*^9}, {3.3987089773873997`*^9, 3.3987089938297997`*^9}, {
  3.3987102365268*^9, 3.3987102696612*^9}, {3.3987105898824*^9, 
  3.3987106587251997`*^9}, {3.528201722171875*^9, 3.528201730015625*^9}}],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"3", "x"}], "+", "5"}], "]"}], "\[LessEqual]", 
    RowBox[{
     RowBox[{"2", "x"}], "+", "6"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", "/", "10"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "False"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "None"}], "}"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.39870925875*^9, 3.3987092609184*^9}, {
  3.3987093537696*^9, 3.3987093564996*^9}, {3.3987094012248*^9, 
  3.398709507414*^9}, {3.3987095793768*^9, 3.3987096139776*^9}, {
  3.3987097126944*^9, 3.3987099142307997`*^9}, {3.52810778934375*^9, 
  3.528107827953125*^9}}],

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

Cell[CellGroupData[{

Cell["Exempel 2", "Subsection",
 CellChangeTimes->{{3.5281076245625*^9, 3.528107626984375*^9}, {
  3.528171869078125*^9, 3.528171870765625*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"3", "x"}], "+", "5"}], "]"}], "\[LessEqual]", 
    RowBox[{
     RowBox[{"3", "x"}], "-", "2"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.528107683125*^9, 3.528107686734375*^9}}],

Cell[CellGroupData[{

Cell["Hur ser det ut?", "Subsubsection",
 CellChangeTimes->{{3.5281073045*^9, 3.52810731125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"3", "x"}], "+", "5"}], "]"}], ",", 
     RowBox[{
      RowBox[{"3", "x"}], "-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "10"}], ",", "10"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "None"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.528106928375*^9, 3.528107270953125*^9}],

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

Cell[CellGroupData[{

Cell["Faktorisering (i Mathematica)", "Section",
 CellChangeTimes->{{3.3987073258466*^9, 3.3987073294034*^9}, {
   3.3987073674049997`*^9, 3.3987073973570004`*^9}, {3.3987083235134*^9, 
   3.3987083307362003`*^9}, 3.398708960789*^9, 3.528106709265625*^9, {
   3.528106835484375*^9, 3.528106856578125*^9}, {3.5281980150625*^9, 
   3.528198021828125*^9}, {3.528198367953125*^9, 3.5281983859375*^9}, 
   3.528198473171875*^9}],

Cell["\<\
Vi definierar f\[ODoubleDot]rst ett uttryck:\
\>", "Text",
 CellChangeTimes->{{3.528198330296875*^9, 3.528198337640625*^9}, {
  3.528201802203125*^9, 3.52820181109375*^9}}],

Cell[BoxData[
 RowBox[{"uttryck", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "-", "2"}], ")"}], 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "3"], " ", "+", "4"}], ")"}], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{
      SuperscriptBox["Sin", "2"], "[", "x", "]"}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.5281980369375*^9, 3.528198150171875*^9}, {
   3.528198188734375*^9, 3.52819823384375*^9}, {3.52819827375*^9, 
   3.528198322703125*^9}, 3.528198608875*^9}],

Cell[CellGroupData[{

Cell["Utveckla uttrycket", "Subsubsection",
 CellChangeTimes->{{3.528198396328125*^9, 3.528198404296875*^9}}],

Cell[BoxData[
 RowBox[{"utvecklatUttryck", "=", 
  RowBox[{"Expand", "[", "uttryck", "]"}]}]], "Input",
 CellChangeTimes->{3.528198412234375*^9, 3.52819844403125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["F\[ODoubleDot]renkla", "Subsubsection",
 CellChangeTimes->{{3.528198396328125*^9, 3.528198404296875*^9}, {
  3.52819846509375*^9, 3.528198468171875*^9}}],

Cell[BoxData[
 RowBox[{"enkeltUttryck", "=", 
  RowBox[{"Simplify", "[", "utvecklatUttryck", "]"}]}]], "Input",
 CellChangeTimes->{{3.528198424828125*^9, 3.528198434765625*^9}, 
   3.5281984854375*^9, {3.528198544875*^9, 3.528198560125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Faktorisera", "Subsubsection",
 CellChangeTimes->{{3.528198396328125*^9, 3.528198404296875*^9}, {
  3.52819846509375*^9, 3.528198501671875*^9}}],

Cell[BoxData[
 RowBox[{"faktorUttryck", "=", 
  RowBox[{"Factor", "[", "utvecklatUttryck", "]"}]}]], "Input",
 CellChangeTimes->{{3.528198581015625*^9, 3.52819859634375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\[CapitalADoubleDot]r de lika?", "Subsubsection",
 CellChangeTimes->{{3.528198928640625*^9, 3.5281989349375*^9}}],

Cell["\<\
F\[ODoubleDot]r att definiera en likhet anv\[ADoubleDot]nder vi dubbla \
likhetstecken\
\>", "Text",
 CellChangeTimes->{{3.52819906459375*^9, 3.5281991145*^9}}],

Cell[BoxData[
 RowBox[{"uttryck", "==", "enkeltUttryck"}]], "Input",
 CellChangeTimes->{
  3.528198508765625*^9, {3.528198945234375*^9, 3.5281990154375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["??", "Subsubsection",
 CellChangeTimes->{{3.528199128625*^9, 3.528199128859375*^9}}],

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.52819903140625*^9, 3.528199048578125*^9}}],

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

Cell[CellGroupData[{

Cell["Variabler och tilldelning", "Section",
 CellChangeTimes->{{3.52819920978125*^9, 3.528199248953125*^9}, {
  3.5282158055*^9, 3.528215865609375*^9}}],

Cell[TextData[{
 "Vi kan tilldela ett v\[ADoubleDot]rde till en variabel (",
 StyleBox["ETT",
  FontWeight->"Bold"],
 " likhetstecken)"
}], "Text",
 CellChangeTimes->{{3.52821675428125*^9, 3.528216798078125*^9}, {
  3.5282170148125*^9, 3.52821703228125*^9}}],

Cell[BoxData[
 RowBox[{"variabel", "=", "34"}]], "Input",
 CellChangeTimes->{{3.528216804109375*^9, 3.52821681203125*^9}}],

Cell["\<\
Vi kan sedan anv\[ADoubleDot]nda variabeln i andra uttryck\
\>", "Text",
 CellChangeTimes->{{3.528216847296875*^9, 3.528216877375*^9}, 
   3.528216999046875*^9}],

Cell[BoxData[{
 RowBox[{"2", " ", "variabel"}], "\[IndentingNewLine]", 
 RowBox[{"variabel", "+", "10"}], "\[IndentingNewLine]", 
 SuperscriptBox["variabel", "2"]}], "Input",
 CellChangeTimes->{{3.5282169028125*^9, 3.5282169561875*^9}}],

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

Cell[CellGroupData[{

Cell["Likheter och ekvationer", "Section",
 CellChangeTimes->{{3.52819920978125*^9, 3.528199248953125*^9}}],

Cell[TextData[{
 "Vi kan definiera likheter  (",
 StyleBox["TV\[CapitalARing]",
  FontWeight->"Bold"],
 " likhetstecken)"
}], "Text",
 CellChangeTimes->{{3.528217106875*^9, 3.528217126359375*^9}, {
  3.5282171700625*^9, 3.528217177296875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "variabel"}], "\[Equal]", "68"}]], "Input",
 CellChangeTimes->{{3.52821745378125*^9, 3.528217470109375*^9}, {
  3.528217698453125*^9, 3.52821769978125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"3", " ", "variabel"}], "\[Equal]", "68"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.52821745378125*^9, 3.528217488453125*^9}, {
  3.5282177055625*^9, 3.52821770725*^9}}],

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

Cell[CellGroupData[{

Cell["En ekvation \[ADoubleDot]r en likhet", "Subsection",
 CellChangeTimes->{{3.528218192515625*^9, 3.52821820853125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"4", "x"}], "+", 
   RowBox[{"6", 
    SuperscriptBox["x", "2"]}]}], "\[Equal]", "3"}]], "Input"],

Cell[CellGroupData[{

Cell["\<\
Vi kan s\[ODoubleDot]ka en l\[ODoubleDot]sning till ekvationen\
\>", "Subsubsection",
 CellChangeTimes->{{3.5282183179375*^9, 3.52821835321875*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"4", "x"}], "+", 
    RowBox[{"6", 
     SuperscriptBox["x", "2"]}]}], "\[Equal]", "3"}], "]"}]], "Input",
 CellChangeTimes->{{3.52821836365625*^9, 3.528218381265625*^9}}],

Cell["Numeriska v\[ADoubleDot]rden", "Text",
 CellChangeTimes->{{3.528222653359375*^9, 3.52822266125*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Code",
 CellChangeTimes->{{3.528218566703125*^9, 3.528218575546875*^9}, {
  3.52822262521875*^9, 3.528222630921875*^9}}],

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

Cell[CellGroupData[{

Cell["En ekvation till", "Section",
 CellChangeTimes->{{3.528222846875*^9, 3.52822285909375*^9}}],

Cell["\<\
Vi definierar f\[ODoubleDot]rst ekvationen 
Sedan l\[ODoubleDot]ser vi den.
Vi anv\[ADoubleDot]nder variabler som hj\[ADoubleDot]lpmedel\
\>", "Text",
 CellChangeTimes->{{3.52822305953125*^9, 3.528223137828125*^9}, {
  3.52822319596875*^9, 3.528223295203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ekvation1", "=", 
   RowBox[{
    SqrtBox["x"], "\[Equal]", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l\[ODoubleDot]sning", "=", 
   RowBox[{"Solve", "[", "ekvation1", "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.528218222953125*^9, 3.5282182711875*^9}, {
   3.52822291559375*^9, 3.528222976125*^9}, {3.52822329971875*^9, 
   3.52822332834375*^9}, 3.528223412171875*^9}],

Cell[TextData[{
 "L\[ODoubleDot]sningen beskrivs av en ",
 StyleBox["REGEL",
  FontWeight->"Bold"],
 ":"
}], "Text",
 CellChangeTimes->{{3.52822343153125*^9, 3.528223506*^9}, 
   3.528223769109375*^9}],

Cell[BoxData["l\[ODoubleDot]sning"], "Input",
 CellChangeTimes->{{3.52822348871875*^9, 3.52822349209375*^9}}],

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

Cell[CellGroupData[{

Cell["ReplaceAll ", "Section",
 CellChangeTimes->{{3.5282241904375*^9, 3.5282242098125*^9}}],

Cell[CellGroupData[{

Cell["\<\
ReplaceAll (/.)
Ett par exempel\
\>", "Subsection",
 CellChangeTimes->{{3.528223608*^9, 3.52822367428125*^9}, {
   3.528224064484375*^9, 3.5282240930625*^9}, {3.52822440121875*^9, 
   3.52822444853125*^9}, 3.528259305953125*^9, {3.528259348015625*^9, 
   3.5282593565625*^9}}],

Cell[TextData[{
 "Vi rensar f\[ODoubleDot]rst variabeln ",
 StyleBox["n",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.52825958009375*^9, 3.528259606734375*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "n", "]"}]], "Input",
 CellChangeTimes->{{3.528259420484375*^9, 3.52825943290625*^9}}],

Cell["Vi testar ReplaceAll", "Text",
 CellChangeTimes->{{3.528260242328125*^9, 3.528260256125*^9}}],

Cell[BoxData[
 RowBox[{"n", "/.", 
  RowBox[{"{", 
   RowBox[{"n", "\[Rule]", "3"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.52825920534375*^9, 3.528259236265625*^9}}],

Cell["Vad har n f\[ODoubleDot]r v\[ADoubleDot]rde nu?", "Text",
 CellChangeTimes->{{3.528259369796875*^9, 3.528259403203125*^9}}],

Cell[BoxData["n"], "Input",
 CellChangeTimes->{3.528259409*^9}],

Cell["\<\
???
\
\>", "Text",
 CellChangeTimes->{{3.528259668765625*^9, 3.528259682625*^9}, {
  3.528259747203125*^9, 3.528259754453125*^9}, {3.528260186125*^9, 
  3.52826020596875*^9}}],

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

Cell[CellGroupData[{

Cell["Vi g\[ODoubleDot]r s\[ARing] h\[ADoubleDot]r i st\[ADoubleDot]llet", \
"Subsubsection",
 CellChangeTimes->{{3.528260214125*^9, 3.528260218328125*^9}, 
   3.5282671634375*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nV\[ADoubleDot]rde", "=", 
   RowBox[{"n", "/.", 
    RowBox[{"{", 
     RowBox[{"n", "\[Rule]", "3"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", "nV\[ADoubleDot]rde", "\[IndentingNewLine]", \
"n"}], "Input",
 CellChangeTimes->{{3.528259697453125*^9, 3.528259734890625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["?", "Subsubsection",
 CellChangeTimes->{3.5285225805625*^9}],

Cell[TextData[{
 "\n",
 StyleBox["n",
  FontWeight->"Bold"],
 " erh\[ARing]ller ett v\[ADoubleDot]rde medan vi utf\[ODoubleDot]r kommandot \
ReplaceAll, men beh\[ARing]ller inte v\[ADoubleDot]rdet (om vi inte g\
\[ODoubleDot]r en tilldelning)\nD\[ADoubleDot]remot har vi tilldelat v\
\[ADoubleDot]rdet till variabeln ",
 StyleBox["nV\[ADoubleDot]rde",
  FontWeight->"Bold"],
 "\n"
}], "Text",
 CellChangeTimes->{{3.528259832625*^9, 3.5282599261875*^9}, {
   3.52826004215625*^9, 3.5282600909375*^9}, 3.52826030490625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Ett exempel till", "Subsubsection",
 CellChangeTimes->{{3.528259955921875*^9, 3.5282599790625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "+", 
   RowBox[{"3", 
    SuperscriptBox["n", "2"]}]}], "/.", 
  RowBox[{"{", 
   RowBox[{"n", "\[Rule]", "3"}], 
   "}"}]}], "\[IndentingNewLine]", "n"}], "Input",
 CellChangeTimes->{{3.52825920534375*^9, 3.52825926390625*^9}, {
  3.52826038915625*^9, 3.5282603906875*^9}}],

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

Cell[CellGroupData[{

Cell["V\[ARing]r ekvationsl\[ODoubleDot]sning", "Subsection",
 CellChangeTimes->{{3.528223608*^9, 3.52822367428125*^9}, {
  3.528224064484375*^9, 3.5282240930625*^9}, {3.52822440121875*^9, 
  3.52822444853125*^9}, {3.528260448234375*^9, 3.52826047809375*^9}, {
  3.52826054203125*^9, 3.5282605523125*^9}}],

Cell[TextData[{
 "Vi anv\[ADoubleDot]nder nu ReplaceAll (/.) f\[ODoubleDot]r v\[ARing]r \
ekvationsl\[ODoubleDot]sning\nVi kombinerar det med tilldelning till \
variabeln ",
 StyleBox["l\[ODoubleDot]sv\[ADoubleDot]rde",
  FontWeight->"Bold",
  FontSlant->"Italic"]
}], "Text",
 CellChangeTimes->{{3.528223608*^9, 3.52822367428125*^9}, {
   3.528224064484375*^9, 3.5282240930625*^9}, {3.52822440121875*^9, 
   3.52822444853125*^9}, {3.528260448234375*^9, 3.52826047809375*^9}, 
   3.528260576609375*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"l\[ODoubleDot]sv\[ADoubleDot]rde", "=", 
   RowBox[{"x", "/.", "l\[ODoubleDot]sning"}]}], 
  ";"}], "\[IndentingNewLine]", "l\[ODoubleDot]sv\[ADoubleDot]rde"}], "Input",
 CellChangeTimes->{{3.528223944640625*^9, 3.528223971609375*^9}, 
   3.528224043203125*^9, {3.528224101578125*^9, 3.528224120296875*^9}, {
   3.528224288984375*^9, 3.528224295171875*^9}, 3.528224555734375*^9, 
   3.528224904046875*^9, {3.5282249915*^9, 3.528225001984375*^9}}],

Cell[CellGroupData[{

Cell["\<\
Skriver vi s\[ARing] h\[ADoubleDot]r f\[ARing]r vi sifferv\[ADoubleDot]rdet:\
\>", "Subsubsection",
 CellChangeTimes->{{3.528224666515625*^9, 3.528224696671875*^9}}],

Cell[BoxData[
 RowBox[{"l\[ODoubleDot]sv\[ADoubleDot]rde", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
En bekv\[ADoubleDot]mare syntax kan vara denna\
\>", "Subsubsection",
 CellChangeTimes->{{3.52822433953125*^9, 3.5282243535*^9}, {
  3.528224753953125*^9, 3.5282247706875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", "l\[ODoubleDot]sv\[ADoubleDot]rde", "}"}], "=", 
   RowBox[{"x", "/.", "l\[ODoubleDot]sning"}]}], 
  ";"}], "\[IndentingNewLine]", "l\[ODoubleDot]sv\[ADoubleDot]rde"}], "Input",
 CellChangeTimes->{{3.528223682375*^9, 3.52822369196875*^9}, {
  3.528224831015625*^9, 3.528224860375*^9}, {3.528224922578125*^9, 
  3.528224926484375*^9}, {3.528225622875*^9, 3.5282256401875*^9}}],

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

Cell[CellGroupData[{

Cell["En ekvation med tv\[ARing] l\[ODoubleDot]sningar", "Section",
 CellChangeTimes->{{3.5282251165625*^9, 3.528225122984375*^9}, {
  3.52822564434375*^9, 3.528225660453125*^9}}],

Cell[CellGroupData[{

Cell["Alternativ 1", "Subsubsection",
 CellChangeTimes->{{3.528225735484375*^9, 3.52822574321875*^9}}],

Cell[BoxData[
 RowBox[{"l\[ODoubleDot]slista", "=", 
  RowBox[{"x", "/.", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"3", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"7", "x"}], "+", "2"}], "\[Equal]", "0"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5282251395625*^9, 3.5282252023125*^9}, 
   3.52822530690625*^9, {3.528225342484375*^9, 3.528225357140625*^9}, {
   3.528225392390625*^9, 3.5282254215625*^9}, {3.52822553140625*^9, 
   3.5282255393125*^9}, 3.528225584046875*^9, 3.528225720546875*^9}],

Cell["V\[ADoubleDot]rdena finns nu i listan:", "Text",
 CellChangeTimes->{{3.52822586*^9, 3.528225883734375*^9}}],

Cell[BoxData[
 RowBox[{"l\[ODoubleDot]slista", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"l\[ODoubleDot]slista", "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{3.528225815140625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Alternativ 2", "Subsubsection",
 CellChangeTimes->{{3.528225735484375*^9, 3.52822574321875*^9}, 
   3.528225792015625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"x1", ",", "x2"}], "}"}], "=", 
  RowBox[{"x", "/.", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"3", 
       SuperscriptBox["x", "2"]}], "-", 
      RowBox[{"3", "x"}], "-", "12"}], "\[Equal]", "0"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5282251395625*^9, 3.5282252023125*^9}, 
   3.52822530690625*^9, {3.528225342484375*^9, 3.528225357140625*^9}, {
   3.528225392390625*^9, 3.5282254215625*^9}, {3.52822553140625*^9, 
   3.5282255393125*^9}, 3.528225584046875*^9, {3.52822597125*^9, 
   3.52822600825*^9}, {3.528226296609375*^9, 3.528226324796875*^9}}],

Cell[TextData[{
 "V\[ADoubleDot]rdena finns nu i variablerna ",
 StyleBox["x1",
  FontWeight->"Bold"],
 " oxh ",
 StyleBox["x2",
  FontWeight->"Bold"],
 "."
}], "Text",
 CellChangeTimes->{{3.528225909625*^9, 3.528225960296875*^9}}],

Cell[BoxData["x1"], "Input",
 CellChangeTimes->{{3.5282252379375*^9, 3.528225246359375*^9}, 
   3.528225312921875*^9, {3.528225442296875*^9, 3.52822551846875*^9}, {
   3.5282255614375*^9, 3.52822556728125*^9}, 3.528225770140625*^9, 
   3.5282260853125*^9}],

Cell[BoxData["x2"], "Input",
 CellChangeTimes->{{3.52822605909375*^9, 3.528226060546875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Vi kan anv\[ADoubleDot]nda v\[ADoubleDot]rdena i uttryck\
\>", "Subsubsection",
 CellChangeTimes->{{3.528226132515625*^9, 3.52822614165625*^9}, {
  3.5282261888125*^9, 3.52822621425*^9}, {3.528226788265625*^9, 
  3.52822678846875*^9}}],

Cell["En summa", "Text",
 CellChangeTimes->{{3.528226621140625*^9, 3.52822662346875*^9}, {
  3.528255560671875*^9, 3.528255565609375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", "x1"}], "+", 
  RowBox[{"4", "x2"}]}]], "Input",
 CellChangeTimes->{{3.5282261471875*^9, 3.528226158328125*^9}, {
  3.528226411109375*^9, 3.528226413796875*^9}}],

Cell["En  produkt", "Text",
 CellChangeTimes->{{3.528226628640625*^9, 3.528226646421875*^9}, {
  3.52825558215625*^9, 3.528255589359375*^9}}],

Cell[BoxData[
 RowBox[{"x1", " ", "x2"}]], "Input",
 CellChangeTimes->{{3.52822627309375*^9, 3.528226277390625*^9}, {
  3.528226442078125*^9, 3.528226459921875*^9}, {3.52822669575*^9, 
  3.52822669671875*^9}}],

Cell["F\[ODoubleDot]renkla", "Text",
 CellChangeTimes->{{3.528226726796875*^9, 3.52822673040625*^9}}],

Cell[BoxData[
 RowBox[{"%", "//", "Simplify"}]], "Input"],

Cell["Potens", "Text",
 CellChangeTimes->{{3.528226677515625*^9, 3.52822668103125*^9}}],

Cell[BoxData[
 SuperscriptBox["x2", "x1"]], "Input",
 CellChangeTimes->{{3.528226220078125*^9, 3.528226243296875*^9}, {
  3.52822654284375*^9, 3.52822656484375*^9}}],

Cell["Numeriskt v\[ADoubleDot]rde", "Text",
 CellChangeTimes->{{3.52822675325*^9, 3.528226761515625*^9}}],

Cell[BoxData[
 RowBox[{"%", "//", "N"}]], "Input",
 CellChangeTimes->{3.528226598578125*^9}],

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

Cell[CellGroupData[{

Cell["Funktion eller ekvation?", "Section",
 CellChangeTimes->{{3.528260937640625*^9, 3.52826095325*^9}}],

Cell[TextData[{
 "Studera uttrycket\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{"k", " ", "x"}], "+", "m"}]}], TraditionalForm]]],
 "\n\n\[CapitalADoubleDot]r det \n\ten funktion ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", "(", "x", ")"}], "=", 
    RowBox[{
     RowBox[{"k", " ", "x"}], "+", "m"}]}], TraditionalForm]]],
 "\neller\n\ten ekvation ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{"k", " ", "x"}], "+", "m"}]}], TraditionalForm]]],
 " ?\n"
}], "Text",
 CellChangeTimes->{{3.528261114109375*^9, 3.528261327109375*^9}}],

Cell[TextData[{
 "Vilket det \[ADoubleDot]r f\[ODoubleDot]ruts\[ADoubleDot]tts vi kunna tolka \
av sammanhanget, men i ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "  m\[ARing]ste vi vara tydliga med vad vi menar!"
}], "Text",
 CellChangeTimes->{{3.5282613816875*^9, 3.52826150584375*^9}}],

Cell[BoxData[
 RowBox[{"y1", "=", 
  RowBox[{
   RowBox[{"k", " ", "x"}], "+", "m"}]}]], "Input",
 CellChangeTimes->{{3.52826152565625*^9, 3.5282615575625*^9}, 3.528261769*^9}],

Cell["eller", "Text",
 CellChangeTimes->{{3.528261584046875*^9, 3.528261585609375*^9}}],

Cell[BoxData[
 RowBox[{"y2", "\[Equal]", 
  RowBox[{
   RowBox[{"k", " ", "x"}], "+", "m"}]}]], "Input",
 CellChangeTimes->{{3.528261591671875*^9, 3.5282615996875*^9}, 
   3.528261781890625*^9}],

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

Cell[CellGroupData[{

Cell[TextData[{
 "Vi kan ocks\[ARing] definiera en funktion i ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "..."
}], "Section",
 CellChangeTimes->{{3.5282616523125*^9, 3.528261661046875*^9}, {
   3.528261909265625*^9, 3.528261951921875*^9}, 3.52826232275*^9, {
   3.528262529859375*^9, 3.528262530421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"y", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"3", "x"}], "+", "7"}]}]], "Input",
 CellChangeTimes->{{3.52826167528125*^9, 3.52826170025*^9}}],

Cell[CellGroupData[{

Cell["\<\
som vi kan anv\[ADoubleDot]nda precis som Mathematicas inbyggda funktioner\
\>", "Subsubsection",
 CellChangeTimes->{{3.528261855234375*^9, 3.528261859671875*^9}, {
  3.52826196103125*^9, 3.5282619939375*^9}}],

Cell[BoxData[
 RowBox[{"y", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.52826181146875*^9, 3.52826182465625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Eller s\[ARing] h\[ADoubleDot]r", "Subsubsection",
 CellChangeTimes->{{3.528262070015625*^9, 3.528262077890625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"yfunk", "[", 
   RowBox[{"x_", ",", "k_", ",", "m_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"k", " ", "x"}], "+", "m"}]}]], "Input",
 CellChangeTimes->{{3.52826167528125*^9, 3.52826170025*^9}, {
  3.52826209584375*^9, 3.5282621489375*^9}}],

Cell["som vi kan anv\[ADoubleDot]nda s\[ARing] h\[ADoubleDot]r", "Text",
 CellChangeTimes->{{3.52826228753125*^9, 3.52826230090625*^9}, 
   3.5282623788125*^9}],

Cell[BoxData[
 RowBox[{"yfunk", "[", 
  RowBox[{"x", ",", "3", ",", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.528262183453125*^9, 3.528262209796875*^9}}],

Cell[BoxData[
 RowBox[{"yfunk", "[", 
  RowBox[{"5", ",", "3", ",", "7"}], "]"}]], "Input",
 CellChangeTimes->{3.52826224521875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
... och ekvationen kan vi l\[ODoubleDot]sa \
\>", "Subsection",
 CellChangeTimes->{{3.528262533390625*^9, 3.528262560515625*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"y", "\[Equal]", 
   RowBox[{
    RowBox[{"k", " ", "x"}], "+", "m"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.528262571125*^9, 3.5282625919375*^9}}],

Cell["Om vi vil l\[ODoubleDot]sa ut x", "Text",
 CellChangeTimes->{{3.528262632828125*^9, 3.528262644890625*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"y", "\[Equal]", 
    RowBox[{
     RowBox[{"k", " ", "x"}], "+", "m"}]}], ",", 
   StyleBox["x",
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.528262667765625*^9, 3.5282626683125*^9}}],

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

Cell[CellGroupData[{

Cell["\<\
Plotta funktioner och ekvationer\
\>", "Section",
 CellChangeTimes->{{3.5282616523125*^9, 3.528261661046875*^9}, {
   3.528261909265625*^9, 3.528261951921875*^9}, 3.52826232275*^9, {
   3.528262529859375*^9, 3.528262530421875*^9}, {3.528262803125*^9, 
   3.52826284140625*^9}, 3.5282628793125*^9}],

Cell[CellGroupData[{

Cell["Plotta en funktion", "Subsection",
 CellChangeTimes->{{3.52826308753125*^9, 3.52826309584375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"3", "x"}], "+", "4"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.52826310428125*^9, 3.528263141171875*^9}}],

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

Cell[CellGroupData[{

Cell["Styra plottens utseende", "Subsection",
 CellChangeTimes->{{3.528263184015625*^9, 3.52826319290625*^9}}],

Cell[CellGroupData[{

Cell["Intervall p\[ARing] vertikala axeln", "Subsubsection",
 CellChangeTimes->{{3.528263250515625*^9, 3.528263275953125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"3", "x"}], "+", "4"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   StyleBox[
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5"}], ",", "10"}], "}"}]}],
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.528263280609375*^9, 3.528263318296875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Plottens dimensioner", "Subsubsection",
 CellChangeTimes->{{3.528263357265625*^9, 3.528263366046875*^9}}],

Cell["Samma skala p\[ARing] axlarna", "Text",
 CellChangeTimes->{{3.52826365475*^9, 3.528263693953125*^9}, {
  3.5282637476875*^9, 3.528263814515625*^9}, {3.52826422475*^9, 
  3.52826423734375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"3", "x"}], "+", "4"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   StyleBox[
    RowBox[{"AspectRatio", "\[Rule]", "Automatic"}],
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.528263384890625*^9, 3.528263410578125*^9}, {
   3.528263463453125*^9, 3.5282634944375*^9}, 3.528263593890625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Text p\[ARing] axlarna", "Subsubsection",
 CellChangeTimes->{{3.528263250515625*^9, 3.528263275953125*^9}, {
  3.52826437071875*^9, 3.5282643825625*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"3", "x"}], "+", "4"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   StyleBox[
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5"}], ",", "10"}], "}"}]}],
    FontColor->GrayLevel[0]], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "\"\<y=3x+4\>\""}], "}"}]}],
    FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.528263280609375*^9, 3.528263318296875*^9}, {
  3.52826438709375*^9, 3.528264563671875*^9}, {3.528264667484375*^9, 
  3.528264670296875*^9}}],

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

Cell[CellGroupData[{

Cell["Plotta en ekvation", "Subsection",
 CellChangeTimes->{{3.528264818296875*^9, 3.528264846703125*^9}}],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"3", "x"}], "+", "4"}], "\[Equal]", "y"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.52826485525*^9, 3.52826492915625*^9}}],

Cell[CellGroupData[{

Cell["Snygga till plotten", "Subsubsection",
 CellChangeTimes->{{3.52826495534375*^9, 3.528264963984375*^9}}],

Cell["Ta bort ram, l\[ADoubleDot]gg till axlar", "Text",
 CellChangeTimes->{{3.5282650436875*^9, 3.528265065984375*^9}, 
   3.528265150265625*^9}],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"3", "x"}], "+", "4"}], "\[Equal]", "y"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"Frame", "->", "False"}],
    FontColor->GrayLevel[0]], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[" ",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"Axes", "\[Rule]", "True"}],
    FontColor->GrayLevel[0]], 
   StyleBox[",",
    FontColor->GrayLevel[0]], 
   StyleBox[
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "\"\<y=3x+4\>\""}], "}"}]}],
    FontColor->GrayLevel[0]]}], "]"}]], "Input",
 CellChangeTimes->{{3.52826485525*^9, 3.52826492915625*^9}, {
   3.52826497740625*^9, 3.528265020015625*^9}, {3.528265091515625*^9, 
   3.528265093375*^9}, 3.52826513890625*^9}],

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

Cell[CellGroupData[{

Cell["\<\
Andragradsfunktion - andragradskurva\
\>", "Section",
 CellChangeTimes->{{3.52843154309375*^9, 3.528431572203125*^9}}],

Cell["\<\
 Vi definierar en godtycklig andragradsfunktion som en funktion i Mathematica\
\>", "Text",
 CellChangeTimes->{{3.52843172475*^9, 3.52843176409375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"grad2funk", "[", 
   RowBox[{"x_", ",", "a_", ",", "b_", ",", "c_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"a", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{"b", " ", "x"}], "+", "c"}]}]], "Input",
 CellChangeTimes->{{3.528431597234375*^9, 3.52843169659375*^9}, {
  3.528431816203125*^9, 3.52843182553125*^9}}],

Cell[BoxData[
 RowBox[{"c", "+", 
  RowBox[{"b", " ", "x"}], "+", 
  RowBox[{"a", " ", 
   SuperscriptBox["x", "2"]}]}]], "Output",
 CellChangeTimes->{3.528431705546875*^9, 3.5284318274375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "En andragrads-",
 StyleBox["funktion",
  FontColor->RGBColor[1, 0, 0]]
}], "Subsubsection",
 CellChangeTimes->{{3.528432093125*^9, 3.528432108078125*^9}, 
   3.528432194796875*^9, 3.528432491453125*^9}],

Cell[BoxData[
 RowBox[{"grad2funk", "[", 
  RowBox[{"x", ",", "2", ",", "5", ",", 
   RowBox[{"-", "7"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5284317118125*^9, 3.528431712265625*^9}, {
  3.5284318045*^9, 3.52843185371875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "En andragrads-",
 StyleBox["ekvation",
  FontColor->RGBColor[1, 0, 0]]
}], "Subsubsection",
 CellChangeTimes->{{3.528432093125*^9, 3.528432108078125*^9}, {
   3.528432150296875*^9, 3.52843215171875*^9}, 3.528432201109375*^9, 
   3.528432492953125*^9}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"grad2funk", "[", 
     RowBox[{"x", ",", "a", ",", "b", ",", "c"}], "]"}], "\[Equal]", "0"}], 
   ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.52843188684375*^9, 3.528431950140625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["pq-formeln", "Subsubsection",
 CellChangeTimes->{{3.52843216165625*^9, 3.528432170046875*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"grad2funk", "[", 
     RowBox[{"x", ",", "1", ",", "p", ",", "q"}], "]"}], "\[Equal]", "0"}], 
   ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{
  3.528431972140625*^9, {3.528432034203125*^9, 3.528432073171875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["En andragradskurva", "Subsubsection",
 CellChangeTimes->{{3.528432273265625*^9, 3.52843228853125*^9}, 
   3.528432359171875*^9, {3.528432587*^9, 3.528432588546875*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    StyleBox["grad2funk",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox["[",
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[
     RowBox[{"x", ",", "2", ",", "5", ",", 
      RowBox[{"-", "7"}]}],
     FontColor->RGBColor[1, 0, 0]], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      StyleBox[
       RowBox[{"grad2funk", "[", 
        RowBox[{"x", ",", "2", ",", "5", ",", 
         RowBox[{"-", "7"}]}], "]"}],
       FontColor->RGBColor[1, 0, 0]]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.528432292703125*^9, 3.528432339234375*^9}, {
  3.5284323733125*^9, 3.528432406875*^9}}],

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

Cell[CellGroupData[{

Cell["En parabel", "Section",
 CellChangeTimes->{{3.528432699609375*^9, 3.52843270440625*^9}}],

Cell["\<\
Vi definierar en parabel med vertikal symmetriaxel\
\>", "Text",
 CellChangeTimes->{{3.528432713890625*^9, 3.528432751703125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"par", "[", 
   RowBox[{"c1_", ",", "c2_", ",", "c3_", ",", "x_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"c1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "-", "c2"}], ")"}], "2"]}], "+", "c3"}]}]], "Input",
 CellChangeTimes->{{3.528432757125*^9, 3.528432974625*^9}}],

Cell[BoxData[
 RowBox[{"c3", "+", 
  RowBox[{"c1", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "c2"}], "+", "x"}], ")"}], "2"]}]}]], "Output",
 CellChangeTimes->{3.559889368874054*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"par", "[", 
    RowBox[{"2", ",", "5", ",", 
     RowBox[{"-", "1"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "15"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.528432994328125*^9, 3.528433061828125*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc81e37AHB7ZB3nc+x9SFRHSDwhnys9sjIzUigjzhMh+4ms7N2QXSlS
VkpLw32SPFJGsiIjex8jIcX3/P74/XW/rtf1uu/7ut7XP/frlnP1tT7LwsTE
RGRmYvq/9Vdr/tj2NkZrqK8f2B6iwqe1vTPPNzBaQERajGIvFQpl6+i+Kxjt
7o51V/N2KoD/8K+hCYyWfb2iu4hGhXihnYK0FoxW7XMtyb6ICoKOVYei8jHa
M50TUluuVFCapt1g0sJoUgfrfmtNeoI964QRsw+Rpvd2M895xQN4mtPd1V8S
aMxtqh43VtzB/IxITdJRflpRc+Kbe7vdwJTPK71EiYdmkV8jaRbhAuuDYb2y
/3HSrCKOSGknnIZAukaX8y02WtLVt7b7gh3htkI5/N7PTKvH0hpdLB1ALuin
ttyjTRROl93T6GEHRdKTDm3nVxHyzTo103McmOWLK0KPzqN1jWJ1BT0r+MMq
4eeUM4z4RS2ag3+Ygdrt8dGQ+zTkoqppG/nZGEz0PeMNSzrwplr905PlBiD2
ED05OTWOvxgXEDsjow+KWeWrxo1LODa88zQLHAKtK0eqQkPXcVPPQ82cIlrw
QCCFmfx8C9dqJfivbKiBM7lCJ76OBQgsdtdndXdDi0QL+56PLODcox7rJLEb
dIUW2tp6WKAzptp3dEMZxLlU3cWWWEDTMf3gnufK0DVfk1ohzwpfRDtzytSV
4Vjtq4GORFbwrE2Io1KUQMfyY6TMcTb4k50h8l1NEUQjZt69mGSHxWY56ffB
ZPgRY0nwXmWHn0fTv36xJ0N7wjNHGVYO0Ek9y/PrLzIkXolZjZPmgBh/m47U
TTnYKBbfddyWA/5U7p//GC0HfR9NkufrOeDF8Jpd9VVZKBQrtyTf5ITAcyqr
8qlScFFasLCrnBP2Pq7lkLGRAjv5kOnEWk5wTxVnN5aUAn7KkRh6JydYrjs2
KVdKQgT017zm4QKOqjGq9GcJOOPJI2L/LxcsZ24LdsqJA/mp10CKDTfMabix
XZgQhjBrXvNtF27g5zLZsf+pMHTSK+r8fbnhXkKmKTlWGOJ3L9xySOaGA6m6
UYlkYZi55ee6i8YNnWWExwEuQlCTHDRZv2cH8Os90Ho/icHfZyKXNlh4IP51
frONsCAU/pFxPU/gARvpUN26GQL8zKN1DEvxwI29T6ZtEAHudzE/+e8vHggz
N/3J/Q8B+Exjg7N8eCDGYvbhzksC0H0gaVO1jweKzwRdxMd4wZPnGjv1ES/M
q/PKHPvJCQ2c/3j9eMMLotYJ+2IecgKZDf8c1cwLJ/SMNjn+4YTB3zMFuaO8
QInIb/j9jQPsFvQ1PgrxATk/QTq3iR3+/rzsqnKRD4xMgunXq1iBnG1N+6HP
Dzm/TvKoe23jUdeUFKMt+KE1suHPsaUtfDBjK4XPkR90b9V6sIdu4XmJZfaK
QfxQV3G0wDzhDy54kYVuX8oPrixzWfqVmziT02OpVzwCwJLj9q5aeB0fIBPD
ojsFoMObg/Pe6SX8/m6Km+SIAEyYJl/vX1zEA9WNTJ/TBeDJb0ed5phFnF0O
pQWzE0C/dOBBiRUdz1dddaqQJQChMtGXvDmL/2fhsiViTwBel/OhcdfG8Yov
Pv7jTgRwtbd4g7WM4VftwyceuxNAeqlVg8Q1hjufzm418yeApEDpK6+YEfyH
T8vNy2kE6JwJspohDOGy6Qdx+jsCfOocYRqt+YJzEA1rXjcTIFbt1KCBbQc+
m2WzK/kzAfy6+OXSNtrxZ4W+AjuHCGA5ZlFxJesTfqyyZOjkLwIkbutvTcvU
46GfBKMaVQWBKan+35+nUtDnHTO0wkJBiN3QohyK60B/6V19uHZXEF6Wl8od
Df6Cbl/QvmlVJgjhUPDgg3sn8utNDmN/LgiKgqRA0O5GhHt7NM+3CwLZQm9l
rvErsjx8vlyXlQh9N/Vabu8fRi8ChfJucBOBnFI4upE9jGTvv0lcFCBCwVTd
EcLmMFrk5/coliSCwprR98A331HmtypZXk0iJLtevCK1fxS1hSxm9VOJcN3f
unHu+zjSLM+JPeBLhJkLvaHi6hPo5iAEZAQRIWJENog9egL5GFyxPBJDBF2R
DRNMYhLxY+o85flE4G5r9OKHKRR8tG+D7Q4R1u3PeCvGT6HBf2OmnO8TQdz6
9bPN5ilUNdzxnviUCIu5r5QGLaeReVVA1MVWIiyH9ETHmM2gZ98lfDs7ieCT
HNsemzSDpIUanFT6iSDJ/4P6d8MMWggj6YxMEoHvH/GQzQOzKN346aoxMwb6
52O5jHfMoZ/hTmN3OTEw5TYoOaA7h5yr2b/84cMgXrgpZch7DqmI2FU/Escg
M1ZI06t5DrWM/TwnpoHBSlXLtkvwPAp0f+11XBuDtITvbwIK55H4WLR3GmBg
GZtobfFuHnmM8vowm2FweiZj241nAfG6dfjoHMeg4viiSCFlAdWMZPsGOWBA
+T7Kcdt8ATGNkC9Mn8WghhpLZU1bQPdcpi7Ie2NQ66rW71a2gMy+V/o7+WOw
HHVBIb1xAeUN/xX4OQKDKeVybdhcQHBmK5AnDoPSJ8WcTRgdTQ69CzJIwSDb
Ta1cbA8daQyZh9RmY7BNYQsWt6OjPmdS6EohBsHGJoUf/qGj6MGvoZRiDKST
5PP1w+lIyfnWv55lGPyYy/CNS6Oj1gH3i0XVGPwMzBC/WkhHgU67w/qfYaAo
Ry6gVtCR+AA9TOgNBrFLhj+4XtIRzfFpuMU7DAgTTPIBjXTk+e3ipaQPGLRs
HVMq/UxH/I4Q8a4Ng+c6e9lK+unoST975J8uDFoLbj7zHqOjk6c+Rmp9wwAj
F+Nbs3TE1J8ZdWGEMZ+Purccluno3km76PIpDJRyqV0Ra3Rk1icRM76AwXry
rpHzm3T0w+F7jMwqo97b/75X3KKjvK/3LjtsYkDud458sE1H4OAde42ZBOEH
ewR+MuLJXrW4Fk4SsL8eCeZlxOkn1uI4+UnwyjX6ydxvhl/v6/jDJBLcotQ0
3dhg+NnHJISJk+CxZGjNjlU6iuoxTHwqS4KVfe2BRnQ6UrTnS6IrksDN8xWv
5RQdtXR3JClTSLBdfzBMbpjhZ5eT7LafBB/0TWmvuxl+3U4phQdJ8G6C3i/3
ieFnK5/ag5NgtmpXqyWNjjy6plIFj5JAP3/5hnENHfHaVqWZHiNBY7mlJm8J
HdV0BqTHWZMgePhwRU4Ww6tzK2PDmQTuzwYkBAIYXscbMvefJUGRfaLQxmmG
15ekK+e9SMAt1TheYcrw6SBd+x5CAk/SJre/DMPHuu+aRAQJnI4uO13mpKOJ
z7eu28aSILogPNF5YQHt/7z7xodMElg+NXHxf7GA+iwXb7Bmk+BXSLpAef4C
imp/mn2okAQ9zmevV15aQJ/aIPfRAxJI5H6SI+gtII9Wu4Lceka/KMrUtHoe
vfuiN3jyAwmoxsyvouLnkexXRVnJdhKkmJSSjU/No77Rn3dvDjDuq3Hru8o0
j8w3bpTfXSdBh/TNWW7tOVS+FTHvvk0CP3cTyR62OcTF5rlPkUMI0uUkDbRa
Z1E9v1bNfUwIDFlUI6sdZ5GmQs/LShUheOQklhVPnUHXlNFvnwNCYHJ6KX52
1wxaVCnVU9UVAtfeBb/R8WlUdjCk/rGxEBDUTlJSnaaRtIVI83N3IXALXzZ8
qzOFOC7af32bJwQTF5XZXtaMI7dIXOJykRD4/zgRau44jmixu5z+vi8EkeOV
Y0Gs4+hixtpw41MhEFZpKrlkNoYWirOnPrYLgbZD3Qe/9hHU3daz1sUhDDQV
V7WP8kNofxc6mM0nDPWCftLHDQdRZl9p2AmSMDSMNm0yUQeQyXjIdp8cI29z
KqH1dj+q+yXCOawrDFXnWEdUF3vQvZ0nhGf8hQE8zpQQOdpRfF9fh9a/wvC7
1k6tSqIVnc1wyoiLFAabc81JuOInpLDhyiWXKgxniKaZYXubUNGn87/sS4RB
lNVt8tEvhAoCLg++7xEGphMddT6rsXi4Ekc+NsioN7RXR+tiAX5qINHeZYyR
76loqLUsxcUN09t/LwpDVMiYU9PXJ3i2eG79/h0iUK0kYTPz9R1+9W3VvSJd
EVg/4n1H9fMX3D9YzY2uLwJGCgaC46JduNWeJzKHjEVAVn6foZBbN07Iqs3p
tRUBpUuaXNNbvXgatSFZwFcE7hcRh5xsBvFEgT6fS0Ui8NiOyU/v1Rge6cSu
5cAhCu0rFTxjZxdx4ZwyDRU+UUgX3VGn17mIV3RYqLOSREE8tVnB5sgS3muY
R6mUE4XO00ECD+WXcVX1fQrMh0ShtdbfYef8Cj7M4SD4IEAUmrV4adjdNRyq
K2bXh0Vh/dTLnrW8bbx7xmq6ZVIU7KsgxYbABN471ybuLIiCXHdXbPJxJsjJ
Ozxy7LcocEpmxfP3M8FibHfvbRExIEV7NgQvMMNtB6ZGI3Mx0Kg+pdykyAbM
rDa3c16JQd6d6ByfAS7oThKuNqsXg+Ulu+cxu7mhjPAVsXwQg3XB922LIdxg
Le085N3N2N/gNd+H7YDig1Tpw0tiELo00j9hwQNGfuEF04riMOITGjfQyweZ
A8U52lfFGe+7W+zy2YIg+2I18xtVAkayby9GB4hAyIK1hLSvBHQ+HDFfZLi2
KlSXnA6SAL8n1Pa4dhEIv3Lu5Ui0BJRehkOKKqLQc25odCpPAnZoy9TpzjKc
pT5orn6SgPccuY40b3H4HVPwjU9NEn7IRPCS06Sgx+yIEr4hCdeVOAtK5cgw
xv1uhZNJCp6E/WmSBzIsv9dH7RxSMCcWuvHMmQx8evp2riQpyNX65U4uIMMR
lcOxcfukYHFNzYNPVB4e8uPDH89KQVaqr6AGSQES2rRzTnRIwSt2eZ4GKUXQ
slLn8i+XhlAtr5SFoN2MeXj85yIrC96tTOt2DWrget2plXdSFt7O1I5ldmgC
k0HJxq06Oci69oF24o8uzI7rh9YnkKGh72Eq96PDUHZITaLFRR4K0sRw/2gD
eBoXJOhJUQBtjSfVHGeNIcPWzZR1VQEGz8Ufq75sBoe+FT1IaNkJ8pb73LuU
rUDruOap/GxFWFGRUeS5ehzYoyXUsv13gbL1S9R50g7uaJaZZBkrQa5Lk82+
vx0g5Vv6czJRGQo8lMz2KDiC0cEGo5xZZSirGlfJ8jkNVvEWlMJnuyFl8nyO
s60LKJ+KtS2+tAfKLLk7e7ZcoWuC+841270QoBQzYjviDi2u44eJMhT4um5T
w/nSA4bZStezyBS4v8tryafeA5bvUR+KKVJAf6P+ZU+zB4jOzkrKUSgwHqtF
r+z3ALeA5bV9OhT4fEhjyPuPB2xc3q40s6eAiWZ4v8ZhT9hZIiaelEGB+sNH
DeY/eMJfhv3tvNcoYNWcORvX4Qkm0wUJmTcoULEqKSXb7wl+FNnV7EIKtGv8
knOY84RXTxXb75VTgGbT9HiAnwpWjfvjG/6jAEjULKraUMGduqpr9JECD9tF
TEccqRC84/nKx1YKzCrVqWadpUKBubbLly7GeW/bCreDqTDZDbojoxQ4nMWx
PZFLhV+hLCtnJykg5xJaU3yHCrwSDQ+mZyjwqW3Pils5FdRPG4osLVHgapY9
afI1FQyYuVsDVylQNte2WvaeCifuNseur1PgykSSq18rFc4ZpOqE/2Z4XY47
qdVDhUuTZsvb2xT4//+Q/wEAIAKP
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 15}, {-0.9999952611340599, 198.99998367346973`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.559889374123267*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

Cell["En manipulation", "Section",
 CellChangeTimes->{{3.52843311140625*^9, 3.52843312475*^9}}],

Cell[TextData[{
 "Med funktionen ",
 StyleBox["Manipulate",
  FontWeight->"Bold"],
 " i ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "kan vi studera funktionen:\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", "(", "x", ")"}], "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["k", "1"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", "-", 
         SubscriptBox["k", "2"]}], ")"}], "2"]}], "+", 
     SubscriptBox["k", "3"], " "}]}], TraditionalForm]]],
 " \n\t"
}], "Text",
 CellChangeTimes->{{3.52843413746875*^9, 3.528434235234375*^9}, {
  3.528434293515625*^9, 3.528434358140625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"par", "[", 
      RowBox[{"k1", ",", "k2", ",", "k3", ",", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"par", "[", 
         RowBox[{"k1", ",", "k2", ",", "k3", ",", "x"}], "]"}]}], "}"}]}], 
     ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "2"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k1", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k2", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k3", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.52843313559375*^9, 3.52843338675*^9}, {
  3.528433418125*^9, 3.528433521625*^9}, {3.528433571859375*^9, 
  3.528433622296875*^9}, {3.528433654328125*^9, 3.528433677734375*^9}, {
  3.5284337341875*^9, 3.528433771*^9}, {3.528433856296875*^9, 
  3.52843389240625*^9}, {3.5284346538125*^9, 3.528434711046875*^9}, {
  3.528434778015625*^9, 3.528434784765625*^9}, {3.528434819109375*^9, 
  3.528434832453125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k1$$ = 
    0.6600000000000001, $CellContext`k2$$ = 0.75, $CellContext`k3$$ = 
    4.125000000000018, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$, 
    Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k1$$], 1}, -5, 5}, {{
       Hold[$CellContext`k2$$], 0}, -10, 10}, {{
       Hold[$CellContext`k3$$], 0}, -10, 10}}, Typeset`size$$ = {
    360., {98., 102.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`k1$13050$$ = 
    0, $CellContext`k2$13051$$ = 0, $CellContext`k3$13052$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k1$$ = 1, $CellContext`k2$$ = 
        0, $CellContext`k3$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`k1$$, $CellContext`k1$13050$$, 0], 
        Hold[$CellContext`k2$$, $CellContext`k2$13051$$, 0], 
        Hold[$CellContext`k3$$, $CellContext`k3$13052$$, 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`par[$CellContext`k1$$, $CellContext`k2$$, \
$CellContext`k3$$, $CellContext`x], {$CellContext`x, -15, 15}, 
        PlotRange -> {-15, 15}, AxesLabel -> {$CellContext`x, 
          $CellContext`par[$CellContext`k1$$, $CellContext`k2$$, \
$CellContext`k3$$, $CellContext`x]}, AspectRatio -> 1/2, 
        PlotStyle -> {Red, Thick}], 
      "Specifications" :> {{{$CellContext`k1$$, 1}, -5, 
         5}, {{$CellContext`k2$$, 0}, -10, 10}, {{$CellContext`k3$$, 0}, -10, 
         10}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{409., {171., 176.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.52843389615625*^9, 3.5284341224375*^9, 
  3.528434664515625*^9, 3.52843471253125*^9, 3.52843478690625*^9, 
  3.5284348339375*^9}]
}, {2}]],

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

Cell[CellGroupData[{

Cell["Samma funktion", "Section",
 CellChangeTimes->{{3.528436208546875*^9, 3.528436213140625*^9}}],

Cell["\<\
H\[ADoubleDot]r kan koefficienterna enbart anta heltalsv\[ADoubleDot]rden; \
det ger lite \[ODoubleDot]versk\[ARing]dligare funktion.\
\>", "Text",
 CellChangeTimes->{{3.52843624346875*^9, 3.528436292171875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"par", "[", 
      RowBox[{"k1", ",", "k2", ",", "k3", ",", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "15"}], ",", "15"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"par", "[", 
           RowBox[{"k1", ",", "k2", ",", "k3", ",", "x"}], "]"}], ",", 
          RowBox[{"Expand", "[", 
           RowBox[{"par", "[", 
            RowBox[{"k1", ",", "k2", ",", "k3", ",", "x"}], "]"}], "]"}]}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "2"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k1", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k2", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k3", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.52843313559375*^9, 3.52843338675*^9}, {
  3.528433418125*^9, 3.528433521625*^9}, {3.528433571859375*^9, 
  3.528433622296875*^9}, {3.528433654328125*^9, 3.528433677734375*^9}, {
  3.5284337341875*^9, 3.528433771*^9}, {3.528433856296875*^9, 
  3.52843389240625*^9}, {3.5284346538125*^9, 3.528434711046875*^9}, {
  3.528434778015625*^9, 3.528434784765625*^9}, {3.528434819109375*^9, 
  3.528434832453125*^9}, {3.528434938640625*^9, 3.5284349996875*^9}, {
  3.52843504678125*^9, 3.528435119875*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k1$$ = -1, $CellContext`k2$$ = 
    5, $CellContext`k3$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k1$$], 1}, -5, 5, 1}, {{
       Hold[$CellContext`k2$$], 0}, -10, 10, 1}, {{
       Hold[$CellContext`k3$$], 0}, -10, 10, 1}}, Typeset`size$$ = {
    360., {101., 104.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`k1$3288$$ = 
    0, $CellContext`k2$3289$$ = 0, $CellContext`k3$3290$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k1$$ = 1, $CellContext`k2$$ = 
        0, $CellContext`k3$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`k1$$, $CellContext`k1$3288$$, 0], 
        Hold[$CellContext`k2$$, $CellContext`k2$3289$$, 0], 
        Hold[$CellContext`k3$$, $CellContext`k3$3290$$, 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`par[$CellContext`k1$$, $CellContext`k2$$, \
$CellContext`k3$$, $CellContext`x], {$CellContext`x, -15, 15}, 
        PlotRange -> {-15, 15}, AxesLabel -> {$CellContext`x, {
           $CellContext`par[$CellContext`k1$$, $CellContext`k2$$, \
$CellContext`k3$$, $CellContext`x], 
           Expand[
            $CellContext`par[$CellContext`k1$$, $CellContext`k2$$, \
$CellContext`k3$$, $CellContext`x]]}}, AspectRatio -> 1/2, 
        PlotStyle -> {Red, Thick}], 
      "Specifications" :> {{{$CellContext`k1$$, 1}, -5, 5, 
         1}, {{$CellContext`k2$$, 0}, -10, 10, 
         1}, {{$CellContext`k3$$, 0}, -10, 10, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{409., {173., 178.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5284351030625*^9, 3.52843512146875*^9}, 
   3.5284362325625*^9, {3.528522820296875*^9, 3.52852283234375*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"Working",
WindowSize->{1264, 889},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3430207362-9352344"->{
  Cell[5869, 205, 1968, 32, 102, "Print",
   CellTags->"Info3430207362-9352344"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3430207362-9352344", 78298, 2471}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 162, 2, 65, "Title"],
Cell[CellGroupData[{
Cell[754, 28, 141, 2, 75, "Section"],
Cell[CellGroupData[{
Cell[920, 34, 215, 3, 36, "Subsection"],
Cell[1138, 39, 328, 9, 52, "DisplayFormula"],
Cell[1469, 50, 323, 8, 113, "Text"],
Cell[1795, 60, 207, 5, 61, "Input"],
Cell[CellGroupData[{
Cell[2027, 69, 94, 1, 47, "Subsubsection"],
Cell[2124, 72, 232, 7, 81, "Text"],
Cell[2359, 81, 253, 6, 61, "Input"],
Cell[2615, 89, 112, 1, 47, "Text"],
Cell[2730, 92, 171, 4, 100, "Input"],
Cell[2904, 98, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[2997, 105, 137, 2, 28, "Subsection"],
Cell[3137, 109, 600, 16, 48, "DisplayFormula"],
Cell[3740, 127, 231, 8, 29, "Text"],
Cell[3974, 137, 276, 7, 41, "Input"],
Cell[4253, 146, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[4334, 152, 98, 1, 36, "Subsection"],
Cell[4435, 155, 361, 11, 42, "DisplayFormula"],
Cell[4799, 168, 483, 13, 62, "Input"],
Cell[5285, 183, 44, 1, 4, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[5354, 188, 108, 1, 27, "Subsubsection"],
Cell[5465, 191, 261, 6, 47, "Text"],
Cell[CellGroupData[{
Cell[5751, 201, 115, 2, 41, "Input"],
Cell[5869, 205, 1968, 32, 102, "Print",
 CellTags->"Info3430207362-9352344"]
}, Open  ]],
Cell[7852, 240, 136, 3, 29, "Text"],
Cell[7991, 245, 123, 2, 41, "Input"],
Cell[8117, 249, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[8198, 255, 126, 2, 27, "Subsubsection"],
Cell[8327, 259, 101, 1, 29, "Text"],
Cell[8431, 262, 121, 2, 41, "Input"],
Cell[8555, 266, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[8636, 272, 156, 2, 27, "Subsubsection"],
Cell[8795, 276, 190, 4, 29, "Text"],
Cell[8988, 282, 261, 5, 62, "Input"],
Cell[9252, 289, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[9333, 295, 146, 2, 27, "Subsubsection"],
Cell[9482, 299, 166, 4, 47, "Text"],
Cell[9651, 305, 496, 14, 41, "Input"],
Cell[10150, 321, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10243, 328, 148, 2, 36, "Subsection"],
Cell[10394, 332, 479, 14, 35, "Text"],
Cell[10876, 348, 191, 6, 29, "Text"],
Cell[11070, 356, 108, 3, 50, "Input"],
Cell[11181, 361, 292, 6, 62, "Input"],
Cell[11476, 369, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11569, 376, 105, 1, 75, "Section"],
Cell[CellGroupData[{
Cell[11699, 381, 107, 1, 27, "Subsubsection"],
Cell[11809, 384, 219, 5, 29, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12065, 394, 103, 1, 27, "Subsubsection"],
Cell[12171, 397, 199, 6, 49, "Text"],
Cell[12373, 405, 258, 7, 60, "Input"],
Cell[12634, 414, 117, 1, 47, "Text"],
Cell[12754, 417, 177, 3, 58, "Input"],
Cell[12934, 422, 162, 3, 47, "Text"],
Cell[13099, 427, 270, 6, 63, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[13406, 438, 94, 1, 21, "Subsubsection"],
Cell[13503, 441, 240, 8, 47, "Text"],
Cell[13746, 451, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13839, 458, 121, 1, 75, "Section"],
Cell[13963, 461, 227, 6, 43, "Input"],
Cell[14193, 469, 228, 6, 43, "Input"],
Cell[14424, 477, 199, 6, 43, "Input"],
Cell[14626, 485, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[14707, 491, 166, 2, 75, "Section"],
Cell[CellGroupData[{
Cell[14898, 497, 483, 15, 84, "Input"],
Cell[15384, 514, 406, 15, 60, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[15824, 534, 196, 3, 27, "Subsubsection"],
Cell[16023, 539, 611, 19, 89, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[16671, 563, 503, 15, 21, "Subsubsection"],
Cell[17177, 580, 193, 4, 47, "Text"],
Cell[17373, 586, 391, 15, 92, "Input"],
Cell[17767, 603, 335, 4, 47, "Text"],
Cell[18105, 609, 714, 23, 92, "Input"],
Cell[18822, 634, 335, 4, 47, "Text"],
Cell[19160, 640, 484, 16, 92, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[19681, 661, 374, 10, 21, "Subsubsection"],
Cell[20058, 673, 636, 19, 92, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[20731, 697, 111, 1, 21, "Subsubsection"],
Cell[20845, 700, 425, 14, 59, "Input"],
Cell[21273, 716, 44, 1, 4, "PageBreak",
 PageBreakBelow->True],
Cell[21320, 719, 67, 1, 41, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21436, 726, 248, 3, 75, "Section"],
Cell[21687, 731, 564, 13, 29, "Text"],
Cell[22254, 746, 385, 11, 41, "Input"],
Cell[CellGroupData[{
Cell[22664, 761, 113, 1, 27, "Subsubsection"],
Cell[22780, 764, 97, 1, 47, "Text"],
Cell[22880, 767, 410, 12, 61, "Input"],
Cell[23293, 781, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23386, 788, 320, 6, 75, "Section"],
Cell[CellGroupData[{
Cell[23731, 798, 92, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[23848, 803, 421, 10, 50, "Input"],
Cell[24272, 815, 257, 8, 40, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[24563, 828, 178, 4, 27, "Subsubsection"],
Cell[24744, 834, 858, 24, 149, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[25639, 863, 164, 2, 21, "Subsubsection"],
Cell[25806, 867, 901, 24, 153, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[26744, 896, 107, 1, 21, "Subsubsection"],
Cell[26854, 899, 368, 10, 50, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[27259, 914, 671, 11, 21, "Subsubsection"],
Cell[27933, 927, 1127, 29, 187, "Input"],
Cell[29063, 958, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29156, 965, 144, 2, 36, "Subsection"],
Cell[29303, 969, 306, 9, 41, "Input"],
Cell[CellGroupData[{
Cell[29634, 982, 97, 1, 27, "Subsubsection"],
Cell[29734, 985, 672, 20, 119, "Input"],
Cell[30409, 1007, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30514, 1015, 423, 6, 75, "Section"],
Cell[30940, 1023, 182, 4, 29, "Text"],
Cell[31125, 1029, 496, 14, 43, "Input"],
Cell[CellGroupData[{
Cell[31646, 1047, 109, 1, 27, "Subsubsection"],
Cell[31758, 1050, 166, 3, 50, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[31961, 1058, 159, 2, 21, "Subsubsection"],
Cell[32123, 1062, 241, 4, 50, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[32401, 1071, 150, 2, 21, "Subsubsection"],
Cell[32554, 1075, 174, 3, 50, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[32765, 1083, 119, 1, 21, "Subsubsection"],
Cell[32887, 1086, 170, 4, 47, "Text"],
Cell[33060, 1092, 157, 3, 61, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[33254, 1100, 90, 1, 21, "Subsubsection"],
Cell[33347, 1103, 126, 2, 31, "Input"],
Cell[33476, 1107, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33569, 1114, 153, 2, 75, "Section"],
Cell[33725, 1118, 258, 7, 29, "Text"],
Cell[33986, 1127, 122, 2, 41, "Input"],
Cell[34111, 1131, 171, 4, 29, "Text"],
Cell[34285, 1137, 236, 4, 82, "Input"],
Cell[34524, 1143, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[34605, 1149, 107, 1, 75, "Section"],
Cell[34715, 1152, 243, 7, 29, "Text"],
Cell[34961, 1161, 200, 4, 41, "Input"],
Cell[35164, 1167, 235, 6, 62, "Input"],
Cell[35402, 1175, 44, 1, 1, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[35471, 1180, 123, 1, 36, "Subsection"],
Cell[35597, 1183, 143, 5, 41, "Input"],
Cell[CellGroupData[{
Cell[35765, 1192, 158, 3, 27, "Subsubsection"],
Cell[35926, 1197, 244, 7, 66, "Input"],
Cell[36173, 1206, 106, 1, 47, "Text"],
Cell[36282, 1209, 167, 3, 66, "Code"],
Cell[36452, 1214, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36557, 1222, 97, 1, 75, "Section"],
Cell[36657, 1225, 273, 6, 65, "Text"],
Cell[36933, 1233, 455, 11, 87, "Input"],
Cell[37391, 1246, 201, 7, 29, "Text"],
Cell[37595, 1255, 109, 1, 41, "Input"],
Cell[37707, 1258, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[37788, 1264, 92, 1, 75, "Section"],
Cell[CellGroupData[{
Cell[37905, 1269, 286, 7, 53, "Subsection"],
Cell[38194, 1278, 172, 5, 29, "Text"],
Cell[38369, 1285, 123, 2, 41, "Input"],
Cell[38495, 1289, 99, 1, 29, "Text"],
Cell[38597, 1292, 168, 4, 41, "Input"],
Cell[38768, 1298, 129, 1, 29, "Text"],
Cell[38900, 1301, 63, 1, 41, "Input"],
Cell[38966, 1304, 185, 6, 47, "Text"],
Cell[39154, 1312, 44, 1, 1, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[39223, 1317, 180, 3, 27, "Subsubsection"],
Cell[39406, 1322, 312, 8, 82, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39755, 1335, 66, 1, 27, "Subsubsection"],
Cell[39824, 1338, 521, 13, 179, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[40382, 1356, 105, 1, 21, "Subsubsection"],
Cell[40490, 1359, 315, 9, 93, "Input"],
Cell[40808, 1370, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40901, 1377, 305, 4, 36, "Subsection"],
Cell[41209, 1383, 502, 11, 47, "Text"],
Cell[41714, 1396, 482, 8, 62, "Input"],
Cell[CellGroupData[{
Cell[42221, 1408, 175, 3, 27, "Subsubsection"],
Cell[42399, 1413, 108, 2, 61, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[42544, 1420, 186, 4, 21, "Subsubsection"],
Cell[42733, 1426, 427, 8, 91, "Input"],
Cell[43163, 1436, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43268, 1444, 179, 2, 75, "Section"],
Cell[CellGroupData[{
Cell[43472, 1450, 102, 1, 27, "Subsubsection"],
Cell[43577, 1453, 538, 12, 43, "Input"],
Cell[44118, 1467, 113, 1, 29, "Text"],
Cell[44234, 1470, 96, 2, 41, "Input"],
Cell[44333, 1474, 138, 3, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[44508, 1482, 128, 2, 21, "Subsubsection"],
Cell[44639, 1486, 635, 15, 56, "Input"],
Cell[45277, 1503, 231, 9, 47, "Text"],
Cell[45511, 1514, 256, 4, 50, "Input"],
Cell[45770, 1520, 93, 1, 50, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[45900, 1526, 245, 5, 21, "Subsubsection"],
Cell[46148, 1533, 138, 2, 29, "Text"],
Cell[46289, 1537, 200, 5, 41, "Input"],
Cell[46492, 1544, 141, 2, 29, "Text"],
Cell[46636, 1548, 209, 4, 41, "Input"],
Cell[46848, 1554, 101, 1, 29, "Text"],
Cell[46952, 1557, 57, 1, 41, "Input"],
Cell[47012, 1560, 87, 1, 29, "Text"],
Cell[47102, 1563, 165, 3, 41, "Input"],
Cell[47270, 1568, 105, 1, 29, "Text"],
Cell[47378, 1571, 92, 2, 41, "Input"],
Cell[47473, 1575, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47566, 1582, 105, 1, 75, "Section"],
Cell[47674, 1585, 611, 22, 155, "Text"],
Cell[48288, 1609, 297, 7, 29, "Text"],
Cell[48588, 1618, 176, 4, 41, "Input"],
Cell[48767, 1624, 87, 1, 29, "Text"],
Cell[48857, 1627, 194, 5, 41, "Input"],
Cell[49054, 1634, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[49135, 1640, 317, 8, 75, "Section"],
Cell[49455, 1650, 181, 5, 41, "Input"],
Cell[CellGroupData[{
Cell[49661, 1659, 219, 4, 27, "Subsubsection"],
Cell[49883, 1665, 118, 2, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[50038, 1672, 122, 1, 21, "Subsubsection"],
Cell[50163, 1675, 272, 7, 41, "Input"],
Cell[50438, 1684, 160, 2, 29, "Text"],
Cell[50601, 1688, 157, 3, 41, "Input"],
Cell[50761, 1693, 132, 3, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[50930, 1701, 139, 3, 28, "Subsection"],
Cell[51072, 1706, 198, 5, 41, "Input"],
Cell[51273, 1713, 113, 1, 29, "Text"],
Cell[51389, 1716, 275, 8, 41, "Input"],
Cell[51667, 1726, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[51760, 1733, 307, 6, 75, "Section"],
Cell[CellGroupData[{
Cell[52092, 1743, 104, 1, 36, "Subsection"],
Cell[52199, 1746, 269, 8, 61, "Input"],
Cell[52471, 1756, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]],
Cell[CellGroupData[{
Cell[52552, 1762, 110, 1, 28, "Subsection"],
Cell[CellGroupData[{
Cell[52687, 1767, 126, 1, 27, "Subsubsection"],
Cell[52816, 1770, 444, 14, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[53297, 1789, 111, 1, 21, "Subsubsection"],
Cell[53411, 1792, 198, 3, 29, "Text"],
Cell[53612, 1797, 447, 12, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[54096, 1814, 159, 2, 21, "Subsubsection"],
Cell[54258, 1818, 742, 23, 41, "Input"],
Cell[55003, 1843, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[55096, 1850, 106, 1, 36, "Subsection"],
Cell[55205, 1853, 395, 12, 41, "Input"],
Cell[CellGroupData[{
Cell[55625, 1869, 109, 1, 27, "Subsubsection"],
Cell[55737, 1872, 146, 2, 29, "Text"],
Cell[55886, 1876, 1024, 33, 41, "Input"],
Cell[56913, 1911, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[57018, 1919, 128, 3, 75, "Section"],
Cell[57149, 1924, 162, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[57336, 1931, 353, 9, 41, "Input"],
Cell[57692, 1942, 193, 5, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57922, 1952, 220, 6, 27, "Subsubsection"],
Cell[58145, 1960, 231, 5, 61, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[58413, 1970, 269, 7, 21, "Subsubsection"],
Cell[58685, 1979, 265, 7, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[58987, 1991, 100, 1, 21, "Subsubsection"],
Cell[59090, 1994, 291, 8, 41, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[59418, 2007, 174, 2, 21, "Subsubsection"],
Cell[59595, 2011, 793, 24, 41, "Input"],
Cell[60391, 2037, 44, 1, 4, "PageBreak",
 PageBreakBelow->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[60484, 2044, 94, 1, 75, "Section"],
Cell[60581, 2047, 140, 3, 29, "Text"],
Cell[CellGroupData[{
Cell[60746, 2054, 314, 9, 41, "Input"],
Cell[61063, 2065, 216, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61316, 2077, 324, 9, 41, "Input"],
Cell[61643, 2088, 6170, 107, 260, "Output"]
}, Open  ]],
Cell[67828, 2198, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[67909, 2204, 95, 1, 75, "Section"],
Cell[68007, 2207, 635, 23, 67, "Text"],
Cell[CellGroupData[{
Cell[68667, 2234, 1691, 46, 120, "Input"],
Cell[70361, 2282, 2450, 47, 374, "Output"]
}, {2}]],
Cell[72823, 2332, 44, 1, 1, "PageBreak",
 PageBreakBelow->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[72904, 2338, 99, 1, 75, "Section"],
Cell[73006, 2341, 222, 4, 29, "Text"],
Cell[CellGroupData[{
Cell[73253, 2349, 2013, 52, 62, "Input"],
Cell[75269, 2403, 2549, 50, 378, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)