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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     20661,        460]
NotebookOptionsPosition[     20292,        443]
NotebookOutlinePosition[     20636,        458]
CellTagsIndexPosition[     20593,        455]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]0", "=", "0.1184"}], ";", " ",
  RowBox[{"\[Mu]0", "=", "91.1876"}], ";", " ",
  RowBox[{"Nc", "=", "3"}], ";", " ",
  RowBox[{"NF", "=", "5"}], ";", " ",
  RowBox[{"M", "=", "4.4"}], ";"}], "\[IndentingNewLine]",
 RowBox[{
  RowBox[{"\[Mu]min", "=", "3"}], ";", " ",
  RowBox[{"\[Mu]max", "=", "100"}], ";"}], "\[IndentingNewLine]",
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]1", "[", "nf_", "]"}], "=",
   RowBox[{
    RowBox[{"(",
     RowBox[{
      RowBox[{"2", "nf"}], "-",
      RowBox[{"11", "Nc"}]}], ")"}], "/", "6"}]}], ";", " ",
  RowBox[{
   RowBox[{"\[Beta]2", "[", "nf_", "]"}], "=",
   RowBox[{
    RowBox[{
     RowBox[{"-", "51"}], "/", "4"}], "+",
    RowBox[{
     RowBox[{"19", "/", "12"}], "*", "nf"}]}]}], ";"}], "\[IndentingNewLine]",
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "\[Mu]_", "]"}], "=",
   RowBox[{"Piecewise", "[",
    RowBox[{"{",
     RowBox[{
      RowBox[{"{",
       RowBox[{
        RowBox[{"\[Alpha]0", "/",
         RowBox[{"(",
          RowBox[{"1", "-",
           RowBox[{
            RowBox[{
             RowBox[{"\[Beta]1", "[",
              RowBox[{"NF", "-", "1"}], "]"}], "/", "2"}], "*",
            RowBox[{"(",
             RowBox[{"\[Alpha]0", "/", "Pi"}], ")"}], "*",
            RowBox[{"Log", "[",
             RowBox[{
              RowBox[{"\[Mu]", "^", "2"}], "/",
              RowBox[{"\[Mu]0", "^", "2"}]}], "]"}]}], "-",
           RowBox[{
            RowBox[{
             RowBox[{"\[Beta]2", "[",
              RowBox[{"NF", "-", "1"}], "]"}], "/", "2"}], "*",
            RowBox[{
             RowBox[{"(",
              RowBox[{"\[Alpha]0", "/", "Pi"}], ")"}], "^", "2"}], "*",
            RowBox[{"Log", "[",
             RowBox[{
              RowBox[{"\[Mu]", "^", "2"}], "/",
              RowBox[{"\[Mu]0", "^", "2"}]}], "]"}]}]}], ")"}]}], ",",
        RowBox[{"\[Mu]", "<=", "M"}]}], "}"}], ",",
      RowBox[{"{",
       RowBox[{"0", ",",
        RowBox[{"\[Mu]", ">", "M"}]}], "}"}]}], "}"}], "]"}]}],
  ";"}], "\[IndentingNewLine]",
 RowBox[{
  RowBox[{
   RowBox[{"c1", "[", "\[Mu]_", "]"}], "=",
   RowBox[{"2", "*",
    RowBox[{"f", "[", "M", "]"}], "*",
    RowBox[{
     RowBox[{"Log", "[",
      RowBox[{"\[Mu]", "/", "M"}], "]"}], "/",
     RowBox[{"(",
      RowBox[{
       RowBox[{"6", "Pi"}], "-",
       RowBox[{
        RowBox[{"f", "[", "M", "]"}], "*",
        RowBox[{"Log", "[",
         RowBox[{"\[Mu]", "/", "M"}], "]"}], "*",
        RowBox[{"(",
         RowBox[{
          RowBox[{"2", "NF"}], "-",
          RowBox[{"11", "Nc"}]}], ")"}]}]}], ")"}]}]}]}],
  ";"}], "\[IndentingNewLine]",
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "\[Mu]_", "]"}], "=",
   RowBox[{"Piecewise", "[",
    RowBox[{"{",
     RowBox[{
      RowBox[{"{",
       RowBox[{
        RowBox[{
         RowBox[{"\[Alpha]0", "/",
          RowBox[{"(",
           RowBox[{"1", "-",
            RowBox[{
             RowBox[{
              RowBox[{"\[Beta]1", "[",
               RowBox[{"NF", "-", "1"}], "]"}], "/", "2"}], "*",
             RowBox[{"(",
              RowBox[{"\[Alpha]0", "/", "Pi"}], ")"}], "*",
             RowBox[{"Log", "[",
              RowBox[{
               RowBox[{"\[Mu]", "^", "2"}], "/",
               RowBox[{"\[Mu]0", "^", "2"}]}], "]"}]}], "-",
            RowBox[{
             RowBox[{
              RowBox[{"\[Beta]2", "[",
               RowBox[{"NF", "-", "1"}], "]"}], "/", "2"}], "*",
             RowBox[{
              RowBox[{"(",
               RowBox[{"\[Alpha]0", "/", "Pi"}], ")"}], "^", "2"}], "*",
             RowBox[{"Log", "[",
              RowBox[{
               RowBox[{"\[Mu]", "^", "2"}], "/",
               RowBox[{"\[Mu]0", "^", "2"}]}], "]"}]}]}], ")"}]}], "*",
         RowBox[{"(",
          RowBox[{"1", "+",
           RowBox[{
            RowBox[{
             RowBox[{"c1", "[", "\[Mu]", "]"}], "/", "Pi"}], "*",
            RowBox[{"\[Alpha]0", "/",
             RowBox[{"(",
              RowBox[{"1", "-",
               RowBox[{
                RowBox[{
                 RowBox[{"\[Beta]1", "[",
                  RowBox[{"NF", "-", "1"}], "]"}], "/", "2"}], "*",
                RowBox[{"(",
                 RowBox[{"\[Alpha]0", "/", "Pi"}], ")"}], "*",
                RowBox[{"Log", "[",
                 RowBox[{
                  RowBox[{"\[Mu]", "^", "2"}], "/",
                  RowBox[{"\[Mu]0", "^", "2"}]}], "]"}]}], "-",
               RowBox[{
                RowBox[{
                 RowBox[{"\[Beta]2", "[",
                  RowBox[{"NF", "-", "1"}], "]"}], "/", "2"}], "*",
                RowBox[{
                 RowBox[{"(",
                  RowBox[{"\[Alpha]0", "/", "Pi"}], ")"}], "^", "2"}], "*",
                RowBox[{"Log", "[",
                 RowBox[{
                  RowBox[{"\[Mu]", "^", "2"}], "/",
                  RowBox[{"\[Mu]0", "^", "2"}]}], "]"}]}]}], ")"}]}]}]}],
          ")"}]}], ",",
        RowBox[{"\[Mu]", ">=", "M"}]}], "}"}], ",",
      RowBox[{"{",
       RowBox[{"0", ",",
        RowBox[{"\[Mu]", "<", "M"}]}], "}"}]}], "}"}], "]"}]}],
  ";"}], "\[IndentingNewLine]",
 RowBox[{"LogLinearPlot", "[",
  RowBox[{
   RowBox[{"{",
    RowBox[{
     RowBox[{"f", "[", "\[Mu]", "]"}], ",",
     RowBox[{"g", "[", "\[Mu]", "]"}]}], "}"}], ",",
   RowBox[{"{",
    RowBox[{"\[Mu]", ",", "\[Mu]min", ",", "\[Mu]max"}], "}"}], ",", " ",
   RowBox[{"AxesOrigin", "\[Rule]",
    RowBox[{"{",
     RowBox[{"\[Mu]min", ",", "0.11"}], "}"}]}], ",", " ",
   RowBox[{"AxesLabel", "\[Rule]",
    RowBox[{"{",
     RowBox[{"\"\<\[Mu] (GeV)\>\"", ",",
      RowBox[{"Subscript", "[",
       RowBox[{"\[Alpha]", ",", "s"}], "]"}]}], "}"}]}], ",", " ",
   RowBox[{"PlotRange", "\[Rule]",
    RowBox[{"{",
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", "\[Mu]min", "]"}], "+", "0.002"}], ",", "0.11"}],
     "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.537550873*^9, 3.53755089925*^9}, {3.537551011921875*^9,
   3.537551216828125*^9}, {3.53755126575*^9, 3.537551331734375*^9}, {
   3.5375513649375*^9, 3.537551433609375*^9}, {3.5375514714375*^9,
   3.537551488546875*^9}, {3.537551692390625*^9, 3.53755172409375*^9}, {
   3.5375521668125*^9, 3.537552193984375*^9}, {3.537552251734375*^9,
   3.53755225415625*^9}, {3.537553126140625*^9, 3.53755316940625*^9},
   3.537553210578125*^9, {3.53755329971875*^9, 3.53755338878125*^9}, {
   3.537553459453125*^9, 3.537553481828125*^9}, {3.537556231796875*^9,
   3.5375563010625*^9}, {3.53755679775*^9, 3.537556852671875*^9}, {
   3.537557020234375*^9, 3.537557207046875*^9}, {3.537557253921875*^9,
   3.537557417984375*^9}, {3.537557501484375*^9, 3.537557626640625*^9}, {
   3.5375576625*^9, 3.53755788990625*^9}, {3.53755797046875*^9,
   3.537557994265625*^9}, {3.5375581735625*^9, 3.53755826721875*^9}, {
   3.537558795078125*^9, 3.537558859578125*^9}, {3.537558932953125*^9,
   3.537558938*^9}, {3.537559142125*^9, 3.53755914615625*^9}, {
   3.537559176546875*^9, 3.53755918034375*^9}, {3.537559224*^9,
   3.537559244640625*^9}, {3.5376459829375*^9, 3.537645993625*^9}, {
   3.537646216578125*^9, 3.537646263484375*^9}, 3.537646315109375*^9, {
   3.537646373875*^9, 3.537646444296875*^9}, {3.53764654990625*^9,
   3.53764657190625*^9}, {3.537646648875*^9, 3.537646725328125*^9}, {
   3.537646814046875*^9, 3.537646830015625*^9}, {3.537647069375*^9,
   3.537647234203125*^9}, {3.5376472925625*^9, 3.537647309*^9}, {
   3.53764734775*^9, 3.53764747003125*^9}, {3.53764752003125*^9,
   3.537647674609375*^9}, {3.53764840528125*^9, 3.53764842746875*^9}, {
   3.5376484675*^9, 3.537648539609375*^9}, {3.537648575703125*^9,
   3.53764859096875*^9}, {3.537648629109375*^9, 3.537648639609375*^9}, {
   3.5376486948125*^9, 3.5376487023125*^9}, {3.53780106834375*^9,
   3.537801072078125*^9}, {3.537801180921875*^9, 3.537801188078125*^9}, {
   3.53780128053125*^9, 3.537801318703125*^9}, {3.537801349*^9,
   3.537801352421875*^9}, {3.53780139396875*^9, 3.5378014114375*^9},
   3.537801493296875*^9, {3.53780190125*^9, 3.537801916703125*^9}, {
   3.537802170984375*^9, 3.53780217634375*^9}, {3.537802227875*^9,
   3.53780223915625*^9}, {3.537802276171875*^9, 3.537802312609375*^9},
   3.537802366015625*^9, {3.537802449109375*^9, 3.53780247925*^9}, {
   3.53780914903125*^9, 3.53780932659375*^9}, {3.5378093755625*^9,
   3.537809393984375*^9}, {3.5378116065*^9, 3.5378117023125*^9}, {
   3.53781173584375*^9, 3.537811809125*^9}, {3.53781184221875*^9,
   3.537811870125*^9}, {3.537815736*^9, 3.537815749484375*^9}, {
   3.53781583709375*^9, 3.537815840171875*^9}, {3.5378158773125*^9,
   3.537816014078125*^9}, 3.537816047546875*^9, {3.537816110921875*^9,
   3.537816125359375*^9}, 3.537816162796875*^9, {3.537816201609375*^9,
   3.53781627815625*^9}, 3.53781641240625*^9, {3.537816549765625*^9,
   3.537816607609375*^9}, {3.53781664715625*^9, 3.5378167128125*^9}, {
   3.537816759421875*^9, 3.53781678525*^9}, 3.53781689215625*^9,
   3.53781693359375*^9, {3.53781731628125*^9, 3.537817398359375*^9}, {
   3.537817534265625*^9, 3.537817538125*^9}, {3.537817599875*^9,
   3.53781763421875*^9}, {3.53781791228125*^9, 3.537817960578125*^9}, {
   3.53781814790625*^9, 3.537818148609375*^9}, {3.537819483359375*^9,
   3.53781949184375*^9}, {3.53781955209375*^9, 3.53781957153125*^9}, {
   3.5378200274375*^9, 3.537820065859375*^9}, {3.53782009759375*^9,
   3.53782010334375*^9}, {3.537820187078125*^9, 3.537820188828125*^9}, {
   3.537820236203125*^9, 3.537820238578125*^9}, {3.53782225203125*^9,
   3.5378222710625*^9}, {3.537822339546875*^9, 3.537822387203125*^9}, {
   3.53782248590625*^9, 3.537822526875*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {},
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjn0slHEAx2/GWksLO0O3iTmvM7rcodBXiUS0KUuTRTnKrbd5KVHelpe8
nbcQlnA7paya5mVG1vIy83vuMalVG9VQSjznPD+WSH989tnnv4/1+athcj2B
QGC/xX9L+74Wz1dwGO+IVPzKZiGsuo2wGg79P+U9JlksdApzrruewzd15uX9
GSw6LEJPFag45PIXN/PSWEiTu3c7dHLYHFISx6Stdlaq5R85pFQPbWTIWcge
+AxMW2mxGjExlhzIwj2lRjf5TIugptj8zF0svFJY0a2pZVxxXU6cq9HgzWy6
5+d1HX4zh20nXTUI7VnxVAl5fNfXz8iuY9D7ZM3jggWPna4BrF8NA6e6v+7W
ljy8bAyIQRWDbekGsgZ7HnbN9oOFJQxe+5hKqg7wmPc/2vYwi4FkQOp4N5qH
6aFU0Vw8A+FwooX8KY+0aS/nZSmD7K4b5jYveAhVOxJGJAyWWtPMvrzicXCf
NrjRhcFYQY5pVD8PjxDvPyccGOQGVxiHj/M4lxGu1ylisEpebvdf5bF0Up7X
rMfg0ztuTXyEIlQSbraiITBUjurKAimMwjZshYTAO0i1uHGcosjnWJ/bKEF9
X8TMh3CKwdNOhUlvCaLU/ZqieIp67UzZejdBSUzt6JqCojbq0o89nQR9osTB
uGsUa2ORI34dBJZKu17fVAorxYp1cTvB1M1ite4eRbR8QmLXTGDkFt8UU0oh
jmsdDmkk8F3wbSAVFHrS3tnkBoLGGF15az3Fe5Vh11A1gUZEik0fUTiKNxK4
SgLBpDo/W0UhFde2iMoJ9iqzchYfUyzIumIDSgligiLvnG2ncKGytutFBJXl
xukmz7f+tPdbzhQS/AOJ8UVY
      "]]},
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzXk41AkYwHFn4zbza1ChqFCRqRyb2HnfaiRqayMrGfeRKEWSsimSLfXo
srWUIbLlYdOxpdLcRohfJHJWjtxKyIx72z++z+fPr3HAIddgBTk5Odcf/e/y
MLVI++dS8A9OVUs6S8JIbG9EbokUko2EjJkzJCy1Eu2nCqSQutvroWUCCa5D
N4NOlkph0+C+p37xJCTePerbXy4FroKYeS2OhE79le6ltVL42bO+ceIoCfQG
hV/XNkiBTXXsX32EBNblVhdOsxT8rKPjAw6TcEfpMsZ2SiEREi2rw0gIHho3
t/guhRUZJ/Lv+ZLQwytVSFsggw6j4YFjziQM+Ps9CPSVAX+9yf0YQxIcVjok
M4JkMHKJtfH0IhIuDuuxp0JlYH2hJjRFjwSLU28o16Jk4KidEJ1NIyHiFtNX
dFYG4wEpx+uUSRhuMNAyLpTBn5w8uvuXahjb1hT+QfbjZ34zWMKvhlkbVzPP
qxOg/psje1dQNdAP0hKf8CdBT8PCdvxpFfxD3/y2pnEKisIHwrcYVIGzkqwj
R3UGWjs+/v047jWEBi3pszKdBfdkrWT9wUpIMaPXmf88B93iypauoErwWFjG
HLKRQxHzs6NaYwWYe5RoLRfLobfispsVnhUgZzfCtGXL40jjtp3QUA4eVdrt
cSPySH/MQcu95fD1RvdMdrwC7vnLZY7X/wrOU+ZO3NZVxLwXjHPOMa8gqKgm
KuGOIjosSHxwWvMV4FRnpQNTCRnrvr2dyyoDjqwtzbxeCVWPtYWw15cB0/JK
04S/MgZodbwYa5bAR0pyfO6kMlKvrqqjH5eAcKE1x+L8PNzgMi+lxEgCJm3l
jD46BTtsNL3rqkohhZVlnFBIQc83vW1F0aWwtssyVWanguvbK9KUTUqhyUzO
a1udCkpMu3K8a8WgaPgsvXa/Krq9OxnyLkEMES4r3X4aV8VQp4RPzXZiaNZv
PRCbqoaTAVpK+l9EcM5kq3y6gTrSrjI/xOSL4NmnDMrQXXWkjKKHSqgI+oAR
YQAaqN3cXjJvmQi83v++07xKA0cMdGoPdQnhDaFxRSdYEznBz2gxOUJISt79
y8dRTUy/WB9/IUQIJQVn4lpPaaGtcaCG22ohjEaPqT7R08blkVaSrmEBHIxZ
PP9gnjZO9xa5yZ4L4LumI/P0EiqaX6QemTslgCN2Xwo6w6g44P/A+vpWARDy
Yw22D6mo1TqQvUZXAI8yFj06NkPF7I7qrGohH6JqMl3usWhYwsiMEPnxYdSH
fisqhYZxinbke0U+HOUXZK5qoCFrUrQr4jYPFrzMYr81IHCzEz1d4sQDYatK
s+ZiApflN3XbbeFB2Eykh/MSAhfbjrLvs3hQwmS5CowJ9LdSE93YyAMfYa/T
fVMC1Yv0Dx2w50Fe2VqrlDUE7vI/vNOQwYN1tWLVTSwCdwTC7C1dHrR8s/jj
pCOBe3WeuOjq8CCJuK70fAuB73xe8i7N50G9W+gcw5nA4uJ9hmeoPIht0Phu
uIPASNH5f8PVeMBvcf804UGg0F7IYs1yIXSa523jSeB4UyJFMM0FquGKlsN7
CaRnxHyzn+JCgM9kfQ+bwMyq1g3WMi7Ma+e8rvcncNB9Nsd0hAtF8irOtEAC
p9wLOLnDXNizNLJsexCBBmu8hEZfuZAfuFkoDiHQ/nNBnP4gF1yTCplz+whM
nMb56f1cmLyj83LDfgLDQ4S1un1cyJXE28WEEajBMitO6+HC9u6epw/DCSws
PiAmurnwHx+3ZW4=
      "]]}, {}}, {{}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"\[Mu] (GeV)\"", TraditionalForm],
    FormBox[
     SubscriptBox["\[Alpha]", "s"], TraditionalForm]},
  AxesOrigin->NCache[{
     Log[3], 0.11}, {1.0986122886681098`, 0.11}],
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]],
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]],
      Part[#, 2]}& )},
  FrameTicks->{{Automatic, Automatic}, {{{0.,
       FormBox["1", TraditionalForm]}, {0.6931471805599453,
       FormBox["2", TraditionalForm]}, {1.6094379124341003`,
       FormBox["5", TraditionalForm]}, {2.302585092994046,
       FormBox["10", TraditionalForm]}, {2.995732273553991,
       FormBox["20", TraditionalForm]}, {3.912023005428146,
       FormBox["50", TraditionalForm]}, {4.605170185988092,
       FormBox["100", TraditionalForm]}, {5.298317366548036,
       FormBox["200", TraditionalForm]}, {6.214608098422191,
       FormBox["500", TraditionalForm]}, {1.0986122886681098`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{0.,
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453,
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`,
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046,
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991,
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146,
       FormBox["\"\"", TraditionalForm]}, {4.605170185988092,
       FormBox["\"\"", TraditionalForm]}, {5.298317366548036,
       FormBox["\"\"", TraditionalForm]}, {6.214608098422191,
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.0943445622221,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.248495242049359,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.382026634673881,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {4.499809670330265,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.703782474656201,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {5.991464547107982,
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}},
  GridLines->{None, None},
  Method->{},
  PlotRange->NCache[{{
      Log[3],
      Log[100]}, {0.2756159446004149, 0.11}}, {{1.0986122886681098`,
    4.605170185988092}, {0.2756159446004149, 0.11}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], {None, None}},
  Ticks->{{{0.,
      FormBox["1", TraditionalForm]}, {0.6931471805599453,
      FormBox["2", TraditionalForm]}, {1.6094379124341003`,
      FormBox["5", TraditionalForm]}, {2.302585092994046,
      FormBox["10", TraditionalForm]}, {2.995732273553991,
      FormBox["20", TraditionalForm]}, {3.912023005428146,
      FormBox["50", TraditionalForm]}, {4.605170185988092,
      FormBox["100", TraditionalForm]}, {5.298317366548036,
      FormBox["200", TraditionalForm]}, {6.214608098422191,
      FormBox["500", TraditionalForm]}, {1.0986122886681098`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.0943445622221,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.248495242049359,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.382026634673881,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {4.499809670330265,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.703782474656201,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {5.991464547107982,
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}, Automatic}]], "Output",
 CellChangeTimes->{3.537822562703125*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.537822561171875*^9, 3.53782256121875*^9}}]
},
WindowSize->{1016, 668},
WindowMargins->{{0, Automatic}, {Automatic, -1}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 9729, 225, 232, "Input"],
Cell[10311, 249, 9871, 188, 239, "Output"]
}, Open  ]],
Cell[20197, 440, 91, 1, 31, InheritFromParent]
}
]
*)

(* End of internal cache information *)