7,242 reputation
1450
bio website
location
age
visits member for 2 years, 10 months
seen Dec 18 at 18:53

Dec
14
comment Is there any way to connect several images together?
ImageAssemble is probably what you want.
Dec
1
comment Fractals or other patterns in the quadruple linked pendulum
You could plot any plane through your four dimensional parameter space. You can also get three dimensions by creating a animation. Mathematica can allow you to manipulate the parameters to find interesting results. If you would show your code I'm sure we could make it fast enough to make these suggestions practical.
Nov
25
comment How do I use an offset with Parametric Plot?
I'm not totally clear what you mean, but perhaps you could plot W[...] + {0,1}
Nov
25
comment How to export a ParametricPlot3D as .stl for 3D printing
You could just put a /. Line -> Tube on the end of your plot.
Nov
25
comment Why `Delete` does not work?
I recommend looking into the Select and Cases functions.
Nov
24
comment How To Replace $\rightarrow$ by $==$ in Mathematica's Output when using Solve
You do just like you said in the title. Use a rule on the rules: Rule -> Equal.
Nov
20
comment NonlinearModelFit indeterminate or not a list of real numbers
You can put in conditions on the parameters to avoid non-real numbers, but you're going to have trouble no matter what you do. You have a Log[A3 x] in there and you are trying to fit to both positive and negative x values. So you are always going to get a complex result at some point.
Nov
13
comment Large Tuples with Negative Integers
You're trying to loop through 22185312344622607535965183080365494317672538611578408721 values? Good luck.
Oct
29
comment Display trailing zeros in ticks
There are a number of ways to set how a number is displayed: NumberForm, PaddedForm, SetPrecision. You could Map one of these over your ticks: {#, NumberForm[#, {5, 4}]}&/@ ticks.
Oct
28
comment Division by zero is slow
Clever and fast, but I'm going to wonder what the heck it is doing when I come back to read the code a few months later. Comments are for the weak.
Oct
28
comment Division by zero is slow
I like this answer the best. It's a bit wordy, but clear what it is doing. It's fast and flexible (if you want to do more than a simple divide). It's not quite so fast if you want to do a Normal afterwards - about the same speed as the case with no zeroes.
Oct
23
comment Why does integration of a radical times HeavisideTheta give a conditional expression?
I get the same as OP on the same version.
Oct
23
comment Ovals of plane curves (and esoteric surfaces in space)
It handles unbounded components. That was the original point - trying to distinguish those. You just can't make rectangles out of them. As for nested ovals, no idea!
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.
Oct
13
comment Faster way to use Solve in a multiple parameters function
FindRoot finds just a single root numerically. So it will vary depending on where you start it. One technique might be to do a coarse grid with the full Solve. Then use those as starting points for a finer FindRoot grid.
Sep
30
comment Factor out square root terms
Simplify[Sqrt[x^3]Sqrt[x - a x]/x, x > 0]