(************** 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[     47737,       1241]*)
(*NotebookOutlinePosition[     48567,       1269]*)
(*  CellTagsIndexPosition[     48523,       1265]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \(TraditionalForm\`<< Graphics`\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`<< Statistics`\)], "Input"],

Cell[CellGroupData[{

Cell[TextData[{
  "Modified Kuznetz Calculation of Radon Daughter Working Levels\n",
  StyleBox["The use of this software is subject to the following conditions:",
    
    FontFamily->"Times New Roman",
    FontSize->12,
    FontWeight->"Plain",
    FontVariations->{"CompatibilityType"->0}],
  StyleBox["\n",
    FontFamily->"Times New Roman",
    FontSize->12],
  StyleBox["\[CenterDot]\tIt has been tested to a limited degree and AQ \
Safety, Inc. is not aware of any errors. However, errors may still exist.  \n\
\[CenterDot]\tYou use the software at your own risk.  We are not responsible \
for any damages whatsoever arising from its use.   \n\[CenterDot]\tYou agree \
to notify AQ Safety, Inc. of any errors that you detect.  \n\[CenterDot]\tYou \
agree to cite AQ Safety, Inc. as the owner of the software in any \
publications. \n\[CenterDot]\tSoftware support is available for a fee.\nAQ \
Safety, Inc. , Albuquerque, NM, USA,  radpro@aqsafety.com,  \
http://www.aqsafety.com",
    FontFamily->"Times New Roman",
    FontSize->12,
    FontWeight->"Plain"],
  StyleBox["\n",
    FontSize->12]
}], "Title",
  Editable->False],

Cell[CellGroupData[{

Cell["Input Data", "Title"],

Cell["Enter the efficiency of your alpha tray counter:", "Text"],

Cell[BoxData[
    \(TraditionalForm\`\(\(\(eff = \(\(\ \)\(74738/10\)\)\/20800\) \)\(;\)\(\ \
\)\( (*\ Nov\ 15, \ 2003*) \)\)\)], "Input"],

Cell["Control +Return to add a new row of data", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    FormBox[
      RowBox[{
        RowBox[{"table", "=", GridBox[{
              {"\"\<Date\>\"", "\"\<Time\>\"", "\"\<Loc\>\"", 
                "\"\<SampTimMin\>\"", "\"\<CntTim\>\"", "\"\<decTim\>\"", 
                "\"\<FlowRt\>\"", "\"\<GrossCt\>\"", "\"\<BgCpm\>\"", 
                "\"\<WL\>\""},
              {"\"\<Nov 15, 2003\>\"", "0", "\"\<Den\>\"", "30", "30", "46", 
                "2.85", \(6.1\[Times]30\), "0.9", "\[Placeholder]"},
              {"\"\<Nov 16, 2003\>\"", "0", "\"\<Den\>\"", "30", "30", "70", 
                "2.85", \(18.3\[Times]30\), "1.2", "\[Placeholder]"},
              {"\"\<Nov 16, 2003\>\"", "0", "\"\<SE Bedroom\>\"", "30", "30", 
                "40", "2.85", \(23.6\[Times]30\), "1.4", "\[Placeholder]"},
              {"\"\<Nov 17, 2003\>\"", "0", "\"\<Master Bedroom\>\"", "30", 
                "30", "40", "2.85", \(18.3\[Times]30\), "2.4", 
                "\[Placeholder]"},
              {"\"\<Dec 01, 2003\>\"", "0611", "\"\<Dining Room\>\"", "16.25",
                 "30", "42.5", "9.63", "380", \(14/10\), "\[Placeholder]"},
              {"\"\<Dec 01, 2003\>\"", "0753", "\"\<Master Bedroom\>\"", "21",
                 "28.5", "70", "9.63", "266", \(14/10\), "\[Placeholder]"},
              {"\"\<Dec 02, 2003\>\"", "0618", "\"\<Master Bedroom\>\"", 
                "23.5", "27", "56", "9.63", "707", \(14/10\), 
                "\[Placeholder]"},
              {"\"\<Dec 02, 2003\>\"", "1442", 
                "\"\<Master Bedroom\>\"", \(42 - 15\), "30", "48", "9.63", 
                "1856", \(55/30\), "\[Placeholder]"},
              {"\"\<Dec 03, 2003\>\"", "1332", 
                "\"\<Master Bedroom\>\"", \(32 - 08\), "30", \(80 - 32\), 
                "9.63", "521", \(20/30\), "\[Placeholder]"},
              {"\"\<Dec 04, 2003\>\"", "0955", 
                "\"\<Master Bedroom\>\"", \(55.5 - 29\), 
                "30", \(105.5 - 55.5\), "9.63", "705", \(40/30\), 
                "\[Placeholder]"},
              {"\"\<Dec 04, 2003\>\"", "2028", 
                "\"\<Master Bedroom\>\"", \(28.5 - 13\), 
                "30", \(73.5 - 28.5\), "9.63", "910", \(16/20\), 
                "\[Placeholder]"},
              {"\"\<Dec 05, 2003\>\"", "2005", 
                "\"\<Master Bedroom\>\"", \(64.5 - 41.5\), 
                "20", \(49.75 - 4.5\), "9.63", "775", \(13/20\), 
                "\[Placeholder]"},
              {"\"\<Dec 06, 2003\>\"", "0716", 
                "\"\<Master Bedroom\>\"", \(15.9 - \((\(-5.75\))\)\), 
                "15", \(56.1 - 15.9\), "9.63", "263", \(17/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 06, 2003\>\"", "1946", 
                "\"\<Master Bedroom\>\"", \(45.75 - 24.25\), 
                "15", \(31 - 45.75 + 60\), "9.63", "168", \(8/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 07, 2003\>\"", "0717", 
                "\"\<Master Bedroom\>\"", \(16.75 - 58.5 + 60\), 
                "15", \(60 + 09.5 - 16.75\), "9.63", "397", \(17/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 07, 2003\>\"", "2047", 
                "\"\<Master Bedroom\>\"", \(47 - 27.25\), 
                "15", \(30.5 - 47 + 60\), "9.63", "816", \(8/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 08, 2003\>\"", "1829", 
                "\"\<Master Bedroom\>\"", \(29 - 11\), "15", \(15 - 29 + 60\),
                 "9.63", "332", \(11/15\), "\[Placeholder]"},
              {"\"\<Dec 09, 2003\>\"", "0748", 
                "\"\<Master Bedroom\>\"", \(47.9 - 52 + 60\), 
                "3", \(32 - 47.9 + 60\), "9.63", "65", \(8/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 11, 2003\>\"", "0650", 
                "\"\<Master Bedroom\>\"", \(50.33 - 31\), 
                "15", \(34 - 50 + 60\), "9.63", "331", \(21/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 11, 2003\>\"", "1906", 
                "\"\<Master Bedroom\>\"", \(6.25 - 46.75 + 60\), 
                "15", \(56.5 - 6.25\), "9.63", "329", \(14/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 12, 2003\>\"", "0739", 
                "\"\<Master Bedroom\>\"", \(39.75 - 4.1\), 
                "15", \(22 - 39.75 + 60\), "9.63", "574", \(12/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 12, 2003\>\"", "1848", 
                "\"\<Master Bedroom\>\"", \(48.5 - 34\), 
                "15", \(30.5 - 48.5 + 60\), "9.63", "292", \(13/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 13, 2003\>\"", "0651", 
                "\"\<Master Bedroom\>\"", \(50.9 - 34.9\), 
                "15", \(59.25 - 50.9 + 60\), "9.63", "55", \(15/15\), 
                "\[Placeholder]"},
              {"\"\<Dec 15, 2003\>\"", "1922", 
                "\"\<Master Bedroom\>\"", \(22.75 - 03.55\), 
                "15", \(03.25 - 22.75 + 60\), "9.63", "258", \(7/15\), 
                "\[Placeholder]"}
              }]}], ";"}], TraditionalForm]], "Input"],

Cell[BoxData[
    FormBox[
      RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(TraditionalForm\\`table\\)\\\" is similar to \
existing symbol \\\"\\!\\(TraditionalForm\\`Table\\)\\\". \\!\\(\\*ButtonBox[\
\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", \
ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}], 
      TraditionalForm]], "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Assignments", "Title"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(TraditionalForm\`\(length = Length[table];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(date = 
        Transpose[
          table[\([Range[2, length], 
              Range[1, 1]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(time = 
        Transpose[
          table[\([Range[2, length], 
              Range[2, 2]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(loc = 
        Transpose[
          table[\([Range[2, length], 
              Range[3, 3]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(SampTimMin = 
        Transpose[
          table[\([Range[2, length], 
              Range[4, 4]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(CntTimMin = 
        Transpose[
          table[\([Range[2, length], 
              Range[5, 5]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(decayTime = 
        Transpose[
          table[\([Range[2, length], 
              Range[6, 6]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(flow = 
        Transpose[
          table[\([Range[2, length], 
              Range[7, 7]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(GrossAlphaCts = 
        Transpose[
          table[\([Range[2, length], 
              Range[8, 8]]\)]];\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(BGcpm = 
        Transpose[table[\([Range[2, length], Range[9, 9]]\)]];\)\)}], "Input"],

Cell[BoxData[
    FormBox[
      RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(TraditionalForm\\`length\\)\\\" is similar \
to existing symbol \\\"\\!\\(TraditionalForm\\`Length\\)\\\". \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}], 
      TraditionalForm]], "Message"],

Cell[BoxData[
    FormBox[
      RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(TraditionalForm\\`date\\)\\\" is similar to \
existing symbol \\\"\\!\\(TraditionalForm\\`Date\\)\\\". \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}], 
      TraditionalForm]], "Message"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  "Interpolation Function & Calcs",
  StyleBox["\n", "Text"],
  StyleBox["This section uses linear interpolation to calculate the the \
modified Kuznetz factor, MKfac.  It uses the data table from Borak, Franco \
and Holub (1982) Health Physics, 42, 4, pages 459-467. ", "Text",
    FontFamily->"Times New Roman",
    FontSize->12,
    FontWeight->"Plain",
    FontVariations->{"CompatibilityType"->0}]
}], "Title"],

