Message Boards Message Boards

GROUPS:
Mathematics
Teoman Ozturk

writing data to a file from loop

Teoman Ozturk
Posted 10 years ago
6135 Views
|
4 Replies
|
3 Total Likes
|
Hello Everyone,
I have just started to learn Mathematica. I am trying to writing data to a file from loop like this:
calc1 := For[i = 1, i < 6, i++, Print[Integrate[i*x^2, {x, 0, 1}]]]
a1 = OpenWrite["calc.dat", FormatType -> OutputForm]
Write[a1, calc1]
Close[a1]

It doesn't work. Can you help me please? Thanks.

Teoman
POSTED BY: Teoman Ozturk
4 Replies
Sort By:
Teoman Ozturk
Teoman Ozturk
Posted 10 years ago
thank yo very much dear C ormullion.  But is it possible write the results on the screen and to a file?
POSTED BY: Teoman Ozturk
This is one possibility: use a function to print each value and write each value one element at a time:
a1 = OpenWrite["calc2.dat", FormatType -> OutputForm];
data = Table[OutputForm@Integrate[i*x^2, {x, 0, 1}], {i, 1, 6}];
Map[(Print[#]; Write[a1, #]) &, data];
Close[a1]
There are many ways to do this type of thing. But for large lists it might be better to write everything in one fell swoop, rather than item by item. 
POSTED BY: C ormullion
Teoman Ozturk
Teoman Ozturk
Posted 10 years ago
thank you very much, you are great! it  works.
POSTED BY: Teoman Ozturk
Print doesn't return a value,  just prints things as a side effect. So although you see the values in the notebook, they aren't returned by the call to calc1. 

I would try something like this:
a1 = OpenWrite["calc.dat", FormatType -> OutputForm];
Table[Write[a1, Integrate[i*x^2, {x, 0, 1}]], {i, 1, 6}]
Close[a1];
POSTED BY: C ormullion
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract