wxffles
Reputation
9,317
Top tag
Next privilege 10,000 Rep.
Access moderator tools
 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?