Mathematica 8 の DSolve[] コマンドに問題があります。次の 4 次微分方程式を解くと、実数のはずなのに複雑な解が出力されます。方程式は次のとおりです。
y''''[x] + a y[x] == 0
この方程式を手で解くと、実数部のみの解が得られます。すべての定数と境界条件も実数です。
私が手で得た解決策は次のとおりです。
y1[x_] = (C[5] E^(Power[a, (4)^-1]/Power[2, (2)^-1] x) +
C[6] E^(-(Power[a, (4)^-1]/Power[2, (2)^-1]) x)) Cos[
Power[a, (4)^-1]/Power[2, (2)^-1]
x] + (C[7] E^(Power[a, (4)^-1]/Power[2, (2)^-1] x) +
C[8] E^(-(Power[a, (4)^-1]/Power[2, (2)^-1]) x)) Sin[
Power[a, (4)^-1]/Power[2, (2)^-1] x];
ここで、定数 C[5]...C[8] を解かなければなりません。これは同様の問題を引き起こします。境界条件で Solve[] コマンドを使用します
Solve[{y1''[-c] == ic0, y1''[c] == ic0 , y1'''[-c] == ic1 ,
y1'''[c] == - ic1 }, {C[5], C[6], C[7], C[8]} ];
定数 C[5]...C[8] は、//Simplify を使用すると実数になり、//FullSimplify を使用すると複素数になります。
理由は何ですか?私の計算を含むノートブックは、http: //dl.dropbox.com/u/4920002/DGL_4th_Order_with_own_solution.nbからダウンロードできます。
今後の作業では、DSolve[] を使用する必要があり、ここで問題を理解したいと思います。
ありがとう、
アンドレアス