马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
最近作的一些工作,发现复模并不是正交的,计算出来的是共轭正交,反复检查之下并没有错误,请教!贴出自己的部分程序,如下
%%%% 空间单层偏心主体结构,质量mp=3*10^5kg,kp1=kp2=kp3=1*10^5KN/m,kp4=3*10^5KN/m,平面尺寸x=8m,y=6m,回转半径
%%%% 为2.5m,主体结构为经典阻尼,阻尼比为0.05;在其上支撑一附属结构,附属结构质量为me=1*10^4kg,ke=2*10^4KN/m,附
%%%% 属结构阻尼比为0.02,所在位置为xs=3m,ys=2m。
%%%% 研究计算的部分:a,附属结构的频率,阻尼,位置对附属结构响应(相对支撑的位移和相对于地面的加速度)的影响。
%%%% 要求分别计算摄动之后的模态,频率传递函数,附属结构的响应均方值。
mp=3*10^5;kp1=1*10^5;kp2=1*10^5;kp3=1*10^5;kp4=3*10^5;xp=8;yp=6;rr=2.5;ceitap=0.05;
ms=1*10^4;ks=2*10^4;ceitas=0.02;xs=3;ys=2;
kp=kp1+kp2+kp3+kp4;kct=kp*25;ey=kp\(kp1*3+kp2*3+kp3*(-3)+kp4*(-3));ex=kp\(kp1*4+kp2*(-4)+kp3*(-4)+kp4*4);
%%%% 矩阵表达-主体结构,附属结构各自动态特性
Mp=[mp 0 0;0 mp 0;0 0 mp*rr^2];Kp=[kp 0 -kp*ey;0 kp kp*ex;-kp*ey kp*ex kct];
[Vp,Dp]=eig(Kp,Mp);
Dp=diag(Dp);
for i=1:3
[DpL(i),j]=min(Dp);
VGDp(:,i)=Vp(:,j);
Dp(j)=max(Dp)+1;
end
wp=DpL;
Vp=VGDp;
a1=0.05*2/(sqrt(wp(1))+sqrt(wp(2)));a0=sqrt(wp(1))*sqrt(wp(2))*a1;
Cp=a0*Mp+a1*Kp;
Ms=[ms 0;0 ms];Ks=[ks 0;0 ks];
[Vs,Ds]=eig(Ks,Ms);
Ds=diag(Ds);
for i=1:2
[DsL(i),j]=min(Ds);
VGDs(:,i)=Vs(:,j);
Ds(j)=max(Ds)+1;
end
ws=DsL;
Vs=VGDs;
cs=2*sqrt(ws(1))*ms*ceitas;
Cs=[cs 0;0 cs];
%%%% 复合结构体系的矩阵表达
M=[Mp zeros(3,2);zeros(2,3) Ms];
C=[Cp zeros(3,2);zeros(2,3) Cs]+[cs 0 -cs*ys -cs 0;0 cs cs*xs 0 -cs;-cs*ys cs*xs cs*(xs^2+ys^2) cs*ys -cs*xs;-cs 0 cs*ys 0 0;0 -cs -cs*xs 0 0];
K=[Kp zeros(3,2);zeros(2,3) Ks]+[ks 0 -ks*ys -ks 0;0 ks ks*xs 0 -ks;-ks*ys ks*xs ks*(xs^2+ys^2) ks*ys -ks*xs;-ks 0 ks*ys 0 0;0 -ks -ks*xs 0 0];
%%%% 复合系统的综合模态
%%%% 复合系统的随机振动频率相应函数计算
AA=[C M;M zeros(5,5)];
BB=[K zeros(5,5);zeros(5,5) -M];
[Vfh1,wtx1]=eig(-BB,AA); |