Special data generation functions

withinRectangle[p_, r_] := <br />    Module[{rx1, ry1, rx2, ry2, x, y}, <b ... ry2, <br />            True, False]] ;

RowBox[{withinRegion2[p_], :=, <br />,     , RowBox[{If, [, <br />,   ... }], ]}]}], ,, <br />,         , True, ,,  , False}], ]}]}]

RowBox[{RowBox[{region1Data[n_], :=, <br />,     , RowBox[{Module, [, RowB ... ;  xd[[count ++]] = p]}]}], ]}], ;, <br />,     , xd}]}], ]}]}], ;}]

RowBox[{RowBox[{region2Data[n_], :=, <br />,         , ... ;  xd[[count ++]] = p]}]}], ]}], ;, <br />,     , xd}]}], ]}]}], ;}]

RowBox[{RowBox[{RR,  , :=,  , RowBox[{Random, [, RowBox[{Real, ,,  , RowBox[{{, RowBox[{0., ,,  , 1.}], }}]}], ]}]}], ;}]

TransformProbabilityVector[prob_] := <br />    Module[{s = 0, len}, <br /> ... nbsp;       Join[Table[s = s + prob[[i]], {i, 1, len}], {1}]] ;

PickOne[ priors_] := <br />    Module[{r}, <br />    & ... ; (Position[(r <= #) & /@ TransformProbabilityVector[priors], True] // Flatten) // First] ;

GenerateFromMixturePDF[{mu_, sigma_, priors_}] := <br />    Module[{k, d,  ... ss]], sigma[[class]] IdentityMatrix[d]]] <br />        ] ;

RowBox[{RowBox[{specialClassPlot,  , :=, RowBox[{Show, [, RowBox[{RowBox[{Graphics, [, RowBox[ ...  }}]}], }}], ]}], ,,  , AspectRatio->Automatic, ,,  , FrameTrue, ,,  , nF}], ]}]}], ;}]


Created by Mathematica  (September 8, 2003)