(* 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[     57726,       1808]
NotebookOptionsPosition[     53206,       1680]
NotebookOutlinePosition[     53677,       1699]
CellTagsIndexPosition[     53634,       1696]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["4. vaja", "Title"],

Cell[CellGroupData[{

Cell["Sekanta in tangenta", "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell[TextData[{
 StyleBox["Naj bo f",
  FontFamily->"CMR12"],
 StyleBox[" ", "Input",
  FontFamily->"CMR12"],
 StyleBox["funkcija in naj bosta a in h tak\[SHacek]ni realni \
\[SHacek]tevili, da je interval med a in a+h vsebovan v definicijskem obmo\
\[CHacek]ju funkcije f.",
  FontFamily->"CMR12"],
 StyleBox[" \n", "Input",
  FontFamily->"CMR12"],
 StyleBox["Sekanta funkcije f skozi to\[CHacek]ki (a,f(a)) in (a+h,f(a+h)) \
ima ena\[CHacek]bo\n",
  FontFamily->"CMR12"],
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"f", "(", 
         RowBox[{"a", "+", "h"}], ")"}], "-", 
        RowBox[{"f", "(", "a", ")"}]}], "h"], 
      RowBox[{"(", 
       RowBox[{"x", "-", "a"}], ")"}]}], " ", "+", " ", 
     RowBox[{"f", "(", "a", ")"}]}]}], TraditionalForm]],
  FontSize->24],
 "."
}], "Text",
 CellChangeTimes->{{3.447216248328125*^9, 3.44721643125*^9}, {
  3.44723209003125*^9, 3.447232109671875*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[TextData[{
 "1.a) Definiraj funkcijo ",
 StyleBox["sekanta[f,a,h,x]", "Input"],
 ", ki poda ena\[CHacek]bo sekante funkcije f skozi to\[CHacek]ki (a,f(a)) in \
(a+h,f(a+h)). "
}], "Text",
 CellChangeTimes->{{3.44721644475*^9, 3.447216475578125*^9}, {
  3.4472321309375*^9, 3.447232131375*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{
  RowBox[{"sekanta", "[", 
   RowBox[{"f_", ",", "a_", ",", "h_", ",", "x_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"a", "+", "h"}], "]"}], "-", 
       RowBox[{"f", "[", "a", "]"}]}], ")"}], "/", "h"}], 
    RowBox[{"(", 
     RowBox[{"x", "-", "a"}], ")"}]}], "+", 
   RowBox[{"f", "[", "a", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.447216481765625*^9, 3.447216493109375*^9}}],

Cell[TextData[{
 "1.b) Nari\[SHacek]i funkcijo f(x)=",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 "cos(3x)."
}], "Text",
 CellChangeTimes->{{3.44721657746875*^9, 3.44721657765625*^9}, {
  3.4472166264375*^9, 3.447216630421875*^9}, {3.4472180425*^9, 
  3.447218048953125*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"x", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"3", "x"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.447216559796875*^9, 3.44721656471875*^9}, {
  3.447217819203125*^9, 3.447217827546875*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0", ",", "0", ",", "1"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447216513015625*^9, 3.447216553984375*^9}}],

Cell["\<\
1.c) Nari\[SHacek]i sekante funkcije f skozi to\[CHacek]ko (0,0) pri \
parametrih h = 0.4, 0.3, 0.2 in 0.1.\
\>", "Text",
 CellChangeTimes->{{3.447217122828125*^9, 3.44721716903125*^9}, {
  3.44721730640625*^9, 3.447217308125*^9}, {3.447232163296875*^9, 
  3.44723216559375*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.4", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.3", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.2", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.1", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.006", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447216656734375*^9, 3.447216693390625*^9}, {
  3.447216724796875*^9, 3.44721686765625*^9}, {3.4472169870625*^9, 
  3.4472170885625*^9}, {3.447217187640625*^9, 3.447217291890625*^9}, {
  3.447217547921875*^9, 3.447217552515625*^9}, {3.44721801975*^9, 
  3.447218026359375*^9}}],

Cell[TextData[{
 StyleBox["Opazimo, da z bli\:017eanjem h",
  FontFamily->"CMR12"],
 StyleBox[" ", "Input",
  FontFamily->"CMR12"],
 StyleBox["proti 0 dobimo premico, ki se v dani to\[CHacek]ki dotika grafa. \
To premico imenujemo tangenta. Ker vemo, da velja:\n",
  FontFamily->"CMR12"],
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     RowBox[{
      UnderscriptBox["lim", 
       RowBox[{"h", "\[Rule]", "0"}]], " ", 
      FractionBox[
       RowBox[{
        RowBox[{"f", "(", 
         RowBox[{"x", "+", "h"}], ")"}], "-", 
        RowBox[{"f", "(", "x", ")"}]}], "h"]}], "=", " ", 
     RowBox[{
      RowBox[{"f", "'"}], 
      RowBox[{"(", "x", ")"}]}]}],
    FontSize->24], TraditionalForm]]],
 ",\nlahko zapi\[SHacek]emo ena\[CHacek]bo tangente funkcije f v \
to\[CHacek]ki a:\n",
 StyleBox["y=f'(a)(x-a)+f(a)",
  FontSize->24]
}], "Text",
 CellChangeTimes->{{3.4472173735*^9, 3.44721740453125*^9}, {
  3.44723219196875*^9, 3.447232214875*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[TextData[{
 "1.d) Definiraj funkcijo ",
 StyleBox["tangenta[f,a,x]", "Input"],
 ", ki poda ena\[CHacek]bo tangente funkcije f v to\[CHacek]ki a. "
}], "Text",
 CellChangeTimes->{{3.447217429015625*^9, 3.447217449703125*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{
  RowBox[{"tangenta", "[", 
   RowBox[{"f_", ",", "a_", ",", "x_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], "[", "a", "]"}], 
    RowBox[{"(", 
     RowBox[{"x", "-", "a"}], ")"}]}], "+", 
   RowBox[{"f", "[", "a", "]"}]}]}]], "Input"],

Cell["\<\
1.e) Nari\[SHacek]i funkcijo f in njeno tangento v to\[CHacek]ki 0 v isti \
koordinatni sistem.\
\>", "Text",
 CellChangeTimes->{{3.447217601796875*^9, 3.447217608328125*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.4", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.3", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.2", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.1", ",", "x"}], "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"f", ",", "0", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.006", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0045", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447216656734375*^9, 3.447216693390625*^9}, {
  3.447216724796875*^9, 3.44721686765625*^9}, {3.4472169870625*^9, 
  3.4472170885625*^9}, {3.447217187640625*^9, 3.447217291890625*^9}, {
  3.447217484921875*^9, 3.447217568109375*^9}, {3.447217893875*^9, 
  3.44721790478125*^9}}],

