Generate classification data

pts = 150 ; RowBox[{RowBox[{reg1, , =, RowBox[{MixtureLikelihoodMatrix, [, RowBox[{RowBox[{{, ... ix, [, RowBox[{RowBox[{{, RowBox[{0., ,, 1., ,, 0., ,, 1.}], }}], ,, pts, ,, model2}], ]}]}], ;}]

class = Partition[If[#[[1]] < #[[2]], 1, 0] & /@ ({Flatten[reg1], Flatten[reg2]} // Tra ... r[0, 0, #], RGBColor[1, 0, #]] &), Mesh->False, MeshRange-> {{0, 1}, {0, 1}}, nF, nS] ;

g1 = drawPolygonalRegion[poly, {{0, 1}, {0, 1}}, Red, nF, nS] ; g2 = drawAntiPolygonalRegion[poly, {{0, 1}, {0, 1}}, Blue, nF, nS] ; idealPlot = Show[g2, g1] ;

Created by Mathematica  (September 8, 2003)