Define two two-state HMMs

First HMM

RowBox[{RowBox[{a1, , =, , RowBox[{{, RowBox[{RowBox[{{, RowBox[{0.9, ,, 0.1}], }}], ,, RowBox[{{, RowBox[{0.1, ,, 0.9}], }}]}], }}]}], ;, , a1 // TableForm}]

0.9 0.1
0.1 0.9

b1 = a1 ; b1 // TableForm

0.9 0.1
0.1 0.9

RowBox[{RowBox[{π1, =, RowBox[{{, RowBox[{0.5, ,, 0.5}], }}]}], ;, , π1 // TableForm}]

0.5
0.5

λ1 = {a1, b1, π1} ;

Second HMM

RowBox[{RowBox[{a2, =, RowBox[{{, RowBox[{RowBox[{{, RowBox[{0.1, ,, 0.9}], }}], ,, RowBox[{{, RowBox[{0.9, ,, 0.1}], }}]}], }}]}], ;, , a2 // TableForm}]

0.1 0.9
0.9 0.1

b2 = b1 ; π2 = π1 ;

λ2 = {a2, b2, π2} ;

Generate HMM diagrams

styles = {Red, Blue} ;

g1 = DrawHMM[a1, b1, HMMStyleSequential, AngularOffset->46 Degree, BendAngle ... ->False, ObservableStylestyles, FontSize18] ; gh1 = SubstituteValues[g1, a1] ;

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

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

g2 = DrawHMM[a2, b2, HMMStyleSequential, AngularOffset->46 Degree, BendAngle ... ->False, ObservableStylestyles, FontSize18] ; gh2 = SubstituteValues[g2, a2] ;

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

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

Visualize both HMMs

Show[GraphicsArray[{{gh1}, {gh2}}], ImageSize400] ;

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

Created by Mathematica  (October 20, 2003)