Mathematica

Super KISS by Marsaglia
Hi All, Dr. Marsaglia has posted a new RNG with titantic period. Search sci.crypt for the thread "RNGs: A Super KISS" Could someone convert that rather short c-code for the 32 an 64 bit RNG to Mathematica? It would also be great for the Wolfram to add a suite for testing RNGs like: http://www.iro.umont... 1 Dec 2009 05:01

Replacement rules that contain function arguments (evaluation
Leo Alekseyev wrote: Dear Mathgroup, I am trying to understand what happens when a pattern from function definition appears in the list of replacement rules. In particular, consider this: (* Example (A): *) Clear[foo,kij,k]; foo[k_] := kij /. {kij :> Table[k[[i]] k[[j... 1 Dec 2009 05:01

ListContourPlot[] doesn't paint colored contour when
The following command doesn't give the colored contour plot, for some unknown reason to me. ListContourPlot[{{20.517`, 9.017`, 1425}, {20.981`, 9.017`, 1440}, {20.88`, 9.017`, 1445}, {20.535`, 9.232`, 1360}, {20.705`, 9.232`, 1385}, {20.828`, 9.232`, 1400}, {20.057`, 9.25`, 1365}, {20.779`, 9.25`, 1410}... 1 Dec 2009 07:11

vector format rendering with gradient capabilities
Hello everybody, I'm just trying Mathematica 7.0 and seeing that the vector format rendering (in eps for instance) does not use the gradient capabilities but many small monochrome triangles instead yielding very large files. Do you know if the feature can be expected soon ? Thank you ... 15 Dec 2009 07:51

Simple Spreadsheet within Mathematica?
Has anyone developed a simple spreadsheet application that works within Mathematica? It would be a useful tool. Thanks Tom Melehan ... 3 Dec 2009 07:01

Non-negative Matrix Factorization
Hi community, I'm dealing with a problem which needs NMF(Non-negative Matrix Factorization). I've looked up the document along with Mathematica, but nothing found. And I've tried to implement one function, however, the efficiency is too poor in comparison with built-in SingularValueDecompostion[]. Is there any im... 1 Dec 2009 05:01

RootReduce ver 7
RootReduce[Sqrt[Sqrt[2] + 3^(1/3)] + 1/Sqrt[3^(1/3) + 5^(1/5)] (=______, <---mathematica ver 7) ... 30 Nov 2009 06:57

Using GraphPlot to draw an empty graph
Hello, Is there a way of making GraphPlot draw an empty graph? I realise that this is an ill-defined question if one uses the default options for GraphPlot because there is no way for GraphPlot to know how many vertices it should draw. However, it turns out that even if one set a custom value for VertexCoord... 2 Dec 2009 06:31

to become {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
On 11/27/09 at 6:27 AM, lawrenceteo(a)yahoo.com (Lawrence Teo) wrote: I have a question. How to make {f,g}[a,b,c] to become {{f[a],g[a]},{f [b],g[b]},{f[c],g[c]}}? In[6]:= Transpose[Thread[#[{a, b, c}]] & /@ {f, g}] Out[6]= {{f[a], g[a]}, {f[b], g[b]}, {f[c], g[c]}} ... 30 Nov 2009 06:57

problem about MLPutRealArray
Hi all, I want to send an array A to MathLink, the dimensions of A are 2, 3. According to the document of MLPutRealArray, I wrote the following snippet: " double * A; double * B; long dims[2]; long * dims2; char ** heads; long d; *(A+0) = 1.1; *(A+1) = 1.2; *(A+2) = 1.3; *(A+3) = 1.4; *(A+4) = 1.5; ... 28 Nov 2009 01:29