Cell[TextData[{
 "1.f) Definiraj funkcijo ",
 StyleBox["normala[f,a,x]", "Input"],
 ", ki poda ena\[CHacek]bo normale na graf funkcije f v to\[CHacek]ki a. "
}], "Text",
 CellChangeTimes->{{3.447217429015625*^9, 3.447217449703125*^9}, {
  3.447217632078125*^9, 3.447217654359375*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{
  RowBox[{"normala", "[", 
   RowBox[{"f_", ",", "a_", ",", "x_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "/", 
      RowBox[{
       RowBox[{"f", "'"}], "[", "a", "]"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"x", "-", "a"}], ")"}]}], "+", 
   RowBox[{"f", "[", "a", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.447217665515625*^9, 3.447217681578125*^9}}],

Cell["\<\
1.g) Nari\[SHacek]i \[SHacek]e normalo na graf funkcije f v to\[CHacek]ki 0.\
\>", "Text",
 CellChangeTimes->{{3.447217601796875*^9, 3.447217608328125*^9}, {
  3.447218088328125*^9, 3.447218105515625*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.4", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.3", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.2", ",", "x"}], "]"}], ",", 
     RowBox[{"sekanta", "[", 
      RowBox[{"f", ",", "0", ",", "0.1", ",", "x"}], "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"f", ",", "0", ",", "x"}], "]"}], ",", 
     RowBox[{"normala", "[", 
      RowBox[{"f", ",", "0", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.006", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0045", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0045", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447216656734375*^9, 3.447216693390625*^9}, {
  3.447216724796875*^9, 3.44721686765625*^9}, {3.4472169870625*^9, 
  3.4472170885625*^9}, {3.447217187640625*^9, 3.447217291890625*^9}, {
  3.447217484921875*^9, 3.447217568109375*^9}, {3.44721769803125*^9, 
  3.447217772640625*^9}, {3.447217853671875*^9, 3.447217881171875*^9}, {
  3.44721791628125*^9, 3.447218004515625*^9}}],

Cell[CellGroupData[{

Cell["\<\

Geometrijski pomen odvoda\
\>", "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell[TextData[{
 "2.a) Nari\[SHacek]i funkcijo ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"g", 
     RowBox[{"(", "x", ")"}]}], "=", 
    RowBox[{
     RowBox[{"3", "x"}], "-", 
     SuperscriptBox["x", "3"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in njen prvi odvod v isti koordinatni sistem. "
}], "Text",
 CellChangeTimes->{{3.447218569484375*^9, 3.447218590453125*^9}, {
  3.447218903984375*^9, 3.447218905265625*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"3", "x"}], "-", 
   RowBox[{"x", "^", "3"}]}]}]], "Input",
 CellChangeTimes->{{3.447218215171875*^9, 3.447218223203125*^9}, {
  3.447218269640625*^9, 3.447218272125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"g", "'"}], "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "9"}], ",", "9"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
  3.44721843278125*^9, 3.447218452390625*^9}, {3.447218871328125*^9, 
  3.44721887821875*^9}}],

Cell[TextData[{
 "Opazimo, da je funkcija nara\[SHacek]\[CHacek]ajo\[CHacek]a v \
to\[CHacek]kah, kjer je f'(x)>0 in padajo\[CHacek]a v to\[CHacek]kah, kjer je \
f'(x)<0. To\[CHacek]ke, kjer je f'(x)=0, imenujemo stacionarne to\[CHacek]ke. \
Stacionarne to\[CHacek]ke imamo treh vrst. Lahko nam podajajo lokalne \
ekstreme (maksimum ali minimum) ali pa prevoj. \n\[CapitalCHacek]e je to\
\[CHacek]ka ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 " stacionarna, potem zanjo velja:\n- v ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 " je lokalni maksimum, \[CHacek]e f''(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 ")<0. (To pomeni, da na nekem intervalu I okoli to\[CHacek]ke ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "0"], " ", "velja"}], TraditionalForm]]],
 " f(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 ")\[GreaterEqual]f(x) za vse x\[Element]I.)\n- v ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 " je lokalni maksimum, \[CHacek]e f''(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 ")>0. (To pomeni, da na nekem intervalu I okoli to\[CHacek]ke ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "0"], " ", "velja"}], TraditionalForm]]],
 " f(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 ")\[LessEqual]f(x) za vse x\[Element]I.)\n- v ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 " je prevoj, \[CHacek]e f''(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]]],
 ")=0. (To pomeni, da preide graf iz konkavnega v konveksnega ali obratno.)"
}], "Text",
 CellChangeTimes->{{3.44721848590625*^9, 3.44721849228125*^9}, {
  3.44723231684375*^9, 3.447232367140625*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell["\<\
2.b) Poi\[SHacek]\[CHacek]i stacionarne to\[CHacek]ke funkcije g in nari\
\[SHacek]i tangente na graf funkcije v teh to\[CHacek]kah.\
\>", "Text",
 CellChangeTimes->{{3.44721882221875*^9, 3.44721886021875*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[0.717647, 0.909804, 0.721569]],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"g", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.44721861303125*^9, 3.44721864228125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"g", "'"}], "[", "x", "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"g", ",", 
       RowBox[{"-", "1"}], ",", "x"}], "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"g", ",", "1", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0001", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0001", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "9"}], ",", "9"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
  3.44721843278125*^9, 3.447218452390625*^9}, {3.44721866359375*^9, 
  3.4472186854375*^9}, {3.44721872875*^9, 3.44721880334375*^9}}],

