Advanced Search

Question: There must be a more concise way to use fprintf

Question:There must be a more concise way to use fprintf

brian abraham 634 Maple
August 07 2007
0
I am writing a large number of variables to file to load into excel - it all works fine - with the code below. But there just has to be a neater way to do it. Can anyone help?
fd:=fopen(writefile,'WRITE','TEXT');
> for t from 1 to nops(files) by 1 do
> fprintf(fd
> ,"%a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t %a\t \n"
> ,([Par_M[t,1],Par_M[t,2],Par_M[t,3],Par_M[t,4],Par_M[t,5]
> ,Par_M[t,6],Par_M[t,7],Par_M[t,8],Par_M[t,9],Par_M[t,10] ,Par_M[t,11],Par_M[t,12],Par_M[t,13],Par_M[t,14],Par_M[t,15]
> ,Par_M[t,16],Par_M[t,17],Par_M[t,18],Par_M[t,19],Par_M[t,20]
> ,Par_M[t,21],Par_M[t,22],Par_M[t,23],Par_M[t,24],Par_M[t,25]
> ,Par_M[t,26],Par_M[t,27],Par_M[t,28],Par_M[t,29],Par_M[t,30]
> ,Par_M[t,31],Par_M[t,32],Par_M[t,33],Par_M[t,34],Par_M[t,35]
> ,Par_M[t,36],Par_M[t,37],Par_M[t,38],Par_M[t,39],Par_M[t,40]
> ,Par_M[t,41],Par_M[t,42],Par_M[t,43],Par_M[t,44],Par_M[t,45]
> ,Par_M[t,46],Par_M[t,47],Par_M[t,48],Par_M[t,49],Par_M[t,50]
> ,Par_M[t,51],Par_M[t,52],Par_M[t,53],Par_M[t,54]])
> [])
> end do;
Please Wait...