e0413.m

来自「《MATLAB 7.X程序设计》-王建卫-源代码及习题答案」· M 代码 · 共 7 行

n=input('please input the order of magic matrix')
a=magic(n);
diag(a)% 提取a的主对角线
for ii=1:n-1
    diag(a,ii) % 提取a的主对角线上方的次对角线
    diag(a,-ii) % 提取a的主对角线下方的次对角线
end