0001
0002
0003
0004
0005 j = 1;
0006 Q = P;
0007 Q(:,j) = P(:,j)*0;
0008
0009 F = P(:,j);
0010 H = F;
0011
0012 for k=1:21,
0013 F = Q*F;
0014 H = [H F];
0015 end
0016
0017 fprintf('Values of H(i,k), the probability, starting at i, of hitting state %d at time k\n', j);
0018
0019 for k = 1:length(H(1,:)),
0020 fprintf(' %2d ', k);
0021 end
0022 fprintf('\n');
0023
0024 showmatrix(H);
0025
0026
0027 F = P(:,j);
0028 A = F;
0029
0030 for k=1:5000,
0031 F = Q*F;
0032 A = A + F;
0033 end
0034
0035 fprintf('The row sum, the probability, starting at i, of ever hitting state %d\n', j);
0036
0037 showmatrix(A);
0038
0039