Cell["\<\
The first column is the decay time in minutes, the second column is the sum \
of the sample collection and sample count times in minutes, and the third \
column is the Kuznetz factor \"K\" \
\>", "Text"],

Cell[BoxData[
    FormBox[
      RowBox[{
        RowBox[{"mkdata", "=", 
          RowBox[{"(", "\[NoBreak]", GridBox[{
                {"40", "60", "99"},
                {"45", "60", "91"},
                {"50", "60", "83"},
                {"55", "60", "75"},
                {"60", "60", "68"},
                {"65", "60", "62"},
                {"70", "60", "56"},
                {"75", "60", "50"},
                {"80", "60", "45"},
                {"85", "60", "41"},
                {"90", "60", "36"},
                {"40", "4", "151"},
                {"45", "4", "142"},
                {"50", "4", "132"},
                {"55", "4", "122"},
                {"60", "4", "113"},
                {"65", "4", "103"},
                {"70", "4", "94"},
                {"75", "4", "86"},
                {"80", "4", "78"},
                {"85", "4", "71"},
                {"90", "4", "64"},
                {"40", "5", "151"},
                {"45", "5", "141"},
                {"50", "5", "131"},
                {"55", "5", "121"},
                {"60", "5", "112"},
                {"65", "5", "102"},
                {"70", "5", "94"},
                {"75", "5", "85"},
                {"80", "5", "77"},
                {"85", "5", "70"},
                {"90", "5", "63"},
                {"40", "6", "150"},
                {"45", "6", "140"},
                {"50", "6", "130"},
                {"55", "6", "120"},
                {"60", "6", "111"},
                {"65", "6", "101"},
                {"70", "6", "93"},
                {"75", "6", "84"},
                {"80", "6", "77"},
                {"85", "6", "69"},
                {"90", "6", "63"},
                {"40", "7", "149"},
                {"45", "7", "139"},
                {"50", "7", "129"},
                {"55", "7", "119"},
                {"60", "7", "110"},
                {"65", "7", "101"},
                {"70", "7", "92"},
                {"75", "7", "84"},
                {"80", "7", "76"},
                {"85", "7", "69"},
                {"90", "7", "62"},
                {"40", "8", "148"},
                {"45", "8", "138"},
                {"50", "8", "128"},
                {"55", "8", "118"},
                {"60", "8", "109"},
                {"65", "8", "100"},
                {"70", "8", "91"},
                {"75", "8", "83"},
                {"80", "8", "75"},
                {"85", "8", "68"},
                {"90", "8", "61"},
                {"40", "10", "146"},
                {"45", "10", "136"},
                {"50", "10", "126"},
                {"55", "10", "116"},
                {"60", "10", "107"},
                {"65", "10", "98"},
                {"70", "10", "89"},
                {"75", "10", "81"},
                {"80", "10", "74"},
                {"85", "10", "67"},
                {"90", "10", "60"},
                {"40", "20", "136"},
                {"45", "20", "126"},
                {"50", "20", "117"},
                {"55", "20", "107"},
                {"60", "20", "98"},
                {"65", "20", "89"},
                {"70", "20", "81"},
                {"75", "20", "74"},
                {"80", "20", "67"},
                {"85", "20", "60"},
                {"90", "20", "54"},
                {"40", "40", "117"},
                {"45", "40", "107"},
                {"50", "40", "99"},
                {"55", "40", "90"},
                {"60", "40", "82"},
                {"65", "40", "74"},
                {"70", "40", "67"},
                {"75", "40", "61"},
                {"80", "40", "55"},
                {"85", "40", "49"},
                {"90", "40", "44"}
                }], "\[NoBreak]\[NoBreak]", ")"}]}], ";"}], 
      TraditionalForm]], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(MKfac = 
        Interpolation[mkdata, \ InterpolationOrder \[Rule] 1];\)\)], "Input"],

