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

百年孤独

11、如果A(r,c)出现在等号的左边，并且用(r,c)声明的一个或者多个元素并不存在，就根据需要将A扩展，并将扩展位置上的元素置为0，这样就使得A(r,c)均指向已知元素，但是，如果数组A出现在等号右边，那么A(r,c)所指向的所有元素都必须存在，否则就返回一个出错信息。
简而言之，A(r,c)出现在等号左边时，若该值存在，则输出，若该值不存在，则赋值为0；
A(r,c)出现在等号右边时，若该值存在，则赋值，若该值不存在，则报错；
! w9 y2 n( d8 }9 B5 X( b12、D(4:end,5:end)=[]会报错，因为这个区域不是拐角形状，而是这个矩阵的右下角；
可以用D(4:end,5:end)=1很明显的看出来：
0 Q7 S* M0 h) t( p# zD =

1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
$ j  x  {9 z. m0 2 0 0 0 0 0 0 0 0 0 0 0 0 0
3 }2 H" J& U! ^5 |! a0 0 3 0 0 0 0 0 0 0 0 0 0 0 0
, [& d$ O/ A$ @0 ?' `5 m5 `0 0 0 4 1 1 1 1 1 1 1 1 1 1 1
; U0 `) x% O1 T, j3 Z; h0 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
- r5 B. s. x$ {% n3 e( e0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
) v/ k& r7 `/ Q3 L0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
- i! J; B$ y* n' L0 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
, N: i+ X# @& M8 z* Z0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
  K# @; j- o( A5 M) K$ J# N0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
8 F8 j9 c( f  t( p; g$ t0 0 0 0 1 1 1 1 1 1 1 1 1 1 1
- v9 a- c7 _: |( ~! {/ f7 ^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
而如果想要只保留矩阵的左上角的部分，正确的删除命令如下：
. H4 B6 X6 f! P: `D(4:end,=[],D(:,5:end)=[]
3 I7 }0 M6 P0 Y! M1 M  _2 P7 q我们可以用D(4:end,=1,D(:,5:end)=1将删去的部分显而易见的标示出来：
0 k0 \( h+ z2 C6 B" eD =
: |2 M2 a, e- |6 I( j. ?0 |5 p
2 y% g) V2 Q. q) L( W" H1 0 0 0 1 1 1 1 1 1 1 1 1 1 1
" s5 ^) a* [- Z( m1 J  C2 R0 2 0 0 1 1 1 1 1 1 1 1 1 1 1
( C4 C. B6 q8 e0 0 3 0 1 1 1 1 1 1 1 1 1 1 1
+ H7 x' ^9 P. B1 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
8 S" Z  M# O+ M8 ?, B1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
* t& E* s1 b0 G! a' B  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
9 }# a6 b$ s: n/ {- r1 e# B1 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
: U+ r6 Q3 g! f0 y, ^" Y( N- L3 V1 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
13、插入行或列，要注意反向依次调用数据的时候，步长为-1
a=[1:15]
B=diag(a)
9 u8 z" s2 Y% oB(:,7)=[]
3 B# y, B* I8 r9 }5 NB(:,end+1:-1:7)=B(:,end:-1:6)
B(:,7)=0,B(7,7)=7
% x/ D& ?: j" w- r. u
% Q* q6 j  a+ Q7 ]; A