Reputation
59,988
Next tag badge:
228/100 score
17/20 answers
Badges
7 106 237
Newest
 Good Answer
Impact
~835k people reached

Feb
5
comment Possible memory leak in FindMinimum? (MMA v10.0)
With Mathematica 10.3.1 on Windows 10 the memory usage returns to its original value (to within <1MB) following the Clear[f]
Feb
5
comment Out of range red glow on inter-dependant sliders in manipulate
Why not just add A = Min[A, Which[f < 0, 0.5, f >= 0, 1]]; or equivalent before the Plot?
Feb
3
comment using Map to apply 2 lists to the LCM function - help
LOL. I wondered if you were just determined to use Map as specified in the question title...
Feb
3
comment using Map to apply 2 lists to the LCM function - help
Why not just Outer[LCM[37, ##] &, list1, list2] ?
Feb
3
comment Efficiently generating tuples with Outer
Your approach with Outer will work if you specify Nothing as the third argument of If
Feb
3
comment Using functions in Solve
Your control input is wrong - you have squared only the denominator of i[x] instead of the whole thing. Replace (86 - 4*x^2)/4^2 with ((86 - 4*x^2)/4)^2
Feb
2
comment Prevent Dynamic from behaving dynamically until notebook evaluated
@bbgodfrey, SaveDefinitions adds the definition a = {1, 2} to the Initialization option of the DynamicModule (add //ToBoxes to the end of my code to see this). This code gets run when the dynamic stuff is first displayed, so it is just as if you evaluated a = {1, 2} in the normal way.
Feb
1
comment Prevent Dynamic from behaving dynamically until notebook evaluated
How about DynamicModule[{}, Dynamic@a[[2]], SaveDefinitions -> True]
Feb
1
comment Manipulate aborts the computation of NDSolve with the Piecewise function after curtain time
Use Sin[x]^100 not (Sin^100)[x]
Jan
31
comment Mapping a region
Did you try anything with TransformedRegion ?
Jan
31
comment How can I solve a 3D heat transfer partial differential equation?
In your boundary conditions you have used Set (x=0) where you should be using Equal (x==0).
Jan
30
comment Problem with Volume
I cannot reproduce this problem with 10.3.1
Jan
30
comment How can I make this code to count Hamiltonian paths faster?
I don't mind at all, it's a much better solution.
Jan
30
comment How can I make this code to count Hamiltonian paths faster?
Nice solution, very clever.
Jan
29
comment Arrows from GraphicsComplex not converted to Normal form correctly
@Kuba, good point
Jan
29
comment Arrows from GraphicsComplex not converted to Normal form correctly
Now answered ;-)
Jan
29
comment Arrows from GraphicsComplex not converted to Normal form correctly
Normal[# /. a : Arrow[{__List}, _] :> Thread@a] gives a quick fix for these examples
Jan
28
comment RegionPlot with Rotated Insets are Unreadable
It works okay for me. Could be related to your graphics hardware and the partial opacity in the RegionPlot. How does it look if you add PlotStyle -> Opacity[1] to the region plot?
Jan
28
comment The basic primitive recursive functions
Could you expand the question a bit? Specifically, state how the included example fails to answer the question, and how the question is different from the one you linked.
Jan
27
comment Is there a simple way to get the Conjugate of a complex term, provided all information is available?
FullSimplify[Conjugate[t22] t22, energy > 2] works okay