Reputation
9,317
Top tag
Next privilege 10,000 Rep.
Access moderator tools
Badges
1 19 53
Newest
 Nice Answer
Impact
~102k people reached

Apr
18
comment Better alternative to Hold/ReleaseHold for postfix application of Monitor
I tend to use an infix version Table[...] ~Monitor~ n.
Apr
18
comment “Save Graphic As…” suddenly doesn't work
It is cunningly prompting you to use PNGs, because nobody likes fuzzy graphs.
Apr
15
comment A Difficult Application of Modular Arithmetic
Your explanation doesn't seem to match your numbers. Why is the 6 not doubled to 12 in the first step? How does the 2 in {2,5,1} go to 0? 2*2 + 4 is not 0 mod 5.
Apr
13
comment Why does ContourPlot refuse to draw all 4 quadrants whenever fractional powers are in the implicit function?
A cube root has three possible values. To ensure you get a real one, you could use Surd. For example Surd[x^2, 3].
Apr
13
comment How to get a larger mouse cursor
You could use a third party program such as Yolomouse.
Apr
13
comment Twin Prime Max Gaps (Performance Tuning)
@Elem-Teach-w-Bach-n-Math-Ed Your max of consecutiveValues bit doesn't take into account if it's true or false. For small ranges of primes sometimes the longest run is the wrong type.
Apr
12
comment How to draw all paths from (1,1) to (n,n) by move (+1, 0) or (0, +1)?
@J.M. Thanks, it was a bit of an ugly rush job (which seems to have blown up overnight). If anyone is feeling really sassy, they could sort out the crossovers on the top right.
Apr
7
comment double sum with condition
You could just put an If statement inside your sum: If[n^2 + m^2 == 0, 0, ...].
Apr
4
comment ListPlot and Show n plots from two lists with large n
Thread[{steps, #}] & /@ Transpose@eigenvalues
Mar
30
comment Play the sound of $\pi$
To mimic the random integer, you could try ternary digits minus 1: Accumulate[First@RealDigits[Pi, 3, 100] - 1]]
Mar
30
comment How to define a custom 2/3D graphic primitive like built-in?
You could do something less fancy like, BezierSurface[ctrlnets_] := First@ParametricPlot3D[...].
Mar
23
comment Import Excel sheet into 3D array, 1st row and column as x- and y-axis
Perhaps Flatten[MapThread[Append, {Outer[List, xlist, ylist], Transpose@data}, 2], 1]?
Mar
23
comment positions satisfying pattern and grouped
You can use Split to do the last step, or fancier stuff from this question.
Feb
24
comment Symmetric properties of KroneckerDelta under replacement
Attributes[f] = {Orderless}
Feb
16
comment making Max and Min work columnwise like Median
Do you want what J.M. said, just mapped over your groupings? Max /@ Transpose@# & /@ (data[[#]] & /@ astGroupsPos)
Jan
18
comment Speeding up this recursive function
I can make it slower by changing Xmn[m] to Xmn[m,n].
Jan
12
comment How can I group constants/parameters using Mathematica?
I am going to keep my clothes on, but my answer in this question attempts to answer this problem.
Dec
10
comment Why does Mathematica spit this back out?
You could put a Assumptions -> a > 0 as an option.
Oct
5
comment How to simplify writing LibraryLink code?
Any chance of version 9 compatibility?
Aug
31
comment Visualising a 1-(50,15,15) design
So you want something like a Fano plane illustration but with 50 points and 15 of those on each "line"? Sounds challenging. Can you provide the actual block design?