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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      6253,        219]
NotebookOptionsPosition[      5294,        179]
NotebookOutlinePosition[      5637,        194]
CellTagsIndexPosition[      5594,        191]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{"Sin", "[", "x", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Sin", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.65910601033074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x1", "=", "0"}]], "Input",
 CellChangeTimes->{{3.6591060185654707`*^9, 3.659106018752979*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x2", "=", "1"}]], "Input",
 CellChangeTimes->{{3.6591060249876194`*^9, 3.659106025237631*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", 
   RowBox[{"x1_", ",", "x2_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", "x1", "]"}], "-", 
     RowBox[{"f", "[", "x2", "]"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"x1", "-", "x2"}], ")"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Sin", "[", "1", "]"}]], "Output",
 CellChangeTimes->{3.6591060314879*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", 
   RowBox[{"x1_", ",", "x2_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x1", "*", 
      RowBox[{"f", "[", "x2", "]"}]}], "-", 
     RowBox[{"x2", "*", 
      RowBox[{"f", "[", "x1", "]"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"x1", "-", "x2"}], ")"}]}]}]], "Input"],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"t", "[", 
   RowBox[{"a_", ",", "b_", ",", "t_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"a", "*", "t"}], "+", "b"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"b", "+", 
  RowBox[{"a", " ", "t"}]}]], "Output",
 CellChangeTimes->{3.6591060423321085`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"t", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x1", ",", "x2"}], "]"}], ",", 
         RowBox[{"b", "[", 
          RowBox[{"x1", ",", "x2"}], "]"}], ",", "x"}], "]"}], ",", 
       RowBox[{
        RowBox[{"t", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x1", ",", "x2"}], "]"}], ",", 
          RowBox[{"b", "[", 
           RowBox[{"x1", ",", "x2"}], "]"}], ",", "x"}], "]"}], "+", "k"}]}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "x1", ",", "x2"}], "}"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", 
     RowBox[{"Abs", "[", 
      RowBox[{"x2", "-", "x1"}], "]"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0, 1}}, Typeset`size$$ = {360., {112., 116.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`k$36120$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$36120$$, 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`f[$CellContext`x], 
         $CellContext`t[
          $CellContext`a[$CellContext`x1, $CellContext`x2], 
          $CellContext`b[$CellContext`x1, $CellContext`x2], $CellContext`x], \
$CellContext`t[
           $CellContext`a[$CellContext`x1, $CellContext`x2], 
           $CellContext`b[$CellContext`x1, $CellContext`x2], $CellContext`x] + \
$CellContext`k$$}, {$CellContext`x, $CellContext`x1, $CellContext`x2}], 
      "Specifications" :> {{$CellContext`k$$, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {158., 163.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.659106053270073*^9}]
}, Open  ]]
},
WindowSize->{1904, 943},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 108, 3, 31, "Input"],
Cell[690, 27, 98, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[825, 34, 118, 2, 31, "Input"],
Cell[946, 38, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1053, 44, 118, 2, 31, "Input"],
Cell[1174, 48, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1283, 54, 292, 10, 31, "Input"],
Cell[1578, 66, 97, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1712, 73, 348, 12, 31, "Input"],
Cell[2063, 87, 72, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2172, 93, 161, 5, 31, "Input"],
Cell[2336, 100, 117, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2490, 108, 882, 27, 31, "Input"],
Cell[3375, 137, 1903, 39, 338, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)