箱の中の自由粒子/メモ のバックアップソース(No.9)
更新- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- バックアップ を表示
- 量子力学Ⅰ/箱の中の自由粒子/メモ へ行く。
* 目次 [#yc607706]
#contents
* 概要 [#qce2ce54]
[[量子力学Ⅰ/箱の中の自由粒子]] のページの補足です。
* 演習：１次元の箱の中の自由粒子 [#f2203e73]
** 解答 [#o6def795]
(1) 箱の内部では &math(V(x)=0); であるから、シュレーディンガー方程式は
&math(
-\frac{\hbar^2}{2m}\frac{d^2}{dx^2}\varphi(x)=\varepsilon\varphi(x)
);
(2) 与式を代入すれば、
&math(
-\frac{\hbar^2}{2m}\frac{d}{dx}(ikAe^{ikx}-ikBe^{-ikx})=\varepsilon\varphi(x)
);
&math(
-\frac{\hbar^2}{2m}(-k^2Ae^{ikx}+k^2Be^{-ikx})=\varepsilon\varphi(x)
);
&math(
\frac{\hbar^2k^2}{2m}\varphi(x)=\varepsilon\varphi(x)
);
常に &math(\varphi(x)=0); では解にならないから
&math(\frac{\hbar^2k^2}{2m}=\varepsilon); すなわち
&math(k=\frac{\sqrt{2m\varepsilon}}{\hbar}); と求まる。
(3) &math(V(x)=+\infty); の点で &math(\varphi(x)\ne 0); であれば右辺は有限値、
左辺は &math(\infty); となり方程式を満たさないため。
(4) 境界条件は &math(\varphi(0)=\varphi(a)=0); であるから、
&math(\varphi(0)=A+B=0); すなわち &math(B=-A);
&math(\varphi(a)=A(e^{ika}-e^{-ika})=2iA\sin(ka)=0);
&math(A=0); では解にならないから &math(\sin(ka)=0);
すなわち &math(n); を任意の整数として &math(ka=n\pi); つまり
&math(k=k_n=n\pi/a);
であるときに限り境界条件を満たす。
ここで、&math(n=0); は &math(k=0);、
すなわち &math(\varphi); が定数となり、境界条件から &math(\varphi(x)=0);
となってしまい、解にはならない。
また、&math(n); と &math(-n); とは解の符号が変わるのみであるから、
独立な解にならない。
そこで、&math(n); を自然数に限ることにより、異なる &math(n); がそれぞれ独立な固有関数を表わす。
(5) (2) の式を &math(\varepsilon); について解くことにより、
&math(\varepsilon_n=\frac{\hbar^2 k_n^2}{2m}=\frac{\hbar^2 \pi^2}{2ma^2}n^2);
(6) 固有関数は &math(\varphi_n(x)=A\sin(n\pi x/a)); の形になる。
&math(
\int_0^a|\varphi(x)|^2\,dx
&=\int_0^a\big[A\sin(n\pi x/a)\big]^2\,dx\\
&=|A|^2\int_0^a\frac{1-\cos(2n\pi x/a)}{2}\,dx\\
&=\frac{|A|^2}{2}\Big[x-\frac{a}{2n\pi}\sin(2n\pi x/a)\Big]_0^a\\
&=\frac{a|A|^2}{2}\\
&=1\\
);
より、例えば &math(A=\sqrt{2/a}); と置けば良く、
&math(\varphi_n(x)=\sqrt{2/a}\sin(n\pi x/a));
を得る。
この波動関数に、「絶対値が１となる任意の複素定数」を掛けてもやはり規格化された解を与えることに注意せよ。
(7) &math(\psi_n(x,t)=e^{-i\omega_n t}\varphi_n(x));
ただし、&math(\hbar\omega_n=\varepsilon_n=\frac{\hbar^2 \pi^2}{2ma^2}n^2); より、
&math(\psi_n(x,t)=\sqrt{\frac{2}{a}}\exp\Big(-i\underbrace{\frac{\hbar n^2\pi^2}{2ma^2}}_{\omega_n}t\Big)\sin\Big(\underbrace{\frac{n\pi}{a}}_{k_n} x\Big));
(8) &math(\varepsilon=|p|^2/2m); より、
&math(|p|=\frac{\hbar \pi}{a}n);
(9)
&math(
\overline x&=\int_0^a\psi_n^*(x,t)x\psi_n(x,t)dx\\
&=\int_0^a\varphi_n^*(x)\cancel{e^{i\varepsilon_n t/\hbar}}x\varphi_n(x)\cancel{e^{-i\varepsilon_n t/\hbar}}dx\\
&=\int_0^a\varphi_n^*(x)x\varphi_n(x)dx\\
&=\int_0^a\sqrt{\frac{\,2\,}{a}}\sin\Big(\frac{n\pi}{a} x\Big)\
x\ \sqrt{\frac{\,2\,}{a}}\sin\Big(\frac{n\pi}{a} x\Big)\,dx\\
&=\frac{\,2\,}{a}\int_0^a x\sin^2\Big(\frac{n\pi}{a} x\Big)dx\\
&=\frac{\cancel{\,2\,}}{a}\int_0^a x\,\frac{1-\cos\big(2n\pi x/a\big)}{\cancel{\,2\,}}dx\\
&=\frac{\,1\,}{a}\Big[\frac{1}{2}x^2\Big]_0^a-\frac{1}{\cancel a}\Bigl[\cancel{\frac{\cancel a}{2n\pi}x\sin\Bigl(\frac{2n\pi}{a}x\Bigr)}\Bigr]_0^a+\frac{1}{2n\pi}\cancel{\int_0^a \sin\Bigl(\frac{2n\pi}{a}x\Bigr)dx}\\
&=\frac{\,a\,}{2}
);
&math(
\sigma_x^2&=\int_0^a\psi_n^*(x,t)(x-\overline x)^2\psi_n(x,t)dx\\
&=\frac{\,2\,}{a}\int_0^a \Big(x^2-ax+(a/2)^2\Big)\sin^2\Big(\frac{n\pi}{a} x\Big)dx\\
&=\frac{\cancel{\,2\,}}{a}\int_0^a x^2\,\frac{1-\cos\big(2n\pi x/a\big)}{\cancel{\,2\,}}dx-a\cdot\overline x+\frac{a^2}{4}\cdot 1\\
&=\frac{\,1\,}{a}\Big[\frac{1}{3}x^3\Big]_0^a
-\frac{\,1\,}{a}\Big[x^2\frac{a}{2n\pi}\,\cancel{\sin(2n\pi x/a)\rule[-0.4em]{0pt}{1.4em}}\ \Big]_0^a
+\frac{\,1\,}{\cancel{\,a\,}}\int_0^a 2x\,\frac{\cancel{\,a\,}}{2n\pi}\sin(2n\pi x/a)dx-\frac{a^2}{4}\\
&=\frac{\,a^2\,}{12}
+\frac{1}{2n\pi}\Big[-2x\frac{a}{2n\pi}\cos(2n\pi x/a)\Big]_0^a
+\frac{\,1\,}{2n\pi}\cancel{\int_0^a \frac{a}{2n\pi}\cos(2n\pi x/a)dx}\\
&=\frac{\,a^2\,}{12}\biggl(1-\frac{6}{n^2\pi^2}\biggr)\\
);
３つ目の等号は上記の &math(\overline x); の表式と、&math(\varphi_n(x)); が規格化されていることを用いた。
&math(
\sigma_x=\frac{a}{2}\sqrt{\frac{\,1\,}{3}-\frac{2}{\pi^2}\frac{1}{n^2}}
);
&math(
\overline p&=\int_0^a\psi_n^*(x,t)\,\frac{\hbar}{i}\frac{\PD}{\PD x}\psi_n(x,t)dx\\
&=-i\hbar\int_0^a \sin\Big(\frac{n\pi}{a} x\Big)\frac{n\pi}{a}\cos\Big(\frac{n\pi}{a} x\Big)dx\\
&=-\frac{in\pi\hbar}{2a}\int_0^a \sin\Big(\frac{2n\pi}{a} x\Big)dx\\
&=0
);
&math(
\sigma_p^2&=\int_0^a\psi_n^*(x,t)\Big(\frac{\hbar}{i}\frac{\PD}{\PD x}-\overline p\Big)^2\psi_n(x,t)dx\\
&=\int_0^a\psi_n^*(x,t)\Big(\frac{\hbar}{i}\frac{\PD}{\PD x}\Big)^2\psi_n(x,t)dx\\
&=\frac{2\hbar^2}{a}\int_0^a \sin\Big(\frac{n\pi}{a} x\Big)\Big(\frac{n\pi}{a}\Big)^2\sin\Big(\frac{n\pi}{a} x\Big)dx\\
&=\Big(\frac{\pi\hbar}{a}\Big)^2n^2
);
&math(\sigma_p=\frac{\pi\hbar}{a}n);
** 波動関数の形：偶関数と奇関数 [#p955dbba]
&math(x=0); に対して対称なポテンシャルに対するエネルギーの固有関数は必ず偶関数あるいは奇関数となる。
縮退のない場合、すなわちある固有値 &math(\varepsilon_k); に対して一次独立な固有関数が
それぞれ１つだけしか無い場合については以下のように簡単に証明できる。
&math(\left(-\frac{\hbar^2}{2m}\frac{\PD^2}{\PD x^2}+V(x)\right)\varphi_k(x)=\varepsilon_k\varphi_k(x));
において、ポテンシャルが原点に対して対称、つまり &math(V(-x)=V(x)); とする。
上の式の &math(x); を &math(x\to -x); と変数変換すると、
&math(\frac{\PD}{\PD x}\to -\frac{\PD}{\PD x});、
&math(\frac{\PD^2}{\PD x^2}\to \frac{\PD^2}{\PD x^2});、
&math(V(x)\to V(-x)=V(x)); より、
&math(\left(-\frac{\hbar^2}{2m}\frac{\PD^2}{\PD x^2}+V(x)\right)\varphi_k(-x)=\varepsilon_k\varphi_k(-x));
を得る。すなわち、&math(\varphi_k(-x)); も固有値 &math(\varepsilon_k); に属する固有関数である。
縮退していない場合、&math(\varphi_k(-x)=A\varphi_k(x)); と書けることになるが、
同様に &math(\varphi_k(-(-x))=A\varphi_k(-x)); であるから、
&math(\varphi_k(x)=\varphi_k(-(-x))=A\varphi_k(-x)=A^2\varphi_k(x));
となって、&math(A=\pm 1); でなければならない。
これは &math(\varphi_k(-x)=\pm\varphi_k(x)); を意味しており、
エネルギー固有関数が必ず偶関数あるいは奇関数となることを意味している。
以下に見るとおり１次元の束縛状態に関する限り、エネルギー固有値が縮退することはないため、
上記の通り自動的に偶関数あるいは奇関数の固有関数が得られることになる。
** １次元の束縛状態が縮退することはない [#e976c7dd]
時間に依存しないシュレーディンガー方程式は２階の微分方程式であるから、
あるエネルギー値を指定して方程式を解けばその一般解には２つの独立なパラメータが含まれる。
その両方のパラメータを自由に取ることができる場合には２つの独立な固有関数が得られて、
それらは縮退していることになる。
しかし束縛状態では最低限 &math(|\varphi(\pm \infty)|^2=0); なる境界条件を満たさなければならないため、
２つのパラメータを独立に決めることができなくなり、結果的に独立なパラメータは１つになってしまう。
さらにそのパラメータは波動関数を規格化する際に絶対値が決まってしまうため、
実質的な自由パラメータは初期位相 &math(\theta); のみになってしまう。
以下これを数学的に検証しよう。
１つのエネルギー固有値 &math(\varepsilon); に対して２つの固有関数 &math(\varphi_1(x),\varphi_2(x)); があったとする。
&math(
\Big(-\frac{\hbar^2}{2m}\frac{d^2}{dx^2}+V(x)\Big)\varphi_1(x)&=\varepsilon\varphi_1(x)\\
\Big(-\frac{\hbar^2}{2m}\frac{d^2}{dx^2}+V(x)\Big)\varphi_2(x)&=\varepsilon\varphi_2(x)
);
それぞれ &math(\varphi_2(x),\varphi_1(x)); を掛けて片々引き算すると、
&math(
-\frac{\hbar^2}{2m}\Big(\varphi_2(x)\frac{d^2}{dx^2}\varphi_1(x)-\varphi_1(x)\frac{d^2}{dx^2}\varphi_2(x)\Big)=0
);
&math(\varphi_2(x)\varphi_1''(x)-\varphi_1(x)\varphi_2''(x)&=\\
\Big(\varphi_2(x)\varphi_1'(x)-\varphi_1(x)\varphi_2'(x)\Big)'&=0);
すなわち、
&math(\varphi_2(x)\varphi_1'(x)-\varphi_1(x)\varphi_2'(x)=\mathit{const.});
&math(\varphi_1(\pm\infty)=\varphi_2(\pm\infty)=0); ならば右辺はゼロでなければならず、
&math(\varphi_2(x)\varphi_1'(x)-\varphi_1(x)\varphi_2'(x)=0);
このとき((上式の左辺は２次のロンスキー行列式であり、本来はこれがゼロであるかどうかを見るだけで線型独立性の判別ができる（→ [[Wikipedia:ロンスキー行列式]]）。以下は初等的に理解するための蛇足。))、
&math(
\left(\frac{\varphi_1(x)}{\varphi_2(x)}\right)'
&=\frac{\varphi_1'(x)}{\varphi_2(x)}-\frac{\varphi_1(x)\varphi_2'(x)}{\varphi_2(x)^2}\\
&=\frac{\varphi_2(x)\varphi_1'(x)-\varphi_1(x)\varphi_2'(x)}{\varphi_2(x)^2}\\
&=0
);
であるから、定数 &math(A); を用いて
&math(\frac{\varphi_1(x)}{\varphi_2(x)}=A);
すなわち &math(\varphi_2(x)\ne 0); となる点で
&math(\varphi_1(x)=A\varphi_2(x));
逆に &math(\left(\varphi_2(x)/\varphi_1(x)\right)'); から始めれば
&math(\varphi_1(x)\ne 0); となる点で
&math(\varphi_2(x)=B\varphi_1(x));
それ以外の点では &math(\varphi_1(x)=\varphi_2(x)=0); であるから、
結局全範囲で
&math(\varphi_1(x)=A\varphi_2(x));
と書け、&math(\varphi_1(x)); と &math(\varphi_2(x)); は一次従属である。
* 非定常状態の解 [#n62d71f3]
** Mathematica ソース [#d1f602c3]
LANG:mathematica
Sum[(1/n!)^2, {n, Infinity}]
(* output: -1 + BesselI[0, 2] *)
psi[x_, t_] := Sqrt[2/(BesselI[0, 2] - 1)] Sum[Exp[I n^2 t] Sin[n Pi x]/n!, {n, 50}]
Module[{t = 0},
Show[{
Plot[ Abs[psi[x, t]]^2, {x, 0, 1},
BaseStyle -> {FontSize -> 18}, ImageSize -> Large, PlotRange -> {0, 3}],
Graphics[Text["t = " <> ToString[t], {0.8, 2.8}, {-1, 0}]]
}]
]
anim = Table[
Show[{
Plot[ Abs[psi[x, t]]^2, {x, 0, 1},
BaseStyle -> {FontSize -> 18}, ImageSize -> Large, PlotRange -> {0, 3}],
Graphics[Text["t = " <> ToString[t], {0.8, 2.8}, {-1, 0}]]
}], {t, 0, 10, 0.02}
];
Export["time-dependent.gif", anim, "GIF"]
Show[{
DensityPlot[ Abs[psi[x,t]]^2, {x, 0, 1}, {t, 0, 10},
PlotPoints -> 100, ImageSize -> Large],
ParametricPlot[
{ NIntegrate[x Abs[psi[x, t]]^2, {x, 0, 1}], t},
{t, 0, 10}, PlotPoints -> 40, ImageSize -> Large, PlotStyle -> {Thick, Red}]
}, BaseStyle -> {FontSize -> 18}]
* １次元の箱の中の自由粒子（有限ポテンシャル） [#e7f1fc92]
** 波動関数の微係数の連続性 [#l1fcae51]
現実的なポテンシャルに対応するシュレーディンガー方程式を満たす波動関数は
- いたる所連続で
- なおかつその一次微分も連続となる
特に、ポテンシャルに有限の飛びを持つ不連続点がある場合にも、
その点の近傍で波動関数はその１次微分まで連続となる。
このことを確かめるため、&math(V(x)); が &math(x=x_0); において有限の飛びを持つとして、
&math(x_0); の近傍 &math([x_0-\delta,x_0+\delta]); で
時間に依存しないシュレーディンガー方程式を積分してみる。
&math(\int_{x_0-\delta}^{x_0+\delta}\left(-\frac{\hbar^2}{2m}\frac{d^2}{dx^2}\varphi(x)+V(x)\varphi(x)-\varepsilon\varphi(x)\right)\,dx=0);
&math(\left[\frac{\hbar^2}{2m}\frac{d}{dx}\varphi(x)\right]_{x_0-\delta}^{x_0+\delta}
=\int_{x_0-\delta}^{x_0+\delta}\Big(V(x)-\varepsilon\Big)\varphi(x)\,dx);
&math(\frac{\hbar^2}{2m}\Big(\varphi'(x_0-\delta)-\varphi'(x_0+\delta)\Big)
&=\overline{\Big(V(x)-\varepsilon\Big)\varphi(x)}\int_{x_0-\delta}^{x_0+\delta}\,dx\\
&=\overline{\Big(V(x)-\varepsilon\Big)\varphi(x)}\cdot 2\delta);
ただし、&math(\overline{\Big(V(x)-\varepsilon\Big)\varphi(x)}); は積分区間内での
&math(\Big(V(x)-\varepsilon\Big)\varphi(x)); の平均値である。
もしこの区間で &math(V(x)); や &math(\varphi(x)); に不連続性があったとしても、
その値が有限である限り、平均値も有限であるため、&math(\delta\to 0); の極限では
右辺はゼロとなり、
&math(\varphi'(x_0-\delta)-\varphi'(x_0+\delta)\to 0);
を得る。
すなわち &math(\varphi'(x)); は連続であり、当然 &math(\varphi(x)); も連続である。
導出過程からも分かるとおり、&math(V(x)); が無限大に発散する点ではこの限りではない。
** 詳しい導出過程 [#eb7f9871]
#ref(量子力学Ⅰ/箱の中の自由粒子/continuous.png,right,around,25%);
&math(k=\sqrt{2m\varepsilon}/\hbar);、&math(k'=\sqrt{2m(V-\varepsilon)}/\hbar); に対して、
- 箱の左： &math(\psi_l(x)=C_le^{k'x});
- 箱の中： &math(\psi_m(x)=Ae^{ikx}+Be^{-ikx});
- 箱の右： &math(\psi_r(x)=D_re^{-k'x});
境界条件は、
- &math(\psi_l(0)=\psi_m(0));、&math(\psi_l'(0)=\psi_m'(0));
- &math(\psi_m(a)=\psi_r(a));、&math(\psi_m'(a)=\psi_r'(a));
代入すると、
&math(C_l=A+B);、&math(k'C_l=ik(A-B)); より &math(\frac{A-B}{A+B}=\frac{k'}{ik});
&math(Ae^{ika}+Be^{-ika}=D_re^{-k'a});、&math(ik(Ae^{ika}-Be^{-ika})=-k'D_re^{-k'a}); より
&math(\frac{Ae^{ika}-Be^{-ika}}{Ae^{ika}+Be^{-ika}}=-\frac{k'}{ik});
したがって、
&math(-\frac{A-B}{A+B}=\frac{Ae^{ika}-Be^{-ika}}{Ae^{ika}+Be^{-ika}});
&math(-(A-B)(Ae^{ika}+Be^{-ika})=(A+B)(Ae^{ika}-Be^{-ika}));
&math(A^2e^{i2ka}=B^2);
&math(B=\pm Ae^{ika});
これを上の式に代入すれば、
&math(C_l=A(1\pm e^{ika}));
&math(D_r=Ae^{k'a}(e^{ika}\pm 1));
であり、さらに &math(k'C_l=ik(A-B)); より
&math(k'(1\pm e^{ika})=ik(1\mp e^{ika}));
を得る。
&math(
\psi_m(x)&=A(e^{ikx}\pm e^{ka}e^{-ikx})\\
&=Ae^{ka/2}(e^{ik(x-a/2)}\pm e^{-ik(x-a/2)})\\
&=2Ae^{ka/2}\frac{e^{ik(x-a/2)}\pm e^{-ik(x-a/2)}}{2}\\
);
&math(C_l=2Ae^{ka/2}\frac{e^{-ika/2}\pm e^{ika/2}}{2});
&math(D_r=2Ae^{ka/2}\,e^{k'a}\frac{e^{ika/2}\pm e^{-ika/2}}{2});
&math((k'a/2)\frac{e^{-ika/2}\pm e^{ika/2}}{2}=i(ka/2)\frac{e^{-ika/2}\mp e^{ika/2}}{2});
より &math(2Ae^{ka/2}=A'); と置いて、
[複号の上を取れば]
&math(\psi_l(x)=A'\cos(-ka/2)e^{k'x});
&math(\psi_m(x)=A'\cos\big(k(x-a/2)\big));
&math(\psi_r(x)=A'\cos(ka/2)e^{-k'(x-a)});
&math((k'a/2)\cos(ka/2)=(ka/2)\sin(ka/2));
[複号の下を取れば]
&math(\psi_l(x)=iA'\sin(-ka/2)e^{k'x});
&math(\psi_m(x)=iA'\sin\big(k(x-a/2)\big));
&math(\psi_r(x)=iA'\sin(ka/2)e^{-k'(x-a)});
&math(-(k'a/2)\sin(ka/2)=(ka/2)\cos(ka/2));
のように、それぞれ &math(x=a/2); を中心に &math(\cos); 的、&math(\sin); 的な波動関数となる。
&math(k,k'); についての条件式の両辺を二乗した上で
&math(k'^2+k^2=\frac{2mV}{\hbar^2}); の関係を使って書き直せば、
[&math(\cos); 的な関数について]
&math((ka/2)^2(1+\tan^2(ka/2))=\frac{mVa^2}{2\hbar^2}); ただし &math(\tan(ka/2)>0);
[&math(\sin); 的な関数について]
&math((ka/2)^2(1+\cot^2(ka/2))=\frac{mVa^2}{2\hbar^2}); ただし &math(\tan(ka/2)<0);
を得る。
** 時間に依存しないシュレーディンガー方程式の束縛解は実数関数として与えることできる [#t5b8d7c3]
時間に依存しないシュレーディンガー方程式の複素共役を取れば、
&math(\Big(-\frac{\hbar^2}{2m}\frac{d^2}{dx^2}+V(x)\Big)\varphi^*(x)=\varepsilon\varphi^*(x));
であるから、&math(\varphi^*(x)); も同じ固有値 &math(\varepsilon); の固有関数となる。
縮退のない場合((上で見たように一次元の束縛状態に縮退はおきない))、&math(A);
を定数として &math(\varphi^*(x)=A\varphi(x)); と書けることになるが、
固有関数が規格化されているならば &math(|A|=1); すなわち &math(A=e^{i\theta}); と書ける。
このとき &math(\varphi^*(x)=e^{i\theta}\varphi(x)); の両辺を &math(e^{i\theta/2}); で割れば、
&math(e^{-i\theta/2}\varphi^*(x)=e^{i\theta/2}\varphi(x));
&math(\Big(e^{i\theta/2}\varphi(x)\Big)^*=e^{i\theta/2}\varphi(x));
であるから、
&math(\varphi_\mathrm{real}(x)=e^{i\theta/2}\varphi(x));
と書けばこれは固有関数であり、なおかつ実数値関数である。
** Mathematica ソース [#z898078d]
LANG:mathematica
Plot[{x^2,
If[Tan[x] < 0, Infinity, x^2 (1 + Tan[x]^2)],
If[Cot[x] > 0, Infinity, x^2 (1 + Cot[x]^2)]
}, {x, 0, 14}, PlotRange -> {0, 200},
PlotLegends -> Placed[{"連続限界", "cos 的", "sin 的"}, Above],
BaseStyle -> {FontSize -> 18}, ImageSize -> Large,
PlotStyle -> {{Gray, Dashed}, Blue, Purple},
Filling -> {1 -> Axis}, FillingStyle -> {1 -> {Black, Opacity[0.05]}},
AxesLabel -> {ka/2, mVa^2/(2 \[HBar]^2)}
]
NSolve[x^2 (1 + Tan[x]^2) == 50 && Tan[x] > 0 && 0 < x < 10, x, WorkingPrecision -> 15]
(* {{x -> 1.37508316964374}, {x -> 4.09477807780528}, {x -> 6.63585976688118}} *)
NSolve[x^2 (1 + Cot[x]^2) == 50 && Cot[x] < 0 && 0 < x < 10, x, WorkingPrecision -> 15]
(* {{x -> 2.74319088650076}, {x -> 5.41164383515459}} *)
coslike[x_, k_] := Module[{k2 = Sqrt[4 50 - k^2]},
Sign[k] If[x < 0, Cos[k/2] Exp[k2 x],
If[x < 1, Cos[k (x - 1/2)], Cos[k/2] Exp[-k2 (x - 1)]]] 10 + k^2
]
sinlike[x_, k_] := Module[{k2 = Sqrt[4 50 - k^2]},
If[x < 0, -Sin[k/2] Exp[k2 x],
If[x < 1, Sin[k (x - 1/2)], Sin[k/2] Exp[-k2 (x - 1)]]] 10 + k^2
]
Plot[{
coslike[x, 2 1.37508316964374341419334462792217407823`15.],
sinlike[x, -2 2.74319088650075787031867823175879453346`15.],
coslike[x, -2 4.0947780778052791609523226938312581713`15.],
sinlike[x, 2 5.41164383515459114436056269363192749999`15.],
coslike[x, 2 6.63585976688118310914259741089030967404`15.]
},
{x, -0.5, 1.5}, PlotRange -> {0, 300}, ImageSize -> Large,
BaseStyle -> {FontSize -> 20},
Axes -> {True, False},
PlotStyle -> {Thick, Thin, Thin, Thin, Thin, Thin},
AspectRatio -> 1
]
sin[x_, n_] := If[x < 0, 0, If[x > 1, 0, Sin[n Pi x]]] 10 + (n Pi)^2
Plot[{If[x < 0, 500, If[x < 1, 0, 500]],
sin[x, 1], sin[x, 2], sin[x, 3], sin[x, 4], sin[x, 5] },
{x, -0.5, 1.5}, PlotRange -> {0, 300}, ImageSize -> Large,
BaseStyle -> {FontSize -> 20},
Axes -> {True, False},
PlotStyle -> {Thick, Thin, Thin, Thin, Thin, Thin},
AspectRatio -> 1
]
Counter: 40691 (from 2010/06/03),
today: 10,
yesterday: 0