Mathematica 如何生成这种矩阵?

问题描述:

Mathematica 如何生成这种矩阵?
如何生成这种随机矩阵?
如何生成m*n的随机矩阵,使矩阵中每个元素为0或1或-1,且每列中有k1个1,k2个-1,其中m,n,k1,k2是整数.

k1 = 2; k2 = 3; m = 8; n = 4; c =
Join[ConstantArray[1,k1],ConstantArray[-1,k2],
ConstantArray[0,m - k2 - k1]];
Transpose@Table[RandomSample[c],{n}](*//MatrixForm*)