5,704 reputation
1140
bio website
location
age
visits member for 2 years, 2 months
seen Apr 11 at 7:41

Oct
16
comment Multi-column table layout the right way
@Mr.Wizard How would one go about changing the colour of the lines?
Oct
15
comment How to combine a set of Plots, including self-drawn Inset/Lines/Circles?
What's wrong with a simple GraphicsGrid?
Oct
14
comment 2 non-linear equations with 2 unknowns which I cannot solve
There's also a root at a = b = 0.000622898.
Oct
12
comment Randomly packing spheres of fixed radius within a cube
A relatively simple scheme could be to select a random sphere in the list, then creating a new sphere that touches it in a random direction. This got me to 1856 spheres in a few minutes.
Oct
11
comment How to sum up large number of elements in a table quickly?
6,000,000 >> 2000
Oct
11
comment How to sum up large number of elements in a table quickly?
Are A1 and A2 different each time you call f or are they constant?
Oct
8
comment Implementing a LineStyleFunction for line plots
@J.M. I was trying to show how to be a bit more general than just positive or negative.
Sep
21
comment Argmax in a List
Good stuff. That's what I enjoy about this site and about Mathematica. You're likely to get a readable solution, a fast solution, an alternative solution, an obscure solution, a silly solution, and a comparison between them. They all add to one's knowledge.
Sep
21
comment Argmax in a List
@belisarius I think he accidentally the timing worksheet.
Sep
19
comment Using Functions as Arguments to Function
myNorm'[{x_, y_, z_}] := Dt[myNorm[{x, y, z}], t]?
Sep
6
comment Drawing dessins d'enfants (bipartite graphs subject to certain conditions)
And the white nodes (of degree 3) can be simplified. For a face with $2k$ edges, you can replace $k$ white nodes with a single node of degree $k$. Then make a planar embedding of what's left with the appropriate vertex degrees. Then replace the special nodes with their associated face. The replacement might get a little tricky if faces share edges. But your {18,2,1,1,1,1} is essentially a tree.
Sep
6
comment Drawing dessins d'enfants (bipartite graphs subject to certain conditions)
Omitting the black nodes is more than just for clarity in the case they are all of degree 2. They're not really relevant for laying out the graph. Once you've laid out your white nodes, the black ones just go in the middle of each edge. Or hang off the side for your two edge faces.
Sep
5
comment CountryData and the areas of the world
@belisarius Your rugby team has destroyed it :-(
Aug
26
comment Celebration: How to golf a marriage with a prefix free code
I couldn't work out how to do it properly, let alone golf it. :-/
Aug
14
comment Speed Up SphericalPlot3D
The problem might be that your r is inefficient to evaluate. Perhaps tell us what that is to get more help.
Aug
13
comment Programmatically minimize mathematica?
@VitaliyKaurov FrontEndTokenExecute[SelectedNotebook[], "WindowMiniaturize"]
Aug
6
comment Word Squares and Beyond
Pretty good, but doesn't quite work as advertised when a partial solution is provided. Start with a known solution: findWordHypercube[2, 3] (* {{"m", "u", "d"}, {"u", "n", "i"}, {"d", "i", "g"}} *), then try with the bottom left filled in: findWordHypercube@{{_, _, _}, {_, _, _}, {"d", _, _}} (*{{"v", "e", "t"}, {"e", "r", "r"}, {"t", "r", "y"}}*). Where's my "d"?
Aug
2
comment Histogram3D frame ticks with bin text labels rendered in x-y plane?
I imagine you might need to Rasterize your labels, then use them as a Texture on a Polygon. But I don't know how you might show them outside the box (short of drawing your own box and axes).
Jul
30
comment Finding the linear regression of data and plotting it
It's all possible. Have a look at Fit, ListPlot, Plot, Show, AxesLabel and Epilog.
Jul
24
comment Is there an easy way to put time ticks on a parametric plot?
As an option to your plot, try Mesh -> 50