| 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 |