4,992 reputation
535
bio website
location
age
visits member for 1 year, 4 months
seen 5 hours ago
stats profile views 179

Jul
19
comment Problem with ParametricPlot
You don't need to animate the whole 360 when you have 38-fold rotational symmetry.
Jul
18
comment How to search a file in a particular system using Mathematica
What does Return do with multiple arguments?
Jun
25
comment How do you change the font size of a Manipulator label?
If you want to play the reputation game, there's a lot of time pressure to get an answer in. You will always have to expect a bunch of quick, incomplete and approximate answers.
Jun
21
comment Happy 2K prime question
Speedy! And in the best traditions, obfuscated too.
Jun
20
comment Happy 2K prime question
Note: Total[IntegerDigits[#]^2] is faster than my silly Plus @@ (#^2 & /@ IntegerDigits[k]), but I can't steal all of Leonid's code. I always forget about Listable.
Jun
14
comment Trouble getting FindInstance to return multiple results for certain constraints
After 18 seconds I get {{a -> 343, b -> 570, c -> 1003}, {a -> 520, b -> 826, c -> 1648}} on mine (8.0 on win32).
Jun
13
comment Recursive function with if-statement
It appears I should be using Alt+8 if I want more control of how the code looks. Even idle banter on this site proves incredible useful.
Jun
13
comment Recursive function with if-statement
Yes, but not nearly that complicated. All I want is a space width the same as a character width.
Jun
13
comment Recursive function with if-statement
Absolutely. Which brings to mind a question which I might ask.
Jun
13
comment Recursive function with if-statement
Probably! But I was aiming for something similar to how to original equations were written.
Jun
7
comment Bring Vertices to the foreground
May I suggest creating a function that gives you a styled ToolTip, and all you need give it are a few strings? Or if you're lucky, someone might reveal how to set some default styles.
Jun
5
comment Color Change of Area under a curve
Riddle me this, Batman: What's the difference between ColorFunction -> (wat[x__] := (Print[x]; Red); wat) and ColorFunction -> ((Print[##]; Red) &)?
May
28
comment MapThread with non-rectangular lists
The magic of Listable! I knew there must have been some nice way to do it.
May
28
comment MapThread with non-rectangular lists
This works great if you are working at level 2. I was hoping for something more general. Next time I'll try asking!
May
18
comment How to peel the labels from marmalade jars using Mathematica?
+1 This is a nice practical example of using Mathematica's image processing capabilities. They seem quite comprehensive, but I haven't seen them used much around here (and I find the built in help a bit lacking).
May
9
comment Finding a fit to a multi-dimensioned function
@DanielLichtblau Each variable depends on all the model parameters, so I end up with different parameter values for the different fits.
May
9
comment Finding a fit to a multi-dimensioned function
Thanks. This is working well for my problem. FindFit[data /. {{a_, b_}, {p_, q_}} -> Sequence[{a, b, 0, p}, {a, b, 1, q}], model.{1 - s, s}, ...]
May
8
comment Background Shading in Histogram3D
There's no 2011 data in what I was using, it's just where it decides the bin should be.
May
7
comment Background Shading in Histogram3D
@Jens It's what I get with that data. My version gives a histogram with a bin stretching from 2010 to 2011.
Apr
25
comment Interlacing a single number into a long list
There are several good solutions to your problem below, but as an aside about your question of how to generate a list, there are a couple of easy ways: ConstantArray[1997,70] or Table[1997,{70}].