User Portlet
| Discussions |
|---|
| Thanks Roland! That worked! |
| Here is one more approach - for calculating the range of each point I am using a one-dimensional ``VoronoiMesh[]``: points = SortBy[points, First]; xvals = List /@ points[[All, 1]]; vorm = VoronoiMesh[xvals]; ranges =... |
| In your screenshot the values for the `equationS`, `equationI` and `equationR` variables are simply not set |
| I'm not sure I fully understand, but would this be along the lines of what you're looking for, except for the simplified parameter values and some arbitrary choice of range? StreamPlot[{-b x y/n, b x y/n - k y} /. {b -> 3.4, k -> 3, n ->... |
| Cross-posted: https://mathematica.stackexchange.com/questions/272907/error-message-on-plotting-a-solution-curve-for-an-ode-solved-with-dsolve |
| I agree. The dataset seems contrived as it is perfectly symmetric about -1/2: data[[1 ;; 20, 2]] == -data[[Range[40, 21, -1], 2]] (* True *) ListLogPlot[Transpose[{data[[All, 1]], Abs[data[[All, 2]]]}]] ![Plot of data on a... |
| As written in the discussion, this problem is there *what ever the coefficients are*. In your case they give 0=0. If you change them, they don't give this equality, and still it doesn't solve. Try this: c=3*10^8 T=2 h=1.0545718*... |
| Welcome to Wolfram Community! Please read the rules: http://wolfr.am/READ-1ST Please edit your post and **show you own effort with code first!** The Wolfram Community site discourages questions that lack serious user effort in the form of... |
| Do you know the function `Floor` and friends? Is it this, what you want? Plot[Floor[x], {x, 0, 10}, Exclusions -> None] ![enter image description here][1] [1]:... |
| Maybe something like this? ParametricPlot3D[{r*Cos[phi], r*Sin[phi], Re[u1[r, phi, 3]]}, {r, 0, 3}, {phi, 0, 2 Pi}, MeshFunctions -> {#3 &}] |