2

I am a new Mathematica user, I am attempting to use ArrayFlatten but it seems not to work in this case. My codes are below,

w = IntegerPartitions[10, {3}]
x = Permutations[{a, b, c}, {3}]
simlength = Length[x]
simp = Transpose@w[[1 ;;]] x[[#]] & /@ Range[1, simlength, 1]
simp//MatrixForm

then I use

ArrayFlatten[...Outputfromprevioushere...]//MatrixForm

ArrayFlatten seems to have no effect at all. Is there anything I might be missing? Thanks a lot

Rob
  • 23
  • 4

1 Answers1

2
Transpose[ArrayFlatten[{simp}]] // MatrixForm

gives

Mathematica graphics

kglr
  • 394,356
  • 18
  • 477
  • 896