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