34,452 reputation
549142
bio website
location
age
visits member for 2 years, 1 month
seen 2 hours ago

Feb
11
comment Get Coordinates 4 significant digits limitation
Strangely using CoordinatesToolOptions -> {"CopiedValueFunction" -> (# &)} gives 6 digits.
Feb
9
comment Using Assumptions with Solve
The documentation for Assuming states that "Assuming affects the default assumptions for all functions that have an Assumptions option." Since Solve does not have an Assumptions option it is not affected.
Feb
8
comment Find positions of items in a list based on neighbours
@Mr.Wizard, sorry I wasn't ignoring your request, I had to pop out. I can't find a duplicate either.
Feb
7
comment Analysis of many similar x-ray Images
Oops - circles have small eccentricity and rectangles large :-)
Feb
7
comment Capturing an F1
@SteveD, try using InputNotebook in place of EvaluationNotebook in those answers
Feb
7
comment Analysis of many similar x-ray Images
Related, this and this
Feb
7
comment Capturing an F1
@rm-rf, ha ha. I didn't see that question 2 days ago, I was hoping everyone would be stunned by my spelunking skills, now it just looks like I'm copying from higher rep users ;-)
Feb
6
comment Sorting a list of triplets by first element of each triplet fails
@Mr.Wizard, good point. I can't think of a good way to express it which is both simple and accurate. Please feel free to edit if you can find a better wording.
Feb
4
comment How to generate this fractal-like 3D distribution of points in Mma 7.0?
Cham, try varying the numbers, 300 is the number of points in each "arm" and 10 is the number of arms. More arms with fewer points will give you a less, uh, armlike appearance.
Feb
4
comment How to generate this fractal-like 3D distribution of points in Mma 7.0?
Would a collection of random walks work? Graphics3D[Table[Point@Accumulate[RandomReal[{-1, 1}, {300, 3}]], {10}], BoxRatios -> 1]
Feb
4
comment Unwanted PlotMarkers appear at non-existent places
+1 Is this documented anywhere?
Feb
4
comment Shuffle product of two lists
Also, your code multiplies by tp twice, It's (a tiny bit) faster to take the Times out of accf and use accf[p] p in ord
Feb
4
comment Shuffle product of two lists
On my system your refactoring of rasher's code is faster than his original, but I find that my Flatten & Partition suggestion is faster than Outer.
Feb
4
comment Shuffle product of two lists
Regarding the last point, that the Map is the slowest part, you can save some time by doing ss[[Flatten@pres]] ~Partition~ Length[ss] instead
Feb
4
comment Shuffle product of two lists
I prefer your method too :-)
Feb
4
comment Shuffle product of two lists
This is the approach I wanted to take, but I couldn't see a fast way to compute pres. The Accumulate trick is very clever. Excellent work!
Feb
2
comment Why is ^^ff not the same as ^^ToExpression[“ff”]?
Perhaps you have good reasons to use ToExpression but FYI the usual method to interpret a hexadecimal string is with FromDigits, e.g. FromDigits["FF", 16] gives 255
Feb
2
comment Extracting angles from a simple picture
Instead of Tuples and Partition you could use angle = Outer[VectorAngle, vector, vector, 1]
Feb
2
comment How do I check if any element in a list is positive?
@Kuba, the OP was specifically asking for a functional method, so it's not surprising that this procedural loop is not highly voted :-)
Jan
31
comment Graphics`Mesh`FindIntersections[ ] fails to detect intersections
I've come across this problem before, sadly I know of no way to fix it :-(