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}
]