(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 22606, 570]*) (*NotebookOutlinePosition[ 23336, 595]*) (* CellTagsIndexPosition[ 23292, 591]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Test cases for MultipleLogListPlot and LegendSpec", "Subtitle"], Cell["\<\ This is a test bed for MultipleLogListPlot and LegendSpec. Note that the \ input syntax for MultipleLogListPlot is exactly as in MultipleListPlot. In \ fact, MultipleLogListPlot looks, feels, smells and acts just like \ MultipleListPlot. The defaults for PlotRange, AxesOrigin, Gridlines and \ Ticks should work for most applications. Remember that if the Frame option \ is chosen, you must specify FrameTicks. John Taylor\ \>", "Text"], Cell[CellGroupData[{ Cell["Initialization", "Section"], Cell[BoxData[ \(\(<< MultipleLogListPlot`;\)\)], "Input"], Cell[BoxData[ \(<< LegendSpec`\)], "Input"], Cell["\<\ Here are my standard test functions. They are all exercised.\ \>", "Text"], Cell[BoxData[{ \(\(shortlinearlist := Table[{i, 2\ i}, {i, 0, 5}];\)\), "\[IndentingNewLine]", \(\(linearlist := Table[{{i, i}, {{\(-0.1\) i, 0.2\ i}}}, {i, 1, 5}];\)\), "\[IndentingNewLine]", \(\(biglinearlist := Table[{{i, 2\ i}, {{\(-0.1\)\ i, 0.2\ i}, {\(-0.1\)\ i, 0.2\ i}}}, {i, 2, 5}];\)\), "\[IndentingNewLine]", \(\(linearsample := Sequence @@ Table[{shortlinearlist, linearlist, biglinearlist}];\)\)}], "Input",\ InitializationCell->True], Cell[BoxData[{ \(\(linearlogtab1 := Table[{0.1\ i - 2, Exp[\((0.1\ i - 2)\)]}, {i, 0, 50}];\)\), "\[IndentingNewLine]", \(\(linearlogtab2 := Table[{0.1\ i - 2, Exp[\((\(-0.1\)\ i + 2)\)]}, {i, 0, 50}];\)\), "\[IndentingNewLine]", \(\(linearlogtab3 := Table[{{0.1\ i, Exp[\(-0.1\)\ i]}, 0.2\ Exp[\(-0.1\)\ i]}, {i, 0, 30}];\)\), "\[IndentingNewLine]", \(\(linearlogtab4 := Table[{0.1\ i, Exp[\((\(-0.1\)\ i)\)]}, {i, 0, 30}];\)\), "\[IndentingNewLine]", \(\(linearlogtab5 := Table[{0.1\ i, Exp[\((\(-0.1\)\ i)\)]}, {i, 15, 30}];\)\), "\[IndentingNewLine]", \(\(loglineartab1 := Table[{i, i}, {i, 1, 10}];\)\), "\[IndentingNewLine]", \(\(loglineartab2 := Table[{i, N[Sqrt[i]]}, {i, 1, 10}];\)\), "\[IndentingNewLine]", \(\(loglineartab3 := Table[{{i, Sqrt[i] + Random[Real, {\(-0.2\), 0.2}]}, 0.1}, {i, 1, 10}];\)\), "\[IndentingNewLine]", \(\(loglineartab4 := Table[{0.5\ i, 0.5\ i - 2}, {i, 1, 10}];\)\), "\[IndentingNewLine]", \(\(lineartab1 := Table[{0.2 i, \((0.2\ i)\)^3/\((Exp[0.2\ i] - 1)\)}, {i, 1, 50}];\)\), "\[IndentingNewLine]", \(\(lineartab2 := Table[{0.2 i, \((0.2\ i)\)^3/\((Exp[0.15\ i] - 1)\)}, {i, 1, 50}];\)\), "\[IndentingNewLine]", \(\(lineartab3 := Table[{0.1\ i, 0.1\ i}, {i, 3, 15}];\)\)}], "Input"], Cell[BoxData[{ \(\(shortlinearloglist := Table[{i, Exp[i/3]}, {i, 3, 10}];\)\), "\[IndentingNewLine]", \(\(linearloglist := Table[{{i, Exp[i/2]}, 0.25\ Exp[i/2]}, {i, 2, 10}];\)\), "\[IndentingNewLine]", \(\(longlinearloglist := Table[{{i, 0.1\ \ Exp[i]}, {0.5, 0.05\ \ Exp[i]}}, {i, 1, 10}];\)\), "\[IndentingNewLine]", \(linearlogsample := Sequence @@ Table[{shortlinearloglist, linearloglist, longlinearloglist}]\)}], "Input", InitializationCell->True], Cell[BoxData[{ \(\(shortloglinearlist := Table[{2\ i, Log[10, 2\ i]}, {i, 3, 50}];\)\), "\[IndentingNewLine]", \(\(loglinearlist := Table[{{2\ i, 2\ Log[10, 2\ i]}, 0.2\ Log[10, 2\ i]}, {i, 4, 50}];\)\), "\[IndentingNewLine]", \(\(longloglinearlist := Table[{{2\ i, 3\ Log[10, 2\ i]}, {0.3\ i, 0.25\ Log[10, 2\ i]}}, {i, 1, 50}];\)\), "\[IndentingNewLine]", \(loglinearsample := Sequence @@ Table[{shortloglinearlist, loglinearlist, longloglinearlist}]\)}], "Input", InitializationCell->True], Cell[BoxData[{ \(\(hugelogloglist := Table[{{100\ i, \((100\ i)\)^3}, 0.5\ \((100\ i)\)^3}, {i, 3, 20}];\)\), "\[IndentingNewLine]", \(\(hugeshortlogloglist := Table[{100\ i, \((100\ i)\)^4}, {i, 5, 20}];\)\), "\[IndentingNewLine]", \(\(hugelonglogloglist := Table[{{100\ i, \((100\ i)\)^2}, {0.25 \((\ 100\ i)\), 0.75\ \((100\ i)\)^2}}, {i, 5, 20}];\)\), "\[IndentingNewLine]", \(\(hugeloglogsample := Sequence @@ Table[{hugelogloglist, hugeshortlogloglist, hugelonglogloglist}];\)\)}], "Input", InitializationCell->True], Cell[BoxData[{ \(\(minilogloglist := Table[{{i/10, \((i/10)\)^3}, 0.25\ \((i/10)\)^3}, {i, 3, 20}];\)\), "\[IndentingNewLine]", \(\(minishortlogloglist := Table[{i/10, \((i/10)\)^4}, {i, 5, 20}];\)\), "\[IndentingNewLine]", \(\(minilonglogloglist := Table[{{i/10, \((i/10)\)^2}, {0.1 \((\ i/10)\), 0.25\ \((i/10)\)^2}}, {i, 5, 20}];\)\), "\[IndentingNewLine]", \(\(miniloglogsample := Sequence @@ Table[{minilogloglist, minishortlogloglist, minilonglogloglist}];\)\)}], "Input", InitializationCell->True], Cell[BoxData[{ \(\(logloglist := Table[{{i, i^3}, 0.25\ i^3}, {i, 3, 20}];\)\), "\[IndentingNewLine]", \(\(shortlogloglist := Table[{i, i^4}, {i, 5, 20}];\)\), "\[IndentingNewLine]", \(\(longlogloglist := Table[{{i, i^2}, {0.25\ i, 0.75\ i^2}}, {i, 5, 20}];\)\), "\[IndentingNewLine]", \(\(loglogsample := Sequence @@ Table[{logloglist, shortlogloglist, longlogloglist}];\)\)}], "Input",\ InitializationCell->True], Cell[BoxData[ \(shorttinylogloglist := Table[{i/1000, \((i/1000)\)^2}, {i, 1, 11}]\)], "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Graphs", "Section"], Cell["\<\ This cell demonstrates the default axes origin on a LinearLog graph when all \ linear coordinates are positive.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogtab5, PlotJoined \[Rule] True, SymbolShape \[Rule] None, PlotStyle \[Rule] {AbsoluteThickness[2]}, AxesLabel \[Rule] {"\", "\"}, ImageSize \[Rule] 7.5\ 72];\)\)], "Input", InitializationCell->True], Cell["\<\ This cell demonstrates the default axis origin when some linear coordinates \ are negative.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogtab1, PlotJoined \[Rule] True, SymbolShape \[Rule] None, PlotStyle \[Rule] {AbsoluteThickness[2]}, AxesLabel \[Rule] {"\", "\"}, ImageSize \[Rule] 7.5\ 72];\)\)], "Input", InitializationCell->True], Cell[TextData[{ "This cell demonstrates the use of the built in LegendPositionfunction \ LinearLogCorner.Note that the input argument contains a ", StyleBox["List", FontVariations->{"Underline"->True}], " of functions,rather than a ", StyleBox["Sequence", FontVariations->{"Underline"->True}], ".The next two arguments are the physical coordinates of the desired \ LegendPosition. A fourth argument (a),not used for this demonstration,is \ defaulted to 0.612 for a plot whose AspectRatio is Automatic. Note that the \ LegendPosition achieved is not precise,but close.This is due to the fact that \ there is a built in average over possible AxesLabels and other text added to \ the Graphic.It is this imprecision that spawned the creation of the \ LegendSpec package." }], "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[Take[linearlogtab1, 21], linearlogtab3, PlotJoined \[Rule] {True, False}, SymbolShape \[Rule] {None, RedSymbol[colordiamond[0.01]]}, ErrorBarFunction \[Rule] {None, RedSerif}, PlotStyle \[Rule] {AbsoluteThickness[2]}, AxesLabel \[Rule] {"\", "\"}, AxesOrigin \[Rule] {0, Log[10, 0.04]}, Epilog \[Rule] {Text["\", {0.5, Log[10, 0.03]}]}, PlotRange \[Rule] All, ImageSize \[Rule] 7.5\ 72, PlotLegend \[Rule] {"\", "\"}, LegendPosition \[Rule] LinearLogCorner[{Take[linearlogtab1, 21], linearlogtab3}, 1.0, 0.5], LegendSize \[Rule] {0.45, 0.1}, ImageSize \[Rule] 7.5\ 72];\)\)], "Input", InitializationCell->True], Cell["\<\ New we exercise the package LegendSpec by reading the cornerpoints off the \ plot above and recording them as cornerpoints1.\ \>", "Text"], Cell[BoxData[ \(\(cornerpoints1 := {{\(-2.50715\), \(-1.53626\)}, {3.81301, 0.329769}};\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(MultipleLinearLogPlot[Take[linearlogtab1, 21], linearlogtab3, PlotJoined \[Rule] {True, False}, SymbolShape \[Rule] {None, RedSymbol[colordiamond[0.01]]}, ErrorBarFunction \[Rule] {None, RedSerif}, PlotStyle \[Rule] {AbsoluteThickness[2]}, AxesLabel \[Rule] {"\", "\"}, AxesOrigin \[Rule] {0, Log[10, 0.04]}, Epilog \[Rule] {Text["\", {0.5, Log[10, 0.03]}]}, ImageSize \[Rule] 7.5\ 72, PlotLegend \[Rule] {"\", "\"}, PlotRange \[Rule] All, LegendPosition \[Rule] LinearLogLocate[cornerpoints1, 1.0, 0.5], LegendSize \[Rule] SizeSpec["\", 2], LegendSize \[Rule] {0.45, 0.1}, ImageSize \[Rule] 7.5\ 72];\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogtab1, linearlogtab4, PlotJoined \[Rule] True, SymbolShape \[Rule] None, PlotStyle \[Rule] {{AbsoluteThickness[2], RGBColor[1, 0, 0]}, AbsoluteThickness[2]}, AxesLabel \[Rule] {"\", "\"}, ImageSize \[Rule] 7.5\ 72, PlotLegend \[Rule] {"\", "\"}, LegendPosition \[Rule] LinearLogCorner[{linearlogtab1, linearlogtab4}, 1.5, 0.5], LegendSize \[Rule] {0.25, 0.1}];\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(points1 := {{\(-2.37718\), \(-1.45604\)}, {4.09896, 1.70897}};\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogtab1, linearlogtab4, PlotJoined \[Rule] True, SymbolShape \[Rule] None, PlotStyle \[Rule] {{AbsoluteThickness[2], RGBColor[1, 0, 0]}, AbsoluteThickness[2]}, AxesLabel \[Rule] {"\", "\"}, ImageSize \[Rule] 7.5\ 72, PlotLegend \[Rule] {"\", "\"}, LegendPosition \[Rule] LinearLogLocate[points1, 1.5, 0.5], LegendSize \[Rule] {0.25, 0.1}];\)\)], "Input", InitializationCell->True], Cell[TextData[{ "This cell demonstrates the use of LinearLogCorner in conjunction with \ input data containing error bars and in addition,an Epilog which introduces \ text below the abcissa tick labels. ", StyleBox["Note especially", FontVariations->{"Underline"->True}], " that the addition of this Epilog requires PlotRange\[Rule]All. Note how \ the addition of the extra line changes the error in location of the \ Legend.Further,the AxesOrigin must now be specified to get the plot to look \ right." }], "Text"], Cell["\<\ The next cell exercises the system in the mid range. of log log \ coordinates.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLogLogPlot[miniloglogsample, SymbolShape \[Rule] {RedSymbol[colortriangle[0.025]], GreenSymbol[colordiamond[0.025]], BlueSymbol[colorstar[0.025]]}, ErrorBarFunction \[Rule] {RedBar, GreenBar, BlueBar}];\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(MultipleLogLogPlot[hugeloglogsample, SymbolShape \[Rule] {RedSymbol[colortriangle[0.025]], GreenSymbol[colordiamond[0.025]], BlueSymbol[colorstar[0.025]]}, ErrorBarFunction \[Rule] {RedBar, GreenBar, BlueBar}];\)\)], "Input", InitializationCell->True], Cell["\<\ This cell exercises very small numbers and the colorpoint function. There \ are no errors for this input, so this is suitable test for plotting a \ theoretical curve. Note that if we specify RedBar (no Serif) the errorbar \ function produces no result.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLogLogPlot[shorttinylogloglist, SymbolShape \[Rule] RedSymbol[colorpoint], ErrorBarFunction \[Rule] RedBar, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0]];\)\)], "Input", InitializationCell->True], Cell["\<\ This cell checks the linear log plot option. Note that the default \ AxesOrigin and PlotRange cuts off the error bars at the origin and on the \ top.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogsample, SymbolShape \[Rule] {RedSymbol[colortriangle[0.015]], GreenSymbol[colordiamond[0.015]], BlueSymbol[colorpentagon[0.015]]}, PlotJoined \[Rule] {True, False, False}, PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}, ErrorBarFunction \[Rule] {RedBar, GreenSerif, BlueSerif}];\)\)], "Input", InitializationCell->True], Cell[TextData[{ "Here is the same data with specification of the origin and range. \ Remember that MultipleListPlot is doing ", StyleBox["Linear ", FontVariations->{"Underline"->True}], "plotting, so ", StyleBox["negative numbers", FontVariations->{"Underline"->True}], " are OK." }], "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogsample, AxesOrigin \[Rule] {0, \(-1\)}, PlotRange \[Rule] {{0, 11}, {\(-1\), 3.5}}, SymbolShape \[Rule] {RedSymbol[colortriangle[0.015]], GreenSymbol[colordiamond[0.015]], BlueSymbol[colorpentagon[0.015]]}, PlotJoined \[Rule] {True, False, False}, PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}, ErrorBarFunction \[Rule] {RedBar, GreenSerif, BlueSerif}];\)\)], "Input"], Cell["\<\ The next cell cxercises the log linear plot option and the error bars without \ serifs.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLogLinearPlot[loglinearsample, SymbolShape \[Rule] {OrangeSymbol[colordiamond[0.015]], BlackSymbol[colorstar[0.02]], YellowSymbol[colortriangle[0.02]]}, ErrorBarFunction \[Rule] {OrangeBar, BlackBar, YellowBar}];\)\)], "Input", InitializationCell->True], Cell["\<\ The following plot points up the problem of locating a Legend for plots where \ the range is very large. I can't find any algorithmic way to do it.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLogLinearPlot[loglinearsample, GridLines \[Rule] {LooseMultipleLogGrid[0, 2], Automatic}, \[IndentingNewLine]FrameTicks \[Rule] \ {LooseMultipleLogTicks[0, 2], Automatic}, \[IndentingNewLine]SymbolShape \[Rule] {RedSymbol[ colortriangle[0.015]], GreenSymbol[colordiamond[0.015]], BlueSymbol[ colorstar[ 0.015]]}, \[IndentingNewLine]ErrorBarFunction \[Rule] \ {RedSerif, GreenSerif, BlueSerif}, \[IndentingNewLine]PlotLegend \[Rule] {"\", \ "\", "\"}, \[IndentingNewLine]LegendPosition \[Rule] \ {\(-0.65\), 0.2}, LegendTextSpace \[Rule] 1, \[IndentingNewLine]LegendSize \[Rule] {0.9, 0.25}, \[IndentingNewLine]Frame \[Rule] True, \[IndentingNewLine]PlotLabel \[Rule] "\", PlotJoined \[Rule] True, \[IndentingNewLine]PlotStyle \[Rule] {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}, \[IndentingNewLine]FrameLabel \[Rule] {x, y}];\)\)], "Input", InitializationCell->True], Cell["\<\ This cell tests the unequal positive and negative error bars,with serifs.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLinearPlot[linearsample, SymbolShape \[Rule] {BlackSymbol[colorstar[0.02]], RedSymbol[colorpentagon[0.01]]}, ErrorBarFunction \[Rule] {BlackSerif, RedSerif}];\)\)], "Input", InitializationCell->True], Cell["\<\ Note that in the next cell I have chosen to join the data points for only \ one of the sets. This is done by specifying the PlotJoined option for each \ set. If you have a theoretical curve, with no error bars, use the simple \ errorbar (RedBar,GreenBar, ...etc.) function for such a curve. If you use \ the Serif functions, crosses will appear at the data points which generate \ the curve.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogsample, GridLines \[Rule] {{0, 2, 4, 6, 8, 10}, LooseMultipleLogGrid[\(-1\), 3]}, \[IndentingNewLine]FrameTicks \[Rule] {Automatic, LooseMultipleLogTicks[\(-1\), 2]}, \[IndentingNewLine]Frame \[Rule] True, \[IndentingNewLine]LegendTextSpace \[Rule] 1, \[IndentingNewLine]SymbolShape \[Rule] {RedSymbol[ colortriangle[0.015]], GreenSymbol[colordiamond[0.015]], BlueSymbol[ colorstar[ 0.015]]}, \[IndentingNewLine]ErrorBarFunction \[Rule] \ {RedBar, GreenBar, BlueBar}, \[IndentingNewLine]PlotLegend \[Rule] {"\", "\ \", "\"}, \[IndentingNewLine]LegendPosition \[Rule] \ {\(-0.3\), \(-0.45\)}, LegendTextSpace \[Rule] 1, \[IndentingNewLine]LegendSize \[Rule] {1.0, 0.2}, \[IndentingNewLine]PlotLabel \[Rule] \ "\", PlotJoined \[Rule] {False, True, False}, \[IndentingNewLine]PlotStyle \[Rule] {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}, \[IndentingNewLine]FrameLabel \[Rule] {x, y}];\)\)], "Input", InitializationCell->True], Cell["\<\ In the next cell, we again over ride the AxesOrigin and PlotRange defaults. \ Note that the Serifs are useful because some of the error bars lie on the \ grid lines.\ \>", "Text"], Cell[BoxData[ \(\(MultipleLinearLogPlot[linearlogsample, AxesOrigin -> {0, \(-1\)}, PlotRange \[Rule] {{0, 11}, {\(-1\), 3.5}}, \[IndentingNewLine]FrameTicks \[Rule] {Automatic, LooseMultipleLogTicks[\(-1\), 2]}, \[IndentingNewLine]Frame \[Rule] True, \[IndentingNewLine]LegendTextSpace \[Rule] 1, \[IndentingNewLine]SymbolShape \[Rule] {RedSymbol[ colortriangle[0.015]], GreenSymbol[colordiamond[0.015]], BlueSymbol[ colorstar[ 0.015]]}, \[IndentingNewLine]ErrorBarFunction \[Rule] \ {RedSerif, GreenSerif, BlueSerif}, \[IndentingNewLine]PlotLegend \[Rule] {"\", \ "\", "\"}, \[IndentingNewLine]LegendPosition \[Rule] \ {\(-0.3\), \(-0.45\)}, LegendTextSpace \[Rule] 1, \[IndentingNewLine]LegendSize \[Rule] {1.0, 0.2}, \[IndentingNewLine]PlotLabel \[Rule] \ "\", PlotJoined \[Rule] {False, True, False}, \[IndentingNewLine]PlotStyle \[Rule] {RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[0, 0, 1]}, \[IndentingNewLine]FrameLabel \[Rule] {x, y}];\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(MultipleLogLogPlot[shorttinylogloglist, SymbolShape \[Rule] RedSymbol[colorpoint], ErrorBarFunction \[Rule] RedBar, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0], Frame \[Rule] True, FrameTicks \[Rule] {TightMultipleLogTicks[\(-3\), \(-2\)], LooseMultipleLogTicks[\(-6\), \(-4\)]}, Epilog \[Rule] {Text["\", {\(-1.85\), \(-6.25\)}], Text["\", {\(-3.2\), \(-4.5\)}, {\(-1\), 0}, {0, 1}]}];\)\)], "Input", InitializationCell->True], Cell[BoxData[ \(\(MultipleLogLogPlot[shorttinylogloglist, SymbolShape \[Rule] RedSymbol[colorpoint], ErrorBarFunction \[Rule] RedBar, PlotJoined \[Rule] True, PlotStyle \[Rule] RGBColor[1, 0, 0], Frame \[Rule] True, FrameTicks \[Rule] {TightMultipleLogTicks[\(-3\), \(-2\)], LooseMultipleLogTicks[\(-6\), \(-4\)]}, Epilog \[Rule] {Text["\", {\(-1.85\), \(-6.25\)}], Text["\", {\(-3.2\), \(-4.5\)}, {\(-0.5\), 0}, {0, 1}]}];\)\)], "Input", InitializationCell->True] }, Open ]] }, Open ]] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1024}, {0, 723}}, AutoGeneratedPackage->Automatic, WindowSize->{754, 526}, WindowMargins->{{Automatic, 5}, {Automatic, 5}}, PrintingCopies->1, PrintingPageRange->{1, Automatic} ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 70, 0, 51, "Subtitle"], Cell[1849, 55, 452, 9, 128, "Text"], Cell[CellGroupData[{ Cell[2326, 68, 33, 0, 73, "Section"], Cell[2362, 70, 61, 1, 30, "Input"], Cell[2426, 73, 47, 1, 30, "Input"], Cell[2476, 76, 85, 2, 33, "Text"], Cell[2564, 80, 558, 14, 90, "Input", InitializationCell->True], Cell[3125, 96, 1487, 31, 250, "Input"], Cell[4615, 129, 558, 13, 90, "Input", InitializationCell->True], Cell[5176, 144, 608, 14, 90, "Input", InitializationCell->True], Cell[5787, 160, 659, 15, 110, "Input", InitializationCell->True], Cell[6449, 177, 615, 13, 110, "Input", InitializationCell->True], Cell[7067, 192, 509, 13, 90, "Input", InitializationCell->True], Cell[7579, 207, 134, 3, 30, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[7750, 215, 25, 0, 43, "Section"], Cell[7778, 217, 135, 3, 33, "Text"], Cell[7916, 222, 299, 5, 50, "Input", InitializationCell->True], Cell[8218, 229, 115, 3, 33, "Text"], Cell[8336, 234, 299, 5, 50, "Input", InitializationCell->True], Cell[8638, 241, 797, 15, 109, "Text"], Cell[9438, 258, 833, 15, 150, "Input", InitializationCell->True], Cell[10274, 275, 148, 3, 33, "Text"], Cell[10425, 280, 147, 3, 30, "Input", InitializationCell->True], Cell[10575, 285, 862, 16, 150, "Input", InitializationCell->True], Cell[11440, 303, 576, 11, 130, "Input", InitializationCell->True], Cell[12019, 316, 140, 3, 30, "Input", InitializationCell->True], Cell[12162, 321, 542, 10, 110, "Input", InitializationCell->True], Cell[12707, 333, 525, 10, 90, "Text"], Cell[13235, 345, 102, 3, 33, "Text"], Cell[13340, 350, 306, 5, 70, "Input", InitializationCell->True], Cell[13649, 357, 306, 5, 70, "Input", InitializationCell->True], Cell[13958, 364, 279, 5, 52, "Text"], Cell[14240, 371, 270, 5, 50, "Input", InitializationCell->True], Cell[14513, 378, 175, 4, 52, "Text"], Cell[14691, 384, 486, 10, 110, "Input", InitializationCell->True], Cell[15180, 396, 312, 9, 52, "Text"], Cell[15495, 407, 552, 11, 110, "Input"], Cell[16050, 420, 111, 3, 33, "Text"], Cell[16164, 425, 329, 6, 90, "Input", InitializationCell->True], Cell[16496, 433, 173, 3, 52, "Text"], Cell[16672, 438, 1169, 23, 270, "Input", InitializationCell->True], Cell[17844, 463, 97, 2, 33, "Text"], Cell[17944, 467, 262, 5, 70, "Input", InitializationCell->True], Cell[18209, 474, 420, 7, 71, "Text"], Cell[18632, 483, 1299, 26, 290, "Input", InitializationCell->True], Cell[19934, 511, 190, 4, 52, "Text"], Cell[20127, 517, 1289, 25, 290, "Input", InitializationCell->True], Cell[21419, 544, 577, 10, 110, "Input", InitializationCell->True], Cell[21999, 556, 579, 10, 110, "Input", InitializationCell->True] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)