User Portlet
Featured Contributor
| Discussions |
|---|
| In this problem, you compare impedances, not phases. This is another task, it has another solution in the complex plane. And in the original problem, we looked for real roots that physically correspond to the capacitance C1. |
| For what purpose do you want a solution to this problem? Even in the simplest case, the solutions are very cumbersome. In my opinion, a numerical solution is preferable. I will give a working code that performs symbolic calculations for the numerical... |
| Formulate your task. From your code it is not clear what problem you are trying to solve. |
| You can use any boundary conditions. This code is adapted for your task. However, you can use the code to solve a problem with one or two free ends. Therefore, accelerations are used as boundary conditions. An example of solving a problem with one... |
| Unfortunately, I can not adapt the code for the old version of Mathematica. |
| Thank you, I did not even notice the error in the definition of D3. After correcting the code, the result has changed. I also changed my post. |
| This is outdated code. Maybe it would be better to write a new one? |
| The file `FEL.cdf` does not contain any data. Attach a data file `free-energy-landscape.txt` |
| You did not put the curly braces. After the correction, we get the desired animation G = 1; M = 1; \[Omega][r_] := Sqrt[G*M/r^3]; t0 = 4*Pi; Animate[Graphics[{Red, Disk[{0, 0}, .2], Blue, Disk[{Cos[\[Omega][1]*t],... |
| The problem is that the integral b does not converge for $l \ge 2$. Or converges very slowly, so you need to apply special calculation methods. \[Gamma] = 1; \[Theta] = \[Pi]/2; \[Phi] = 0; l = 2; r0 = 6; w0 = 5; Subscript[R, l] = ... |