(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. 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[     47760,       1383]*)
(*NotebookOutlinePosition[     52741,       1535]*)
(*  CellTagsIndexPosition[     52301,       1514]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[{
  "Statistics",
  StyleBox["`", "MB"],
  "ContinuousDistributions",
  StyleBox["`", "MB"]
}], "Subsection",
  CellTags->{"S5.95.1", "1.1"}],

Cell[TextData[{
  "This package gives you access to the most commonly used continuous \
statistical distributions. You can compute their densities, means, variances, \
and other related properties. The distributions themselves are represented in \
the symbolic form ",
  StyleBox["name", "TI"],
  StyleBox["[", "MR"],
  Cell[BoxData[
      FormBox[
        SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"param\\\\\\\"\\\", \\\
\"TI\\\"]\\)\"\>", "1"], TraditionalForm]], "InlineFormula"],
  StyleBox[",", "MR"],
  " ",
  Cell[BoxData[
      FormBox[
        SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"param\\\\\\\"\\\", \\\
\"TI\\\"]\\)\"\>", "2"], TraditionalForm]], "InlineFormula"],
  StyleBox[",", "MR"],
  " \[Ellipsis] ",
  StyleBox["]", "MR"],
  ". Functions such as ",
  StyleBox["Mean", "MR"],
  ", which give properties of statistical distributions, take the symbolic \
representation of the distribution as an argument. \nSeveral of the most \
commonly used distributions are derived from the normal or Gaussian \
distribution. These distributions can also be found in the ",
  StyleBox["NormalDistribution", "MR"],
  " package. You should use ",
  StyleBox["NormalDistribution", "MR"],
  " instead of this package when you need only the normal, Student ",
  Cell[BoxData[
      \(TraditionalForm\`t\)], "InlineFormula"],
  ", chi\[Hyphen]square, or ",
  Cell[BoxData[
      \(TraditionalForm\`F\)], "InlineFormula"],
  "\[Hyphen]ratio distributions. Descriptions of these four distributions are \
given in more detail in the ",
  StyleBox["NormalDistribution", "MR"],
  " section. The package ",
  StyleBox["DiscreteDistributions", "MR"],
  " contains many discrete statistical distributions. "
}], "Text",
  CellTags->{"S5.95.1", "1.2"}],

Cell[BoxData[
    FormBox[
      StyleBox[
        FrameBox[
          StyleBox[GridBox[{
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ChiSquareDistribution[\\\\\
\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\\\
\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", \
"\<\"chi\[Hyphen]square distribution with \\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\
\\\"\\\", \\\"TI\\\"]\\) degrees of freedom \"\>"},
                {
                  
                  RowBox[{"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\
FRatioDistribution[\\\\\\\"\\\", \\\"MR\\\"]\\)\"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "1"],
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "2"],
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>"}], 
                  RowBox[{
                    StyleBox["F",
                      
                      "InlineFormula"], "\<\"\[Hyphen]ratio distribution with \
\"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "1"],
                      "InlineFormula"], "\<\" numerator and \"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "2"],
                      
                      "InlineFormula"], "\<\" denominator degrees of freedom \
\"\>"}]},
                {
                  
                  RowBox[{"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\
NormalDistribution[\\\\\\\"\\\", \\\"MR\\\"]\\)\"\>", 
                    StyleBox["\[Mu]",
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                    StyleBox["\[Sigma]",
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>"}], 
                  
                  RowBox[{"\<\"normal (Gaussian) distribution with mean \"\>",
                     
                    StyleBox["\[Mu]",
                      "InlineFormula"], "\<\" and standard deviation \"\>", 
                    StyleBox["\[Sigma]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"StudentTDistribution[\\\\\
\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\\\
\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                  RowBox[{"\<\"Student \"\>", 
                    StyleBox["t",
                      "InlineFormula"], "\<\" distribution with \"\>", 
                    StyleBox["n",
                      "InlineFormula"], "\<\" degrees of freedom \"\>"}]}
                },
              ColumnAlignments->{Right, Left}],
            GridBoxOptions->{RowLines->False}]],
        "2ColumnBox"], TraditionalForm]], "Text",
  CellTags->{"S5.95.1", "1.3"}],

Cell["Common distributions derived from the normal distribution. ", "Caption",
  CellTags->"S5.95.1"],

Cell[BoxData[
    FormBox[
      StyleBox[
        FrameBox[
          StyleBox[GridBox[{
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"BetaDistribution[\\\\\\\"\
\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"alpha\\\\\\\"\\\", \\\"TI\\\
\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \
\\!\\(\\*StyleBox[\\\"\\\\\\\"beta\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"continuous beta distribution with shape \
parameters \"\>", 
                    StyleBox["\[Alpha]",
                      "InlineFormula"], "\<\" and \"\>", 
                    StyleBox["\[Beta]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"CauchyDistribution[\\\\\\\
\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"a\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"b\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"Cauchy distribution with location parameter \"\
\>", 
                    StyleBox["a",
                      "InlineFormula"], "\<\" and scale parameter \"\>", 
                    StyleBox["b",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ChiDistribution[\\\\\\\"\\\
\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\\\"]\\)\
\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", "\<\"chi \
distribution with \\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\\\"]\\) \
degrees of freedom \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ExponentialDistribution[\\\
\\\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"lambda\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"exponential distribution with scale inversely \
proportional to parameter \"\>", 
                    StyleBox["\[Lambda]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ExtremeValueDistribution[\
\\\\\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"alpha\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"beta\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                  
                  RowBox[{"\<\"extreme value (Fisher\[Hyphen]Tippett) \
distribution with location parameter \"\>", 
                    StyleBox["\[Alpha]",
                      "InlineFormula"], "\<\" and scale parameter \"\>", 
                    StyleBox["\[Beta]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"GammaDistribution[\\\\\\\"\
\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"alpha\\\\\\\"\\\", \\\"TI\\\
\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \
\\!\\(\\*StyleBox[\\\"\\\\\\\"lambda\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"gamma distribution with shape parameter \"\>", 
                    
                    StyleBox["\[Alpha]",
                      "InlineFormula"], "\<\" and scale parameter \"\>", 
                    StyleBox["\[Lambda]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"HalfNormalDistribution[\\\
\\\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"theta\\\\\\\"\\\", \\\
\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>",
                   
                  
                  RowBox[{"\<\"half\[Hyphen]normal distribution with scale \
inversely proportional to parameter \"\>", 
                    StyleBox["\[Theta]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"LaplaceDistribution[\\\\\\\
\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"mu\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"beta\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                  
                  RowBox[{"\<\"Laplace (double exponential) distribution with \
mean \"\>", 
                    StyleBox["\[Mu]",
                      "InlineFormula"], "\<\" and scale parameter \"\>", 
                    StyleBox["\[Beta]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"LogisticDistribution[\\\\\
\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"mu\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"beta\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                  RowBox[{"\<\"logistic distribution with mean \"\>", 
                    StyleBox["\[Mu]",
                      "InlineFormula"], "\<\" and scale parameter \"\>", 
                    StyleBox["\[Beta]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"LogNormalDistribution[\\\\\
\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"mu\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"sigma\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"lognormal distribution based on a normal \
distribution with mean \"\>", 
                    StyleBox["\[Mu]",
                      "InlineFormula"], "\<\" and standard deviation \"\>", 
                    StyleBox["\[Sigma]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ParetoDistribution[\\\\\\\
\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"k\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"alpha\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"Pareto distribution with minimum value \
parameter \"\>", 
                    StyleBox["k",
                      "InlineFormula"], "\<\" and shape parameter \"\>", 
                    StyleBox["\[Alpha]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"RayleighDistribution[\\\\\
\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"sigma\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"Rayleigh distribution with scale parameter \
\"\>", 
                    StyleBox["\[Sigma]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"UniformDistribution[\\\\\\\
\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"min\\\\\\\"\\\", \\\"TI\\\
\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \
\\!\\(\\*StyleBox[\\\"\\\\\\\"max\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  RowBox[{"\<\"uniform distribution on the interval \"\>", 
                    StyleBox["{",
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"min\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"max\\\\\\\"\\\", \\\"TI\\\"]\\)\"\>", 
                    StyleBox["}",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"WeibullDistribution[\\\\\\\
\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"alpha\\\\\\\"\\\", \\\"TI\
\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \
\\!\\(\\*StyleBox[\\\"\\\\\\\"beta\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"Weibull distribution with shape parameter \
\"\>", 
                    StyleBox["\[Alpha]",
                      "InlineFormula"], "\<\" and scale parameter \"\>", 
                    StyleBox["\[Beta]",
                      "InlineFormula"], "\<\" \"\>"}]}
                },
              ColumnAlignments->{Right, Left}],
            GridBoxOptions->{RowLines->False}]],
        "2ColumnBox"], TraditionalForm]], "Text",
  CellTags->{"S5.95.1", "1.4"}],

Cell["Continuous statistical distributions. ", "Caption",
  CellTags->"S5.95.1"],

Cell[TextData[{
  "The ",
  StyleBox["uniform distribution", "TB"],
  " ",
  StyleBox["UniformDistribution[", "MR"],
  StyleBox["min", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["max", "TI"],
  StyleBox["]", "MR"],
  ", commonly referred to as the rectangular distribution, characterizes a \
random variable whose value is everywhere equally likely. An example of a \
uniformly distributed random variable is the location of a point chosen \
randomly on a line from ",
  StyleBox["min", "MR"],
  " to ",
  StyleBox["max", "MR"],
  ". If ",
  Cell[BoxData[
      \(TraditionalForm\`X\)], "InlineFormula"],
  " is uniformly distributed on [",
  Cell[BoxData[
      \(TraditionalForm\`\(-\[Pi]\)\)], "InlineFormula"],
  ", ",
  Cell[BoxData[
      \(TraditionalForm\`\[Pi]\)], "InlineFormula"],
  "], then the random variable ",
  Cell[BoxData[
      \(TraditionalForm\`tan  X\)], "InlineFormula"],
  " follows a ",
  StyleBox["Cauchy distribution", "TB"],
  " ",
  StyleBox["CauchyDistribution[", "MR"],
  StyleBox["a", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["b", "TI"],
  StyleBox["]", "MR"],
  ", with ",
  Cell[BoxData[
      \(TraditionalForm\`a = 0\)], "InlineFormula"],
  " and ",
  Cell[BoxData[
      \(TraditionalForm\`b = 1\)], "InlineFormula"],
  ". \nThe ",
  StyleBox["lognormal distribution", "TB"],
  " ",
  StyleBox["LogNormalDistribution[", "MR"],
  StyleBox["mu", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["sigma", "TI"],
  StyleBox["]", "MR"],
  " is the distribution followed by the exponential of a normally distributed \
random variable. This distribution arises when many independent random \
variables are combined in a multiplicative fashion. The ",
  StyleBox["halfnormal distribution", "TB"],
  " ",
  StyleBox["HalfNormalDistribution[", "MR"],
  StyleBox["theta", "TI"],
  StyleBox["]", "MR"],
  " is proportional to the distribution ",
  StyleBox["NormalDistribution[0,", "MR"],
  " ",
  StyleBox["1/(", "MR"],
  StyleBox["theta", "TI"],
  " ",
  StyleBox["Sqrt[2/Pi])]", "MR"],
  " limited to the domain [0, ",
  Cell[BoxData[
      \(TraditionalForm\`\[Infinity]\)], "InlineFormula"],
  "). \nWhen ",
  Cell[BoxData[
      \(TraditionalForm\`\[Alpha] = n/2\)], "InlineFormula"],
  " and ",
  Cell[BoxData[
      \(TraditionalForm\`\[Lambda] = 2\)], "InlineFormula"],
  ", the ",
  StyleBox["gamma distribution", "TB"],
  " ",
  StyleBox["GammaDistribution[", "MR"],
  StyleBox["alpha", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["lambda", "TI"],
  StyleBox["]", "MR"],
  " describes the distribution of a sum of squares of ",
  Cell[BoxData[
      \(TraditionalForm\`n\)], "InlineFormula"],
  " unit normal random variables. This form of the gamma distribution is \
called a ",
  StyleBox["chi\[Hyphen]square distribution", "TB"],
  " with ",
  Cell[BoxData[
      \(TraditionalForm\`n\)], "InlineFormula"],
  " degrees of freedom. When ",
  Cell[BoxData[
      \(TraditionalForm\`\[Alpha] = 1\)], "InlineFormula"],
  ", the gamma distribution takes on the form of the ",
  StyleBox["exponential distribution", "TB"],
  " ",
  StyleBox["ExponentialDistribution[", "MR"],
  StyleBox["lambda", "TI"],
  StyleBox["]", "MR"],
  ", often used in describing the waiting time between events. \nThe ",
  StyleBox["chi distribution", "TB"],
  " ",
  StyleBox["ChiDistribution[", "MR"],
  StyleBox["n", "TI"],
  StyleBox["]", "MR"],
  " is followed by the square root of a chi\[Hyphen]square random variable. \
For ",
  Cell[BoxData[
      \(TraditionalForm\`n = 1\)], "InlineFormula"],
  ", the chi distribution is identical to ",
  StyleBox["HalfNormalDistribution[", "MR"],
  StyleBox["theta", "TI"],
  StyleBox["]", "MR"],
  " with ",
  Cell[BoxData[
      \(TraditionalForm\`\[Theta] = 1\)], "InlineFormula"],
  ". For ",
  Cell[BoxData[
      \(TraditionalForm\`n = 2\)], "InlineFormula"],
  ", the chi distribution is identical to the ",
  StyleBox["Rayleigh distribution", "TB"],
  " ",
  StyleBox["RayleighDistribution[", "MR"],
  StyleBox["sigma", "TI"],
  StyleBox["]", "MR"],
  " with ",
  Cell[BoxData[
      \(TraditionalForm\`\[Sigma] = 1\)], "InlineFormula"],
  ". \nWhen ",
  Cell[BoxData[
      \(TraditionalForm\`X\_1\)], "InlineFormula"],
  " and ",
  Cell[BoxData[
      \(TraditionalForm\`X\_2\)], "InlineFormula"],
  " have independent gamma distributions with equal scale parameters, the \
random variable ",
  Cell[BoxData[
      \(TraditionalForm\`X\_1\/\(X\_1 + X\_2\)\)], "InlineFormula"],
  " follows the ",
  StyleBox["beta distribution", "TB"],
  " ",
  StyleBox["BetaDistribution[", "MR"],
  StyleBox["alpha", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["beta", "TI"],
  StyleBox["]", "MR"],
  ", where ",
  Cell[BoxData[
      \(TraditionalForm\`\[Alpha]\)], "InlineFormula"],
  " and ",
  Cell[BoxData[
      \(TraditionalForm\`\[Beta]\)], "InlineFormula"],
  " are the shape parameters of the gamma variables. \nThe ",
  StyleBox["Weibull distribution", "TB"],
  " ",
  StyleBox["WeibullDistribution[", "MR"],
  StyleBox["alpha", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["beta", "TI"],
  StyleBox["]", "MR"],
  " is commonly used in engineering to describe the lifetime of an object. \
The ",
  StyleBox["extreme value distribution", "TB"],
  " ",
  StyleBox["ExtremeValueDistribution[", "MR"],
  StyleBox["alpha", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["beta", "TI"],
  StyleBox["]", "MR"],
  " is the limiting distribution for the smallest or largest values in large \
samples drawn from a variety of distributions, including the normal \
distribution. The extreme value distribution is sometimes referred to as the \
log\[Hyphen]Weibull distribution because it describes the distribution of the \
log of a Weibull distributed random variable. \nThe ",
  StyleBox["Laplace distribution", "TB"],
  " ",
  StyleBox["LaplaceDistribution[", "MR"],
  StyleBox["mu", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["beta", "TI"],
  StyleBox["]", "MR"],
  " is the distribution of the difference of two independent random variables \
with identical exponential distributions. The ",
  StyleBox["logistic distribution", "TB"],
  " ",
  StyleBox["LogisticDistribution[", "MR"],
  StyleBox["mu", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["beta", "TI"],
  StyleBox["]", "MR"],
  " is frequently used in place of the normal distribution when a \
distribution with longer tails is desired. \nThe ",
  StyleBox["Pareto distribution", "TB"],
  " ",
  StyleBox["ParetoDistribution[", "MR"],
  StyleBox["k", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["alpha", "TI"],
  StyleBox["]", "MR"],
  " may be used to describe income, ",
  Cell[BoxData[
      \(TraditionalForm\`k\)], "InlineFormula"],
  " representing the minimum income possible. "
}], "Text",
  CellTags->{"S5.95.1", "1.5"}],

Cell[BoxData[
    FormBox[
      StyleBox[
        FrameBox[
          StyleBox[GridBox[{
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\
NoncentralChiSquareDistribution[\\\\\\\"\\\", \
\\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"lambda\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  
                  RowBox[{"\<\"noncentral chi\[Hyphen]square distribution \
with \\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\\\"]\\) degrees of \
freedom and noncentrality parameter \"\>", 
                    StyleBox["\[Lambda]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\
NoncentralStudentTDistribution[\\\\\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\"n\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"lambda\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  RowBox[{"\<\"noncentral Student \"\>", 
                    StyleBox["t",
                      
                      "InlineFormula"], "\<\" distribution with \
\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\\\"]\\) degrees of \
freedom and noncentrality parameter \"\>", 
                    StyleBox["\[Lambda]",
                      "InlineFormula"], "\<\" \"\>"}]},
                {
                  
                  RowBox[{"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\
NoncentralFRatioDistribution[\\\\\\\"\\\", \\\"MR\\\"]\\)\"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "1"],
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "2"],
                      
                      "InlineFormula"], \
"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \
\\!\\(\\*StyleBox[\\\"\\\\\\\"lambda\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>"}], 
                  RowBox[{"\<\"noncentral \"\>", 
                    StyleBox["F",
                      
                      "InlineFormula"], "\<\"\[Hyphen]ratio distribution with \
\"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "1"],
                      
                      "InlineFormula"], "\<\" numerator degrees of freedom \
and \"\>", 
                    StyleBox[
                      
                      SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\
\"\\\", \\\"TI\\\"]\\)\"\>", "2"],
                      
                      "InlineFormula"], "\<\" denominator degrees of freedom \
and numerator noncentrality parameter \"\>", 
                    StyleBox["\[Lambda]",
                      "InlineFormula"], "\<\" \"\>"}]}
                },
              ColumnAlignments->{Right, Left}],
            GridBoxOptions->{RowLines->False}]],
        "2ColumnBox"], TraditionalForm]], "Text",
  CellTags->{"S5.95.1", "1.6"}],

Cell["Distributions with noncentrality parameters.", "Caption",
  CellTags->"S5.95.1"],

Cell[TextData[{
  "Distributions that are derived from normal distributions with nonzero \
means are called ",
  StyleBox["noncentral distributions", "TI"],
  ". \nThe sum of the squares of ",
  Cell[BoxData[
      \(TraditionalForm\`n\)], "InlineFormula"],
  " normally distributed random variables with variance ",
  Cell[BoxData[
      \(TraditionalForm\`\[Sigma]\^2 = 1\)], "InlineFormula"],
  " and nonzero means follows a ",
  StyleBox["noncentral chi\[Hyphen]square distribution", "TB"],
  " ",
  StyleBox["NoncentralChiSquareDistribution[", "MR"],
  StyleBox["n", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["lambda", "TI"],
  StyleBox["]", "MR"],
  ". The noncentrality parameter ",
  Cell[BoxData[
      \(TraditionalForm\`\[Lambda]\)], "InlineFormula"],
  " is the sum of the squares of the means of the random variables in the \
sum. Note that in various places in the literature, ",
  Cell[BoxData[
      \(TraditionalForm\`\[Lambda]/2\)], "InlineFormula"],
  " or ",
  Cell[BoxData[
      \(TraditionalForm\`\@\[Lambda]\)], "InlineFormula"],
  " is used as the noncentrality parameter. \nThe ",
  StyleBox["noncentral Student ", "TB"],
  StyleBox["t", "TBI"],
  StyleBox[" distribution", "TB"],
  " ",
  StyleBox["NoncentralStudentTDistribution[", "MR"],
  StyleBox["n", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["lambda", "TI"],
  StyleBox["]", "MR"],
  " describes the ratio ",
  Cell[BoxData[
      \(TraditionalForm\`X/\@\(\[Chi]\_n\%2/n\)\)], "InlineFormula"],
  " where ",
  Cell[BoxData[
      \(TraditionalForm\`\[Chi]\_n\%2\)], "InlineFormula"],
  " is a central chi\[Hyphen]square random variable with ",
  Cell[BoxData[
      \(TraditionalForm\`n\)], "InlineFormula"],
  " degrees of freedom, and ",
  Cell[BoxData[
      \(TraditionalForm\`X\)], "InlineFormula"],
  " is an independent normally distributed random variable with variance ",
  Cell[BoxData[
      \(TraditionalForm\`\[Sigma]\^2 = 1\)], "InlineFormula"],
  " and mean ",
  Cell[BoxData[
      \(TraditionalForm\`\[Lambda]\)], "InlineFormula"],
  ". \nThe ",
  StyleBox["noncentral ", "TB"],
  StyleBox["F", "TBI"],
  StyleBox["\[Hyphen]ratio distribution", "TB"],
  " ",
  StyleBox["NoncentralFRatioDistribution[", "MR"],
  Cell[BoxData[
      FormBox[
        SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\
\\\"]\\)\"\>", "1"], TraditionalForm]], "InlineFormula"],
  StyleBox[",", "MR"],
  " ",
  Cell[BoxData[
      FormBox[
        SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\
\\\"]\\)\"\>", "2"], TraditionalForm]], "InlineFormula"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["lambda", "TI"],
  StyleBox["]", "MR"],
  " is the distribution of the ratio of a noncentral chi\[Hyphen]square \
random variable with noncentrality parameter ",
  Cell[BoxData[
      \(TraditionalForm\`\[Lambda]\)], "InlineFormula"],
  " and ",
  Cell[BoxData[
      FormBox[
        SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\
\\\"]\\)\"\>", "1"], TraditionalForm]], "InlineFormula"],
  " degrees of freedom to a central chi\[Hyphen]square random variable with \
",
  Cell[BoxData[
      FormBox[
        SubscriptBox["\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"n\\\\\\\"\\\", \\\"TI\
\\\"]\\)\"\>", "2"], TraditionalForm]], "InlineFormula"],
  " degrees of freedom. "
}], "Text",
  CellTags->{"S5.95.1", "1.7"}],

Cell[BoxData[
    FormBox[
      StyleBox[
        FrameBox[
          StyleBox[GridBox[{
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"PDF[\\\\\\\"\\\", \
\\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  RowBox[{"\<\"probability density function at \"\>", 
                    StyleBox["x",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"CDF[\\\\\\\"\\\", \
\\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  RowBox[{"\<\"cumulative distribution function at \"\>", 
                    StyleBox["x",
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Quantile[\\\\\\\"\\\", \\\
\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\
\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\\(\\*StyleBox[\\\
\"\\\\\\\"q\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  RowBox[{
                    StyleBox["q",
                      "InlineFormula"], 
                    StyleBox[\(\[Null]\^"th"\),
                      "InlineFormula"], "\<\" quantile \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Domain[\\\\\\\"\\\", \
\\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", "\<\"range of values of the variable (support) \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Mean[\\\\\\\"\\\", \\\"MR\
\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", "\<\"mean \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Variance[\\\\\\\"\\\", \\\
\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\
\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", "\<\"variance \
\"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"StandardDeviation[\\\\\\\"\
\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", "\<\"standard deviation \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Skewness[\\\\\\\"\\\", \\\
\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\
\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", \
"\<\"coefficient of skewness \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Kurtosis[\\\\\\\"\\\", \\\
\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\
\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", \
"\<\"coefficient of kurtosis \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"KurtosisExcess[\\\\\\\"\\\
\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\
\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", \
"\<\"kurtosis excess \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"CharacteristicFunction[\\\
\\\\\"\\\", \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"t\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", 
                  RowBox[{"\<\"characteristic function \"\>", 
                    StyleBox[\(\[Phi] \((t)\)\),
                      "InlineFormula"], "\<\" \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ExpectedValue[\\\\\\\"\\\"\
, \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"f\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                  RowBox[{"\<\"expected value of pure function \"\>", 
                    StyleBox["f",
                      
                      "InlineFormula"], "\<\" with respect to the specified \
distribution \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"ExpectedValue[\\\\\\\"\\\"\
, \\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"f\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\\(\\*StyleBox[\\\"\\\\\\\"x\\\\\
\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\
\"]\\) \"\>", 
                  RowBox[{"\<\"expected value of function \"\>", 
                    StyleBox["f",
                      "InlineFormula"], "\<\" of \"\>", 
                    StyleBox["x",
                      
                      "InlineFormula"], "\<\" with respect to the specified \
distribution \"\>"}]},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Random[\\\\\\\"\\\", \
\\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \
\"\>", "\<\"pseudorandom number with specified distribution \"\>"},
                {"\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"RandomArray[\\\\\\\"\\\", \
\\\"MR\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\"dist\\\\\\\"\\\", \
\\\"TI\\\"]\\)\\!\\(\\*StyleBox[\\\"\\\\\\\",\\\\\\\"\\\", \\\"MR\\\"]\\) \\!\
\\(\\*StyleBox[\\\"\\\\\\\"dims\\\\\\\"\\\", \\\"TI\\\"]\\)\\!\\(\\*StyleBox[\
\\\"\\\\\\\"]\\\\\\\"\\\", \\\"MR\\\"]\\) \"\>", 
                  RowBox[{"\<\"pseudorandom array with dimensionality \"\>", 
                    StyleBox[\(d  i  m  s\),
                      
                      "InlineFormula"], "\<\", and elements from the \
specified distribution \"\>"}]}
                },
              ColumnAlignments->{Right, Left}],
            GridBoxOptions->{RowLines->False}]],
        "2ColumnBox"], TraditionalForm]], "Text",
  CellTags->{"S5.95.1", "1.8"}],

Cell["Functions of statistical distributions. ", "Caption",
  CellTags->"S5.95.1"],

Cell[TextData[{
  "The ",
  StyleBox["cumulative distribution function", "TB"],
  " (cdf) at ",
  Cell[BoxData[
      \(TraditionalForm\`x\)], "InlineFormula"],
  " is given by the integral of the ",
  StyleBox["probability density function", "TB"],
  " (pdf) up to ",
  Cell[BoxData[
      \(TraditionalForm\`x\)], "InlineFormula"],
  ". The pdf can therefore be obtained by differentiating the cdf (perhaps in \
a generalized sense). In this package the distributions are represented in \
symbolic form. ",
  StyleBox["PDF[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["x", "TI"],
  StyleBox["]", "MR"],
  " evaluates the density at ",
  Cell[BoxData[
      \(TraditionalForm\`x\)], "InlineFormula"],
  " if ",
  Cell[BoxData[
      \(TraditionalForm\`x\)], "InlineFormula"],
  " is a numerical value, and otherwise leaves the function in symbolic form. \
Similarly, ",
  StyleBox["CDF[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["x", "TI"],
  StyleBox["]", "MR"],
  " gives the cumulative distribution. ",
  StyleBox["Domain[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox["]", "MR"],
  " gives the domain of ",
  StyleBox["PDF[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["x", "TI"],
  StyleBox["]", "MR"],
  " and ",
  StyleBox["CDF[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["x", "TI"],
  StyleBox["]", "MR"],
  ". \nThe quantile ",
  StyleBox["Quantile[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["q", "TI"],
  StyleBox["]", "MR"],
  " is effectively the inverse of the cdf. It gives the value of ",
  Cell[BoxData[
      \(TraditionalForm\`x\)], "InlineFormula"],
  " at which ",
  StyleBox["CDF[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["x", "TI"],
  StyleBox["]", "MR"],
  " reaches ",
  Cell[BoxData[
      \(TraditionalForm\`q\)], "InlineFormula"],
  ". The median is given by ",
  StyleBox["Quantile[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[",", "MR"],
  " ",
  StyleBox["1/2]", "MR"],
  "; quartiles, deciles and percentiles can also be expressed as quantiles. \
Quantiles are used in constructing confidence intervals for statistical \
parameters. \nThe mean ",
  StyleBox["Mean[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox["]", "MR"],
  " is the expectation of the random variable distributed according to ",
  Cell[BoxData[
      \(TraditionalForm\`d  i  s  t\)], "InlineFormula"],
  " and is usually denoted by ",
  Cell[BoxData[
      \(TraditionalForm\`\[Mu]\)], "InlineFormula"],
  ". The mean is given by ",
  Cell[BoxData[
      \(TraditionalForm\`\[Integral]x  f \((x)\) \[DifferentialD]x\)], 
    "InlineFormula"],
  ", where ",
  Cell[BoxData[
      \(TraditionalForm\`f \((x)\)\)], "InlineFormula"],
  " is the pdf of the distribution. The variance ",
  StyleBox["Variance[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox["]", "MR"],
  " is given by ",
  Cell[BoxData[
      \(TraditionalForm\`\[Integral]\(\((x - \[Mu])\)\^2\) 
        f \((x)\) \[DifferentialD]x\)], "InlineFormula"],
  ". The square root of the variance is called the standard deviation, and is \
usually denoted by ",
  Cell[BoxData[
      \(TraditionalForm\`\[Sigma]\)], "InlineFormula"],
  ". \nThe ",
  StyleBox["Skewness[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox["]", "MR"],
  " and ",
  StyleBox["Kurtosis[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox["]", "MR"],
  " functions give shape statistics summarizing the asymmetry and the \
peakedness of a distribution, respectively. Skewness is given by ",
  Cell[BoxData[
      \(TraditionalForm\`\(\[Integral]\(\((x - \[Mu])\)\^3\) f \((x)\) \
\[DifferentialD]x\)\/\[Sigma]\^3\)], "InlineFormula"],
  " and kurtosis is given by ",
  Cell[BoxData[
      \(TraditionalForm\`\(\[Integral]\(\((x - \[Mu])\)\^4\) f \((x)\) \
\[DifferentialD]x\)\/\[Sigma]\^4\)], "InlineFormula"],
  ". \nThe characteristic function ",
  StyleBox["CharacteristicFunction[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox[", ", "MR"],
  StyleBox["t", "TI"],
  StyleBox["]", "MR"],
  " is given by ",
  Cell[BoxData[
      \(TraditionalForm\`\[Phi] \((t)\) = \[Integral]f \((x)\) 
        exp \((i  t  x)\) \[DifferentialD]x\)], "InlineFormula"],
  ". In the discrete case, ",
  Cell[BoxData[
      \(TraditionalForm\`\[Phi] \((t)\) = \[Sum]f \((x)\) 
        exp \((i  t  x)\)\)], "InlineFormula"],
  ". Each distribution has a unique characteristic function, which is \
sometimes used instead of the pdf to define a distribution. \n",
  StyleBox["Random[", "MR"],
  StyleBox["dist", "TI"],
  StyleBox["]", "MR"],
  " gives pseudorandom numbers from the specified distribution. It can be \
used with a seed like other built\[Hyphen]in forms of ",
  StyleBox["Random", "MR"],
  ", as described in the section on pseudorandom numbers in ",
  StyleBox["The Mathematica Book", "TI"],
  ". "
}], "Text",
  CellTags->{"S5.95.1", "1.9"}],

Cell["This loads the package. ", "MathCaption",
  CellTags->{"S5.95.1", "1.10"}],

Cell["<<Statistics`ContinuousDistributions`", "Input",
  CellLabel->"In[1]:= ",
  CellTags->"S5.95.1"],

Cell[TextData[{
  "This gives a symbolic representation of the gamma distribution with ",
  Cell[BoxData[
      \(TraditionalForm\`3\)], "InlineFormula"],
  " as the shape parameter and ",
  Cell[BoxData[
      \(TraditionalForm\`1\)], "InlineFormula"],
  " as the scale parameter. "
}], "MathCaption",
  CellTags->{"S5.95.1", "1.11"}],

Cell[CellGroupData[{

Cell["gdist = GammaDistribution[3, 1]", "Input",
  CellLabel->"In[2]:= ",
  CellTags->"S5.95.1"],

Cell[BoxData[
    \(GammaDistribution[3, 1]\)], "Output",
  CellLabel->"Out[2]= ",
  CellTags->"S5.95.1"]
}, Open  ]],

Cell[TextData[{
  "Here is the cumulative distribution function evaluated at ",
  Cell[BoxData[
      \(TraditionalForm\`10\)], "InlineFormula"],
  ". "
}], "MathCaption",
  CellTags->{"S5.95.1", "1.12"}],

Cell[CellGroupData[{

Cell["CDF[gdist, 10]", "Input",
  CellLabel->"In[3]:= ",
  CellTags->"S5.95.1"],

Cell[BoxData[
    \(GammaRegularized[3, 0, 10]\)], "Output",
  CellLabel->"Out[3]= ",
  CellTags->"S5.95.1"]
}, Open  ]],

Cell[TextData[{
  "This is the cumulative distribution function. It is given in terms of the \
built\[Hyphen]in function ",
  StyleBox["GammaRegularized", "MR"],
  ". "
}], "MathCaption",
  CellTags->{"S5.95.1", "1.13"}],

Cell[CellGroupData[{

Cell["cdfunction = CDF[gdist, x]", "Input",
  CellLabel->"In[4]:= ",
  CellTags->"S5.95.1"],

Cell[BoxData[
    \(GammaRegularized[3, 0, x]\)], "Output",
  CellLabel->"Out[4]= ",
  CellTags->"S5.95.1"]
}, Open  ]],

Cell["Here is a plot of the cumulative distribution function. ", "MathCaption",
  CellTags->{"S5.95.1", "1.14"}],

Cell[CellGroupData[{

Cell["Plot[cdfunction, {x, 0, 10}]", "Input",
  CellLabel->"In[5]:= ",
  CellTags->"S5.95.1"],

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
0.0238095 0.0952381 0.0147151 0.590238 [
[.21429 .00222 -3 -9 ]
[.21429 .00222 3 0 ]
[.40476 .00222 -3 -9 ]
[.40476 .00222 3 0 ]
[.59524 .00222 -3 -9 ]
[.59524 .00222 3 0 ]
[.78571 .00222 -3 -9 ]
[.78571 .00222 3 0 ]
[.97619 .00222 -6 -9 ]
[.97619 .00222 6 0 ]
[.01131 .13276 -18 -4.5 ]
[.01131 .13276 0 4.5 ]
[.01131 .25081 -18 -4.5 ]
[.01131 .25081 0 4.5 ]
[.01131 .36886 -18 -4.5 ]
[.01131 .36886 0 4.5 ]
[.01131 .48691 -18 -4.5 ]
[.01131 .48691 0 4.5 ]
[.01131 .60495 -6 -4.5 ]
[.01131 .60495 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 .01472 m
.21429 .02097 L
s
[(2)] .21429 .00222 0 1 Mshowa
.40476 .01472 m
.40476 .02097 L
s
[(4)] .40476 .00222 0 1 Mshowa
.59524 .01472 m
.59524 .02097 L
s
[(6)] .59524 .00222 0 1 Mshowa
.78571 .01472 m
.78571 .02097 L
s
[(8)] .78571 .00222 0 1 Mshowa
.97619 .01472 m
.97619 .02097 L
s
[(10)] .97619 .00222 0 1 Mshowa
.125 Mabswid
.07143 .01472 m
.07143 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.16667 .01472 m
.16667 .01847 L
s
.2619 .01472 m
.2619 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.5 .01472 m
.5 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.7381 .01472 m
.7381 .01847 L
s
.83333 .01472 m
.83333 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.92857 .01472 m
.92857 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.02381 .13276 m
.03006 .13276 L
s
[(0.2)] .01131 .13276 1 0 Mshowa
.02381 .25081 m
.03006 .25081 L
s
[(0.4)] .01131 .25081 1 0 Mshowa
.02381 .36886 m
.03006 .36886 L
s
[(0.6)] .01131 .36886 1 0 Mshowa
.02381 .48691 m
.03006 .48691 L
s
[(0.8)] .01131 .48691 1 0 Mshowa
.02381 .60495 m
.03006 .60495 L
s
[(1)] .01131 .60495 1 0 Mshowa
.125 Mabswid
.02381 .04423 m
.02756 .04423 L
s
.02381 .07374 m
.02756 .07374 L
s
.02381 .10325 m
.02756 .10325 L
s
.02381 .16227 m
.02756 .16227 L
s
.02381 .19179 m
.02756 .19179 L
s
.02381 .2213 m
.02756 .2213 L
s
.02381 .28032 m
.02756 .28032 L
s
.02381 .30983 m
.02756 .30983 L
s
.02381 .33935 m
.02756 .33935 L
s
.02381 .39837 m
.02756 .39837 L
s
.02381 .42788 m
.02756 .42788 L
s
.02381 .45739 m
.02756 .45739 L
s
.02381 .51642 m
.02756 .51642 L
s
.02381 .54593 m
.02756 .54593 L
s
.02381 .57544 m
.02756 .57544 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
.5 Mabswid
.02381 .01472 m
.02499 .01472 L
.02605 .01472 L
.02729 .01472 L
.02846 .01473 L
.02954 .01474 L
.03053 .01475 L
.03163 .01477 L
.03279 .01479 L
.03395 .01482 L
.0352 .01487 L
.03746 .01498 L
.04016 .01515 L
.04262 .01537 L
.04748 .01597 L
.05023 .01642 L
.05278 .01692 L
.06244 .01958 L
.06795 .02166 L
.07314 .02403 L
.08284 .02954 L
.10458 .04693 L
.12466 .06869 L
.14313 .09273 L
.18262 .15296 L
.22059 .21612 L
.26101 .28256 L
.29992 .34162 L
.34128 .39675 L
.38113 .4416 L
.41946 .47725 L
.46024 .50786 L
.49951 .53112 L
.53726 .54868 L
.57746 .56314 L
.61615 .57375 L
.65729 .58225 L
.69691 .58833 L
.73502 .5927 L
.77558 .59613 L
.81463 .59855 L
.85612 .60042 L
.89611 .60172 L
.93457 .60262 L
.97549 .60331 L
.97619 .60332 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{300, 180},
  ImageCacheValid->False,
  CellTags->"S5.95.1"],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output",
  CellLabel->"Out[5]= ",
  CellTags->"S5.95.1"]
}, Open  ]],

Cell["\<\
This is a pseudorandom array with elements distributed according to \
the gamma distribution. \
\>", "MathCaption",
  CellTags->{"S5.95.1", "1.15"}],

Cell[CellGroupData[{

Cell["RandomArray[gdist, 5]", "Input",
  CellLabel->"In[6]:= ",
  CellTags->"S5.95.1"],

Cell[BoxData[
    \({3.1280985651867317`, 2.4308253020039468`, 1.9998558767648924`, 
      5.315229000949548`, 5.204054374664438`}\)], "Output",
  CellLabel->"Out[6]= ",
  CellTags->"S5.95.1"]
}, Open  ]]
},
FrontEndVersion->"4.0 for X",
ScreenRectangle->{{0, 800}, {0, 600}},
WindowSize->{520, 455},
WindowMargins->{{140, Automatic}, {Automatic, 72}},
StyleDefinitions -> "HelpBrowser.nb"
]


