User Portlet
| Discussions |
|---|
| Your fitting function is a horrible fit to your data. You must have something wrong. To visualize this do the following: Manipulate[ Show[ListLinePlot[data1, PlotStyle -> Orange], Plot[2*Sqrt[diffusion]*x*(1/L)*(Pi^(-0.5) +... |
| Maciej, You can also use Map[] by defining a function that only operates on the second item. m is a list of pairs in the form {first, second}. You create a function that returns a list of {first, Abs[second]}: Map[{#[[1]], f[#[[2]]]} &, m] ... |
| Use AspectRatio: GraphicsRow[ Table[GraphicsRow[{"H", 2, 3}, ImageSize -> 30 i, AspectRatio -> 1/i], {i, 1, 3}], Frame -> All] You can fine tune the ratio. ![enter image description here][1] Regards, Neil [1]:... |
| Reza, You can use Max: ListPlot3D[ Table[Max[ 0, -2 Ne[Pi/4] && (\[Alpha]n^2 + \[Alpha]l^2) {{0, 1}, {0, 1}}, PlotRange -> All, AxesLabel -> {Style["\!\(\*SubscriptBox[\(\[Alpha]\), \(l\)]\)", 10, ... |
| Until you debug it, you might also want to return something like 0 if the code does not compute an answer to avoid an error. |
| Werner, You can query the imageSize of the graphic with the ResourceFunction "GraphicsInformation" and use that to set your sizes and then regenerate your graphic with the labels: Block[{size, w, pl}, Do[{size, w} = sizew; pl = ... |
| Jairo, I do not know the inner workings for PIDTune, however, it appears to have difficulty with the derivative for a system with such a long time delay. If you use a PI controller with some options, you get a reasonable response. For example, ... |
| oops, Sorry I forgot the Exp[] in the expression above. It evidently can't be integrated in closed form using existing techniques known to Mathematica. I tried Rubi and that failed as well. Regards, Neil |
| All zeros is one solution. If you use FindRoot you can find two more fairly easily: In[23]:= g /. \[Gamma]1 -> 0 /. \[Delta]1 -> 0 /. \[Gamma]2 -> 0 Out[23]= {0., 0., 0.} In[24]:= FindRoot[ g == 0, {{\[Gamma]1,... |
| What is a digital curb cut? Regards |