(* 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[      4156,        146]
NotebookOptionsPosition[      3646,        124]
NotebookOutlinePosition[      3989,        139]
CellTagsIndexPosition[      3946,        136]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"x", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"0.25", 
          RowBox[{"x", "[", "t", "]"}]}]}], "==", "0"}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "==", "4"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "0", "]"}], "==", "0"}]}], "}"}], ",", 
     RowBox[{"x", "[", "t", "]"}], ",", " ", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"x", "[", "t", "]"}], "/.", 
   RowBox[{"sol", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.46995637813325*^9, 3.469956400602*^9}}],

Cell[BoxData[
 RowBox[{"4.`", " ", 
  RowBox[{"Cos", "[", 
   RowBox[{"0.5`", " ", "t"}], "]"}]}]], "Output",
 CellChangeTimes->{3.469956401117625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "Global", "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.469956945930125*^9, 3.46995694819575*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol1", "=", 
  RowBox[{
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"x", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"6", " ", 
          RowBox[{
           RowBox[{"x", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{"0.5", " ", 
          RowBox[{"x", "[", "t", "]"}]}]}], "\[Equal]", "0"}], ",", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], "\[Equal]", "4"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",",
      
     RowBox[{"x", "[", "t", "]"}], ",", "t"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.469956958961375*^9, 3.469956960742625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DSolve", "::", "\<\"dsfun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(4.`\\\\ \\(\\(Cos[\\(\\(0.5`\\\\ t\\)\\)]\\)\\)\\) \
cannot be used as a function. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/DSolve/dsfun\\\", ButtonNote -> \
\\\"DSolve::dsfun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.46995696132075*^9}],

Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"1.`", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"0.5`", " ", "t"}], "]"}]}], "-", 
       RowBox[{"12.`", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"0.5`", " ", "t"}], "]"}]}]}], "\[Equal]", "0"}], ",", 
     "True", ",", "True"}], "}"}], ",", 
   RowBox[{"4.`", " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"0.5`", " ", "t"}], "]"}]}], ",", "t"}], "]"}]], "Output",
 CellChangeTimes->{3.469956961336375*^9}]
}, Open  ]]
},
WindowSize->{616, 569},
WindowMargins->{{Automatic, 131}, {Automatic, 39}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 28, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 899, 28, 72, "Input"],
Cell[1492, 53, 151, 4, 30, "Output"]
}, Open  ]],
Cell[1658, 60, 183, 4, 52, "Input"],
Cell[CellGroupData[{
Cell[1866, 68, 760, 23, 52, "Input"],
Cell[2629, 93, 446, 9, 21, "Message"],
Cell[3078, 104, 552, 17, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)