(***********************************************************************
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->{
  "S5.95.1"->{
    Cell[1717, 49, 155, 6, 70, "Subsection",
      CellTags->{"S5.95.1", "1.1"}],
    Cell[1875, 57, 1756, 42, 70, "Text",
      CellTags->{"S5.95.1", "1.2"}],
    Cell[3634, 101, 3442, 76, 70, "Text",
      CellTags->{"S5.95.1", "1.3"}],
    Cell[7079, 179, 101, 1, 70, "Caption",
      CellTags->"S5.95.1"],
    Cell[7183, 182, 8953, 168, 70, "Text",
      CellTags->{"S5.95.1", "1.4"}],
    Cell[16139, 352, 80, 1, 70, "Caption",
      CellTags->"S5.95.1"],
    Cell[16222, 355, 6780, 215, 70, "Text",
      CellTags->{"S5.95.1", "1.5"}],
    Cell[23005, 572, 3540, 79, 70, "Text",
      CellTags->{"S5.95.1", "1.6"}],
    Cell[26548, 653, 86, 1, 70, "Caption",
      CellTags->"S5.95.1"],
    Cell[26637, 656, 3361, 95, 70, "Text",
      CellTags->{"S5.95.1", "1.7"}],
    Cell[30001, 753, 6452, 113, 70, "Text",
      CellTags->{"S5.95.1", "1.8"}],
    Cell[36456, 868, 82, 1, 70, "Caption",
      CellTags->"S5.95.1"],
    Cell[36541, 871, 4964, 152, 70, "Text",
      CellTags->{"S5.95.1", "1.9"}],
    Cell[41508, 1025, 80, 1, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.10"}],
    Cell[41591, 1028, 102, 2, 70, "Input",
      CellTags->"S5.95.1"],
    Cell[41696, 1032, 335, 9, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.11"}],
    Cell[42056, 1045, 96, 2, 70, "Input",
      CellTags->"S5.95.1"],
    Cell[42155, 1049, 105, 3, 70, "Output",
      CellTags->"S5.95.1"],
    Cell[42275, 1055, 204, 6, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.12"}],
    Cell[42504, 1065, 79, 2, 70, "Input",
      CellTags->"S5.95.1"],
    Cell[42586, 1069, 108, 3, 70, "Output",
      CellTags->"S5.95.1"],
    Cell[42709, 1075, 220, 6, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.13"}],
    Cell[42954, 1085, 91, 2, 70, "Input",
      CellTags->"S5.95.1"],
    Cell[43048, 1089, 107, 3, 70, "Output",
      CellTags->"S5.95.1"],
    Cell[43170, 1095, 112, 1, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.14"}],
    Cell[43307, 1100, 93, 2, 70, "Input",
      CellTags->"S5.95.1"],
    Cell[43403, 1104, 3681, 250, 70, 3607, 247, "GraphicsData", 
    "PostScript", "Graphics",
      ImageCacheValid->False,
      CellTags->"S5.95.1"],
    Cell[47087, 1356, 178, 5, 70, "Output",
      CellTags->"S5.95.1"],
    Cell[47280, 1364, 158, 4, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.15"}],
    Cell[47463, 1372, 86, 2, 70, "Input",
      CellTags->"S5.95.1"],
    Cell[47552, 1376, 192, 4, 70, "Output",
      CellTags->"S5.95.1"]},
  "1.1"->{
    Cell[1717, 49, 155, 6, 70, "Subsection",
      CellTags->{"S5.95.1", "1.1"}]},
  "1.2"->{
    Cell[1875, 57, 1756, 42, 70, "Text",
      CellTags->{"S5.95.1", "1.2"}]},
  "1.3"->{
    Cell[3634, 101, 3442, 76, 70, "Text",
      CellTags->{"S5.95.1", "1.3"}]},
  "1.4"->{
    Cell[7183, 182, 8953, 168, 70, "Text",
      CellTags->{"S5.95.1", "1.4"}]},
  "1.5"->{
    Cell[16222, 355, 6780, 215, 70, "Text",
      CellTags->{"S5.95.1", "1.5"}]},
  "1.6"->{
    Cell[23005, 572, 3540, 79, 70, "Text",
      CellTags->{"S5.95.1", "1.6"}]},
  "1.7"->{
    Cell[26637, 656, 3361, 95, 70, "Text",
      CellTags->{"S5.95.1", "1.7"}]},
  "1.8"->{
    Cell[30001, 753, 6452, 113, 70, "Text",
      CellTags->{"S5.95.1", "1.8"}]},
  "1.9"->{
    Cell[36541, 871, 4964, 152, 70, "Text",
      CellTags->{"S5.95.1", "1.9"}]},
  "1.10"->{
    Cell[41508, 1025, 80, 1, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.10"}]},
  "1.11"->{
    Cell[41696, 1032, 335, 9, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.11"}]},
  "1.12"->{
    Cell[42275, 1055, 204, 6, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.12"}]},
  "1.13"->{
    Cell[42709, 1075, 220, 6, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.13"}]},
  "1.14"->{
    Cell[43170, 1095, 112, 1, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.14"}]},
  "1.15"->{
    Cell[47280, 1364, 158, 4, 70, "MathCaption",
      CellTags->{"S5.95.1", "1.15"}]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"S5.95.1", 48385, 1400},
  {"1.1", 50858, 1465},
  {"1.2", 50952, 1468},
  {"1.3", 51042, 1471},
  {"1.4", 51133, 1474},
  {"1.5", 51225, 1477},
  {"1.6", 51318, 1480},
  {"1.7", 51410, 1483},
  {"1.8", 51502, 1486},
  {"1.9", 51595, 1489},
  {"1.10", 51689, 1492},
  {"1.11", 51788, 1495},
  {"1.12", 51888, 1498},
  {"1.13", 51988, 1501},
  {"1.14", 52088, 1504},
  {"1.15", 52188, 1507}
  }
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 155, 6, 70, "Subsection",
  CellTags->{"S5.95.1", "1.1"}],
Cell[1875, 57, 1756, 42, 70, "Text",
  CellTags->{"S5.95.1", "1.2"}],
Cell[3634, 101, 3442, 76, 70, "Text",
  CellTags->{"S5.95.1", "1.3"}],
Cell[7079, 179, 101, 1, 70, "Caption",
  CellTags->"S5.95.1"],
Cell[7183, 182, 8953, 168, 70, "Text",
  CellTags->{"S5.95.1", "1.4"}],
Cell[16139, 352, 80, 1, 70, "Caption",
  CellTags->"S5.95.1"],
Cell[16222, 355, 6780, 215, 70, "Text",
  CellTags->{"S5.95.1", "1.5"}],
Cell[23005, 572, 3540, 79, 70, "Text",
  CellTags->{"S5.95.1", "1.6"}],
Cell[26548, 653, 86, 1, 70, "Caption",
  CellTags->"S5.95.1"],
Cell[26637, 656, 3361, 95, 70, "Text",
  CellTags->{"S5.95.1", "1.7"}],
Cell[30001, 753, 6452, 113, 70, "Text",
  CellTags->{"S5.95.1", "1.8"}],
Cell[36456, 868, 82, 1, 70, "Caption",
  CellTags->"S5.95.1"],
Cell[36541, 871, 4964, 152, 70, "Text",
  CellTags->{"S5.95.1", "1.9"}],
Cell[41508, 1025, 80, 1, 70, "MathCaption",
  CellTags->{"S5.95.1", "1.10"}],
Cell[41591, 1028, 102, 2, 70, "Input",
  CellTags->"S5.95.1"],
Cell[41696, 1032, 335, 9, 70, "MathCaption",
  CellTags->{"S5.95.1", "1.11"}],

Cell[CellGroupData[{
Cell[42056, 1045, 96, 2, 70, "Input",
  CellTags->"S5.95.1"],
Cell[42155, 1049, 105, 3, 70, "Output",
  CellTags->"S5.95.1"]
}, Open  ]],
Cell[42275, 1055, 204, 6, 70, "MathCaption",
  CellTags->{"S5.95.1", "1.12"}],

Cell[CellGroupData[{
Cell[42504, 1065, 79, 2, 70, "Input",
  CellTags->"S5.95.1"],
Cell[42586, 1069, 108, 3, 70, "Output",
  CellTags->"S5.95.1"]
}, Open  ]],
Cell[42709, 1075, 220, 6, 70, "MathCaption",
  CellTags->{"S5.95.1", "1.13"}],

Cell[CellGroupData[{
Cell[42954, 1085, 91, 2, 70, "Input",
  CellTags->"S5.95.1"],
Cell[43048, 1089, 107, 3, 70, "Output",
  CellTags->"S5.95.1"]
}, Open  ]],
Cell[43170, 1095, 112, 1, 70, "MathCaption",
  CellTags->{"S5.95.1", "1.14"}],

Cell[CellGroupData[{
Cell[43307, 1100, 93, 2, 70, "Input",
  CellTags->"S5.95.1"],
Cell[43403, 1104, 3681, 250, 70, 3607, 247, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False,
  CellTags->"S5.95.1"],
Cell[47087, 1356, 178, 5, 70, "Output",
  CellTags->"S5.95.1"]
}, Open  ]],
Cell[47280, 1364, 158, 4, 70, "MathCaption",
  CellTags->{"S5.95.1", "1.15"}],

Cell[CellGroupData[{
Cell[47463, 1372, 86, 2, 70, "Input",
  CellTags->"S5.95.1"],
Cell[47552, 1376, 192, 4, 70, "Output",
  CellTags->"S5.95.1"]
}, Open  ]]
}
]
*)




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