Cell[TextData[{
 "2.c) Nari\[SHacek]i funkcijo ",
 Cell[BoxData[
  FormBox["g", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in njen drugi odvod v isti koordinatni sistem. "
}], "Text",
 CellChangeTimes->{{3.447218569484375*^9, 3.447218590453125*^9}, {
  3.447218903984375*^9, 3.447218927203125*^9}, {3.447218983953125*^9, 
  3.447218984078125*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"g", "''"}], "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "9"}], ",", "9"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
   3.44721843278125*^9, 3.447218452390625*^9}, {3.447218871328125*^9, 
   3.44721887821875*^9}, 3.447218940609375*^9}],

Cell["\<\
2.d) Poi\[SHacek]\[CHacek]i prevoje funkcije g in nari\[SHacek]i tangente na \
graf funkcije v njih.\
\>", "Text",
 CellChangeTimes->{{3.44721882221875*^9, 3.44721886021875*^9}, {
  3.44721898921875*^9, 3.4472190056875*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[0.717647, 0.909804, 0.721569]],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"g", "''"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4472190379375*^9, 3.447219044734375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"g", "''"}], "[", "x", "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"g", ",", "0", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0001", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "9"}], ",", "9"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
  3.44721843278125*^9, 3.447218452390625*^9}, {3.44721866359375*^9, 
  3.4472186854375*^9}, {3.44721872875*^9, 3.44721880334375*^9}, {
  3.4472190250625*^9, 3.447219069328125*^9}}],

Cell["\<\
2.e) Poi\[SHacek]\[CHacek]i globalni minimum in maksimum funkcije g na \
intervalu [0,2].\
\>", "Text",
 CellChangeTimes->{{3.447219188484375*^9, 3.44721918878125*^9}, {
  3.447219233390625*^9, 3.447219251140625*^9}, {3.44721962*^9, 
  3.447219620953125*^9}, {3.447252602418325*^9, 3.447252644541438*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
      RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
  3.44721843278125*^9, 3.447218452390625*^9}, {3.447218871328125*^9, 
  3.44721887821875*^9}, {3.447252699913957*^9, 3.447252743755743*^9}}],

Cell["\<\
Kandidati za globalne ekstreme funkcije g na intervalu [a,b] sta robni to\
\[CHacek]ki a in b ter stacionarne to\[CHacek]ke funkcije g na intervalu \
(a,b). \
\>", "Text",
 CellChangeTimes->{{3.44721848590625*^9, 3.44721849228125*^9}, {
  3.44723231684375*^9, 3.447232367140625*^9}, {3.447252804784259*^9, 
  3.447252861875451*^9}, {3.4472530828967986`*^9, 3.447253084896709*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"g", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.447252868640773*^9, 3.4472528868587065`*^9}}],

