Reputation
16,626
Top tag
Next privilege 20,000 Rep.
Access 'trusted user' tools
Badges
1 32 94
Newest
 Nice Answer
Impact
~194k people reached

Nov
29
comment Restricted accumulation of values
@Rojo Here's a fix. Not only is it straightforward, it's fast: Block[{sums = Accumulate[data], k, i}, k = Position[sums, x_?Positive, 1, 1]; i = If[k == {}, 0, Part[k, 1, 1]]; Take[sums, i]~Join~Drop[data, i]].
Nov
29
comment Restricted accumulation of values
The second method is very fast but is correct only assuming the cumulative sums remain positive forever after they first turn positive.
Nov
29
comment Solving a large equation set
Isn't this a duplicate of mathematica.stackexchange.com/questions/15360?
Nov
28
awarded  Nice Answer
Nov
27
comment Replacing functions
This question is quite puzzling, because neither Sin[x] nor x can reliably be construed as "functions." Shouldn't the first example return Sin[x][x]-3? If that seems silly, suppose Sin were a function that returns a function, as in sin[x_]:=Function[{y},y+x]. Now both sin[x][x] and sin[x] make sense, but only the former conforms to the problem statement in the first line (and evaluates to x+x, by the way).
Nov
27
awarded  Nice Answer
Nov
27
comment Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
@VF1 What specific expression are you suggesting?
Nov
26
comment Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
Re the second part of the question: there are many more than five solutions, no matter how flexible you are in rewriting them. E.g., $34(-5\times 6 + 89)+2$ or $34(5/(6/(8\times 9))-1)+2$.
Nov
26
revised Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
added 1038 characters in body
Nov
26
answered Are table headings functional?
Nov
26
revised Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
added 231 characters in body
Nov
26
revised Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
added 3099 characters in body
Nov
25
comment Checking if a point is in a convex 3D polyhedron
Generating convex polyhedron from face planes is closely related because when the planes' normal vectors are consistently oriented, they provide a simple mechanism for determining whether points are inside or outside (as illustrated, for instance, in the code in my answer in that thread: see the argument to the RegionPlot3D example there).
Nov
25
revised Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
added 5157 characters in body
Nov
25
comment Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
@Rojo Many thanks for making that observation. It appears something very strange is happening with ParallelMap: it frequently "loses" about 95% of the solutions compared to those found by Map. I will rewrite this answer to avoid that problem and to include better explanations of what exactly is being done.
Nov
23
answered Insert $+$, $-$, $\times$, $/$, $($, $)$ into $123456789$ to make it equal to $100$
Nov
23
reviewed Close Placing a ContourPlot under a Plot3D
Nov
22
comment Dashed line with alternating colored dashes
Filling is optional...
Nov
22
answered Dashed line with alternating colored dashes
Nov
21
comment Multi-Factorial and Series with Triple-factorial terms
+1. If you follow the strategy outlined in my answer of first simplifying the coefficients, there won't be any problem: a[j_] := Evaluate [ FullSimplify[MultiFactorial[3 j, 3]/MultiFactorial[3 j + 1, 3], Assumptions -> j \[Element] Integers]] re-expresses the sum in terms of Gamma functions and you're all set.