数学建模十类经典算法(6)

百年孤独

11、如果A(r,c)出现在等号的左边，并且用(r,c)声明的一个或者多个元素并不存在，就根据需要将A扩展，并将扩展位置上的元素置为0，这样就使得A(r,c)均指向已知元素，但是，如果数组A出现在等号右边，那么A(r,c)所指向的所有元素都必须存在，否则就返回一个出错信息。
简而言之，A(r,c)出现在等号左边时，若该值存在，则输出，若该值不存在，则赋值为0；
& u# D+ N2 f: x" y3 C4 kA(r,c)出现在等号右边时，若该值存在，则赋值，若该值不存在，则报错；
! x. [" G2 }% y12、D(4:end,5:end)=[]会报错，因为这个区域不是拐角形状，而是这个矩阵的右下角；
可以用D(4:end,5:end)=1很明显的看出来：
+ p3 T8 q! v' E. B/ {6 y( X- OD =

4 F+ R! W7 K4 @* {: S1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0 0 0 0 0 0 0
1 _: S5 p' W. I8 |0 0 3 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 4 1 1 1 1 1 1 1 1 1 1 1
. K# d' T" ~. q/ q4 \8 ^, n0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
0 s' z0 T& O& N: `5 v0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
1 d. ?, N8 \& n) A/ _  g0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
1 e1 A1 m% N7 a) u6 g- V$ f* @1 C0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
% m6 Q( ?8 E: X$ Z- C7 ~0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
! E) m1 Z* v  b7 v. z  t" Z0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
而如果想要只保留矩阵的左上角的部分，正确的删除命令如下：
" \, J0 A) V8 }0 v! oD(4:end,=[],D(:,5:end)=[]
我们可以用D(4:end,=1,D(:,5:end)=1将删去的部分显而易见的标示出来：
D =
( Y* d! e/ ]5 E# B0 y. e
8 f. |: p; o/ A0 F5 D7 R1 0 0 0 1 1 1 1 1 1 1 1 1 1 1
- U1 c3 U# X) j/ @/ W. U4 p0 2 0 0 1 1 1 1 1 1 1 1 1 1 1
7 |8 ^! N5 X- ]5 u5 G2 F$ r$ V) r0 0 3 0 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
7 l0 p- A2 @. a- g+ a+ R/ i% L% s1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
( ^2 g, h; M$ p. r$ a5 r- i+ a1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
) t+ ~( J) T+ x) ^$ L& f  ]1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
6 ~  t% Q4 v2 p# w( P6 ]/ L# @13、插入行或列，要注意反向依次调用数据的时候，步长为-1
a=[1:15]
; o8 k" I& m& N2 D$ p- M% wB=diag(a)
5 T9 _  R# \, MB(:,7)=[]
, P/ |2 c$ F" pB(:,end+1:-1:7)=B(:,end:-1:6)
4 K2 ^" G1 u3 j0 `& q2 I  b* TB(:,7)=0,B(7,7)=7

6 Q) x0 W/ y& ?7 f; C! `  \