Mathematica は初めてです。効率よく書けるように頑張ります。
2 つの質問があります。
Q1: {x1,y1,z1} ,{x2,y2,z2} として値を与える 3 つのテーブルがあります...コードは以下のとおりです。
Table[Table[Table[ {xcord, ycord, zcord},
{xcord, 0, 50, 5}],
{ycord, 0, 50,5}],
{zcord, 50, 150, 10}]
今、私はこのような出力が必要です
{1,x1,y1,z1}
{2,x2,y2,z2}
{3,x3,y3,z3}
.
.
{n,xn,yn,zn}
これには 2 つの問題があります。
まず、結果を {x1,y1,z1},{x2,y2,z2} .... {xn,yn,zn} のようにフォーマットしますが、次のようにフォーマットします。
{x1,y1,z1}
{x2,y2,z2}
{x3,y3,z3}
.
.
{xn,yn,zn}
第二に、要素の各セットの前に数字を追加して、要素の各セットに番号を付けることはできません
{1,x1,y1,z1}
{2,x2,y2,z2}
{3,x3,y3,z3}
.
.
{n,xn,yn,zn}
座標のセットごとに個別のテーブルを作成し、座標の各セットに対応する番号を付けようとしました。次に、それぞれを別々の列に入れて結合しようとしましたが、まだ成功していません。
Q2: 上記の表から得られた値を、下のようなグリッド システムに分離したいと考えています。すべての値が個別のセルに存在する Excel で行う方法のようなものです。
Number X values Y Values Z values
1 x1 y1 z1
2 x2 y2 z2
.
.
n xn yn zn