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

真龍虎王

; S0 D# p2 K7 O; r0 Z% p' O; I6 [( w
原本题目:                                     新增
   NO              GO          TO            P
0 |- q' Y# v' \) ^    1                 0             1             7
! |5 j1 @" G: L9 _. n; \% \    2                 1             2             7
; f- Q) x/ j. Y    3                 1             4             1
" E+ O' b  f: k7 E    4                 2             3             6
1 U8 H, o/ r( |. \* _, D原程序:
NO=[1;2;3;4];
  ]  k( n8 T0 I! IGO=[0;1;1;2];
TO=[1;2;4;3];
k=zeros(length(NO),length(NO));
* p& n; E! B' V4 }) ~/ z; `a=sub2ind(size(k),NO,TO);
k(a)=-1;
for i=1:length(NO)
+ e0 G1 c1 h9 H. m8 W    s=i;
    while s>=2
        s=find(TO==GO(s));
        k(NO(s),(TO(i)))=-1;
; ]& z6 w- I5 m3 S0 U1 k/ }    end
2 w% W* ~5 K; z$ xend
答:
0 M9 E/ Z. a' d, @. W0 JK=                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
" Z7 q$ R8 j2 R9 v: e1 s/ f4 c                                   2       0   -1    -1    0
                                   3       0    0     0   -1
- a* _. S5 f, ~- n( x                                   4       0    0    -1    0 ]
& p. Q* P: O( H& L. e5 j& D6 \现在想改多看一个矩阵P    矩阵大小跟NO相同
8 k$ y8 ~+ p1 w9 Q: k如 P=[7;7;1;6]
  r; o1 B/ G9 V题目想改为
3 J) E. _/ \0 f6 Y看NO找TO值再看GO值时顺便看P值
, Q# x  b# P9 d) i7 g原本K是放入-1想改为当:

$ N1 p& y- X. \PS:只看NO找TO时找到的第一个P值如果GO不是0那下一个的P不使用
只用第一次找到的P
" y4 Q6 h. q( x) X/ R
P=7    -1改为放入[-1 0 0;0 -1 0;0 0 -1]
  =6    -1改为放入[-1 0 0;0 0 0;0 0 -1]
  =5    -1改为放入[0 0 0;0 -1 0;0 0 -1]
  =4    -1改为放入[-1 0 0;0 -1 0;0 0 0]
  C, e% \  L( i3 t3 t/ N% \  =3    -1改为放入[0 0 0;0 0 0;0 0 -1]
  =2    -1改为放入[0 0 0;0 -1 0;0 0 0]
3 ^2 r6 T- d$ ~& E  =1    -1改为放入[-1 0 0;0 0 0;0 0 0]

/ T3 V1 j2 U2 I# c' }) _3 d5 Q  h那原本的矩阵的零元素改為零3*3矩阵=[0 0 0;0 0 0;0 0 0]
目前卡关是卡在k矩阵大小是会因为P而变以及-1要改放入矩阵
1 u) }) q" _* \& R& r; O答案会是
) [$ D7 n0 d/ U( F-1   0   0    -1   0   0     -1   0   0     -1   0    0
0  -1   0     0  -1   0      0   0   0      0   0    0
) N5 n( H" h( o# n- _0 {6 E0   0  -1     0   0  -1      0   0  -1      0   0    0
" _9 x3 b% J$ [" m1 I
( c/ @8 r4 Y: J2 L0   0   0    -1   0   0     -1   0   0      0   0    0  
. c" n: o0 B7 `& o5 j$ d4 a0   0   0     0  -1   0      0   0   0      0   0    0
0   0   0     0   0  -1      0   0  -1      0   0    0
, F( k7 v. J0 D+ k/ Q; K
0   0   0     0   0   0      0   0   0      -1   0    0  
( |* H4 T) m" j0   0   0     0   0   0      0   0   0      0   0    0
0 ?* U- `( z$ b) R7 c0   0   0     0   0   0      0   0   0      0   0    0

0   0   0     0   0   0      -1   0   0      0   0    0  
0   0   0     0   0   0      0   0   0      0   0    0
0   0   0     0   0   0      0   0  -1      0   0    0