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

真龍虎王

原本题目:                                     新增
' @9 Q  G% O+ w9 B   NO              GO          TO            P
' W2 Y2 w7 ]" d: e- A5 s    1                 0             1             7
; Q0 J$ _1 d7 H& T/ H/ {3 z. a6 H    2                 1             2             7
! }8 ^0 \9 q4 x$ X    3                 1             4             1
% c+ q7 C2 C4 Q5 C8 F3 M    4                 2             3             6
3 y& J9 d0 J! M, ?% u3 g7 i2 M原程序:
/ w# o5 B) i& _, mNO=[1;2;3;4];
GO=[0;1;1;2];
  P0 b% c* q& b6 K% |* ITO=[1;2;4;3];
3 P) q+ N& _1 o, S' T* L: ek=zeros(length(NO),length(NO));
a=sub2ind(size(k),NO,TO);
k(a)=-1;
+ P0 A8 ^  ~& z+ B4 r5 v0 ufor i=1:length(NO)
    s=i;
    while s>=2
: c8 O! N8 O8 V; O7 T5 X% j4 d        s=find(TO==GO(s));
! U. |# T7 F- o1 @% ~% t2 m9 j        k(NO(s),(TO(i)))=-1;
5 _* O7 t3 i+ ~- q5 g+ X    end
; z3 x+ E% P+ J& N2 V4 Gend
! l) A& F1 [+ ~. N0 i: F答:
K=                TO    =             1    2     3    4           =[-1 -1 -1 -1;0 -1 -1 0;0 0 0 -1;0 0 -1 0]
4 f7 h' m4 w( u            NO  [     ]         1   [  -1   -1    -1   -1
( D/ ]1 e: S) o/ Y* ?6 P% e                                   2       0   -1    -1    0
                                   3       0    0     0   -1
                                   4       0    0    -1    0 ]
- `% \4 t% Z/ p  k. j% V: T; A/ x现在想改多看一个矩阵P    矩阵大小跟NO相同
如 P=[7;7;1;6]
4 U7 X1 y% {9 S4 E6 s题目想改为
看NO找TO值再看GO值时顺便看P值
原本K是放入-1想改为当:
" S' j' n6 w' `. O
PS:只看NO找TO时找到的第一个P值如果GO不是0那下一个的P不使用
只用第一次找到的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    -1改为放入[0 0 0;0 -1 0;0 0 -1]
  =4    -1改为放入[-1 0 0;0 -1 0;0 0 0]
4 _8 L# D1 ]0 r( O$ @. x9 t6 h  |  =3    -1改为放入[0 0 0;0 0 0;0 0 -1]
% B5 I8 C( U8 E9 y  =2    -1改为放入[0 0 0;0 -1 0;0 0 0]
  =1    -1改为放入[-1 0 0;0 0 0;0 0 0]
' D2 p. w% f4 q; g; B
: p) l" o6 f2 _6 M6 `! Z那原本的矩阵的零元素改為零3*3矩阵=[0 0 0;0 0 0;0 0 0]
" P$ e+ b! T. C目前卡关是卡在k矩阵大小是会因为P而变以及-1要改放入矩阵
答案会是
+ R  d8 y3 k+ c1 _-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   0   0    -1   0   0     -1   0   0      0   0    0  
9 A) p- O/ k# t0   0   0     0  -1   0      0   0   0      0   0    0
' y. j+ {' m  `2 l  v0   0   0     0   0  -1      0   0  -1      0   0    0
: |* Q# t& G6 K" L  L
0   0   0     0   0   0      0   0   0      -1   0    0  
3 w# C7 E. X7 ~6 Z" V/ m0   0   0     0   0   0      0   0   0      0   0    0
  C. l4 t* |: @3 C2 `- b; U- S" L0   0   0     0   0   0      0   0   0      0   0    0
% Q+ ?7 p) n: h; [. u$ j2 x% l
2 c/ i2 O. D/ i1 y8 v7 ~0   0   0     0   0   0      -1   0   0      0   0    0  
5 z4 u( k6 G. E! e  a- \0   0   0     0   0   0      0   0   0      0   0    0
0   0   0     0   0   0      0   0  -1      0   0    0