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

Форум пользователей пакета Mathematica

Модератор: Admin

Нурхат
Сообщения: 1
Зарегистрирован: Пт фев 07, 2014 11:16 pm
Откуда: Астана

Дисперсионные кривые волн Лэмба в 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