mathematica 中如何定义动态任意阶矩阵,f[n_]= i=1,a[i,j]=1;i=j&&i>1,a[i,j]