Нечего велосипеды изобретать:
http://reference.wolfram.com/mathematic ... sheet.htmlВам нужно написать примерно такое:
Код:
m = {a1, a2, a3};
Export["file.xls", Transpose[m]]
Чтобы записывать, начиная с B2, а не A1, надо добавить либо "", либо Null (что конкретно — не имею понятия, сейчас не могу опыт провести, систему переустанавливал недавно) в экспортируемую матрицу в нужных местах (одну верхнюю строку и один левый столбец) примерно так (если не ошибаюсь):
Код:
m = {Table[Null, {Length[a1]}], a1, a2, a3};
Export["file.xls",
Prepend[m,
Table[Null, Length[m]]
] // Transpose
]
Хотя можно и руками уже в Excel таскать блок.
-- Ср мар 16, 2011 02:46:28 --Не забывайте, что в Mathematica строки в стиле C, и разделитель папок в пути файла не
\, а
\\.