Страница 1 из 1

Дисперсионные кривые волн Лэмба в Mathematica

Добавлено: Сб фев 08, 2014 1:07 am
Нурхат
Как в Mathematica построить график дисперсионных кривы волн Лэмба?
Исходные формулы даны в вики:
http://en.wikipedia.org/wiki/Lamb_waves
Альтернативная формула дается в виде:
Tanh[b k h]/Tanh[a k h] == (4 b a )/((1 + b^2)^2);
a = Sqrt[ 1 - c^2/Subscript[C, l]^2];
b = Sqrt[ 1 - c^2/Subscript[C, t]^2];
c = \[Omega]/k; k=2 Pi/l; Omega=2*Pi*f;
График: c-фазовая скорость от частоты [f] или [c]vs[f*h]
Ожидаемые графики:
http://i.exponenta.ru/exponenta/2014/2/8/7174.jpg