(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      7326,        236]
NotebookOptionsPosition[      5748,        180]
NotebookOutlinePosition[      6088,        195]
CellTagsIndexPosition[      6045,        192]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"at", " ", "mss"}], " ", "=", 
    RowBox[{"500", " ", "GeV"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"g3fcnmgluino", "[", "1000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "2000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "4000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "5000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "6000", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.423845065302*^9, 3.423845099995*^9}, {
  3.4238452201429996`*^9, 3.4238452258570004`*^9}, {3.4244275520358553`*^9, 
  3.4244275563758554`*^9}}],

Cell[BoxData["1.0651140855754995`"], "Output",
 CellChangeTimes->{3.4238451013900003`*^9, 3.423845227977*^9}],

Cell[BoxData["1.0395457368418148`"], "Output",
 CellChangeTimes->{3.4238451013900003`*^9, 3.423845227983*^9}],

Cell[BoxData["1.0157345159522762`"], "Output",
 CellChangeTimes->{3.4238451013900003`*^9, 3.4238452279890003`*^9}],

Cell[BoxData["1.0084103561060438`"], "Output",
 CellChangeTimes->{3.4238451013900003`*^9, 3.423845227994*^9}],

Cell[BoxData["1.0025422822571932`"], "Output",
 CellChangeTimes->{3.4238451013900003`*^9, 3.423845227998*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g3fcnmss", "[", "mss", "]"}]], "Input"],

Cell[BoxData["1.0926668784959714`"], "Output",
 CellChangeTimes->{3.4238452674440002`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", 
     RowBox[{"RandomInteger", "[", "]"}]}], "-", "1"}], ")"}], "*"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["q"], "Input",
 CellChangeTimes->{3.424258488565*^9}],

Cell[BoxData["948"], "Output",
 CellChangeTimes->{3.424258489472*^9, 3.4242627612*^9, 3.4243794268937416`*^9,
   3.4243801204587417`*^9, 3.4243824498207417`*^9, 3.4243837677567415`*^9, 
  3.4243885944797416`*^9, 3.424388842969742*^9, 3.4243909731197414`*^9, 
  3.424425370933855*^9, 3.424428665800855*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"g3at3000", "=", "1.0254167104785596"}], ";"}]], "Input",
 CellChangeTimes->{{3.4244238818308554`*^9, 3.424423892694855*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"at", " ", "mss"}], " ", "=", 
    RowBox[{"300", " ", "GeV"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"g3fcnmgluino", "[", "1000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "2000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "3000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "4000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "5000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "6000", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4244274299768553`*^9, 3.424427463635855*^9}}],

Cell[BoxData["1.0737344123710424`"], "Output",
 CellChangeTimes->{3.424427437352855*^9}],

Cell[BoxData["1.0475554204058668`"], "Output",
 CellChangeTimes->{3.4244274373548555`*^9}],

Cell[BoxData["1.033101925515701`"], "Output",
 CellChangeTimes->{3.424427437359855*^9}],

Cell[BoxData["1.0232023952968843`"], "Output",
 CellChangeTimes->{3.4244274373778553`*^9}],

Cell[BoxData["1.0157166950152754`"], "Output",
 CellChangeTimes->{3.4244274373848553`*^9}],

Cell[BoxData["1.0097209026945937`"], "Output",
 CellChangeTimes->{3.4244274373918552`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g3fcnmss", "[", "mss", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4244274914088554`*^9, 3.424427497079855*^9}}],

Cell[BoxData["1.124283158148318`"], "Output",
 CellChangeTimes->{3.424427498374855*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"at", " ", "mss"}], " ", "=", 
    RowBox[{"700", " ", "GeV"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"g3fcnmgluino", "[", "1000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "2000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "3000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "4000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "5000", "]"}], "\[IndentingNewLine]", 
   RowBox[{"g3fcnmgluino", "[", "6000", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.424427485369855*^9, 3.4244274867058554`*^9}}],

Cell[BoxData["1.0595697051960586`"], "Output",
 CellChangeTimes->{3.4244275304278555`*^9}],

Cell[BoxData["1.034389223688131`"], "Output",
 CellChangeTimes->{3.424427530433855*^9}],

Cell[BoxData["1.0204667171988733`"], "Output",
 CellChangeTimes->{3.424427530438855*^9}],

Cell[BoxData["1.0109226642008649`"], "Output",
 CellChangeTimes->{3.424427530466855*^9}],

Cell[BoxData["1.0037013726246542`"], "Output",
 CellChangeTimes->{3.424427530485855*^9}],

Cell[BoxData["0.9979146503225429`"], "Output",
 CellChangeTimes->{3.424427530506855*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g3fcnmss", "[", "mss", "]"}]], "Input"],

Cell[BoxData["1.0732648813386199`"], "Output",
 CellChangeTimes->{3.4244275322788553`*^9}]
}, Open  ]]
},
WindowSize->{601, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 684, 14, 132, "Input"],
Cell[1277, 39, 109, 1, 30, "Output"],
Cell[1389, 42, 109, 1, 30, "Output"],
Cell[1501, 45, 114, 1, 30, "Output"],
Cell[1618, 48, 109, 1, 30, "Output"],
Cell[1730, 51, 109, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1876, 57, 63, 1, 31, "Input"],
Cell[1942, 60, 90, 1, 30, "Output"]
}, Open  ]],
Cell[2047, 64, 149, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[2221, 73, 66, 1, 45, "Input"],
Cell[2290, 76, 305, 4, 44, "Output"]
}, Open  ]],
Cell[2610, 83, 159, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[2794, 90, 657, 13, 152, "Input"],
Cell[3454, 105, 88, 1, 30, "Output"],
Cell[3545, 108, 90, 1, 30, "Output"],
Cell[3638, 111, 87, 1, 30, "Output"],
Cell[3728, 114, 90, 1, 30, "Output"],
Cell[3821, 117, 90, 1, 30, "Output"],
Cell[3914, 120, 90, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4041, 126, 167, 3, 52, "Input"],
Cell[4211, 131, 87, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4335, 137, 657, 13, 152, "Input"],
Cell[4995, 152, 90, 1, 30, "Output"],
Cell[5088, 155, 87, 1, 30, "Output"],
Cell[5178, 158, 88, 1, 30, "Output"],
Cell[5269, 161, 88, 1, 30, "Output"],
Cell[5360, 164, 88, 1, 30, "Output"],
Cell[5451, 167, 88, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5576, 173, 63, 1, 31, "Input"],
Cell[5642, 176, 90, 1, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)