R函数创建带状矩阵

R函数创建带状矩阵