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

真龍虎王

- b& |, a: R! P+ S5 w9 `$ f8 {原本题目:                                     新增
4 K" Y. M, a0 z   NO              GO          TO            P
/ a9 ]7 M; r! B, ]/ f    1                 0             1             7
    2                 1             2             7
7 P. p; b, \3 U2 S. K    3                 1             4             1
* L2 y; o0 U9 S5 s    4                 2             3             6
原程序:
NO=[1;2;3;4];
8 |, W6 E# X; W8 |: Y. RGO=[0;1;1;2];
- C7 K+ w8 k* b. z2 JTO=[1;2;4;3];
k=zeros(length(NO),length(NO));
a=sub2ind(size(k),NO,TO);
$ G- U' |/ p3 h, O8 m) K4 c3 j- Tk(a)=-1;
for i=1:length(NO)
    s=i;
2 d7 s+ |7 E; W/ f+ i( G0 Y$ `3 D    while s>=2
; g9 R5 ?, G0 X& f+ d        s=find(TO==GO(s));
        k(NO(s),(TO(i)))=-1;
    end
+ c* D) K. U( e- G5 u1 Nend
答:
, l/ B% v, g7 u7 i: e+ e7 G& k: QK=                TO    =             1    2     3    4           =[-1 -1 -1 -1;0 -1 -1 0;0 0 0 -1;0 0 -1 0]
4 {/ J5 B/ p1 ?  `$ G0 i            NO  [     ]         1   [  -1   -1    -1   -1
: C: B" C' k- H7 i& r                                   2       0   -1    -1    0
                                   3       0    0     0   -1
                                   4       0    0    -1    0 ]
; m; ^  g2 B, i" Z9 Z- [0 f现在想改多看一个矩阵P    矩阵大小跟NO相同
6 `1 \: B! n+ q2 I3 S' ?如 P=[7;7;1;6]
题目想改为
看NO找TO值再看GO值时顺便看P值
% t: n# O* ]* V原本K是放入-1想改为当:
6 n5 c$ `) w1 ?8 S- P* E$ m. i& c
PS:只看NO找TO时找到的第一个P值如果GO不是0那下一个的P不使用
5 f% {* t! R' Z) V  G( L2 E只用第一次找到的P

& G7 J9 E7 k6 M) O! s8 VP=7    -1改为放入[-1 0 0;0 -1 0;0 0 -1]
  =6    -1改为放入[-1 0 0;0 0 0;0 0 -1]
& F/ n6 E6 W2 o9 [3 b# a  =5    -1改为放入[0 0 0;0 -1 0;0 0 -1]
( K8 I& J: q( ^% l0 l  =4    -1改为放入[-1 0 0;0 -1 0;0 0 0]
% X+ }% `2 c8 A! q! S2 J  =3    -1改为放入[0 0 0;0 0 0;0 0 -1]
  =2    -1改为放入[0 0 0;0 -1 0;0 0 0]
  =1    -1改为放入[-1 0 0;0 0 0;0 0 0]
9 J) ?6 D6 |5 u6 K  C
那原本的矩阵的零元素改為零3*3矩阵=[0 0 0;0 0 0;0 0 0]
' {* q9 K7 Y' ^& z* c目前卡关是卡在k矩阵大小是会因为P而变以及-1要改放入矩阵
答案会是
/ A3 Y. f' J6 g. v0 d5 h* p-1   0   0    -1   0   0     -1   0   0     -1   0    0
) P8 W! g3 y+ P3 h2 d& k0  -1   0     0  -1   0      0   0   0      0   0    0
; f7 g& b, d9 ^" f( X& d, C& |2 A0   0  -1     0   0  -1      0   0  -1      0   0    0

' n% l6 f" b* A- R4 o3 k) {2 v0   0   0    -1   0   0     -1   0   0      0   0    0  
4 s: A! D$ T8 z! U# s4 u0   0   0     0  -1   0      0   0   0      0   0    0
5 d5 R, N/ N; M4 l/ ]9 d) r9 z/ A0   0   0     0   0  -1      0   0  -1      0   0    0
) b* ^( Z1 O' z1 z
6 z! W# ~- ~* s  z0   0   0     0   0   0      0   0   0      -1   0    0  
) z1 `& K6 y3 Y7 n! ~0   0   0     0   0   0      0   0   0      0   0    0
0   0   0     0   0   0      0   0   0      0   0    0
; l3 D" {) P- {% l9 D! e9 Q
; e3 D* r1 ~* X8 M1 O0   0   0     0   0   0      -1   0   0      0   0    0  
: p3 X; n& u! S% ]" t0   0   0     0   0   0      0   0   0      0   0    0
: D) y2 j% ~$ J5 ?4 H: p' R0   0   0     0   0   0      0   0  -1      0   0    0