(a ^ 2-omega ^ 2 / c ^ 2);
> f:=proc (a) options operator, arrow; (Eps3 * a ^ 4-eps4) * rho1 * ch (rho (h2-h)) end proc;
> solve (f (a), a);
> rho:=1;
> nu:=.3;
> E:=2030;
> h:=0.1e - 1;
> h2:=1;
> k:=- 1;
> pi:=3.14;
> c:=1000;
> plot (sqrt (12 * rho * omega ^ 2 * (1-nu ^ 2) / (h ^ 2 * E)), omega=0 .. 5, a=0 .. 5, color=magenta);
> plot (-sqrt (12 * rho * omega ^ 2 * (1-nu ^ 2) / (h ^ 2 * E)), omega=- 5 .. 5, a=- 5 .. 5, color=green) ;
> plot (sqrt (Pi ^ 2 * (1 +2 * k) ^ 2 / (2 * (h2-h)) + omega ^ 2 / c ^ 2), omega=- 5 .. 5, a=- 50. . 50, color=magenta);
> plot (-sqrt (pi ^ 2 * (1 +2 * k) ^ 2 / (2 * (h2-h)) + omega ^ 2 / c ^ 2), omega=- 50 .. 50, a=- 50 .. 50, color=green);:=sqrt (ro * omega ^ 2 * (1-nu ^ 2) / ((1/12) * E * h ^ 2)):=i * sqrt (ro * omega ^ 2 * (1-nu ^ 2) / ((1/12) * E * h ^ 2)):=sqrt (- 9 * 3.14 ^ 2 / (2 * (h2-h)) + omega ^ 2 / c ^ 2):=1;:=10;:=omega^2*ro*sinh(sqrt(a^2-omega^2/c^2)*(h-h2))*(-aa*e^(x*a)+(1-nu^2)*e^(x*a)/(E*h))/(cosh(sqrt(a^2-omega^2/c^2)*(h2-h))*((4*a^3*(1+nu)*(1/2))*sqrt(a^2-omega^2/c^2)+a*(E*(1+nu)*a^4-2*ro*omega^2*(1-nu^2))/(2*E*sqrt(a^2-omega^2/c^2)))+(((1+nu)*(1/2))*a^4-ro*omega^2*(1-nu^2)/E)*sqrt(a^2-omega^2/c^2)*sinh(sqrt(a^2-omega^2/c^2)*(h2-h))*((h2-h)*a/sqrt(a^2-omega^2/c^2)))(tt,x=0..5,q=0..50);
