(* 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[      6550,        184]
NotebookOptionsPosition[      6115,        166]
NotebookOutlinePosition[      6483,        182]
CellTagsIndexPosition[      6440,        179]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"u1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"teta", "''"}], "+", 
     RowBox[{"c1", " ", 
      RowBox[{"teta", "'"}]}], "+", " ", 
     RowBox[{"c5", " ", 
      RowBox[{"alpha", "'"}]}], "+", 
     RowBox[{"c2", " ", "alpha"}], "+", 
     RowBox[{"e3", " ", "v"}], "+", 
     RowBox[{"c3", " ", "vis"}], "+", 
     RowBox[{"c12", " ", "zak"}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"teta", "'"}]}], "+", 
     RowBox[{"alpha", "'"}], "+", 
     RowBox[{"c4", " ", "alpha"}], "+", 
     RowBox[{"e2", " ", "v"}], "+", 
     RowBox[{"c10", " ", "teta"}], "+", 
     RowBox[{"c9", " ", "vis"}], "+", 
     RowBox[{"c13", " ", "zak"}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"v", "'"}], "+", 
     RowBox[{"e1", " ", "v"}], "+", 
     RowBox[{"c8", " ", "alpha"}], "+", 
     RowBox[{"c7", " ", "teta"}], "+", 
     RowBox[{"c14", " ", "zak"}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u4", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"h", "'"}], "-", 
     RowBox[{"c11", " ", "v"}], "-", 
     RowBox[{"c6", " ", "teta"}], "+", 
     RowBox[{"c6", " ", "alpha"}]}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"u", "=", 
    RowBox[{"{", 
     RowBox[{"u1", ",", "u2", ",", "u3", ",", "u4"}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5115856958492575`*^9, 3.5115860422320695`*^9}, {
   3.5115861238737392`*^9, 3.5115862062324495`*^9}, {3.5115862553742604`*^9, 
   3.511586290388263*^9}, {3.5115865883283043`*^9, 3.511586588832333*^9}, 
   3.51159555314577*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"ReplaceAll", "[", 
    RowBox[{"u", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"teta", "''"}], "\[Rule]", 
        RowBox[{"wz", "'"}]}], ",", 
       RowBox[{
        RowBox[{"teta", "'"}], "\[Rule]", "wz"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5115856958492575`*^9, 3.5115860422320695`*^9}, {
   3.5115861238737392`*^9, 3.511586170270393*^9}, {3.5115862095466394`*^9, 
   3.51158624469965*^9}, 3.5115863010888753`*^9, {3.5115867784271774`*^9, 
   3.5115867963982053`*^9}, 3.511588561751378*^9, 3.511595553816571*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"u5", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"teta", "'"}], "-", "wz"}], "\[Equal]", "0"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{"u", ",", "u5"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "u", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5115856958492575`*^9, 3.5115860422320695`*^9}, {
   3.5115861238737392`*^9, 3.511586170270393*^9}, {3.5115862095466394`*^9, 
   3.51158624469965*^9}, {3.5115862752934*^9, 3.5115863581791406`*^9}, {
   3.5115863914830456`*^9, 3.511586415183401*^9}, {3.5115864910487404`*^9, 
   3.5115865468949347`*^9}, {3.5115866157488728`*^9, 3.511586617427969*^9}, {
   3.511586676410342*^9, 3.5115867195518103`*^9}, 3.5115881797535067`*^9, 
   3.5115955550021734`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"qq", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Solve", "[", 
     RowBox[{"u", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"wz", "'"}], ",", 
        RowBox[{"alpha", "'"}], ",", 
        RowBox[{"v", "'"}], ",", 
        RowBox[{"h", "'"}], ",", 
        RowBox[{"teta", "'"}]}], "}"}], ",", 
      RowBox[{"Sort", "\[Rule]", "False"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "qq", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5115856958492575`*^9, 3.5115860422320695`*^9}, {
   3.5115861238737392`*^9, 3.511586170270393*^9}, {3.5115862095466394`*^9, 
   3.51158624469965*^9}, {3.5115862752934*^9, 3.5115863581791406`*^9}, {
   3.511586810969039*^9, 3.5115868249138365`*^9}, {3.5115868671272507`*^9, 
   3.5115868995371046`*^9}, {3.511586948009877*^9, 3.51158698827318*^9}, 
   3.511587280848728*^9, 3.5115877200830994`*^9, {3.51158776022197*^9, 
   3.511587766321581*^9}, 3.5115879352542777`*^9, {3.511588046404473*^9, 
   3.5115880469036736`*^9}, 3.5115955558133745`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"qq", "=", 
   RowBox[{"Collect", "[", 
    RowBox[{"qq", ",", 
     RowBox[{"{", 
      RowBox[{
      "wz", ",", "alpha", ",", "v", ",", "h", ",", "teta", ",", "vis", ",", 
       "zak"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "qq", "]"}]}], "Input",
 CellChangeTimes->{{3.5115856958492575`*^9, 3.5115860422320695`*^9}, {
   3.5115861238737392`*^9, 3.511586170270393*^9}, {3.5115862095466394`*^9, 
   3.51158624469965*^9}, {3.5115862752934*^9, 3.5115863581791406`*^9}, {
   3.511586810969039*^9, 3.5115868249138365`*^9}, {3.5115868671272507`*^9, 
   3.5115868995371046`*^9}, {3.511586948009877*^9, 3.511586962847726*^9}, {
   3.511586992903445*^9, 3.5115870048891306`*^9}, {3.5115871867337627`*^9, 
   3.511587187123763*^9}, 3.5115872829235315`*^9, 3.511587666278605*^9, {
   3.5115880776513276`*^9, 3.5115880834389377`*^9}, {3.5115886840399923`*^9, 
   3.511588759310125*^9}, {3.5115887988405943`*^9, 3.5115888001353965`*^9}, {
   3.5115889195068064`*^9, 3.5115889298028245`*^9}, {3.511589117892355*^9, 
   3.511589118235555*^9}, {3.5115955654853916`*^9, 3.5115955701809998`*^9}}]
},
WindowSize->{1166, 674},
WindowMargins->{{Automatic, 12}, {1, Automatic}},
CellContext->Notebook,
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[545, 20, 1816, 56, 112, "Input"],
Cell[2364, 78, 630, 16, 31, "Input"],
Cell[2997, 96, 868, 20, 72, "Input"],
Cell[3868, 118, 1083, 24, 52, "Input"],
Cell[4954, 144, 1157, 20, 52, "Input"]
}
]
*)

(* End of internal cache information *)