2,133 reputation
1513
bio website
location
age
visits member for 4 months
seen 1 min ago
stats profile views 64

32m
comment How do you put conditions on indices in a sum?
there must be an easier way, but here's a suggestion: Sum[f[i, j], {i, 1, 3}, {j, DeleteCases[Range[1, 3], i]}]...
53m
comment How to increase the number of minor ticks in a plot?
ok sure: you could start with r1 = Range[0, 250, 50];r2 = Range[25, 250, 50];tickfreq = 5;; next, for the ticks, we need to remove the FractionalPart etc, so get: ticks[min_, max_] := Table[With[{val = i}, Which[Chop[Min[Abs[r1 - val]]] == 0, {i, i, .06, Red}, Chop[Min[Abs[r2 - val]]] == 0, {i, "", .04, Green}, 1 < 2, {i, "", .02, Blue}]], {i, Floor[min], Ceiling[max], tickfreq}];, finally plot: Plot[x, {x, 5, 250}, Frame -> True,FrameTicks -> {ticks, ticks, False, False}, Axes -> False, PlotRange -> {{5, 250}, {5, 250}}]. Does that yield what you wanted?
1d
comment How to increase the number of minor ticks in a plot?
sure, you set up a chat room? (I still don't know how to do that)
1d
reviewed Approve suggested edit on A simple ListPlot with different colours and a Tooltip
1d
comment Mapping multiple functions
just wanted to force Thread on the problem :)
1d
comment Mapping multiple functions
what helps with Thread is preparing the arguments as Lists of length three (one the first level, i.e. not {x,{1.5,1.7,2.}}, neither {f1,f2,f3}[x] which no longer has Head List). Then Hold on FindRootand it works: Thread[(Hold@FindRoot)[#1, #2] &[ Through[fun[x]], {x, #} & /@ {1.5, 1.7, 2.}]] // ReleaseHold. I hope it is more or less clear what I try to say...
2d
comment Every second evaluation in notebook front end is slow
Sorry to hear - I am almost running the same setup (MacProRetina Mid2012, OS 10.8.3, Mathematica 9.0.1.0) and I cannot reproduce the problem. Let me know if you want me to check other options/calculations.
May
22
answered Filling and Shading an Harmonic Curve
May
21
answered How can I use Manipulate[] to click on a Graphics3D output and generate $(x,y)$ outputs on a projection plane parallel to my screen?
May
18
comment How could I find the correct values for every array that would lead me to unique summation number for every unique chain?
...and based on the structure of your arrays, you might just want to make sure that the numbers in the square brackets of your sum total to the same number... (and you'll get 36+90+squarebracketnumber*10)
May
17
answered Adding custom GridLines to the “automatic” ones
May
15
comment A Symbol with Subscript and Superscript as an Axis Label
maybe you want to look at Subsuperscript[\[Epsilon], "9/2,4", "-"]
May
15
comment Normalize the PlotLegends and z values for two DensityPlot
glad you like it - I added an edit to fix things for ContourPlot. I hope this works for you!
May
15
revised Normalize the PlotLegends and z values for two DensityPlot
added 1353 characters in body
May
15
answered Normalize the PlotLegends and z values for two DensityPlot
May
14
comment How to plot filling under a curve?
I figured it was just copying J.M.'s answer, hence the comment. Thank you sir!
May
14
comment How to plot filling under a curve?
using this approach, you better Clear@x before defining pdf (or use pdf := PDF[NormalDistribution[], #] & and then pdf[x] in the plots) (or is there an easier way?)
May
14
comment How to plot filling under a curve?
looking at @J.M.'s answer in mathematica.stackexchange.com/questions/18964/… you could also do (avoiding show): With[{dist = PDF[NormalDistribution[], #] &}, Plot[{ConditionalExpression[dist[x], x < -2], dist[x]}, {x, -5, 5}, Filling -> {1 -> Axis}, PlotStyle -> ColorData[1, 1]]]
May
12
revised Simple problem with Manipulate and Plot
Formatting code
May
12
suggested suggested edit on Simple problem with Manipulate and Plot