急求帮改程序将矩阵原本的常数改为3*3矩阵元素(P只看第一個,P有誤已更正)

真龍虎王

原本题目:                                     新增
5 L: A, M# r. V) C+ L& Y, [   NO              GO          TO            P
( v( ^5 ]/ @5 U3 ^" F, \    1                 0             1             7
    2                 1             2             7
    3                 1             4             1
    4                 2             3             6
. B% T; g+ p$ [) ?7 Y原程序:
NO=[1;2;3;4];
' o2 ^$ z9 I/ J4 x- i9 qGO=[0;1;1;2];
" a: K2 Y! i$ F) M, ZTO=[1;2;4;3];
k=zeros(length(NO),length(NO));
+ M, z" f+ @6 }. Q; T' c. h/ aa=sub2ind(size(k),NO,TO);
. q, o' k6 x: _1 qk(a)=-1;
" X$ A. T+ t8 M3 h* ofor i=1:length(NO)
& R; P; L8 A! _4 L1 i    s=i;
    while s>=2
        s=find(TO==GO(s));
        k(NO(s),(TO(i)))=-1;
    end
end
+ m, f0 w0 E) \# F3 _答:
K=                TO    =             1    2     3    4           =[-1 -1 -1 -1;0 -1 -1 0;0 0 0 -1;0 0 -1 0]
            NO  [     ]         1   [  -1   -1    -1   -1
7 D9 g4 f8 Y: x% |" t, h! m                                   2       0   -1    -1    0
, z8 N; L7 P3 m# l; G5 Q                                   3       0    0     0   -1
                                   4       0    0    -1    0 ]
现在想改多看一个矩阵P    矩阵大小跟NO相同
如 P=[7;7;1;6]
. e' ~- ^8 |: Y" E2 `# {题目想改为
看NO找TO值再看GO值时顺便看P值
7 p9 v  q( v3 j2 M原本K是放入-1想改为当:

. f7 ~6 ^: |# p9 @# ?. PPS:只看NO找TO时找到的第一个P值如果GO不是0那下一个的P不使用
" N, d# r% s+ h7 y4 o只用第一次找到的P

P=7    -1改为放入[-1 0 0;0 -1 0;0 0 -1]
  =6    -1改为放入[-1 0 0;0 0 0;0 0 -1]
) {5 c2 o# @: u5 X( X4 T, R* X$ h  =5    -1改为放入[0 0 0;0 -1 0;0 0 -1]
  =4    -1改为放入[-1 0 0;0 -1 0;0 0 0]
  =3    -1改为放入[0 0 0;0 0 0;0 0 -1]
0 L8 m2 W  v( l4 |  =2    -1改为放入[0 0 0;0 -1 0;0 0 0]
. B; t; ]; _7 t6 S: E1 r% @  =1    -1改为放入[-1 0 0;0 0 0;0 0 0]
4 ~/ P3 d2 h/ ?, d% R
# ?/ b8 r0 {3 s; v: E那原本的矩阵的零元素改為零3*3矩阵=[0 0 0;0 0 0;0 0 0]
; z1 {  E4 h" @, r' M目前卡关是卡在k矩阵大小是会因为P而变以及-1要改放入矩阵
答案会是
-1   0   0    -1   0   0     -1   0   0     -1   0    0
0  -1   0     0  -1   0      0   0   0      0   0    0
0   0  -1     0   0  -1      0   0  -1      0   0    0
0 r0 l. p% i' o* X7 o- I
3 u% c6 o% T+ t, z7 D; g0   0   0    -1   0   0     -1   0   0      0   0    0  
0   0   0     0  -1   0      0   0   0      0   0    0
0   0   0     0   0  -1      0   0  -1      0   0    0

0   0   0     0   0   0      0   0   0      -1   0    0  
5 h1 Z: }2 O6 j* e' a& @0   0   0     0   0   0      0   0   0      0   0    0
- R& G  h6 g$ w) r  L0   0   0     0   0   0      0   0   0      0   0    0
  G3 O8 j8 z# O% }& E
3 _* U$ [1 c: \0   0   0     0   0   0      -1   0   0      0   0    0  
1 l# t0 l9 U' e4 V' V0   0   0     0   0   0      0   0   0      0   0    0
0   0   0     0   0   0      0   0  -1      0   0    0