MaplePrimes - answers and comments on Question, Huge expression one term by line into archive.txt

op

Preben Alsholm — Tue, 05 Feb 2013 20:55:31 Z

If your expression is called w (you cannot assign to Easr3Vc*s2) and it is a sum of terms, then to inspect these terms it seems easiest to do a loop like this:

for i to nops(w) do op(i,w) end do;

To write these lines to a file you could do

M:=Matrix();
for i to nops(w) do M(i,1):=op(i,w) end do:
M[3,1];
#or simpler:
M:=Matrix(nops(w),1,(i,j)->op(i,w));

ExportMatrix("G:/MapleDiverse/MaplePrimes/archive.txt",M);

To retrieve w (in Maple):

restart;
A:=ImportMatrix("G:/MapleDiverse/MaplePrimes/archive.txt");
add(A[i,1],i=1..numelems(A));

my terms separated by lines, like my example

trottaleonardo — Tue, 05 Feb 2013 23:09:17 Z

my terms separated by lines, like my example above.

Extra blank lines with fprintf

Carl Love — Wed, 06 Feb 2013 02:07:11 Z

I let expr represent your large expression. Then do

fd:= FileTools:-Text:-Open("C:/Users/Carl/desktop/archive.txt"):
seq(fprintf(fd, "%a\n\n", term), term in expr):
fclose(fd);

Done! =]

trottaleonardo — Wed, 06 Feb 2013 02:35:27 Z

Thnx a lot for your attention I just realize an easy way to fix this problem. I did:

E:=convert(Z,list):
F:=convert(E,Vector):
ExportVector("/home/demac/archive2.txt",F):

And done; Thank you a lot. =]

fprintf /seq

roman_pearce — Wed, 06 Feb 2013 06:46:18 Z

f := randpoly([x,y,z]); # expression

fn := "filename.txt": seq(fprintf(fn,"%a\n",i), i=f): fclose(fn):

Didn't go very well...

trottaleonardo — Tue, 05 Feb 2013 23:08:21 Z

Op, Thnx for the help but that hint didn't worked very well here, i got the terms in archive.txt separated in two lines.

I tried this:

E:=convert(Z,list):
F:=convert(E,Matrix):
ExportMatrix("/home/demac/archive2.txt",F):

And I got terms separated by spaces, just wanna realize what i have to do to have my terms separated by lines, like my example above.

PS: I am on ubuntu 11.10 and Maple 13.