用Mathematica如何生成这类随机矩阵？求老师解答！

nfwh

Mathematica如何生成这类随机矩阵？
例如生成一个2行随机矩阵：
     1,1,1,2,2,3,3,3,3,4,4,4,4,4,5,5,5
     2,3,9,3,4,9,5,4,6,5,6,7,9,8,6,8,9
要求说明：
4 H* u9 ?! o" p3 }3 X& o& t" d) t    1、第一行由1至5的连续数组成，第一行每个数原地随机重复次数区间为(2,5)；
4 d* X: `0 m8 ]& W4 T    2、第二行由2至9的连续数组成，第二行每个数随机出现的次数区间为(1,4)；
' i5 ~5 ^5 Y& o7 [5 j% b    3、每个列中第二个元素大于第一个元素；   
8 S9 @3 U) q% n  J    4、任何两个列不能完全一样，如不能出现下面相等的列：                                                        
                                          2,2
) J( L7 T5 ?) P                                          4,4
" ^5 ]" X: ~( K$ p# v2 C谢谢！
4 L+ @- I, G; j% B
算法参考：
4 M1 w4 z. }/ q. o! a9 F" B7 I* [/ P     a,先生成第一行s1:
                           s1={{1,1,1},{2,2},{3,3,3,3},{4,4,4,4,4},{5,5,5}}
8 M4 H4 n  c" l$ P! X7 s4 E" \' o( n     b,再生成一个预备表s2,其中s2最小者可以比s1最小者大1,若s2个数太多可以把尾部数删除一些以保持与s1的个数相等:
                          s2={2,3,3,4,4,5,5,6,6,6,7,8,8,9,9,9,9}
    c, 现在可以从s2中随机抽取若干个数来生成第二行:
$ e/ t+ x3 v$ s/ D7 L, [, R& T. T    例如：s1中的小组{1,1,1}中有3个元素，因此首先从s2中随机抽取3个互不相等且大于1的数作为{1,1,1}所对应的第二行,
    s2中被抽取什么数就减少什么数。
5 X/ S5 J: V$ W+ r6 u                           {1,1,1}
/ t3 V0 P4 n! _: j. }                           {2,3,9}
          其余类推，直到s2中的数被抽完为止。
4 h- {& x' U7 @! V8 Q1 q谢谢！