(*by Nasser M. Abbasi*) Manipulate[ A = {{.4, .3, .3}, {.2, .6, .2}, {.1, .1, .8}}; GraphicsGrid[ { {MatrixForm[A]^n, Graphics[Text[Style[MatrixForm[MatrixPower[A, n]], 12]], ImageSize -> 200]} }, Frame -> All, Spacings -> 0], {{n, 1, "Power of Matrix="}, 1, 30, 1, AppearanceElements -> All, ContinuousAction -> False} ]