马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
本人求受轴向力的悬臂梁的固有频率遇到个问题,用matlab编制了程序可是结果出不来,,,求高手指教;
clc
clear
syms E I a1 a2 m l s omiga tr1 tr2 trr trr1 ;
%实验等截面梁参数
l=0.8;
d=0.01;
A=pi*d*d/4;
%梁材料参数(忽略悬臂梁的质量)
u=0.3;
rou=7800;
E=2e11;
I=pi*(d^4)/64;
m=rou*A;
s=1e4;
a1=sqrt((sqrt(s^2+4*m*omiga^2*E*I)-s)/(2*E*I));
a2=sqrt((sqrt(s^2+4*m*omiga^2*E*I)+s)/(2*E*I));
%计算总传递矩阵
tr1=[sin(a1*l) cos(a2*l) sinh(a2*l) cosh(a2*l);
a1*cos(a1*l) -a1*sin(a1*l) a2*cosh(a2*l) a2*sinh(a2*l);
-E*I*a1^2*sin(a1*l) -E*I*a1^2*cos(a1*l) E*I*a2^2*sinh(a2*l) E*I*a2^2*cosh(a2*l);
(-E*I*a1^3)*cos(a1*l) (E*I*a1^3)*sin(a1*l) (E*I*a2^3)*cosh(a2*l) (E*I*a2^3)*sinh(a2*l)];
tr2 =[ -(a1*a2)/(a1^2 + a2^2), 1/a1, -a2/(E*I*(a1^3 + a1*a2^2)), 0;
a2^2/(a1^2 + a2^2), 0, -1/(E*I*(a1^2 + a2^2)), 0;
-a1^4/(a2^2*(a1^2 + a2^2)), a1^2/a2^3, -a1^2/(E*I*a2^2*(a1^2 + a2^2)), 1/(E*I*a2^3);
%总传递矩阵
tr=tr1.*tr2;
% 由悬臂梁的边界条件得特征方程
trr=[ -(a1^2*sinh(a2*l))/(a1^2 + a2^2), cosh(a2*l)/a2;
-(cosh(a2*l)*(- E*I*a2^3 + s*a2))/(E*I*(a1^2 + a2^2)), 0 ];
trr1=det(trr)
得到的结果如下:
trr1 =
-(cosh((4*((2*((361621451347209955078125*pi*omiga^2)/4722366482869645213696 + 100000000)^(1/2))/125 + 160)^(1/2))/(5*pi^(1/2)))^2*(((361621451347209955078125*pi*omiga^2)/4722366482869645213696 + 100000000)^(1/2) - 10000))/(2*((361621451347209955078125*pi*omiga^2)/4722366482869645213696 + 100000000)^(1/2))
现在不知道怎么求trr1=0这个方程的解omiga。。。
试了用solve命令和fsolve命令好像都不行。。。。。。。哪位高手能指点迷津啊。。。实在是没办法啊。。
|