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

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2052,         69]
NotebookOptionsPosition[      1811,         56]
NotebookOutlinePosition[      2154,         71]
CellTagsIndexPosition[      2111,         68]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<B.nk\>\"", ",", "\"\<Table\>\"", ",", 
     RowBox[{"\"\<HeaderLines\>\"", "\[Rule]", "9"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"Length", "[", "a", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "1"}], "]"}], "]"}], ">=", 
      RowBox[{"a", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}]}], ",", 
     RowBox[{"Print", "[", 
      RowBox[{"a", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.673264957521018*^9, 3.6732650229090977`*^9}, {
   3.67326507816772*^9, 3.6732651830704145`*^9}, {3.6896651241778603`*^9, 
   3.6896651432666397`*^9}, 3.6896653172586985`*^9, {3.689665415758359*^9, 
   3.6896655356174717`*^9}, 3.689665574008211*^9}]
},
WindowSize->{775, 873},
WindowMargins->{{Automatic, 261}, {32, Automatic}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1249, 34, 107, "Input"]
}
]
*)

