Seems to work

Preben Alsholm — Mon, 01 Nov 2010 22:31:35 Z

I tried this and it worked:

restart;
fd:=["F:/file1.m", "F:/file2.m"];

for i from 1 to nops(fd)
do
cat(var,i):=12345*i;
save cat(var,i),fd[i];
end do;

restart;
fd:=["F:/file1.m", "F:/file2.m"];
for i from 1 to nops(fd)
do
read fd[i];
end do;
seq(cat(var,i),i=1..nops(fd)): %;

Yep...that's it...

rtodd — Tue, 02 Nov 2010 15:35:42 Z

Thanks so much for the tip...it is basically the correct thing.

just as a note, I am working on a Mac and

for i from 1 to nops(fd)
do
cat(var,i):=12345*i;
save cat(var,i),fd[i];
end do;

didn't quite work...it told me I had an invalid save command.

however if I simply added

for i from 1 to nops(fd)
do
temp:=fd[i]:
cat(var,i):=12345*i;
save cat(var,i),temp;
end do;

it seemed to work fine.

Thanks again!!

MaplePrimes - answers and comments on Question, save varibles created in do loop to separate files.

Seems to work

Yep...that's it...