User Portlet
| Discussions |
|---|
| Hi. You could try using IntegerPartitions[n,k]. eg., f[n_,k_] := IntegerPartitions[n, k]/n f[20,2] // N {{1.}, {0.95, 0.05}, {0.9, 0.1}, {0.85, 0.15}, {0.8, 0.2}, {0.75, 0.25}, {0.7, 0.3}, {0.65, 0.35}, {0.6, 0.4}, {0.55, 0.45}, {0.5,... |
| Well, I didn't figure out how to do it with Mathematica, since I don't have any information about the internals in Mathematica which handle this, nor the time to hack it. What I have done is : Exported the mathematical typeset of my document from... |