Generate data from two Gaussian classes

Definition of Gaussians

μ1 = {.3, .3} ; RowBox[{RowBox[{Σ1, , =, , RowBox[{.07, RowBox[{{, RowBox[{RowBox[{{, RowBox[{1., ,, -.5}], }}], ,, {-.5, .5}}], }}]}]}], ;}]

μ2 = {-.5, -.5} ; RowBox[{RowBox[{Σ2, , =, , RowBox[{.04, RowBox[{{, RowBox[{RowBox[{{, RowBox[{1., ,, -.5}], }}], ,, {-.5, .5}}], }}]}]}], ;}]

Number of points in each class

n1 = 100 ; n2 = 100 ;

Generate data

data1 = Table[rgBounded[{μ1, Σ1}, pr], {n1}] ; data2 = Table[rgBounded[{μ2, Σ2}, pr], {n2}] ;

Visualize data

gd1 = PlotData2D[data1, pr, style1, nS] ; gd2 = PlotData2D[data2, pr, style2, nS] ; gd = Show[gd1, gd2, FS] ;

[Graphics:../HTMLFiles/index_31.gif]

Created by Mathematica  (September 8, 2003)