В чём проблема-то? Это азы работы со списками.
Давайте с самого начала, по шагам. Не выходя из
Mathematica, создадим таблицу.
file = {{"a", "b", "c", "d", "e", "f", "g"}, {1, 2, 3, 4, 5, 6, 7}, {8, 9, 10, 11, 12, 13, 14}};Экспортируем её в CSV-файл на диск (разделителем будет запятая).
Export["D:/1.csv", file];Импортируем обратно в
Mathematica (делая вид, что это не мы её только что создали ;-) Зная, что первая строка нам не нужна, избавимся от неё заранее.
data = Import["D:/1.csv"][[2;;]]Наконец, используя гибкий синтаксис
Part (она же
[[]]), запишем в переменную
x шестой столбец, а в переменную
m — седьмой.
{x, m} = {data[[;; , 6]], data[[;; , 7]]}(На самом деле, последнюю строку можно сократить, но я смотрю матч сборной Италии и мне лень думать, уж простите).
Изучайте
этот и
этот разделы справки.