User Portlet
Featured Contributor
Discussions |
---|
You're welcome Markus! Good catch. The following is an alternative way to create the stitched together graphic using Translate. cplot = ContourPlot[ ufun[x, z], {x, 0, 2*\[CapitalLambda]}, {z, 0, Lz}, MaxRecursion -> 4,... |
Have you looked at Apart? Apart[(s^2 + 3)/((s - 1)^2 (s + 1))] (* 2/(-1+s)^2+(1+s)^(-1) *) |
You are welcome Meir. There appears to be a discrepancy between your momentum equation and Gianluca's. We can check the equivalence by comparing the Right Hand Sides (RHS) of the position and momentum equations your and Gianluca's approach. If... |
Hi Raymond, Here a couple of comments. First, the gray coloring indicates that there is more than what is displayed. You can use InputForm to take a look like so zA = 20 Quantity[1, "Feet"] zA // InputForm (* Should return:... |
You have typos in your code and you assigned your mesh0 to a wireframe. I believe the following will correct your current problem. ClearAll["Global`*"] Needs["NDSolve`FEM`"] bmesh0 = ToBoundaryMesh[ "Coordinates" ->... |
Hi Markus, There are many potential ways to deal with this issue. In an ideal world, you would provide robust simulation settings and it would solve in a predictable way. Generally, it can take 100s to 1000s of simulations to find optimal and... |
Vanessa, For ParametricPlot to work $\phi$ cannot simultaneously be a dependent and independent variable. If you let $x$ be the independent variable, you can obtain a ParametricPlot. Manipulate[ Grid[ {{ ... |
You should be able to verify that A is the reciprocal of B by: 1/A[v] == B[v] // Simplify (* True *) The initial "1/" in A is probably an error. |
Very insightful. There is a problem that the OP's numerator is not dimensionally consistent. The _D33_ term is the partial derivative with respect to nothing, which bothered me. Presuming that _D33_ should also be the third derivative with... |
Hi Nik, The plot zoomed into the steady-state value. Just add the option PlotRange->All to the Plot function to see the full range. Plot[ {Evaluate[Purp[t] /. Mechanism]}, {t, 0, tmax}, PlotRange -> All, AxesLabel -> {time... |