User Portlet User Portlet

Discussions
Thanks Roland! That worked!
Thanks Marco, however interpolation does not give me an analytic function, as Piecewise does.
But I meant how to calculate the number of infected over a specified period of time, say t=0 to t=10 with your model.
Hi, I am trying to set up a code to plot a streamplot from the results from a SIR model. The problem to solve is **r′=F(r)** where r=(x,y) and F(x,y)=(−b*x*y/n,b*x*y/n−k*y) and where b=3.3925; k=2.95; n=157759; How can I set up...
Hi, I have the given command sol = Flatten[DSolve[y'[x] == y[x]^3/x^3 + y[x]/x + 1, y[x], x]] which yields the solution Solve[ArcTan[(-1 + (2 y[x])/x)/Sqrt[3]]/Sqrt[3] + 1/3 Log[1 + y[x]/x] - 1/6 Log[1 - y[x]/x + y[x]^2/x^2]...
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*...
Hello, I would like to solve the following PDE for Psi(x,y,z,t) ![enter image description here][1] [1]: https://community.wolfram.com//c/portal/getImageAttachment?filename=Screenshotfrom2021-08-2615-21-55.png&userId=967554 where alpha,...
Thanks for that, it show now the function, but the plot is still blank.
PS: The interval of the plot is a little bit large. It is the absolute center which is important. How do I"zoom" in on the center?
Hello, I have a a polar function given by: u[r_, phi_, n_] := Piecewise[{{BesselJ[1.5 r, n]*Exp[I n phi], 0 1}}] u0[r_, phi_, k_] := Sum[I^(-n) BesselJ[n, r] Exp[I n phi], {k, -5, 5}]; u1[r_, phi_, n_] := ...