Cell[BoxData[{
    \(TraditionalForm\`\(volume = 
        SampTimMin\ \ \ flow;\)\), "\[IndentingNewLine]", 
    \(TraditionalForm\`\(Netcpm = \((GrossAlphaCts\/CntTimMin)\) - 
          BGcpm;\)\)}], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(WorkingLevel = 
        Flatten[Netcpm/\((eff\ \ \ volume\ \ \ \ Apply[
                  MKfac, {decayTime, 
                    CntTimMin\  + SampTimMin}])\)];\)\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\` (*\ \ table[\([Range[2, length], Range[10, 10]]\)] = 
        WorkingLevel[\([All]\)]\ \ \(Note : \ 
            this\ also\ works\)*) \)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`\(For\ [row = 2, row \[LessEqual] length, \ 
        table[\([row, 10]\)] = 
          NumberForm[WorkingLevel[\([row - 1]\)], 
            2]\ ; \(row++\)\ ];\)\)], "Input"],

Cell[BoxData[
    FormBox[
      RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(TraditionalForm\\`row\\)\\\" is similar to \
existing symbol \\\"\\!\\(TraditionalForm\\`Row\\)\\\". \\!\\(\\*ButtonBox[\\\
\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", \
ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}], 
      TraditionalForm]], "Message"]
}, Open  ]],

Cell[BoxData[
    \(TraditionalForm\`\(heading = {StyleForm["\<Date\>", 
            FontWeight \[Rule] "\<Bold\>"], 
          StyleForm["\<Time\>", FontWeight \[Rule] "\<Bold\>"], 
          StyleForm["\<Location\>", FontWeight \[Rule] "\<Bold\>"], 
          StyleForm[ColumnForm[{"\<Radon Progeny\>", "\<Working Level\>"}], 
            FontWeight \[Rule] "\<Bold\>"]};\)\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(detail = 
        TableForm[
          Transpose[{Flatten[table[\([Range[2, length], Range[1, 1]]\)]], 
              Flatten[\ table[\([Range[2, length], Range[2, 2]]\)]], \ 
              Flatten[table[\([Range[2, length], Range[3, 3]]\)]], 
              Flatten[table[\([Range[2, length], Range[10, 10]]\)]]}]\ , 
          TableHeadings \[Rule] {None, \ heading}\ ];\)\)], "Input"],

Cell["\<\
Geometric SD equation from page 270, Cember, Introduction to Health Physics, \
3rd Edition:  \
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`\(gsd1 = 
        Apply[Plus, \((Log[WorkingLevel])\)^2\ ]/\((length - 
              1)\);\)\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(gsd2 = 
        Apply[Plus, Log[WorkingLevel]/\((length - 1)\)]^2;\)\)], "Input"]
}, Open  ]],

Cell[BoxData[
    \(TraditionalForm\`\(gsd = 
        NumberForm[Exp[\@\(gsd1 - gsd2\)]\ , 2];\)\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(s = {{length - 1}, {NumberForm[
              GeometricMean[WorkingLevel], 2]}, {gsd}, {NumberForm[
              Median[WorkingLevel], 2]}, {NumberForm[Mean[WorkingLevel], 
              2]}, {"\< \>"}};\)\)], "Input"],

Cell[BoxData[
    \(TraditionalForm\`\(summary = 
        TableForm[s, 
          TableHeadings \[Rule] {{StyleForm["\<Number of Measurements\>", 
                  FontWeight \[Rule] "\<Bold\>"], 
                StyleForm[\ "\<Geometric Mean\>", 
                  FontWeight \[Rule] "\<Bold\>"], 
                StyleForm[\ "\<Geometric Std Deviation\>", 
                  FontWeight \[Rule] "\<Bold\>"], 
                StyleForm[\ "\<Median\>", FontWeight \[Rule] "\<Bold\>"], 
                StyleForm[\ "\<Mean\>", FontWeight \[Rule] "\<Bold\>"]}, \ 
              None}];\)\)], "Input"]
}, Closed]],

Cell["Working Level Results", "Title"],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`Histogram[WorkingLevel, \ 
      AxesLabel \[Rule] {"\<working level\>", number}, 
      HistogramCategories \[Rule] {0, 0.002, \ 0.004, \ 0.006, \ 0.008, \ 
          0.01}]\)], "Input"],

