CtMarkovChain[Q_] := Module[{n=Length[Q],EE,ee}, EE=Table[1,{n},{n}]; ee=Table[1,{n}]; Return[ee.Inverse[Q+EE]//Chop]]