A closer look: part #1(b)

Setup

Plot P(ω_i | θ, x_j) for sample point

Sample data point highlighted

 PlotExampleOne[xtst, em2 // Last, colors, gbase, 1, yS] ;

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

Corresponding  E[y_ij] = P(ω_i | θ, x_j) for sample point

 PlotExampleOne[#, em2 // Last, colors, gbase, 1, yS] & /@ xd ;

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

Global visualization

Computation

Visualization

ContourPlot[p1, {x, -1, 1}, {y, -1, 1}, PlotPoints25, FrameTicksNone, ColorFun ... #62754; (RGBColor @@ (# (List @@   colors[[1]]) + (1 - #) List @@ colors[[2]]) &)] ;

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


Created by Mathematica  (September 8, 2003)