Reputation
547
Top tag
Next privilege 1,000 Rep.
See votes, expandable usercard
Badges
2 9
Newest
 Yearling
Impact
~3k people reached

  • 0 posts edited
  • 0 helpful flags
  • 32 votes cast
2d
comment How to change the position of the PlotLabel?
also: 1 and 2
Jun
19
comment How to save the current configuration of preferences?
If you are on windows, I think the preference is in C:\Users\[your_user_name]\AppData\Roaming\Mathematica\FrontEnd\init.m
Jun
1
comment plotting sine of a wiener process and calculating derivative
FWIW, data = RandomFunction[WienerProcess[.3, .5], {0, 1, 0.01}]; g[{a_, b_}] := {a, Sin[b]}; ds = Flatten[Normal[data], 1]; dg = Table[{i*.01, (ds[[i + 1, 2]] - ds[[i, 2]])/.01}, {i, 1, 100}]; ListLinePlot[g /@ ds] ListLinePlot[dg]
Jun
1
comment ContourPlot has weird Jagged line
maybe just let the code with big PlotPoints run for several hours? ContourPlot[ p == q (1 + (2 (1 + 3 (p - q)^2) (.1))/(1 - (p - q)^2)^3), {p, -3, 3}, {q, -3, 3}, PlotPoints -> 600, PlotRange -> All, Exclusions -> True] gives smooth result in my testing. You can also try playing with MaxRecursion a bit.
May
27
comment Update/refresh notebook variable color on clear
Works like a charm for me :-) Thanks! (tested on Mathematica ver. 10.0.2.0 on windows)
May
19
comment plot randomly oriented lines
Do you want the the planes to be discrete,for example random integer zs? Because with float random numbers of @LLlAMnYP 's comment, it's highly, highly unlikely that two lines will end up in the same plane.
Mar
25
comment How to find out where an error occurs?
@Alireza Before evaluating.
Mar
24
comment How to find out where an error occurs?
@Szabolcs Thanks for the tip!
Mar
24
comment How to find out where an error occurs?
Try the built-in debugger: Evaluation>Debugger with Break at messages checked.
Mar
23
comment How could I add the WorldMap skin to this parametricPlot3d?
also the example here
Mar
23
comment How could I add the WorldMap skin to this parametricPlot3d?
refer to this post
Mar
23
comment Is there a bug in MatrixExp in Mathematica v10?
Confirmed the issue in ver.10. For your example specifically, since the matrix can be exactly diagonalized using Eigensystem, you can get a nice analytic expression--I'm assuming it's used in quantum mechanics where the matrix is the Hamiltonian (easily diagonalized in your example) and you want the unitary propagator with MatrixExp.
Mar
20
comment Selective update of mySQL database column
The code you posted has mismatching quotes after # to begin with.
Mar
20
comment ReadList and ToExpression
The underscore _ as a pattern matching mechanism is reserved for mathematica.
Mar
18
comment Numerical integration and plotting
The OP wants to plot fC as a function fP, maybe like ParametricPlot[{fC[a],fP[a]},{a,0,5}]?
Mar
12
comment Combining 2D slices into a 3D plot
@Nick If you only care about the final output, you could, in theory, put the data of your 2D slices in a list and replace g=Table[...] with g=ListPlot3D[...] in my answer. It's not exactly stacking 2D plots but the end result may look the same. For example, one way to get the data from Plot[...] is here.
Mar
11
comment Combining 2D slices into a 3D plot
@Nick I've made some changes according to your phase diagram context.
Mar
11
comment Combining 2D slices into a 3D plot
@Nick I made some changes according to your phase diagram context. Is this what you want?
Mar
10
comment Simplify complex answer given by DSolve[]
Using the code in your first block does not give a very good result because strictly speaking E^Integrate[g[K[1]], {K[1], t, K[2]}] includes the integrate index K[2] and should be included in the last Integrate[h[K[2]], {K[2], 0, t}]. Following your idea, the second replace rule in xf function should be coeff_*Integrate[int_,{x_, a_, b_}] :> Integrate[coeff*int,{x, a, b}]
Feb
20
comment ListPlot3D not working for very small numbers
@drabus Also use PlotRange->All in this solution because some data points are not shown. Or refer to my answer which does not need rescaling.