Reputation
8,727
Top tag
Next privilege 10,000 Rep.
Access moderator tools
Badges
1 19 51
Newest
 Yearling
Impact
~93k people reached

Oct
22
comment Ovals of plane curves (and esoteric surfaces in space)
LogicalExpand also helps one see what is going on. I don't have any ideas how to automatically interpret the conditions though.
Oct
22
comment Ovals of plane curves (and esoteric surfaces in space)
Reduce[y^2 - x^3 + x == 0, {x, y}, Reals] gives something tidier with only two cases - one with a bounded range of x, the other unbounded.
Oct
20
comment How do I format the output to include the function definition?
Perhaps HoldForm[X[x, y, z]] == X[x, y, z] // TraditionalForm?
Oct
15
comment Help recreating a gif
+1. But now colour your lines according to the (dynamic) height.
Oct
13
comment Square root estimation
@dionys I'm not sure why you would expect it to work with negative numbers though. There's nothing in the algorithm that will give you a complex number.
Sep
15
comment Wrong answer from DSolve?
The answer satisfies $u(x) = \left(u'(x)-\frac{1}{n+1}\right)^2$.
Sep
14
comment Composition à la Mondrian
There is a "visual design" under the neat examples for grid that is a bit Mondrianish.
Sep
9
comment Creating a variable from Reduce[] output in Mathematica
x = c /. ToRules @ Reduce[...]
Sep
4
comment How to make a case insensitive sorted list and rename the file names of a given folder?
The built-in IntegerString will do what your NumberPad is doing.
Sep
3
comment Eliminate 3 Variable from 4 Equations
@Mr.Wizard Because I'm lazy and I already have more internet points than I can spend. But I found something interesting about the answer. Behold!
Sep
3
comment Eliminate 3 Variable from 4 Equations
If you get rid of the double angles first, it works fine. Try eq = TrigExpand @ {...
Aug
25
comment Missing arrow tips and colors
Graphics3D can take a list of primitives, so you don't need a separate Graphics3D for each arrow. You can also have nested lists to provide scoping for your styling. E.g. Graphics3D[{{Red, Arrow[...]}, Arrow[...], ...}]
Aug
25
comment Missing arrow tips and colors
PlotRange -> All?
Aug
20
comment Account for powers of 0 and 1 when defining function
Your could use arg1_ /; FreeQ[arg1, Plus] to ensure monomialism.
Aug
18
comment Removing Linear drift from an oscillating data
@jason Then as a further though, you might not want to just take every 5000th point raw for the interpolation. You might want to smooth it our first. MedianFilter could be a good choice.
Aug
11
comment Why is mathematica giving wrong and incomparable results for the integral?
Changing your 0.1 to a 1/10, integrating, then taking the numerical value gives 0.954517.
Jul
4
comment Finding corresponding vertex from 3d to 2d
@Aky Good point. Makes it look a bit nicer.
Jul
2
comment Difference (or intersection) of two convex polyhedra
I haven't looked at it myself, but there is some stuff here.
Jun
16
comment Smooth Peter de Jong attractor
Here's an animation where $a_1 \in [-2,2]$.
Jun
16
comment Is this the expected behaviour from Partition when padding is inserted at the start of the list?
myPartition[d_, k_] := Partition[d, k, k, -Mod[Length@d, k], {}]