Cell[BoxData[
    FormBox[
      RowBox[{\(General::"spell1"\), \(\(:\)\(\ \)\), "\<\"Possible spelling \
error: new symbol name \\\"\\!\\(TraditionalForm\\`number\\)\\\" is similar \
to existing symbol \\\"\\!\\(TraditionalForm\\`Number\\)\\\". \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}], 
      TraditionalForm]], "Message"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-1.04083e-017 100 0.0147151 0.0654004 [
[.2 .00222 -15 -9 ]
[.2 .00222 15 0 ]
[.4 .00222 -15 -9 ]
[.4 .00222 15 0 ]
[.6 .00222 -15 -9 ]
[.6 .00222 15 0 ]
[.8 .00222 -15 -9 ]
[.8 .00222 15 0 ]
[1 .00222 -12 -9 ]
[1 .00222 12 0 ]
[1.025 .01472 0 -6.28125 ]
[1.025 .01472 82 6.28125 ]
[-0.0125 .14552 -6 -4.5 ]
[-0.0125 .14552 0 4.5 ]
[-0.0125 .27632 -6 -4.5 ]
[-0.0125 .27632 0 4.5 ]
[-0.0125 .40712 -6 -4.5 ]
[-0.0125 .40712 0 4.5 ]
[-0.0125 .53792 -6 -4.5 ]
[-0.0125 .53792 0 4.5 ]
[0 .64303 -20 0 ]
[0 .64303 20 12.5625 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.2 .01472 m
.2 .02097 L
s
[(0.002)] .2 .00222 0 1 Mshowa
.4 .01472 m
.4 .02097 L
s
[(0.004)] .4 .00222 0 1 Mshowa
.6 .01472 m
.6 .02097 L
s
[(0.006)] .6 .00222 0 1 Mshowa
.8 .01472 m
.8 .02097 L
s
[(0.008)] .8 .00222 0 1 Mshowa
1 .01472 m
1 .02097 L
s
[(0.01)] 1 .00222 0 1 Mshowa
0 .01472 m
1 .01472 L
s
gsave
1.025 .01472 -61 -10.2813 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20.5625 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(working) show
111.000 12.813 moveto
(level) show
141.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
0.000 0.000 rmoveto
1.000 setlinewidth
grestore
0 .14552 m
.00625 .14552 L
s
[(2)] -0.0125 .14552 1 0 Mshowa
0 .27632 m
.00625 .27632 L
s
[(4)] -0.0125 .27632 1 0 Mshowa
0 .40712 m
.00625 .40712 L
s
[(6)] -0.0125 .40712 1 0 Mshowa
0 .53792 m
.00625 .53792 L
s
[(8)] -0.0125 .53792 1 0 Mshowa
.125 Mabswid
0 .04742 m
.00375 .04742 L
s
0 .08012 m
.00375 .08012 L
s
0 .11282 m
.00375 .11282 L
s
0 .17822 m
.00375 .17822 L
s
0 .21092 m
.00375 .21092 L
s
0 .24362 m
.00375 .24362 L
s
0 .30902 m
.00375 .30902 L
s
0 .34172 m
.00375 .34172 L
s
0 .37442 m
.00375 .37442 L
s
0 .43982 m
.00375 .43982 L
s
0 .47252 m
.00375 .47252 L
s
0 .50522 m
.00375 .50522 L
s
0 .57062 m
.00375 .57062 L
s
0 .60332 m
.00375 .60332 L
s
.25 Mabswid
0 0 m
0 .61803 L
s
gsave
0 .64303 -81 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20.5625 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 12.813 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(number) show
1.000 setlinewidth
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
0 .01472 m
0 .47252 L
.2 .47252 L
.2 .01472 L
F
0 g
.5 Mabswid
0 .01472 m
0 .47252 L
.2 .47252 L
.2 .01472 L
0 .01472 L
s
1 0 0 r
.2 .01472 m
.2 .60332 L
.4 .60332 L
.4 .01472 L
F
0 g
.2 .01472 m
.2 .60332 L
.4 .60332 L
.4 .01472 L
.2 .01472 L
s
1 0 0 r
.4 .01472 m
.4 .27632 L
.6 .27632 L
.6 .01472 L
F
0 g
.4 .01472 m
.4 .27632 L
.6 .27632 L
.6 .01472 L
.4 .01472 L
s
1 0 0 r
.6 .01472 m
.6 .21092 L
.8 .21092 L
.8 .01472 L
F
0 g
.6 .01472 m
.6 .21092 L
.8 .21092 L
.8 .01472 L
.6 .01472 L
s
1 0 0 r
.8 .01472 m
.8 .08012 L
1 .08012 L
1 .01472 L
F
0 g
.8 .01472 m
.8 .08012 L
1 .08012 L
1 .01472 L
.8 .01472 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 177.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004P0000/A000`40O003h00Oogoo8Goo003oOolQ
Ool00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00
ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQ
Ool00?moob5oo`00ogoo8Goo003oOolQOol002]oo`8000Aoo`8000Aoo`8000Aoo`8000=oo`@000Uo
o`8000Aoo`8000Aoo`8000Aoo`8000Eoo`<000Qoo`8000Aoo`8000Aoo`8000Aoo`8000=oo`<000Yo
o`8000Aoo`8000Aoo`8000Aoo`8000Aoo`8000eoo`8000Aoo`8000Aoo`8000=oo`D004aoo`00:Woo
00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`000Woo00<007ooOol02Goo00@007ooOol0
00Qoo`04001oogoo0002Ool01000Oomoo`001Goo00<007ooOol01Woo00@007ooOol000Qoo`04001o
ogoo0002Ool01000Oomoo`000Woo00@007ooOol000Qoo`04001oogoo0008Ool01000Oomoo`000Woo
00@007ooOol0009oo`04001oogoo000;Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001oogoo
04aoo`00:Woo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`000goo00<007ooOol027oo
00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`000Woo1@001goo00@007ooOol000Qoo`04
001oogoo0002Ool01000Oomoo`000Woo00@007ooOol000Qoo`04001oogoo0008Ool01000Oomoo`00
0Woo00@007ooOol0009oo`04001oogoo000;Ool01000Oomoo`0027oo00@007ooOol000Aoo`03001o
ogoo04aoo`00:Woo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`0017oo00<007ooOol0
1goo00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`000Woo00@007ooOol000Qoo`04001o
ogoo0008Ool01000Oomoo`000Woo00@007ooOol0009oo`<000Uoo`04001oogoo0008Ool01000Oomo
o`000Woo00@007ooOol000=oo`8000aoo`04001oogoo0008Ool01000Oomoo`0017oo00<007ooOol0
C7oo000ZOol01000Oomoo`0027oo00@007ooOol0009oo`04001oogoo0002Ool01000Oomoo`0027oo
00@007ooOol000Qoo`04001oogoo0002Ool01000Oomoo`000goo00<007oo000027oo00@007ooOol0
00Qoo`04001oogoo0002Ool01000Oomoo`000goo00<007ooOol027oo00@007ooOol000Qoo`04001o
ogoo0002Ool01000Oomoo`000Woo00@007ooOol000]oo`04001oogoo0008Ool01000Oomoo`0017oo
00<007ooOol0C7oo000[Ool2000:Ool20004Ool20004Ool2000:Ool2000:Ool20004Ool20005Ool2
0009Ool2000:Ool20004Ool20004Ool30009Ool2000:Ool20004Ool20004Ool2000=Ool2000:Ool2
0004Ool2001>Ool00?moob5oo`00m7oo0`00:Goo000DOol00`00Oomoo`3POol00`00Oomoo`0VOol0
01Aoo`03001oogoo0;Yoo`03001oo`0000=oo`8000=oo`@00004Ool00000Ool20003Ool300000goo
00000002Ool20002Ool30008Ool30004Ool30003Ool20004Ool30002Ool30005Ool001Aoo`03001o
ogoo0;Uoo`07001oo`00Ool007oo00000Woo00D007ooOomoo`0000Aoo`03001oo`0000Eoo`05001o
ogooOol00002Ool01000Oomoo`000Woo00<007ooOol01goo00<007ooOol00Woo00<007ooOol017oo
0P000goo00<007ooOol017oo00<007ooOol017oo000DOone0007Ool01`00Ool007oo001oo`00009o
o`05001oogooOol00004Ool30005Ool01@00Oomoogoo00000Woo00@007ooOol0009oo`03001oogoo
00Moo`03001oogoo009oo`@0009oo`04001oogoo0002Ool40003Ool00`00Oomoo`04Ool001Aoo`03
001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l0003
001oogoo00Aoo`<00003Ool00000009oo`8000=oo`@0009oo`04001oo`000003Ool20002Ool40004
Ool40008Ool00`00Oomoo`03Ool20002Ool20002Ool20002Ool20004Ool00`00Oomoo`04Ool001Ao
o`03001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l
01Yoo`03001oogoo01aoo`03001oogoo01Eoo`03001oogoo00Aoo`0057oo00<007`0O0008G`000<0
07`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`06Goo0P001goo00<007oo
Ool04goo0P005Woo0P001Woo000DOol00`00O01l000QO0000`00O01l000QO0000`00O01l000QO000
0`00O01l000QO0000`00O01l000QO01HOol001Aoo`03001l07`0025l0003001l07`0025l0003001l
07`0025l0003001l07`0025l0003001l07`0025l05Qoo`0057oo00<007`0O0008G`000<007`0O000
8G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`0F7oo000DOol00`00O01l000QO000
0`00O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00O01l000QO01HOol001Aoo`03001l
07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l05Qoo`00
57oo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O000
8G`0F7oo000DOol00`00O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00O01l000QO000
0`00O01l000QO01HOol001Aoo`03001l07`0025l0003001l07`0025l0003001l07`0025l0003001l
07`0025l02@005Qoo`0057oo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0
O0008G`000<007ooOol0NGoo000DOol00`00O01l000QO0000`00O01l000QO0000`00O01l000QO000
0`00O01l000QO0000`00Oomoo`1iOol001Aoo`03001l07`0025l0003001l07`0025l0003001l07`0
025l0003001l07`0025l0003001oogoo07Uoo`0057oo00<007`0O0008G`000<007`0O0008G`000<0
07`0O0008G`000<007`0O0008G`000<007ooOol0NGoo000DOol00`00O01l000QO0000`00O01l000Q
O0000`00O01l000QO0000`00O01l000QO0000`00Oomoo`1iOol001Aoo`03001l07`0025l0003001l
07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo07Uoo`0057oo00<007`0O0008G`0
00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0NGoo000DOol00`00O01l
000QO0000`00O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00Oomoo`1iOol001Aoo`03
001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo07Uoo`00
37oo100017oo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<0
07ooOol0NGoo000<Ool00`00Oomoo`05Ool00`00O01l000QO0000`00O01l000QO0000`00O01l000Q
O0000`00O01l000QO0000`00Oomoo`1iOol000eoo`03001oogoo00Aoo`03001l07`0025l0003001l
07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo07Uoo`003Woo00<007ooOol00goo
00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0NGoo
000<Ool01000Oomoo`0017oo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0
O0008G`000<007ooOol0NGoo000=Ool20005Ool00`00O01l000QO0000`00O01l000QO0000`00O01l
000QO0000`00O01l000QO0000`00Oomoo`1iOol001Aoo`03001l07`0025l0003001l07`0025l0003
001l07`0025l0003001l07`0025l0003001oogoo07Uoo`0057oo00<007`0O0008G`000<007`0O000
8G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0NGoo000DOol00`00O01l000QO0000`00
O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00Oomoo`1iOol001Aoo`03001l07`0025l
0003001l07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo07Uoo`0057oo00<007`0
O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0NGoo000DOol0
0`00O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00Oomoo`1iOol0
01Aoo`03001l07`0025l0003001l07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo
07Uoo`0057oo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<0
07ooOol0NGoo000DOol00`00O01l000QO0000`00O01l000QO0000`00O01l000QO00U001kOol001Ao
o`03001l07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo09eoo`0057oo00<007`0
O0008G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0WGoo000DOol00`00O01l000QO000
0`00O01l000QO0000`00O01l000QO0000`00Oomoo`2MOol001Aoo`03001l07`0025l0003001l07`0
025l0003001l07`0025l0003001oogoo09eoo`0057oo00<007`0O0008G`000<007`0O0008G`000<0
07`0O0008G`000<007ooOol0WGoo000DOol00`00O01l000QO0000`00O01l000QO0000`00O01l000Q
O0000`00Oomoo`2MOol001Aoo`03001l07`0025l0003001l07`0025l0003001l07`0025l0003001o
ogoo09eoo`0057oo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0WGoo
000DOol00`00O01l000QO0000`00O01l000QO0000`00O01l000QO0000`00Oomoo`2MOol000ioo`<0
00=oo`03001l07`0025l0003001l07`0025l0003001l07`0025l0003001oogoo09eoo`003goo00<0
07ooOol00Woo00<007`0O0008G`000<007`0O0008G`000<007`0O0008G`000<007ooOol0WGoo000<
Ool50003Ool00`00O01l000QO0000`00O01l000QO00U002OOol000aoo`04001oogoo0004Ool00`00
O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool000eoo`03001oo`0000Aoo`03001l07`0025l
0003001l07`0025l0003001oogoo0<5oo`003Woo0P0017oo00<007`0O0008G`000<007`0O0008G`0
00<007ooOol0`Goo000DOol00`00O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool001Aoo`03
001l07`0025l0003001l07`0025l0003001oogoo0<5oo`0057oo00<007`0O0008G`000<007`0O000
8G`000<007ooOol0`Goo000DOol00`00O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool001Ao
o`03001l07`0025l0003001l07`0025l0003001oogoo0<5oo`0057oo00<007`0O0008G`000<007`0
O0008G`000<007ooOol0`Goo000DOol00`00O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool0
01Aoo`03001l07`0025l0003001l07`0025l0003001oogoo0<5oo`0057oo00<007`0O0008G`000<0
07`0O0008G`000<007ooOol0`Goo000DOol00`00O01l000QO0000`00O01l000QO0000`00Oomoo`31
Ool001Aoo`03001l07`0025l0003001l07`0025l0003001oogoo0<5oo`0057oo00<007`0O0008G`0
00<007`0O0008G`000<007ooOol0`Goo000DOol00`00O01l000QO0000`00O01l000QO0000`00Oomo
o`31Ool001Aoo`03001l07`0025l0003001l07`0025l0003001oogoo0<5oo`0057oo00<007`0O000
8G`000<007`0O0008G`000<007ooOol0`Goo000DOol00`00O01l000QO0000`00O01l000QO0000`00
Oomoo`31Ool001Aoo`03001l07`0025l0003001l07`0025l0003001oogoo0<5oo`0037oo0`001Goo
00<007`0O0008G`000<007`0O0008G`000<007ooOol0`Goo000<Ool01000Oomoo`0017oo00<007`0
O0008G`000<007`0O0008G`000<007ooOol0`Goo000<Ool01000Oomoo`0017oo00<007`0O0008G`0
00<007`0O0008G`000<007ooOol0`Goo000<Ool30005Ool00`00O01l000QO0000`00O01l000QO000
0`00Oomoo`31Ool000eoo`03001oogoo00Aoo`03001l07`0025l0003001l07`0025l0003001oogoo
0<5oo`003Goo0`0017oo00<007`0O0008G`000<007`0O0008G`000<007ooOol0`Goo000DOol00`00
O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001l07`0025l0003001l07`0025l
0003001oogoo0<5oo`0057oo00<007`0O0008G`000<007`0O0008G`000<007ooOol0`Goo000DOol0
0`00O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001l07`0025l0003001l07`0
025l0003001oogoo0<5oo`0057oo00<007`0O0008G`000<007`0O0008G`000<007ooOol0`Goo000D
Ool00`00O01l000QO0000`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001l07`0025l0003001l
07`0025l0003001oogoo0<5oo`0057oo9@008g`000<007ooOol0`Goo000DOol00`00Oomoo`0QOol0
0`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001oogoo025oo`03001l07`0025l0003001oogoo
0<5oo`0057oo00<007ooOol08Goo00<007`0O0008G`000<007ooOol0`Goo000DOol00`00Oomoo`0Q
Ool00`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001oogoo025oo`03001l07`0025l0003001o
ogoo0<5oo`0057oo00<007ooOol08Goo00<007`0O0008G`000<007ooOol0`Goo000DOol00`00Oomo
o`0QOol00`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001oogoo025oo`03001l07`0025l0003
001oogoo0<5oo`0057oo00<007ooOol08Goo00<007`0O0008G`000<007ooOol0`Goo000=Ool20005
Ool00`00Oomoo`0QOol00`00O01l000QO0000`00Oomoo`31Ool000aoo`04001oogoo0004Ool00`00
Oomoo`0QOol00`00O01l000QO0000`00Oomoo`31Ool000aoo`04001oogoo0004Ool2000ROol00`00
O01l000QO0000`00Oomoo`31Ool000eoo`8000Eoo`03001oogoo025oo`03001l07`0025l0003001o
ogoo0<5oo`0037oo00@007ooOol000Aoo`03001oogoo025oo`03001l07`0025l0003001oogoo0<5o
o`003Goo0P001Goo00<007ooOol08Goo00<007`0O0008G`000<007ooOol0`Goo000DOol00`00Oomo
o`0QOol00`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001oogoo025oo`03001l07`0025l0003
001oogoo0<5oo`0057oo00<007ooOol08Goo00<007`0O0008G`000<007ooOol0`Goo000DOol00`00
Oomoo`0QOol00`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001oogoo025oo`03001l07`0025l
0003001oogoo0<5oo`0057oo00<007ooOol08Goo00<007`0O0008G`000<007ooOol0`Goo000DOol0
0`00Oomoo`0QOol00`00O01l000QO0000`00Oomoo`31Ool001Aoo`03001oogoo025oo`03001l07`0
025l0003001oogoo0<5oo`0057oo00<007ooOol08Goo9@00`goo000DOol00`00Oomoo`3oOol:Ool0
01Aoo`03001oogoo0?moo`Yoo`0057oo00<007ooOol0ogoo2Woo003oOolQOol00?moob5oo`00ogoo
8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`000Woo0P000Woo0P000Woo
1P0000=oo`00Ool01@0017oo0`000Woo1000ngoo0003Ool01000Oomoo`000Woo00@007ooOol0009o
o`07001oo`00Ool007oo00000Woo00@007ooOol000Ioo`03001oogoo0?]oo`000goo00@007ooOol0
009oo`04001oogoo0002Ool01`00Ool007oo001oo`00009oo`03001oogoo00@000=oo`03001oogoo
0?]oo`000Woo10000Woo0P0000Aoo`00001oo`<00004Ool007ooOol30004Ool20003Ool4003kOol0
01Eoo`03001oogoo0?moo`Uoo`0057oo0P00ogoo2goo003oOolQOol00?moob5oo`00ogoo8Goo003o
OolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5o
o`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003oOolQOol00?moob5oo`00ogoo8Goo003o
OolQOol00?moob5oo`00ogoo8Goo003oOolQOol00001\
\>"],
  ImageRangeCache->{{{79.3125, 308.688}, {313.375, 172.063}} -> {-0.0066112, \
15.6142, 5.54903*^-05, 0.0848471}}],

Cell[BoxData[
    FormBox[
      TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
        False,
        Editable->False], TraditionalForm]], "Output"],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`summary\)], "Input"],

Cell[BoxData[
    FormBox[
      TagBox[GridBox[{
            {
              FormBox[
                TagBox[
                  StyleBox["\<\"Number of Measurements\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], "24"},
            {
              FormBox[
                TagBox[
                  StyleBox["\<\"Geometric Mean\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              TagBox[
                InterpretationBox["\<\"0.003\"\>",
                  .0029712192494493932,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {
              FormBox[
                TagBox[
                  StyleBox["\<\"Geometric Std Deviation\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              TagBox[
                InterpretationBox["\<\"1.9\"\>",
                  1.8971634851830257,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {
              FormBox[
                TagBox[
                  StyleBox["\<\"Median\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              TagBox[
                InterpretationBox["\<\"0.003\"\>",
                  .0029724953263817011,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {
              FormBox[
                TagBox[
                  StyleBox["\<\"Mean\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              TagBox[
                InterpretationBox["\<\"0.0036\"\>",
                  .0036098299331174598,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {
              FormBox["\<\"\"\>",
                "TraditionalForm"], "\<\" \"\>"}
            },
          RowSpacings->1,
          ColumnSpacings->3,
          RowAlignments->Baseline,
          ColumnAlignments->{Left}],
        Function[ BoxForm`e$, 
          TableForm[ BoxForm`e$, TableHeadings -> {{
            StyleForm[ "Number of Measurements", FontWeight -> "Bold"], 
            StyleForm[ "Geometric Mean", FontWeight -> "Bold"], 
            StyleForm[ "Geometric Std Deviation", FontWeight -> "Bold"], 
            StyleForm[ "Median", FontWeight -> "Bold"], 
            StyleForm[ "Mean", FontWeight -> "Bold"]}, None}]]], 
      TraditionalForm]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TraditionalForm\`detail\)], "Input"],

Cell[BoxData[
    FormBox[
      TagBox[GridBox[{
            {
              FormBox[
                TagBox[
                  StyleBox["\<\"Date\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              FormBox[
                TagBox[
                  StyleBox["\<\"Time\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              FormBox[
                TagBox[
                  StyleBox["\<\"Location\"\>",
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"], 
              FormBox[
                TagBox[
                  StyleBox[
                    InterpretationBox[GridBox[{
                          {"\<\"Radon Progeny\"\>"},
                          {"\<\"Working Level\"\>"}
                          },
                        GridBaseline->{Baseline, {1, 1}},
                        ColumnAlignments->{Left}],
                      ColumnForm[ {"Radon Progeny", "Working Level"}],
                      Editable->False],
                    FontWeight->"Bold"],
                  (StyleForm[ #, FontWeight -> "Bold"]&)],
                "TraditionalForm"]},
            {"\<\"Nov 15, 2003\"\>", "0", "\<\"Den\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0019\"\>",
                  .0018933093218859789,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Nov 16, 2003\"\>", "0", "\<\"Den\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0099\"\>",
                  .0099394838349586949,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Nov 16, 2003\"\>", "0", "\<\"SE Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0073\"\>",
                  .0072991708332569259,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Nov 17, 2003\"\>", "0", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0052\"\>",
                  .0052277845157110408,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 01, 2003\"\>", "611", "\<\"Dining Room\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0019\"\>",
                  .001878123374212776,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 01, 2003\"\>", "753", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0018\"\>",
                  .0017673364293847257,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 02, 2003\"\>", "618", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0038\"\>",
                  .0037802735013485311,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 02, 2003\"\>", "1442", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0073\"\>",
                  .0072525469346464162,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 03, 2003\"\>", "1332", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0022\"\>",
                  .0022098327880795878,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 04, 2003\"\>", "955", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0028\"\>",
                  .0028174927341914407,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 04, 2003\"\>", "2028", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0054\"\>",
                  .0053669677320463353,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 05, 2003\"\>", "2005", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0046\"\>",
                  .0045943597299072337,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 06, 2003\"\>", "716", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0018\"\>",
                  .0018276294612683628,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 06, 2003\"\>", "1946", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0013\"\>",
                  .0013044394854381251,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 07, 2003\"\>", "717", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.004\"\>",
                  .0040141021081387647,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 07, 2003\"\>", "2047", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0069\"\>",
                  .0068548498419169429,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 08, 2003\"\>", "1829", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0031\"\>",
                  .0030682898332687653,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 09, 2003\"\>", "748", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0012\"\>",
                  .001170536350976548,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 11, 2003\"\>", "650", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0027\"\>",
                  .002701216445106111,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 11, 2003\"\>", "1906", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.003\"\>",
                  .0030074444166665899,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 12, 2003\"\>", "739", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0029\"\>",
                  .0029375462360968123,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 12, 2003\"\>", "1848", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.003\"\>",
                  .0030145582957807628,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 13, 2003\"\>", "651", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.00064\"\>",
                  .00063578892482211123,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]},
            {"\<\"Dec 15, 2003\"\>", "1922", "\<\"Master Bedroom\"\>", 
              TagBox[
                InterpretationBox["\<\"0.0021\"\>",
                  .0020728352657094612,
                  AutoDelete->True],
                (NumberForm[ #, 2]&)]}
            },
          RowSpacings->1,
          ColumnSpacings->3,
          RowAlignments->Baseline,
          ColumnAlignments->{Left}],
        Function[ BoxForm`e$, 
          TableForm[ BoxForm`e$, TableHeadings -> {None, {
            StyleForm[ "Date", FontWeight -> "Bold"], 
            StyleForm[ "Time", FontWeight -> "Bold"], 
            StyleForm[ "Location", FontWeight -> "Bold"], 
            StyleForm[ 
              ColumnForm[ {"Radon Progeny", "Working Level"}], FontWeight -> 
              "Bold"]}}]]], TraditionalForm]], "Output"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"5.0 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 922}},
CellGrouping->Manual,
WindowSize->{1272, 894},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PageHeaders->{{
  Inherited, Inherited, Inherited}, {
    Inherited, "AQ Safety, Inc. ", Inherited}}
]

(*******************************************************************
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[1754, 51, 62, 1, 29, "Input"],
Cell[1819, 54, 64, 1, 29, "Input"],

Cell[CellGroupData[{
Cell[1908, 59, 1134, 26, 311, "Title"],

Cell[CellGroupData[{
Cell[3067, 89, 27, 0, 95, "Title"],
Cell[3097, 91, 64, 0, 33, "Text"],
Cell[3164, 93, 138, 2, 45, "Input"],
Cell[3305, 97, 56, 0, 33, "Text"],

Cell[CellGroupData[{
Cell[3386, 101, 5015, 89, 459, "Input"],
Cell[8404, 192, 434, 7, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[8899, 206, 28, 0, 95, "Title"],

Cell[CellGroupData[{
Cell[8952, 210, 1437, 35, 200, "Input"],
Cell[10392, 247, 436, 7, 70, "Message"],
Cell[10831, 256, 432, 7, 70, "Message"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[11312, 269, 431, 10, 88, "Title"],
Cell[11746, 281, 213, 4, 33, "Text"],
Cell[11962, 287, 3764, 105, 1791, "Input"],
Cell[15729, 394, 125, 2, 29, "Input"],
Cell[15857, 398, 209, 4, 65, "Input"],
Cell[16069, 404, 215, 4, 29, "Input"],
Cell[16287, 410, 186, 3, 29, "Input"],

Cell[CellGroupData[{
Cell[16498, 417, 211, 4, 29, "Input"],
Cell[16712, 423, 430, 7, 70, "Message"]
}, Open  ]],
Cell[17157, 433, 388, 6, 48, "Input"],
Cell[17548, 441, 425, 7, 67, "Input"],
Cell[17976, 450, 117, 3, 33, "Text"],

Cell[CellGroupData[{
Cell[18118, 457, 143, 3, 29, "Input"],
Cell[18264, 462, 120, 2, 29, "Input"]
}, Open  ]],
Cell[18399, 467, 109, 2, 38, "Input"],
Cell[18511, 471, 258, 4, 48, "Input"],
Cell[18772, 477, 598, 11, 105, "Input"]
}, Closed]],
Cell[19385, 491, 38, 0, 69, "Title"],

Cell[CellGroupData[{
Cell[19448, 495, 224, 4, 29, "Input"],
Cell[19675, 501, 436, 7, 23, "Message"],
Cell[20114, 510, 16307, 441, 186, 4985, 297, "GraphicsData", "PostScript", \
"Graphics"],
Cell[36424, 953, 167, 4, 29, "Output"],

Cell[CellGroupData[{
Cell[36616, 961, 57, 1, 29, "Input"],
Cell[36676, 964, 2759, 73, 117, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[39472, 1042, 56, 1, 29, "Input"],
Cell[39531, 1045, 8178, 192, 477, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)