5
$\begingroup$

This question is related to Analytic solution of dynamic Euler–Bernoulli beam equation with compatibility condition. I think it is more appropriate to open another question on this topic.

In the question, the compatibility conditions can be introduce into equations using DiracDelta. For example, for the spring compatibility condition, the governing equation can be rewritten as

$$EI\cfrac{\partial^4 w}{\partial x^4} + \mu\cfrac{\partial^2 w}{\partial t^2} + k \delta(x-L/2) w(x,t) = 0$$

Then, we try to use Laplace Transform mentioned by @xzczd,

eqn = EI D[y[x, t], {x, 4}] + μ D[y[x, t], {t, 2}] + 
    k DiracDelta[x - L/2] y[x, t] == 0;
ic = {y[x, 0] == Sin[x/L Pi], Derivative[0, 1][y][x, 0] == 0};
bc = {y[0, t] == 0, y[L, t] == 0, Derivative[2, 0][y][0, t] == 0, 
   Derivative[2, 0][y][L, t] == 0};
teqn = With[{l = LaplaceTransform}, 
   l[{eqn, bc}, t, s] /. HoldPattern@l[u_, t, s] :> u] /. Rule @@@ ic

This step goes well, the equation is transformed to s-domain, but with DiracDelta function.

Apply DSolve to the equation returns 0

DSolve[teqn, y[x, t], x][[1, 1, -1]]

So, I thought maybe use FourierTransform to transform $x$ to $\omega$ domain may solve this problem. However, Mathematica do not return a result from FourierTransform

FourierTransform[eqn, x, s]

There are several questions related to this question but they are mostly using NDSolve. Here are two examples:

Solving a PDE containing DiracDelta

How to correctly use DSolve when the force is an impulse (dirac delta) and initial conditions are not zero

$\endgroup$
  • 1
    $\begingroup$ I don't think using the delta function is practical here. It's probably better to use the general solution in each domain (left and right half) and match them according to the compatibility conditions implied by the delta function. That should reduce the problem to a set of simultaneous (algebraic, not differential) equations for the integration constants in each interval once you know the general solution as derived in my answer to the linked question. $\endgroup$ – Jens May 26 '15 at 4:48
  • $\begingroup$ In v9.0.1, DSolve returns unevaluated after a warning. For the FourierTransform part: unlike LaplaceTransform, currently FourierTransform isn't handy. To circumvent this, here's a shell for enhancing. But what's really troublesome is: the ODE isn't defined in a infinite domain, so Fourier transform can't be used directly, theoretically one can extend the domain in cycles with e.g. Mod, but personally I never succeeded in the subsequent step: perhaps a artificial periodic function is too hard for FourierTransform, I'm not sure. $\endgroup$ – xzczd May 26 '15 at 5:20
  • $\begingroup$ @Jens substituting boundary condition into the general solution and solve the equations analytically in Mathematica is not a easy task to do. Actually, it will be very soon end up to an eigenvalue problem for this problem. $\endgroup$ – Kattern May 26 '15 at 5:33
  • $\begingroup$ @xzczd it seems this problem has to fall back to eigenvalue problem. And the best we can get is a not very long eigenvalue equation. $\endgroup$ – Kattern May 26 '15 at 5:45
0
$\begingroup$

This is not a total answer, but it may get you a little farther with the FourierTransform. The pde:

eqn = EI D[y[x, t], {x, 4}] + μ D[y[x, t], {t, 2}] + 
   k DiracDelta[x - L/2] y[x, t] == 0

Although MMa doesn't like taking the ft of the entire pde at once, we can do it term by term.

fteq = EI FourierTransform[D[y[x, t], {x, 4}], x, s] + μ FourierTransform[D[y[x, t], {t, 2}], x, s] + 
   k FourierTransform[y[x, t] DiracDelta[x - L/2], x, s] == 0
(*EI*s^4*FourierTransform[y[x, t], x, s] + 
   μ*FourierTransform[Derivative[0, 2][y][x, t], x, s] + 
   (k*E^((I*L*s)/2)*y[L/2, t])/Sqrt[2*Pi] == 0*)

Converting this by hand to an ode MMa can work with:

fteq = EI s^4 ys[t] + μ ys''[t] + y[L/2, t] (k E^((I L s)/2))/Sqrt[2 π] == 0

sol = DSolve[fteq, ys[t], t] // Flatten

We get a solution, but not knowing y[L/2,t] this is about as far as we can go. MMa can invert the FourierTransform for a constant value for y[L/2,t] and presumably for other functions of t, but with the DiracDelta function at x = L/2, it is hard to know the value of y there.

$\endgroup$
  • $\begingroup$ Hmm… I'm afraid this answer isn't correct, because FourierTransform is a tool for solving differential equation defined in a unbounded domain, while OP's problem is bounded in $[0,L]$. It might be possible to first extend the domain periodically and then solve the problem with FourierTransform, I myself never succeeded though… $\endgroup$ – xzczd Aug 12 '18 at 1:36

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.