(* 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[ 10130, 349] NotebookOptionsPosition[ 9033, 305] NotebookOutlinePosition[ 9373, 320] CellTagsIndexPosition[ 9330, 317] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"data", "=", RowBox[{"Import", "[", RowBox[{"\"\<~tmp/tabdata.txt\>\"", ",", "\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "1"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.495767505359869*^9, 3.495767526582526*^9}, { 3.495767985143714*^9, 3.495767997373232*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.495767528817869*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"xvals", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4957675469348803`*^9, 3.495767547062294*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "4", ",", "5", ",", "10", ",", "9", ",", "8", ",", "6", ",", "7", ",", "1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.495767548408944*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"yvals", "=", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4957677244302*^9, 3.495767729599424*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "9", ",", "16", ",", "25", ",", "100", ",", "81", ",", "64", ",", "36", ",", "49", ",", "1", ",", "4"}], "}"}]], "Output", CellChangeTimes->{{3.495767724935972*^9, 3.495767737291851*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"n", ",", "1"}], "]"}], "]"}], ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"n", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495767754416226*^9, 3.4957677610427427`*^9}}], Cell[BoxData[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], PointBox[{{3., 9.}, {4., 16.}, {5., 25.}, {10., 100.}, {9., 81.}, {8., 64.}, {6., 36.}, {7., 49.}, {1., 1.}, {2., 4.}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"my x axis\"", TraditionalForm], FormBox["\"my y-axis\"", TraditionalForm]}, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.495767761946354*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.495767827148456*^9, 3.495767832378768*^9}}], Cell[BoxData[ GraphicsBox[{ {Hue[0.67, 0.6, 0.6], PointBox[{{1., 3.}, {2., 4.}, {3., 5.}, {4., 10.}, {5., 9.}, {6., 8.}, { 7., 6.}, {8., 7.}, {9., 1.}, {10., 2.}}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointBox[{{1., 9.}, {2., 16.}, {3., 25.}, {4., 100.}, {5., 81.}, {6., 64.}, {7., 36.}, {8., 49.}, {9., 1.}, {10., 4.}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"my x axis\"", TraditionalForm], FormBox["\"my y-axis\"", TraditionalForm]}, AxesOrigin->{0, Automatic}, PlotRange->Automatic, PlotRangeClipping->True]], "Output", CellChangeTimes->{3.495767835864958*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"n", ",", "1"}], "]"}], "]"}], ",", RowBox[{"data", "[", RowBox[{"[", RowBox[{"n", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", RowBox[{"data", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4957678628908567`*^9, 3.495767874869382*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{3., 9.}, {4., 16.}, {5., 25.}, {10., 100.}, {9., 81.}, {8., 64.}, {6., 36.}, {7., 49.}, {1., 1.}, {2., 4.}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"my x axis\"", TraditionalForm], FormBox["\"my y-axis\"", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 100.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.495767875900529*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"sorted", "=", RowBox[{"Sort", "[", "data", "]"}]}]}]], "Input", CellChangeTimes->{{3.495767916322942*^9, 3.4957679166348257`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.495767917197028*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sorted", "[", RowBox[{"[", RowBox[{"n", ",", "1"}], "]"}], "]"}], ",", RowBox[{"sorted", "[", RowBox[{"[", RowBox[{"n", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", RowBox[{"sorted", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.495767943134966*^9, 3.495767946344207*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 1.}, {2., 4.}, {3., 9.}, {4., 16.}, {5., 25.}, {6., 36.}, { 7., 49.}, {8., 64.}, {9., 81.}, {10., 100.}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox["\"my x axis\"", TraditionalForm], FormBox["\"my y-axis\"", TraditionalForm]}, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 100.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4957679476003428`*^9}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{12, Automatic}, {Automatic, 24}}, FrontEndVersion->"7.0 for Mac OS X x86 (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, 380, 7, 58, "Input"], Cell[950, 31, 694, 23, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1681, 59, 242, 6, 43, "Input"], Cell[1926, 67, 203, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2166, 77, 238, 6, 43, "Input"], Cell[2407, 85, 234, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2678, 95, 825, 25, 58, "Input"], Cell[3506, 122, 473, 12, 237, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4016, 139, 549, 16, 58, "Input"], Cell[4568, 157, 674, 16, 226, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5279, 178, 829, 25, 58, "Input"], Cell[6111, 205, 581, 16, 228, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6729, 226, 193, 4, 43, "Input"], Cell[6925, 232, 694, 23, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7656, 260, 775, 24, 43, "Input"], Cell[8434, 286, 583, 16, 228, "Output"] }, Open ]] } ] *) (* End of internal cache information *)