Нумерация таблиц в Mathematica и Grid

Я новичок в математике. Я постараюсь сделать все возможное, чтобы написать его эффективно.

У меня есть два вопроса:

Q1: У меня есть три таблицы, которые дают мне значения как {x1,y1,z1} ,{x2,y2,z2}... Код приведен ниже:

    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}

Есть две проблемы с этим.

Во-первых, я получаю свои результаты в следующем формате {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}

Я попытался сделать отдельные таблицы для каждого набора координат и пронумеровать их, соответствующие каждому набору координат. Затем я попытался получить каждый из них в отдельных столбцах и соединить их, но все же мне это не удалось.

Вопрос 2: я хотел бы разделить значения, полученные из приведенных выше таблиц, в сетку, подобную приведенной ниже. Что-то вроде того, как мы все делаем в Excel, где все значения находятся в отдельных ячейках.

                 Number          X values  Y Values  Z values
                     1            x1        y1       z1
                     2            x2        y2       z2
                     .
                     .
                     n            xn        yn        zn