wolfram-mathematica

I have a large Mathematica notebook that uses Print[] commands periodically to output runtime messages. This is the only output (aside from exported files) that this notebook generates. Is there any way I can automate the export of this output to a .txt file without having to re-write the Print[] commands? rcollyer According to the documentation , Print outputs to the $Output channel which is a list of streams. So, at the beginning of the notebook, strm = OpenWrite["output.log"]; AppendTo[ $Output, strm ]; and at the end of the notebook Close[strm]; Note, if execution is interrupted prior to

How can I read a utf-8 encoded text file in Mathematica? This is what I'm doing now: text = Import["charData.txt", "Text", CharacterEncoding -> "UTF8"]; but it tells me that $CharacterEncoding::utf8: "The byte sequence {240} could not be interpreted as a character in the UTF-8 character encoding" and so on. I am not sure why. I believe the file is valid utf-8. Here's the file I'm trying to read: http://dl.dropbox.com/u/38623/charData.txt Short version: Mathematica's UTF-8 functionality does not work for character codes with more than 16 bits. Use UTF-16 encoding instead, if possible. But be

Suppose we want to generate a list of primes p for which p + 2 is also prime. A quick solution is to generate a complete list of the first n primes and use the Select function to return the elements which meet the condition. Select[Table[Prime[k], {k, n}], PrimeQ[# + 2] &] However, this is inefficient as it loads a large list into the memory before returning the filtered list. A For loop with Sow/Reap (or l = {}; AppendTo[l, k] ) solves the memory issue, but it is far from elegant and is cumbersome to implement a number of times in a Mathematica script. Reap[ For[k = 1, k <= n, k++, p = Prime