Mathematica 9 の学習を開始します。最初の列が行列「A」で、2 番目、3 番目、4 番目の列が行列「B」である、数値の範囲の順列で nx4 行列「m」を作成する必要があります。さらに、最初の行を除外する必要があります。誰でも私を助けることができますか?
`t = 2; a = Range[0, t]; b = Range[0, t]; c = Range[0, t];
{A = MatrixForm[
1/Sqrt[Flatten[
Table[a^2 + b^2 + c^2, {a, 0, t, 1}, {b, 0, t, 1}, {c, 0, t,
1}]]]],
B = MatrixForm[Tuples[{a, b, c}]]}`
私はこのようなものが必要です:
List[List[0, 0, 1, 1], List[0, 0, 2, Rational[1, 4]],
List[0, 1, 0, 1], List[0, 1, 1, Rational[1, 2]],
List[0, 1, 2, Rational[1, 5]], List[0, 2, 0, Rational[1, 4]],
List[0, 2, 1, Rational[1, 5]], List[0, 2, 2, \[Placeholder]],
List[1, 0, 0, \[Placeholder]], List[1, 0, 1, \[Placeholder]],
List[1, 0, 2, \[Placeholder]], List[1, 1, 0, \[Placeholder]],
List[1, 1, 1, \[Placeholder]], List[1, 1, 2, \[Placeholder]],
List[1, 2, 0, \[Placeholder]], List[1, 2, 1, \[Placeholder]],
List[1, 2, 2, \[Placeholder]], List[2, 0, 0, \[Placeholder]],
List[2, 0, 1, \[Placeholder]], List[2, 0, 2, \[Placeholder]],
List[2, 1, 0, \[Placeholder]], List[2, 1, 1, \[Placeholder]],
List[2, 1, 2, \[Placeholder]], List[2, 2, 0, \[Placeholder]],
List[2, 2, 1, \[Placeholder]], List[2, 2, 2, \[Placeholder]]]
これがMathCadで作ったMathematicaでやりたいこと