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

真龍虎王

原本题目:                                     新增
) o; }$ y" _( C- r$ s; {   NO              GO          TO            P
: v+ O- ~4 b: s* g, k6 t( {& w3 D    1                 0             1             7
    2                 1             2             7
    3                 1             4             1
    4                 2             3             6
原程序:
NO=[1;2;3;4];
8 T. w4 m. m% Z* B+ ^GO=[0;1;1;2];
TO=[1;2;4;3];
, p' b' Y- |  U% z! h) }k=zeros(length(NO),length(NO));
a=sub2ind(size(k),NO,TO);
k(a)=-1;
+ w% f1 T2 p9 N% S0 B- W2 vfor i=1:length(NO)
    s=i;
    while s>=2
        s=find(TO==GO(s));
" s. k; y, n2 o! {8 [0 c* Q( t        k(NO(s),(TO(i)))=-1;
# E, y8 W$ j3 e# r2 O    end
end
答:
K=                TO    =             1    2     3    4           =[-1 -1 -1 -1;0 -1 -1 0;0 0 0 -1;0 0 -1 0]
6 d& k: O4 ]) S3 y: y! W; k            NO  [     ]         1   [  -1   -1    -1   -1
                                   2       0   -1    -1    0
                                   3       0    0     0   -1
* ^$ f) K+ y5 k" _# e1 y                                   4       0    0    -1    0 ]
现在想改多看一个矩阵P    矩阵大小跟NO相同
( J1 _( s/ O. |$ A8 I8 V如 P=[7;7;1;6]
1 q" N6 e4 A# E$ v# Q6 k2 D5 z- }, e题目想改为
" h" v& x; ^8 }7 r- V: D+ i看NO找TO值再看GO值时顺便看P值
$ m7 N# |. n5 a) ?8 q原本K是放入-1想改为当:

  Y) Z* D  P; }% XPS:只看NO找TO时找到的第一个P值如果GO不是0那下一个的P不使用
只用第一次找到的P
: U  c, \/ l0 v2 O) t- E$ A( j* r
P=7    -1改为放入[-1 0 0;0 -1 0;0 0 -1]
- }/ B0 I! |1 f: S, ?6 K  =6    -1改为放入[-1 0 0;0 0 0;0 0 -1]
0 l. D' U5 u: D7 q  =5    -1改为放入[0 0 0;0 -1 0;0 0 -1]
3 m" l$ T# w/ `9 {+ Y  =4    -1改为放入[-1 0 0;0 -1 0;0 0 0]
2 c! E0 j( o8 A6 _$ O. R  =3    -1改为放入[0 0 0;0 0 0;0 0 -1]
3 @0 @/ ~. E2 ^" j. r5 T  =2    -1改为放入[0 0 0;0 -1 0;0 0 0]
  S( y" v2 j7 ?% r( z  =1    -1改为放入[-1 0 0;0 0 0;0 0 0]
" U" J+ N0 _0 W7 e* |. A. b
那原本的矩阵的零元素改為零3*3矩阵=[0 0 0;0 0 0;0 0 0]
% @% Z2 P  a% M( S6 p4 J: B& z目前卡关是卡在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
  x6 o1 I  X+ e. E0   0  -1     0   0  -1      0   0  -1      0   0    0
! I9 i) t2 o0 n1 g, v. ]1 H
0   0   0    -1   0   0     -1   0   0      0   0    0  
0   0   0     0  -1   0      0   0   0      0   0    0
+ a8 o2 U# |0 S% I. S0   0   0     0   0  -1      0   0  -1      0   0    0
0 w! z7 p0 S/ M/ R& i6 y
& p9 g+ i7 K- E- z* M* J* e0   0   0     0   0   0      0   0   0      -1   0    0  
0   0   0     0   0   0      0   0   0      0   0    0
3 C8 D' `6 g9 Z" G8 ?& p) g0   0   0     0   0   0      0   0   0      0   0    0
/ Y! G- h  M4 Z5 a2 Y. U& l/ T: O$ Z
/ _7 ?! a- i* X2 ~6 x0   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