Cell[BoxData[
 RowBox[{"g", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.4472528997800026`*^9, 3.447252903045481*^9}}],

Cell[BoxData[
 RowBox[{"g", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.4472529053422537`*^9, 3.4472529075452795`*^9}}],

Cell[BoxData[
 RowBox[{"g", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.447252910060792*^9, 3.4472529112169905`*^9}}],

Cell[TextData[{
 "V Mathematici sta \:017ee vgrajena ukaza ",
 StyleBox["Minimize", "Input"],
 " in ",
 StyleBox["Maximize", "Input"],
 " za ra\[CHacek]unanje globalnih ekstremov."
}], "Text",
 CellChangeTimes->{{3.447219855515625*^9, 3.447219856953125*^9}, {
  3.447252948855929*^9, 3.4472530221651444`*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[BoxData[
 RowBox[{"Minimize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "2"}]}], "}"}], ",", 
   "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.447252554467348*^9, 3.4472525730602655`*^9}, {
  3.447253027383661*^9, 3.4472530307272606`*^9}}],

Cell[BoxData[
 RowBox[{"Maximize", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", 
     RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "2"}]}], "}"}], ",", 
   "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.447252554467348*^9, 3.4472525730602655`*^9}, {
  3.447253027383661*^9, 3.447253040164338*^9}}],

Cell[TextData[{
 "Na razpolago sta tudi ukaza N",
 StyleBox["Minimize", "Input"],
 " in N",
 StyleBox["Maximize", "Input"],
 " za numeri\[CHacek]no ra\[CHacek]unanje globalnih ekstremov."
}], "Text",
 CellChangeTimes->{{3.447219855515625*^9, 3.447219856953125*^9}, {
  3.447252948855929*^9, 3.4472530221651444`*^9}, {3.447253718995331*^9, 
  3.4472537398226557`*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[TextData[{
 "2.f) Dolo\[CHacek]i stacionarne to\[CHacek]ke in njihovo naravo, ter \
intervale nara\[SHacek]\[CHacek]anja in padanja za funkcijo ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", " ", 
     RowBox[{"(", "x", ")"}]}], " ", "=", " ", 
    RowBox[{
     SuperscriptBox["x", "2"], 
     SuperscriptBox["e", "x"]}]}], TraditionalForm]]],
 "+1."
}], "Text",
 CellChangeTimes->{{3.447219188484375*^9, 3.44721918878125*^9}, {
  3.447219233390625*^9, 3.447219251140625*^9}, {3.44721962*^9, 
  3.447219620953125*^9}, {3.447252599309089*^9, 3.4472525997621937`*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[0.714855, 0.906264, 0.718761]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.44721944796875*^9, 3.447219449828125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", 
    RowBox[{"E", "^", "x"}]}], "+", "1"}]}]], "Input",
 CellChangeTimes->{{3.447219549671875*^9, 3.44721956334375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"f", "'"}], "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
  3.44721843278125*^9, 3.447218452390625*^9}, {3.447218871328125*^9, 
  3.44721887821875*^9}, {3.44721941065625*^9, 3.4472194291875*^9}, {
  3.447219645453125*^9, 3.4472196455625*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], "[", "x", "]"}], "\[Equal]", "0"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.44721934459375*^9, 3.4472193535*^9}}],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"f", "'"}], "[", "x", "]"}], "<", "0"}], ",", 
   RowBox[{"{", "x", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "'"}], "[", "x", "]"}], ">", "0"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "''"}], "[", 
  RowBox[{"-", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.44721936678125*^9, 3.447219367796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "''"}], "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.44721937234375*^9, 3.447219375859375*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"f", "'"}], "[", "x", "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"f", ",", 
       RowBox[{"-", "2"}], ",", "x"}], "]"}], ",", 
     RowBox[{"tangenta", "[", 
      RowBox[{"f", ",", "0", ",", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RGBColor", "[", 
         RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0042", "]"}]}], "}"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "3"}], ",", "3"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472182794375*^9, 3.447218393796875*^9}, {
  3.44721843278125*^9, 3.447218452390625*^9}, {3.447218871328125*^9, 
  3.44721887821875*^9}, {3.44721941065625*^9, 3.4472194291875*^9}, {
  3.44721947325*^9, 3.447219537671875*^9}, {3.44721957984375*^9, 
  3.4472196110625*^9}, {3.447219653625*^9, 3.447219653734375*^9}}],

Cell[CellGroupData[{

Cell["\<\

Nedolo\[CHacek]eni integrali\
\>", "Subtitle",
 FontColor->RGBColor[1, 0, 0]],

Cell[TextData[{
 "V Mathematici lahko s funkcijo ",
 StyleBox["Integrate[f[x],x]", "Input"],
 " dolo\[CHacek]imo primitivno funkcijo funkcije f do aditivne konstante \
natan\[CHacek]no."
}], "Text",
 CellChangeTimes->{{3.447219855515625*^9, 3.447219856953125*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[BoxData[
 RowBox[{"??", "Integrate"}]], "Input",
 CellChangeTimes->{{3.447219872609375*^9, 3.44721988425*^9}}],

Cell["\<\
Naslednji ukaz izpi\[SHacek]e tabelo nedolo\[CHacek]enih integralov nekaterih \
elementarnih funkcij:\
\>", "Text",
 CellChangeTimes->{{3.447219893640625*^9, 3.447219896328125*^9}, {
  3.447232476703125*^9, 3.44723247684375*^9}},
 FontFamily->"Courier New",
 Background->GrayLevel[0.900008]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"Integrate", "[", 
        RowBox[{"#", ",", "x"}], "]"}]}], "}"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x", ",", 
      RowBox[{"x", "^", "2"}], ",", 
      RowBox[{"x", "^", "a"}], ",", 
      RowBox[{"1", "/", "x"}], ",", 
      RowBox[{"E", "^", "x"}], ",", 
      RowBox[{"a", "^", "x"}], ",", 
      RowBox[{"Sin", "[", "x", "]"}], ",", 
      RowBox[{"Cos", "[", "x", "]"}]}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.447219912328125*^9, 3.44721991334375*^9}}],

Cell[TextData[{
 "3.a) Integriraj funkcijo ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", " ", 
     RowBox[{"(", "x", ")"}]}], " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       RowBox[{"3", "x"}], "-", "2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["x", "3"], "+", 
       RowBox[{"2", 
        SuperscriptBox["x", "2"]}]}]}]}]}], TraditionalForm]]],
 "-x-2), tako da jo razstavi\[SHacek] na parcialne ulomke."
}], "Text",
 CellChangeTimes->{{3.4472317939375*^9, 3.44723181115625*^9}, {
  3.44723248821875*^9, 3.447232489875*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Apart", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "+", 
     RowBox[{"3", "x"}], "-", "2"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "-", "x", "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     SuperscriptBox["x", "3"]}], ")"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "x"}], ")"}]}]], ",", "x"}], "]"}], "+", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"+", 
     FractionBox["2", 
      RowBox[{"1", "+", "x"}]]}], ",", "x"}], "]"}], "+", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["4", 
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "x"}], ")"}]}]]}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.447219938359375*^9, 3.447219938890625*^9}}],

Cell[TextData[{
 "3.b) Preveri, da je rezultat pravilen s funkcijo ",
 StyleBox["Integrate", "Input"],
 "."
}], "Text",
 FontFamily->"Courier New",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"3", "x"}], "-", "2"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "-", "x", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["x", "2"]}], "+", 
      SuperscriptBox["x", "3"]}], ")"}]}], ",", "x"}], "]"}]], "Input"],

Cell[TextData[{
 "3.c) Izra\[CHacek]unaj nedolo\[CHacek]ene integrale naslednjih funkcij :\n\
a)f(x)=xln(x), \nb)f(x)=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "3"], TraditionalForm]]],
 "sin(x),\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"c", ")"}], "f", 
     RowBox[{"(", "x", ")"}]}], "=", 
    RowBox[{
     RowBox[{"sin", "(", "x", ")"}], 
     SuperscriptBox["e", "x"]}]}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.447220005078125*^9, 3.447220101375*^9}, 
   3.447232513953125*^9},
 FontFamily->"Courier New",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Log", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.447220108328125*^9, 3.447220118640625*^9}}],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", 
    RowBox[{"E", "^", "x"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.44722012175*^9, 3.447220134578125*^9}}],

Cell["\<\

Dolo\[CHacek]eni integrali\
\>", "Subtitle",
 FontColor->RGBColor[1, 0, 0]]
}, Open  ]],

Cell[TextData[{
 "Funkcija ",
 StyleBox["Integrate[f,{x,a,b}]", "Input"],
 " omogo\[CHacek]a tudi ra\[CHacek]unanje dolo\[CHacek]enega integrala \
funkcije f",
 StyleBox[" ", "Input"],
 "na intervalu [a,b]. "
}], "Text",
 CellChangeTimes->{{3.447220170953125*^9, 3.447220178421875*^9}},
 FontFamily->"Courier",
 Background->GrayLevel[0.900008]],

Cell[TextData[{
 "4.a) Izra\[CHacek]unaj dolo\[CHacek]eni integral funkcije f(x)=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "3"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "Sin(x) na intervalu [-\[Pi],\[Pi]]."
}], "Text",
 CellChangeTimes->{{3.415451725625*^9, 3.4154517360625*^9}, {
  3.4472202245625*^9, 3.4472202565*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", 
   RowBox[{"Filling", "\[Rule]", "Bottom"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472201995*^9, 3.44722021621875*^9}, {
  3.447220301734375*^9, 3.447220306625*^9}}],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "3"}], 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]], "Input"],

Cell[TextData[{
 "4.b) Izra\[CHacek]unaj plo\[SHacek]\[CHacek]ino in sredi\[SHacek]\[CHacek]e \
lika, ki ga omejujeta krivulji ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    FractionBox["1", "x"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " in y=-x+5."
}], "Text",
 CellChangeTimes->{{3.44722116321875*^9, 3.447221210359375*^9}, {
  3.44722131225*^9, 3.4472213155625*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "x"}], ",", 
     RowBox[{
      RowBox[{"-", "x"}], "+", "5"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "7"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "7"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447220513328125*^9, 3.447220677296875*^9}, {
  3.447220816359375*^9, 3.44722082359375*^9}, {3.44722086153125*^9, 
  3.447220866984375*^9}, {3.447220952546875*^9, 3.447220952765625*^9}, {
  3.44722115040625*^9, 3.44722115178125*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "x"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "x"}], "+", "5"}]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.44722121853125*^9, 3.44722122803125*^9}}],

Cell[BoxData[
 RowBox[{"Graf", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "/", "x"}], ",", 
      RowBox[{
       RowBox[{"-", "x"}], "+", "5"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"1", "/", "2"}], 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"1", "/", "2"}], 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}]}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "5"}], "}"}]}], ",", 
    RowBox[{"Filling", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"1", "\[Rule]", 
       RowBox[{"{", "2", "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.447220513328125*^9, 3.447220677296875*^9}, {
  3.447220816359375*^9, 3.44722082359375*^9}, {3.44722086153125*^9, 
  3.447220866984375*^9}, {3.447220952546875*^9, 3.44722098234375*^9}, {
  3.447221023625*^9, 3.44722105475*^9}, {3.447221104734375*^9, 
  3.447221142*^9}, {3.44722155828125*^9, 3.447221559875*^9}}],

Cell[BoxData[
 RowBox[{"S", "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "x"}], "+", "5", "-", 
     RowBox[{"1", "/", "x"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"1", "/", "2"}], 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}], ",", 
      RowBox[{
       RowBox[{"1", "/", "2"}], 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.44722132053125*^9, 3.4472213601875*^9}}],

Cell[BoxData[
 RowBox[{"Tx", "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "x"}], "+", "5", "-", 
        RowBox[{"1", "/", "x"}]}], ")"}], "x"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"1", "/", "2"}], 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"1", "/", "2"}], 
        RowBox[{"(", 
         RowBox[{"5", "+", 
          RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}]}], "}"}]}], "]"}], "/", 
   "S"}]}]], "Input",
 CellChangeTimes->{{3.44722125228125*^9, 3.44722126125*^9}, {
  3.447221384546875*^9, 3.447221404890625*^9}}],

Cell[BoxData[
 RowBox[{"Ty", "=", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", "2"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "x"}], "+", "5"}], ")"}], "^", "2"}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", "x"}], ")"}], "^", "2"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"1", "/", "2"}], 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"1", "/", "2"}], 
        RowBox[{"(", 
         RowBox[{"5", "+", 
          RowBox[{"Sqrt", "[", "21", "]"}]}], ")"}]}]}], "}"}]}], "]"}], "/", 
   "S"}]}]], "Input",
 CellChangeTimes->{{3.44722125228125*^9, 3.44722126125*^9}, {
  3.447221384546875*^9, 3.44722143840625*^9}}],

Cell[BoxData[
 RowBox[{"Sredisce", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"Tx", ",", "Ty"}], "}"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "}"}]}], ",", " ", 
    RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.447221481953125*^9, 3.447221493765625*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Graf", ",", "Sredisce"}], "]"}]], "Input",
 CellChangeTimes->{{3.4472215674375*^9, 3.447221605109375*^9}}],

Cell[TextData[{
 "4.c) Izra\[CHacek]unaj povr\[SHacek]ino in volumen vrtenine, ki jo dobimo, \
\[CHacek]e krivuljo ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", " ", "=", " ", 
    RowBox[{"4", " ", "-", " ", 
     SuperscriptBox["x", "2"]}]}], TraditionalForm]]],
 " na intervalu [-1,1] zavrtimo okoli osi x. "
}], "Text",
 CellChangeTimes->{{3.4472216496875*^9, 3.447221693578125*^9}, {
  3.44722239853125*^9, 3.447222399109375*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"4", "-", 
   RowBox[{"x", "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.44722170203125*^9, 3.447221707625*^9}, {
  3.44722193625*^9, 3.44722196671875*^9}, {3.44722225953125*^9, 
  3.44722225990625*^9}, {3.447222290625*^9, 3.447222290921875*^9}, {
  3.447222384796875*^9, 3.447222385140625*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4472217120625*^9, 3.447221735609375*^9}}],

Cell[BoxData[
 RowBox[{"RegionPlot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"z", "^", "2"}], "+", 
     RowBox[{"y", "^", "2"}]}], "<", 
    RowBox[{"f", "[", "x", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.447222173265625*^9, 3.44722223503125*^9}, {
  3.44722227390625*^9, 3.447222282890625*^9}, {3.44722231846875*^9, 
  3.447222373546875*^9}},
 CellID->13992],

Cell[BoxData[
 RowBox[{"P", "=", 
  RowBox[{"2", "Pi", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "*", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "'"}], "[", "x", "]"}], "^", "2"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input"],

Cell[TextData[{
 "Pri dolo\[CHacek]enem integralu lahko podobno kot pri re\[SHacek]evanju ena\
\[CHacek]b z ukazom ",
 StyleBox["NIntegrate ", "Input"],
 "poi\[SHacek]\[CHacek]emo pribli\:017eek za \:017eeljeni integral."
}], "Text",
 CellChangeTimes->{{3.44722245853125*^9, 3.4472224778125*^9}},
 FontFamily->"Courier",
 Background->GrayLevel[0.900008]],

Cell[BoxData[
 RowBox[{"P", "=", 
  RowBox[{"2", "Pi", " ", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "*", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"1", "+", 
        RowBox[{
         RowBox[{
          RowBox[{"f", "'"}], "[", "x", "]"}], "^", "2"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"V", "=", 
  RowBox[{"Pi", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "^", "2"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}]], "Input"],

Cell["\<\
4.d) Izra\[CHacek]unaj obseg elipse s polosema a=2 in b=1. \
\>", "Text",
 CellChangeTimes->{{3.4472216496875*^9, 3.447221693578125*^9}, {
  3.44722239853125*^9, 3.447222399109375*^9}, {3.44722251303125*^9, 
  3.44722253265625*^9}, {3.447223126875*^9, 3.4472231330625*^9}},
 FontFamily->"Courier",
 Background->RGBColor[0.714855, 0.906264, 0.718761]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Elipsa", "[", 
   RowBox[{"x_", ",", "a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"b", "^", "2"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "/", 
       RowBox[{"a", "^", "2"}]}]}], ")"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"Elipsa", "[", 
   RowBox[{"x", ",", "2", ",", "1"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.447222559125*^9, 3.447222615515625*^9}, {
  3.447223206390625*^9, 3.447223219125*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "3"}], "}"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44722261796875*^9, 3.447222700953125*^9}, 
   3.447222955171875*^9, {3.44722322184375*^9, 3.447223226015625*^9}}],

Cell[BoxData[
 RowBox[{"o", "=", 
  RowBox[{"2", "  ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "'"}], "[", 
         RowBox[{"x", ",", "2", ",", "1"}], "]"}], "^", "2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.447223256375*^9, 3.44722326009375*^9}, {
  3.44722330371875*^9, 3.44722335928125*^9}}],

Cell[BoxData[
 RowBox[{"o", "=", 
  RowBox[{"2", " ", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{
         RowBox[{"f", "'"}], "[", 
         RowBox[{"x", ",", "2", ",", "1"}], "]"}], "^", "2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.447223256375*^9, 3.44722327190625*^9}, {
  3.4472233155625*^9, 3.44722332615625*^9}}],

Cell["\<\

Naloge\
\>", "Subtitle",
 CellChangeTimes->{{3.4472225035*^9, 3.44722250721875*^9}},
 FontFamily->"Arial",
 FontSize->24,
 FontColor->RGBColor[1, 0, 0]],

Cell["\<\
1. Dana je funkcija f(x)=xlog(x+1). Nari\[SHacek]i v isti koordinatni sistem \
graf funkcije f ter tangento in normalo na graf funkcije f v to\[CHacek]ki \
x=1.\
\>", "Text",
 CellChangeTimes->{{3.447230393765625*^9, 3.447230497296875*^9}},
 FontFamily->"Courier New",
 FontSize->14,
 Background->RGBColor[1, 0.745098, 0.490196]]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "2. Za naslednje funkcije poi\[SHacek]\[CHacek]ite intervale nara\[SHacek]\
\[CHacek]anja in padanja, njihove stacionarne to\[CHacek]ke ter njihov tip, \
prevoje:\na)",
 Cell[BoxData[
  RowBox[{
   RowBox[{"f", 
    RowBox[{"(", "x", ")"}]}], "=", 
   RowBox[{
    SuperscriptBox["x", "4"], "-", 
    RowBox[{"5", 
     SuperscriptBox["x", "3"]}], "+", 
    RowBox[{"3", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{"5", "x"}], "-", "4"}]}]]],
 ", \nb)",
 Cell[BoxData[
  RowBox[{
   RowBox[{"f", 
    RowBox[{"(", "x", ")"}]}], "=", 
   FractionBox[
    SuperscriptBox["e", "x"], 
    SuperscriptBox["x", "2"]]}]]],
 " na intervalu (0,\[Infinity])."
}], "Text",
 CellChangeTimes->{{3.44723052875*^9, 3.447230565*^9}, {3.4472306600625*^9, 
  3.447230692453125*^9}, {3.44723086796875*^9, 3.447230869109375*^9}, {
  3.44723092896875*^9, 3.447230990609375*^9}},
 FontFamily->"Courier New",
 FontSize->14,
 Background->RGBColor[1, 0.745098, 0.490196]],

Cell[TextData[{
 "3. Izra\[CHacek]unaj naslednje integrale:\na) Nedolo\[CHacek]eni integral \
funkcije ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], " ", "+", " ", "x", " ", "-", " ", "1"}], 
     ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "4"], " ", "+", " ", 
      SuperscriptBox["x", "3"], "-", 
      RowBox[{"5", 
       SuperscriptBox["x", "2"]}]}]}]}], TraditionalForm]]],
 "+x-6),\nb) Nedolo\[CHacek]eni integral funkcije sin(sin(x))cos(x),\nc) Dolo\
\[CHacek]eni integral funkcije ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["sin", "2"], TraditionalForm]]],
 "(x) na intervalu [0,2Pi],\nd) Dolo\[CHacek]eni integral funckije x",
 Cell[BoxData[
  SuperscriptBox["e", 
   RowBox[{"-", "x"}]]]],
 " na intervalu [0,\[Infinity])."
}], "Text",
 CellChangeTimes->{{3.447231136796875*^9, 3.447231329046875*^9}, {
  3.447231393484375*^9, 3.44723142403125*^9}, {3.447232743296875*^9, 
  3.447232744984375*^9}},
 FontFamily->"Courier New",
 FontSize->14,
 Background->RGBColor[1, 0.745098, 0.490196]],

Cell[TextData[{
 "4. Izra\[CHacek]unaj plo\[SHacek]\[CHacek]ino in sredi\[SHacek]\[CHacek]e \
lika, omejenega z grafoma funkcij y=",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["x", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "+x+1 in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{"-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x", "-", "2"}], ")"}], "2"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "+10."
}], "Text",
 CellChangeTimes->{{3.44723147221875*^9, 3.44723148553125*^9}, {
  3.447231652078125*^9, 3.447231675703125*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[1, 0.745098, 0.490196]],

Cell["\<\
5. Izra\[CHacek]unaj dol\:017eino ene periode grafa sinusoide f(x)=sin(x).\
\>", "Text",
 CellChangeTimes->{{3.44723147221875*^9, 3.44723148553125*^9}, {
  3.447231652078125*^9, 3.447231675703125*^9}, {3.44723170634375*^9, 
  3.447231765*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[1, 0.745098, 0.490196]]
},
CellGrouping->Manual,
WindowSize->{1272, 903},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 24, 0, 83, "Title"],
Cell[CellGroupData[{
Cell[616, 26, 70, 1, 49, "Subtitle"],
Cell[689, 29, 1045, 33, 99, "Text"],
Cell[1737, 64, 375, 9, 46, "Text"],
Cell[2115, 75, 493, 15, 31, "Input"],
Cell[2611, 92, 360, 10, 46, "Text"],
Cell[2974, 104, 267, 7, 31, "Input"],
Cell[3244, 113, 376, 10, 31, "Input"],
Cell[3623, 125, 366, 8, 45, "Text"],
Cell[3992, 135, 1873, 50, 72, "Input"],
Cell[5868, 187, 1025, 32, 136, "Text"],
Cell[6896, 221, 306, 7, 46, "Text"],
Cell[7205, 230, 295, 10, 31, "Input"],
Cell[7503, 242, 262, 6, 45, "Text"]
}, Open  ]],
Cell[7780, 251, 2152, 57, 72, "Input"],
Cell[9935, 310, 361, 8, 46, "Text"],
Cell[10299, 320, 437, 14, 31, "Input"],
Cell[10739, 336, 292, 6, 45, "Text"],
Cell[11034, 344, 2526, 65, 72, "Input"],
Cell[CellGroupData[{
Cell[13585, 413, 85, 4, 77, "Subtitle"],
Cell[13673, 419, 530, 16, 45, "Text"],
Cell[14206, 437, 257, 7, 31, "Input"],
Cell[14466, 446, 932, 27, 31, "Input"],
Cell[15401, 475, 1936, 57, 135, "Text"],
Cell[17340, 534, 301, 6, 45, "Text"],
Cell[17644, 542, 230, 7, 31, "Input"],
Cell[17877, 551, 1550, 42, 72, "Input"],
Cell[19430, 595, 437, 11, 46, "Text"],
Cell[19870, 608, 957, 27, 31, "Input"],
Cell[20830, 637, 315, 7, 45, "Text"],
Cell[21148, 646, 231, 7, 31, "Input"],
Cell[21382, 655, 1297, 35, 52, "Input"],
Cell[22682, 692, 396, 8, 45, "Text"],
Cell[23081, 702, 652, 15, 31, "Input"],
Cell[23736, 719, 452, 9, 45, "Text"],
Cell[24191, 730, 234, 7, 31, "Input"],
Cell[24428, 739, 122, 2, 31, "Input"],
Cell[24553, 743, 124, 2, 31, "Input"],
Cell[24680, 747, 122, 2, 31, "Input"],
Cell[24805, 751, 371, 10, 46, "Text"],
Cell[25179, 763, 345, 9, 31, "Input"],
Cell[25527, 774, 343, 9, 31, "Input"],
Cell[25873, 785, 429, 11, 46, "Text"],
Cell[26305, 798, 664, 17, 45, "Text"]
}, Open  ]],
Cell[26984, 818, 123, 2, 31, "Input"],
Cell[27110, 822, 241, 7, 31, "Input"],
Cell[27354, 831, 1022, 28, 31, "Input"],
Cell[28379, 861, 226, 7, 31, "Input"],
Cell[28608, 870, 181, 6, 31, "Input"],
Cell[28792, 878, 131, 4, 31, "Input"],
Cell[28926, 884, 156, 4, 31, "Input"],
Cell[29085, 890, 138, 3, 31, "Input"],
Cell[29226, 895, 1477, 38, 52, "Input"],
Cell[CellGroupData[{
Cell[30728, 937, 88, 4, 77, "Subtitle"],
Cell[30819, 943, 326, 8, 46, "Text"],
Cell[31148, 953, 115, 2, 31, "Input"],
Cell[31266, 957, 301, 7, 45, "Text"],
Cell[31570, 966, 647, 19, 31, "Input"],
Cell[32220, 987, 711, 22, 48, "Text"],
Cell[32934, 1011, 358, 12, 33, "Input"],
Cell[33295, 1025, 632, 21, 49, "Input"],
Cell[33930, 1048, 200, 6, 46, "Text"],
Cell[34133, 1056, 396, 13, 33, "Input"],
Cell[34532, 1071, 622, 21, 99, "Text"],
Cell[35157, 1094, 141, 4, 31, "Input"],
Cell[35301, 1100, 232, 6, 31, "Input"],
Cell[35536, 1108, 228, 6, 31, "Input"],
Cell[35767, 1116, 86, 4, 77, "Subtitle"]
}, Open  ]],
Cell[35868, 1123, 344, 10, 46, "Text"],
Cell[36215, 1135, 422, 11, 45, "Text"],
Cell[36640, 1148, 400, 11, 31, "Input"],
Cell[37043, 1161, 243, 8, 31, "Input"],
Cell[37289, 1171, 471, 13, 51, "Text"],
Cell[37763, 1186, 927, 24, 31, "Input"],
Cell[38693, 1212, 247, 7, 31, "Input"],
Cell[38943, 1221, 1580, 43, 52, "Input"],
Cell[40526, 1266, 611, 20, 31, "Input"],
Cell[41140, 1288, 753, 24, 31, "Input"],
Cell[41896, 1314, 923, 30, 31, "Input"],
Cell[42822, 1346, 543, 14, 31, "Input"],
Cell[43368, 1362, 154, 3, 31, "Input"],
Cell[43525, 1367, 511, 13, 45, "Text"],
Cell[44039, 1382, 58, 1, 31, "Input"],
Cell[44100, 1385, 371, 8, 31, "Input"],
Cell[44474, 1395, 353, 10, 31, "Input"],
Cell[44830, 1407, 814, 24, 31, "Input",
 CellID->13992],
Cell[45647, 1433, 414, 13, 31, "Input"],
Cell[46064, 1448, 354, 8, 46, "Text"],
Cell[46421, 1458, 415, 13, 31, "Input"],
Cell[CellGroupData[{
Cell[46861, 1475, 256, 8, 31, "Input"],
Cell[47120, 1485, 360, 7, 45, "Text"],
Cell[47483, 1494, 592, 17, 52, "Input"],
Cell[48078, 1513, 482, 12, 31, "Input"],
Cell[48563, 1527, 518, 15, 31, "Input"],
Cell[49084, 1544, 517, 15, 31, "Input"],
Cell[49604, 1561, 163, 7, 77, "Subtitle"],
Cell[49770, 1570, 339, 8, 47, "Text"]
}, Open  ]]
}, Open  ]],
Cell[50136, 1582, 971, 30, 96, "Text"],
Cell[51110, 1614, 1090, 32, 129, "Text"],
Cell[52203, 1648, 669, 21, 45, "Text"],
Cell[52875, 1671, 327, 7, 45, "Text"]
}
]
*)

(* End of internal cache information *)