mathematicaによるシミュレーション教えてください
■ このスレッドは過去ログ倉庫に格納されています
0056Mathematica愛好家
NGNGIn:=
f = {{1}, {1, 2}, {1, 2, 3}, {1, 2}};
myOuter[l_, {s__}] := Outer[l, s];
myOuter[List, f]
Out:=
{{{{{1, 1, 1, 1}, {1, 1, 1, 2}}, {{1, 1, 2, 1}, {1, 1, 2, 2}}, {{1, 1, 3,
1}, {1, 1, 3, 2}}}, {{{1, 2, 1, 1}, {1, 2, 1, 2}}, {{1, 2, 2,
1}, {1, 2, 2, 2}}, {{1, 2, 3, 1}, {1, 2, 3, 2}}}}}
これででます。Mathematicaのユーザー会のメーリングリスト参照
■ このスレッドは過去ログ倉庫に格納されています