|
楼主 |
发表于 2010-12-8 20:55
|
显示全部楼层
我现在所学的非线性动力学知识几乎有80%都是来自于振动论坛,所以没有什么所谓保留。即使我知道了新的方法或者知识,也会同大家分享,因为我觉得只有这样才能够共同进步。麻烦大家看一下。
- tic
- clc
- clear
- global cz
- period = 2*pi;
- tspan = (0:period/100:500*period);
- y0 = [0.001 0.001 0.001 0.001 0.001 0.001 0.001 0.001];
- %%%%%%%%%%%%%%%% 参数变化范围 %%%%%%%%%%%%%%%
- %
- cz_sub = 0.20*10^-3 : 0.005*10^-3 : 6.0*10^-3;
-
- %
- %
- row = length(cz_sub);
- column = length(40100:100:50001);
- U_x1 = zeros(row,column); % 转子轴心x1的ode计算结果存储
- U_y1 = zeros(row,column); % 转子轴心y1的ode计算结果存储
- U_plus_cz_x1 = zeros(row,column+1); % x1和cz的混合结果存储
- U_plus_cz_y1 = zeros(row,column+1); % y1和cz的混合结果存储
- %
- %%%%%%%%%%%%%%%%% 数值计算 %%%%%%%%%%%%%%%%%%%
- for z = 1:length(cz_sub)
- cz = cz_sub(z);
- disp(cz)
- [T,u] = ode15s(@equ_elastic_without_UMP,tspan,y0);
- y0 = u(end,:); %将最后的计算结果作为下一次的初值
-
- U_x1(z,:) = u(40100:100:end,1)';
- U_y1(z,:) = u(40100:100:end,3)';
- end
- %%%%%%%%%%%%%%%%% 计算结果存储 %%%%%%%%%%%%%%%%%%%
- %
- U_plus_cz_x1(:,1) = cz_sub';
- U_plus_cz_x1(:,2:end) = U_x1;
- U_plus_cz_y1(:,1) = cz_sub';
- U_plus_cz_y1(:,2:end) = U_y1;
- %
- m = row;
- n = column + 1;
- %%%%%%%%%%%%%%%% 计算结果写入 %%%%%%%%%%%%%%%%
-
-
- % x1的分岔结果写入
- fid = fopen('长径比=0.20,e0=0.0006,忽略UMP时cz_x1分岔结果_Situ_E.dat','w+');
- for i = 1:m
- for j= 1:n
- fprintf(fid,'%6.4e ',U_plus_cz_x1(i,j));
- end
- fprintf(fid,'\n');
- end
- fclose(fid)
- % y1的分岔结果写入
- fid = fopen('长径比=0.20,e0=0.0006,忽略UMP时cz_y1分岔结果_Situ_E.dat','w+');
- for i = 1:m
- for j= 1:n
- fprintf(fid,'%6.4e ',U_plus_cz_y1(i,j));
- end
- fprintf(fid,'\n');
- end
- fclose(fid)
- save cz_change_Situ_E
- toc
复制代码
%%%%%%%%%%%%微分方程%%%%%%%%%%%%%
- function uu = equ_elastic_without_UMP(T,u)
- m1 = 60; %转子质量 kg
- m2 = 25; %轴颈质量 kg
- c1 = 4000; %转子阻尼 N.s/m
- c2 = 1200; %轴承阻尼 N.s/m
- Ke = 6.2*10^6; %转轴刚度 N/m
-
-
- e0 = 0.6*10^-3; %转子质量偏心 m
-
-
- delta_0 = 4.5*10^-3; %均匀气隙大小 m
- Rb = 50*10^-3; %轴承半径 m
-
-
- Lb = 20*10^-3; %轴承长 m
-
- mu = 18*10^-3; %绝对润滑油粘度 无单位
-
- omega = 13; %大轴旋转角速度
-
- global cz
-
- %%% 非线性油膜力表达式 fx fy %%%%
-
- sigma = mu * omega * Rb * Lb * (Rb/cz)^2 * (Lb/2/Rb)^2; %Sommerfeld修正系数
-
- A1 = u(7) + 2*u(6);
- A2 = u(5) - 2*u(8);
-
- alpha = atan(A1./A2) - pi/2* sign(A1./A2) - pi/2* sign(A1);
-
- E = sqrt(u(5).^2 +u(7).^2); %轴颈轴心轨迹
- E_minus = sqrt(1 -E.^2);
-
- B1 = u(7)*cos(alpha) - u(5)*sin(alpha);
- B2 = u(5)*cos(alpha) + u(7)*sin(alpha);
-
- G = 2./E_minus * ( pi/2 + atan(B1./ E_minus) );
- V = (2 + B1 * G) ./ E_minus.^2;
- S = B2 ./ ( 1 - B2.^2 );
-
- F_oil_same = -sqrt( A2.^2 + A1.^2 ) ./ E_minus.^2;
-
- f_x = F_oil_same * ( 3* u(5) *V - sin(alpha) * G - 2 *cos(alpha)*S );
- f_y = F_oil_same * ( 3* u(7) *V + cos(alpha) * G - 2 *sin(alpha)*S ); %油膜力的无量纲表达式
-
- fx = sigma * f_x;
- fy = sigma * f_y; %非线性油膜力
-
- uu = zeros(8,1);
- uu(1) = u(2);
- uu(2) = -c1/(m1*omega) * u(2) - Ke/(m1*omega^2) * u(1) + Ke * cz/(m1*omega^2*delta_0)*u(5) + e0 * cos(T)/delta_0 ;
- uu(3) = u(4);
- uu(4) = -c1/(m1*omega) * u(4) - Ke/(m1*omega^2) * u(3) + Ke * cz/(m1*omega^2*delta_0)*u(7) + e0 * sin(T)/delta_0 ;
- uu(5) = u(6);
- uu(6) = -c2/(m2*omega) * u(6) + Ke * delta_0/(2*m2*omega^2*cz) * u(1) - Ke/(2*m2*omega^2) * u(5) + fx/(m2*omega^2 *cz);
- uu(7) = u(8);
- uu(8) = -c2/(m2*omega) * u(8) + Ke * delta_0/(2*m2*omega^2*cz) * u(3) - Ke/(2*m2*omega^2) * u(7) + fy/(m2*omega^2 *cz);
-
-
复制代码
|
|