(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      4430,        158]
NotebookOptionsPosition[      3972,        137]
NotebookOutlinePosition[      4336,        153]
CellTagsIndexPosition[      4293,        150]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x1", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"-", "1"}], "T1"], 
        RowBox[{"x1", "[", "t", "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "T1"], 
        RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"x2", "'"}], "[", "t", "]"}], "\[Equal]", 
      RowBox[{
       FractionBox[
        RowBox[{"-", "1"}], "T2"], 
       RowBox[{"x2", "[", "t", "]"}]}]}], ",", 
     RowBox[{
      RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "1"}], ",", 
     RowBox[{
      RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "[", "t", "]"}], ",", 
     RowBox[{"x2", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.4810192036377745`*^9, 3.481019272254547*^9}, {
  3.4810345566251965`*^9, 3.4810345637348447`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x1", "[", "t", "]"}], "\[Rule]", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["t", "T1"]}]]}], ",", 
    RowBox[{
     RowBox[{"x2", "[", "t", "]"}], "\[Rule]", "0"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4810192728639374`*^9, 3.4810345641723614`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x1", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{"-", "1"}], "T1"], 
         RowBox[{"x1", "[", "t", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "T1"], 
         RowBox[{"x2", "[", "t", "]"}]}]}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"x2", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{
        FractionBox[
         RowBox[{"-", "1"}], "T2"], 
        RowBox[{"x2", "[", "t", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"x1", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{
       RowBox[{"x2", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x1", "[", "t", "]"}], ",", 
      RowBox[{"x2", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.4810192036377745`*^9, 3.481019272254547*^9}, {
  3.4810345566251965`*^9, 3.481034576266576*^9}, {3.4810349594119296`*^9, 
  3.4810349607713566`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x1", "[", "t", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["t", "T1"]}]], "-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           FractionBox["t", "T2"]}]]}], ")"}], " ", "T2"}], 
      RowBox[{"T1", "-", "T2"}]]}], ",", 
    RowBox[{
     RowBox[{"x2", "[", "t", "]"}], "\[Rule]", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["t", "T2"]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4810192728639374`*^9, {3.4810345641723614`*^9, 3.481034577188486*^9}, 
   3.481034961161997*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1036, 32, 74, "Input"],
Cell[1606, 56, 384, 12, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2027, 73, 1150, 35, 74, "Input"],
Cell[3180, 110, 776, 24, 64, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)