Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 77 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
77
Dung lượng
669,16 KB
Nội dung
1 Mục lục MỞ ĐẦU Chương Tổng quan phương pháp tuyến tính hóa tương đương 1.1 Phương pháp tuyến tính hóa tương đương cho hệ nhiều bậc tự 1.1.1 Phương trình vi phân chuyển động 1.1.2 Hệ tuyến tính hóa tương đương 1.1.3 Ma trận mật độ phổ 1.2 Phương pháp tuyến tính hóa tương cho hệ bậc tự 1.3 Áp d ụng phương pháp tuyến tính hóa tương đương cho hệ Duffing Van der Pol 1.3.1 Hệ Duffing 1.3.2 Hệ Van der Pol 5 11 13 Chương Một số mở rộng phương pháp tuyến tính hóa tương đương 2.1 Phương pháp tuyến tính hóa điều chỉnh 2.2 Áp d ụng phương pháp tuyến tính hóa điều chỉnh cho hệ Atalik-Utku, Lutes-Sarkani Van der Pol 2.2.1 Hệ Atalik-Utku 2.2.2 Hệ Lutes-Sarkani 2.2.3 Hệ Van der Pol 2.3 Mở rộng phương pháp tuyến tính hóa điều chỉnh: điều chỉnh hai bước 2.3.1 Phương pháp điều chỉnh hai bước cho hệ Atalik-Utku 2.3.2 Phương pháp tuyến tính hóa điều chỉnh hai bước cho hệ Lutes-Sarkani 20 20 15 15 17 23 23 26 30 31 32 33 Chương Áp dụng phương pháp tuyến tính hóa tương đương cho toán dao động dầm 3.1 Phương trình dao động dầm 3.2 Phương pháp tuyến tính hóa điều chỉnh cho toán dao động dầm KẾT LUẬN TÀI LI ỆU THAM KHẢO PHỤ LỤC 35 35 39 48 49 50 DANH MỤC CÁC BẢNG VÀ HÌNH VẼ CÁC B ẢNG Trang Bảng Đáp ứng bình phương trung bình hệ Duffing với tham số h 0.5, 1, 17 Bảng Đáp ứng bình phương trung bình hệ Van der Pol với tham số 0.2, 1, 18 Bảng Phương sai hệ Lutes-Sarkani với giá trị khác a 29 Bảng Đáp ứng bình phương trung bình hệ Van der Pol với phương pháp khác ( 0.2, 1, ) 31 CÁC HÌNH Hình Đáp ứng bình phương trung bình E w1 theo tham số R với S0 1, 2 0, 0.1 Hình Đáp ứng bình phương trung bình E w1 45 theo tham số R với S0 1, 2 45 1, 0.1 Hình Đáp ứng bình phương trung bình E w1 theo tham số R với S0 5, 2 1, 0.1 Hình Đáp ứng bình phương trung bình E w1 theo tham số với S0 5, 46 0.1, R 46 MỞ ĐẦU Dao động tượng xảy phổ biến tự nhiên Nó xu ất lĩnh vực vật lý, hóa học, sinh học, kinh tế kỹ thuật Từ lĩnh vực này, có l ớp tốn quan tr ọng dao động ngẫu nhiên phi tuyến hệ động lực Ta thường bắt gặp hệ ngẫu nhiên phi tuyến thực tế dao động kết cấu xây dựng, nhà cao tầng hay cầu dây văng chịu tác động tải trọng gió hay kích động động đất, cơng trình cảng sơng, cảng biển hay giàn khoan chịu tác động tải trọng sóng dao động máy nhà máy xí nghiệp q trình hoạt động chúng Ta đặt vấn đề làm để tăng cường tuổi thọ trì độ bền hệ học nói Nhiều mơ hình tốn học đưa để phục vụ thực tiễn Các phương trình tốn học mơ tả giải nhiều phương diện khác Với hệ động lực phi tuyến, người ta bắt gặp phương trình phi tuyến yếu phương trình phi tuyến mạnh Phương trình phi tuyến yếu quan tâm nghiên cứu phát tri ển với nhiều phương pháp khác thập kỷ gần Có thể kể đến phương pháp phổ biến phương pháp tuyến tính hóa tương đương hay phương pháp tuyến tính hóa thống kê Đây phương pháp đưa đồng thời năm 50 kỷ trước tác giả Booton [1], Kazakov [2], Caughey [3, 4] Tuy nhiên ý t ưởng phương pháp nhen nhóm từ trước Ban đầu phương pháp tuyến tính hóa trình bày cho hệ tiền định, sở tốn học đề cập [5] Krylov Bogoluboff Đến Caughey, ông áp d ụng phương pháp tuyến tính hóa cho hệ phi tuyến chịu kích động ngẫu nhiên Ơng g ọi phương pháp “phương pháp tuyến tính hóa tương đương” Cịn tên g ọi “phương pháp tuyến tính hóa thống kê” trình bày Booton Kazakov Điều thú vị phương pháp không ng ừng cải tiến đóng góp nhiều tác giả [6-23] cho gi ải phù h ợp với loại toán khác chẳng hạn tốn liên quan đến khơng gian tr ạng thái, miền tần số, khôn g gian hàm đặc trưng [11] Phương pháp dựa tiêu chu ẩn tuyến tính hóa để tìm cơng thức dạng ẩn dạng cho hệ số tuyến tính hóa Hệ số phụ thuộc vào đặc trưng đáp ứng chưa biết (như giá trị trung bình, tương quan, mô men bậc cao ) Tuy nhiên áp dụng phương pháp vào phương trình phi tuyến mạnh gặp phải sai số lớn so với việc áp dụng vào h ệ phi tuyến yếu Vì nhu cầu cải tiến phương pháp cần thiết cho việc giải hệ phi tuyến mạnh Điều m ột mấu chốt hình thành nhiều cải tiến [12-15] Một cải tiến trình bày [12], tác giả Nguyễn Đơng Anh Di Paola giải toán cho h ệ phi tuyến phương pháp với tên gọi “phương pháp tuyến tính hóa điều chỉnh” Phương pháp dựa ý t ưởng thành phần phi tuyến ban đầu khơng tuyến hóa trực tiếp phương pháp tuyến tính hóa kinh điển mà thay thành phần phi tuyến có bậc cao hơn, sau thành phần phi tuyến thay thành phần phi tuyến bậc thấp bậc với thành phần phi tuyến ban đầu, thay thành phần phi tuyến sau thành phần tuyến tính Phương pháp sau mở rộng tác giả Elishakoff, Andrimasy, Dolley [15] Các tác gi ả thực điều chỉnh số bước thay so với cách làm ban đầu [12] Kết số hệ phi tuyến, việc thay đổi số bước thay dẫn đến sai số đáp ứng hệ giảm đáng kể Cho đến phương pháp áp dụng cho hệ rời rạc, hệ liên tục chưa có tính tốn thực Do vấn đề đặt luận văn Trong luận văn này, tác giả trình bày phương pháp tuyến tính hóa điểu chỉnh cho số hệ rời rạc hệ liên tục điển hình tốn dao động dầm Euler-Bernoulli phi tuyến chịu kích động ngồi ngẫu nhiên Luận văn gồm chương với nội dung sau Chương Tổng quan phương pháp tuyến tính hóa tương đương Chương trình bày nội dung phương pháp tuyến tính hóa tương đương áp dụng phương pháp vào hai hệ bậc tự điển hình hệ Duffing hệ Van der Pol chịu kích động ngồi ngẫu nhiên ồn trắng Chương Một số mở rộng phương pháp tuyến tính hóa tương đương Phương pháp tuyến hóa với tên gọi “phương pháp tuyến tính hóa điều chỉnh” trình bày chương Sau số mở rộng phương pháp áp dụng vào nghiên c ứu số hệ phi tuyến Atalik-Utku, Lutes-Sarkani Van der Pol Chương Áp dụng phương pháp tuyến tính hóa tương đương cho tốn dao động dầm Chương trình bày ứng dụng phương pháp tuyến tính hóa điều chỉnh vào tốn dao động dầm Euler-Bernoulli chịu kích động ngồi ngẫu nhiên Trong khn kh ổ luận văn, tác giả trình bày số hệ phi tuyến điển hình với việc sử dụng phương pháp tuyến tính hóa tương đương để nghiên cứu đáp ứng hệ Trong q trình thực luận văn tác gi ả cố gắng chắn không tránh khỏi khiếm khuyết, tác giả mong nhận ý kiến đóng góp q thầy b ạn Chương Tổng quan phương pháp tuyến tính hóa tương đương 1.1 Phương pháp tuyến tính hóa tương đương cho hệ nhiều bậc tự 1.1.1 Phương trình vi phân chuyển động Trong phần ta xét h ệ dao động nhiều bậc tự có phương trình chuyển động cho dạng sau MX CX KX X , X , X U t , X , X , X véc tơ vị trí, vận tốc gia tốc hệ, X ,C c ma trận vuông c ấp n gồm M mij nn khối lượng, X,X,X ma trận 1X,X,X cản ij nn , K k ma trận độ cứng X,X,X n X , X , X ij nn X1 X2 (1.1) X n , T ma trận hệ, hàm phi tuyến T véc tơ n thành phần, véc tơ U U U Un T q trình ngẫu nhiên có n thành phần Nếu hệ (1.1) không ch ứa thành phần phi tuyến có d ạng hệ phương trình vi phân tuyến tính hệ số số biết lý thuy ết dao động ngẫu nhiên tuyến tính Vì khó để tìm nghiệm xác hệ phi tuyến (1.1) nên người ta tìm cách xây dựng nghiệm xấp xỉ nhiều phương pháp gần khác [11] Phương pháp tuyến tính hóa tương đương phương pháp điển hình để nghiên cứu hệ ngẫu nhiên phi tuyến Ý t ưởng phương pháp tuyến tính hóa tương đương cho hệ nhiều bậc tự nói chung hệ bậc tự nói riêng thay thành phần phi tuyến hệ thành phần tuyến tính tương ứng với việc sử dụng tiêu chuẩn tối ưu ý r ằng kích động ngồi hệ phi tuyến giữ cho hệ tuyến tính Hệ tuyến tính người ta gọi hệ tuyến tính hóa tương đương Hệ tuyến tính hóa có m ột ưu điểm bật ta có th ể tìm nghiệm biết đầy đủ thơng s ố hệ Do sử dụng hệ tuyến tính hóa tương đương, ta có th ể nghiên cứu hệ phi tuyến lý thuy ết biết hệ tuyến tính 1.1.2 Hệ tuyến tính hóa tương đương Hệ tuyến tính hóa tương đương hệ (1.1) có dạng sau M M X C C X K K X U t , (1.2) M , C , K ma tr ận vuông c ấp n xác định cách sử dụng tiêu chuẩn tối ưu Có nhi ều tiêu chuẩn khác để tìm ma trận (xem [9]) Song tiêu chuẩn có l ẽ sử dụng nhiều phổ biến tiêu chuẩn sai số bình phương trung bình nhỏ Sai số phương trình ban đầu (1.1) phương trình tuyến tính hóa (1.2) cho e e e e e e M M e MX CX KX X , X , X e X,X,XM e e X C XK e X CC e X KK e X (1.3) X Các ma trận M e , C , K xác định cho nghiệm X t hệ tuyến tính hóa (1.2) xấp xỉ “tốt nhất” nghiệm hệ phi tuyến (1.1) Vì nghiệm hệ tuyến tính hóa phụ thuộc vào M e , C e K e nên người ta phải thiết lập hệ kín ba e e ma trận đáp ứng X t , từ xác định đáp ứng khác hệ Tiêu chuẩn sai số bình phương trung bình áp dụng cho (1.3) biểu diễn dạng: E eT e , e m ij ,c e ,k ij (1.4) e ij mije , cije , kije phần tử ma trận M e , C e , K e tương ứng, ký hi ệu E toán t kỳ vọng toán học Điều kiện (1.4) dẫn tới phương trình sau E eT e m e ij i , j 1, n , E eT e c e ij i , j 1, n , E eT e k e ij i , j 1, n Tiêu chuẩn (1.4) có th ể viết lại E e e e2 , e e 1 n me ij ,c ,k ij ij e1 , e2 , , en ph ần tử véc tơ e e1 e2 en T (1.5) (1.6) (1.7) (1.8) Sử dụng tính chất tuyến tính tốn tử kỳ vọng, điều kiện (1.8) dẫn tới n D2 emin e e i i 1 m ij với Di định nghĩa i i (1.9) ,c , k ij ij D2 Ee2 i 1, n (1.10) , hay D i n E i - ij j 1 e m X j c X ij e k j e X j ij (1.11) Từ (1.11), ta có th ể thấy đại lượng Di e phụ thuộc vào mij , cij 1, e k ( j ij n ) e điều kiện (1.9) thay điều kiện đơn giản sau [9] D2 e e e i m (1.12) ,c ,k ij ij ij Tức ta có phương trình: me Di ij ce Di ij i , j 1, n , (1.13) i , j 1, n, (1.14) i , j 1, n (1.15) D2 e i k ij Ta biến đổi vế trái phương trình (1.13) e m e n e E i - mis X s cis X s ij 2E X is n i - mis s s 1 2E 2 e k X s1 j e X e X is n i c s s 1 e m is E sX X s k e X s X j is c j (1.16) e is EX s X k j Do phương trình (1.13) tương đương với phương trình sau n e e e e is EXs X j s 1 m is EX s X c is j EX s X E k is X j s X j EX j i (1.17) 49 TÀI LI ỆU THAM KHẢO R.C Booton (1954), “The analysis of nonlinear central systems with random inputs”, IRE Trans Circuit Theory, 1, pp 32-34 I.E Kazakov (1954), “An approximate method for the statistical investigation for nonlinear systems”, Trudy VVIA im Prof N E Zhukovskogo, 394, pp 1-52 (in Russian) T.K Caughey (1963), “Equivalent linearization techniques”, Journal of the Acoustical Society of America, 35, pp 1706-1711 (Reference is made to presentations of the procedure in lectures delivered in 1953 at the California Institute of Technology) T.K Caughey (1959), “Response of Van der Pol's oscillator to random excitation”, J App Mech, 26, pp 345-348 N.M Krylov and N.N Bogoliubov (1937), Introduction to nonlinear mechanics, Academy of Sciences of Ukraine Publishing House (in Russian) R.L Stratonovich (1967), Topics in the Theory of Random Noise, Vol II Gordon and Breach New York T.S Atalik and S Utku (1976), “Stochastic of linearization of multi-degree of freedom nonlinear”, J Earth Eng Struct Dynamic, 4, pp 441-420 F Casciati and L Faravelli (1986), “Equivalent linearization in nonlinear random vibration problems”, Proc Conf on Vibration Problems in Eng, Xian, China, pp 986-991 J.B Roberts and P.D Spanos (1990), Random vibration and statistical linearization, Wiley, New York 10 L Socha and T.T Soong (1991), “Linearization in analysis of nonlinear stochastic systems”, Appl Mech Rev, 44, pp 399-422 11 L Socha (2008), Linearization methods for stochastic dynamic systems, Springer, Lecture Notes in Physics 12 N.D Anh and M Di Paola (1995), “Some extensions of Gaussian equivalent linearization”, International Conference on Nonlinear Stochastic Dynamics, Hanoi, Vietnam, pp 5-16 13 N.D Anh and W Schiehlen (1997), “New criterion for Gaussian equivalent linearization”, European Journal of Mechanics, A Solids, 16(6), pp 1025-1039 14 N.D Anh and W Schiehlen (1997), “An extension to the mean square criterion of Gaussian equivalent linearization”, Vietnam J Math, 25(2), pp 115-123 15 I Elishakoff, L Andrimasy and M Dolley (2008), “Application and extension of the stochastic linearization by Anh and Di Paola”, Acta Mech, 204, pp 89-98 16 L.D Lutes and S Sarkani, (2004), "Random vibration: Analysis of structural and mechanical systems", Elsevier, Amsterdam, pp 423-424, 437-438 17 I Elishakoff (2000), "Stochastic linearization technique: A new interpretation and a selective review", Shock Vibration Dig, 32, pp 179-188 18 J.J Fang, I Elishakoff and R Caimi (1995), “Nonlinear response of a beam under stationary random excitation by improved stochastic linearization method”, Applied Mathematical Modeling, 19, pp 106-111 19 P.D Spanos (1980), “Formulation of stochastic linearization for symmetric or asymmetric MDOF nonlinear systems”, Journal of Applied Mechanics, ASME, 47, pp 209-211 20 P Seide (1976), “Nonlinear stresses and deflections of beams subjected to random time dependent uniform pressure”, J Eng Indus, No 75-DET-23 21 N.D Anh, I Elishakoff and N.N Hieu (2011), “Extension of the regulated stochastic linearization to beam vibrations” (to be submitted to Vietnam Journal of Mechanics) 22 N.D Anh and N.N Hieu (2010), “The Duffing oscillator under combined periodic and random excitations” (to be submitted to Journal of Probabilistic Engineering Mechanics, Elsevier) 23 N.D Anh, N.N Hieu and N.N Linh (2011), “A dual criterion of equivalent linearization method for nonlinear systems subjected to random excitation” (to be submitted to Acta Mechanica, Springer) 50 PHỤ LỤC Các chương trình Matlab cho hình 1, 2, 3, (chương 3) Mô ph ỏng số với công c ụ Simulink Giải thích: S0: Mật độ phổ số kích động đầu vào bet0: Đại lượng định nghĩa bet0 0.1, A A ome: Đại lượng 0 rhoA: Đại lượng A alp: Đại lượng K f A2 Chương trình Matlab cho Hình % -%Copyright @ 2011 Nguyen Nhu Hieu %Date: May 10, 2011 %Faculty of Engineering Mechanics and Automation, University of Engineering and %Technology, Vietnam National University % -function Mean_Square_Response_W1 clc S0=1; bet0=0.1; ome=1; rhoA=1; alp=0; lam0=8*S0/(pi*rhoA*bet0*ome^2); R=0.05:0.05:2; num=max(size(R)); for i=1:1:num lam0=8*S0/(pi*rhoA*bet0*ome^2); ka=fsolve(@(ka) MyFunRL(ka, R(i), S0, bet0, ome, rhoA, alp), [0.1 9]); k=fsolve(@(k) MyFunEM(k, R(i), S0, bet0, ome, rhoA, alp), [0.1 0.1]); kc=fsolve(@(kc) MyFunCL(kc, R(i), S0, bet0, ome, rhoA, alp), [0.1 0.1 9]); lambdaRL(i)=lam0/ka(1); lambdaEM(i)=lam0/k(1); lambdaCL(i)=lam0/kc(1); end plot(R, lambdaRL,'r-'); hold on plot(R,lambdaEM,'b '); 51 hold on plot(R, lambdaCL,'k:'); hold on R_1=[0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0]; E_Smu1=[ 0.9619 1.9012 2.8651 3.7852 4.6582 5.4410 6.1916 6.9486 7.5441 8.1681] ; %Mean square responses by Monte-Carlo simulation for i=1:1:10 plot(R_1(i),E_Smu1(i),'r*'); hold on end set(gcf, 'color', 'white'); xlabel('R'); ylabel('mean square response E[W_{1}^{2}]'); legend('Present Method','Energy Method','Conventional Method','Simulation'); title('S_{0}=1, \alpha =0, \beta =0.1'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunRL=MyFunRL(ka, R, S0, bet0, ome, rhoA, alp); % Regulated Stochastic Linearization %ka: Linearization coefficient %R: Radius of gyration of the beam cross section %S0: Spectral density %bet0=beta/rhoA S11=pi*S0/ (bet0*ome^2*ka(1)); S33=pi*S0/ (81*bet0*ome^2*ka(2)); S13=4*pi*S0*bet0/((ka(1)-81*ka(2))^2*ome^4+2*bet0^2*(ka(1)+81*ka(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; ka1eq=1+alp+1/(2*R^2)*(7/3*lam11+45*(lam11*lam33+2*lam13^2)*(lam11*lam33 ^3+6*lam13^2*lam33^2)^2/(lam11*(lam11*lam33^2+4*lam33*lam13^2)*(7*lam11* lam33^4+8*lam13^3*lam33^2+48*lam13^2*lam33^3))); ka3eq=1+alp/81+1/ (18*R^2)*(21*lam33+5*(lam11*lam33+2*lam13^2)*(lam11^3*la m33+6*lam13^2*lam11^2)^2/(lam33*(lam11^2*lam33+4*lam11*lam13^2)*(7*lam3 3*lam11^4+8*lam13^3*lam11^2+48*lam13^2*lam11^3))); FunRL=[ka1eq-ka(1); ka3eq-ka(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunEM=MyFunEM(k, R, S0, bet0, ome, rhoA, alp); %Energy Method %k: Linearization coefficient 52 S11=pi*S0/(bet0*ome^2*k(1)); S33=pi*S0/(81*bet0*ome^2*k(2)); S13=4*pi*S0*bet0/((k(1)-81*k(2))^2*ome^4+2*bet0^2*(k(1)+81*k(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; E2W1=lam11; EW1W3=lam13; E2W3=lam33; E4W1=3*lam11^2; E4W3=3*lam33^2; E6W1=15*lam11^3; E6W3=15*lam33^3; E22W1W3=lam11*lam33+2*lam13^2; % E[w1^2*W^2] E42W1W3=3*lam11^2*lam33+12*lam11*lam13^2; E24W1W3=3*lam33^2*lam11+12*lam33*lam13^2; E2W1U=ome^2/2*((1+alp)*E4W1+(81+alp)*E22W1W3+1/(4*R^2)*(E6W1+81*E24 W1W3+18*E42W1W3)); E2W3U=ome^2/2*((1+alp)*E22W1W3+(81+alp)*E4W3+1/(4*R^2)*(E42W1W3+81 *E6W3+18*E24W1W3)); Det=E4W1*E4W3-(E22W1W3)^2; Det1=2/(ome^2)*(E2W1U*E4W3-E2W3U*E22W1W3); Det3=2/(ome^2)*(E4W1*E2W3U-E22W1W3*E2W1U); k1eq=Det1/Det; k3eq=Det3/(81*Det); FunEM=[k1eq-k(1); k3eq-k(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunCL=MyFunCL(kc, R, S0, bet0, ome, rhoA, alp); %Conventional Linearization Technique %kc: Linearization coefficient Q1=2*sqrt(2)/pi; Q2=0; Q3=2*sqrt(2)/(3*pi); S11=pi*S0/(bet0*ome^2*kc(1)); S22=pi*S0/(16*bet0*ome^2*kc(2)); S33=pi*S0/(81*bet0*ome^2*kc(3)); S12=4*pi*S0*bet0/((kc(1)-16*kc(2))^2*ome^4+2*bet0^2*(kc(1)+16*kc(2))*ome^2); S13=4*pi*S0*bet0/((kc(1)-81*kc(3))^2*ome^4+2*bet0^2*(kc(1)+81*kc(3))*ome^2); S23=4*pi*S0*bet0/((16*kc(2)81*kc(3))^2*ome^4+2*bet0^2*(16*kc(2)+81*kc(3))*ome^2); 53 k1eq=1+alp+1/(2*R^2)*((Q1/rhoA)^2*(S11*S11+2*S11^2)/S11+4*(Q2/rhoA)^2*(S1 1*S22+2*S12^2)/S11+9*(Q3/rhoA)^2*(S11*S33+2*S13^2)/S11); k2eq=1+alp/16+1/ (8*R^2)*((Q1/rhoA)^2*(S22*S11+2*S12^2)/S22+4*(Q2/rhoA)^2* (S22*S22+2*S22^2)/S22+9*(Q3/rhoA)^2*(S22*S33+2*S23^2)/S22); k3eq=1+alp/81+1/ (18*R^2)*((Q1/rhoA)^2*(S33*S11+2*S13^2)/S33+4*(Q2/rhoA)^2 *(S33*S22+2*S23^2)/S33+9*(Q3/rhoA)^2*(S33*S33+2*S33^2)/S33); lam11=(Q1/rhoA)^2*S11; FunCL=[k1eqkc(1); k2eq-kc(2); k3eq-kc(3)]; % - END PROGRAM -2 Chương trình Matlab cho Hình % -%Copyright @ 2011 Nguyen Nhu Hieu %Date: May 10, 2011 %Faculty of Engineering Mechanics and Automation, University of Engineering and %Technology, Vietnam National University % -function Mean_Square_Response_W1 clc S0=1; bet0=0.1; ome=1; rhoA=1; alp=1; lam0=8*S0/(pi*rhoA*bet0*ome); R=0.05:0.05:2; num=max(size(R)); for i=1:1:num lam0=8*S0/(pi*rhoA*bet0*ome^2); ka=fsolve(@(ka) MyFunRL(ka, R(i), S0, bet0, ome, rhoA, alp), [0.1 9]); k=fsolve(@(k) MyFunEM(k, R(i), S0, bet0, ome, rhoA, alp), [0.1 0.1]); kc=fsolve(@(kc) MyFunCL(kc, R(i), S0, bet0, ome, rhoA, alp), [0.1 0.1 9]); lambdaRL(i)=lam0/ka(1); lambdaEM(i)=lam0/k(1); lambdaCL(i)=lam0/kc(1); end plot(R, lambdaRL,'r-'); hold on plot(R,lambdaEM,'b '); hold on plot(R, lambdaCL,'k:'); hold on R_1=[0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0]; 54 E_Smu1=[0.9391 1.8162 2.6608 3.4275 4.1112 4.7288 5.3034 5.7712 6.1482 6.5725]; %Mean square responses by Monte Carlo simulation for i=1:1:10 plot(R_1(i),E_Smu1(i),'r*'); hold on end set(gcf, 'color', 'white'); xlabel('R'); ylabel('mean square response E[W_{1}^{2}]'); legend('Present Method','Energy Method','Conventional Method','Simulation'); title('S_{0}=1, \alpha =1, \beta =0.1'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunRL=MyFunRL(ka, R, S0, bet0, ome, rhoA, alp); % Regulated Stochastic Linearization %ka: Linearization coefficient %R: Radius of gyration of the beam cross section %S0: Spectral density %bet0=beta/rhoA S11=pi*S0/ (bet0*ome^2*ka(1)); S33=pi*S0/ (81*bet0*ome^2*ka(2)); S13=4*pi*S0*bet0/((ka(1)-81*ka(2))^2*ome^4+2*bet0^2*(ka(1)+81*ka(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; ka1eq=1+alp+1/(2*R^2)*(7/3*lam11+45*(lam11*lam33+2*lam13^2)*(lam11*lam33 ^3+6*lam13^2*lam33^2)^2/(lam11*(lam11*lam33^2+4*lam33*lam13^2)*(7*lam11* lam33^4+8*lam13^3*lam33^2+48*lam13^2*lam33^3))); ka3eq=1+alp/81+1/ (18*R^2)*(21*lam33+5*(lam11*lam33+2*lam13^2)*(lam11^3*la m33+6*lam13^2*lam11^2)^2/(lam33*(lam11^2*lam33+4*lam11*lam13^2)*(7*lam3 3*lam11^4+8*lam13^3*lam11^2+48*lam13^2*lam11^3))); FunRL=[ka1eq-ka(1); ka3eq-ka(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunEM=MyFunEM(k, R, S0, bet0, ome, rhoA, alp); %Energy Method %k: Linearization coefficient S11=pi*S0/(bet0*ome^2*k(1)); S33=pi*S0/(81*bet0*ome^2*k(2)); S13=4*pi*S0*bet0/((k(1)-81*k(2))^2*ome^4+2*bet0^2*(k(1)+81*k(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; 55 lam13=(Q1*Q3)/(rhoA)^2*S13; E2W1=lam11; EW1W3=lam13; E2W3=lam33; E4W1=3*lam11^2; E4W3=3*lam33^2; E6W1=15*lam11^3; E6W3=15*lam33^3; E22W1W3=lam11*lam33+2*lam13^2; % E[w1^2*W^2] E42W1W3=3*lam11^2*lam33+12*lam11*lam13^2; E24W1W3=3*lam33^2*lam11+12*lam33*lam13^2; E2W1U=ome^2/2*((1+alp)*E4W1+(81+alp)*E22W1W3+1/(4*R^2)*(E6W1+81*E24 W1W3+18*E42W1W3)); E2W3U=ome^2/2*((1+alp)*E22W1W3+(81+alp)*E4W3+1/(4*R^2)*(E42W1W3+81 *E6W3+18*E24W1W3)); Det=E4W1*E4W3-(E22W1W3)^2; Det1=2/(ome^2)*(E2W1U*E4W3-E2W3U*E22W1W3); Det3=2/(ome^2)*(E4W1*E2W3U-E22W1W3*E2W1U); k1eq=Det1/Det; k3eq=Det3/(81*Det); FunEM=[k1eq-k(1); k3eq-k(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunCL=MyFunCL(kc, R, S0, bet0, ome, rhoA, alp); %Conventional Linearization Technique %kc: Linearization coefficient Q1=2*sqrt(2)/pi; Q2=0; Q3=2*sqrt(2)/(3*pi); S11=pi*S0/(bet0*ome^2*kc(1)); S22=pi*S0/(16*bet0*ome^2*kc(2)); S33=pi*S0/(81*bet0*ome^2*kc(3)); S12=4*pi*S0*bet0/((kc(1)-16*kc(2))^2*ome^4+2*bet0^2*(kc(1)+16*kc(2))*ome^2); S13=4*pi*S0*bet0/((kc(1)-81*kc(3))^2*ome^4+2*bet0^2*(kc(1)+81*kc(3))*ome^2); S23=4*pi*S0*bet0/((16*kc(2)81*kc(3))^2*ome^4+2*bet0^2*(16*kc(2)+81*kc(3))*ome^2); k1eq=1+alp+1/(2*R^2)*((Q1/rhoA)^2*(S11*S11+2*S11^2)/S11+4*(Q2/rhoA)^2*(S1 1*S22+2*S12^2)/S11+9*(Q3/rhoA)^2*(S11*S33+2*S13^2)/S11); k2eq=1+alp/16+1/ (8*R^2)*((Q1/rhoA)^2*(S22*S11+2*S12^2)/S22+4*(Q2/rhoA)^2* (S22*S22+2*S22^2)/S22+9*(Q3/rhoA)^2*(S22*S33+2*S23^2)/S22); k3eq=1+alp/81+1/ (18*R^2)*((Q1/rhoA)^2*(S33*S11+2*S13^2)/S33+4*(Q2/rhoA)^2 *(S33*S22+2*S23^2)/S33+9*(Q3/rhoA)^2*(S33*S33+2*S33^2)/S33); lam11=(Q1/rhoA)^2*S11; FunCL=[k1eqkc(1); k2eq-kc(2); k3eq-kc(3)]; % - END PROGRAM - 56 Chương trình Matlab cho Hình % -%Copyright @ 2011 Nguyen Nhu Hieu %Date: May 10, 2011 %Faculty of Engineering Mechanics and Automation, University of Engineering and %Technology, Vietnam National University % -function Mean_Square_Response_W1 clc S0=5; bet0=0.1; ome=1; rhoA=1; alp=1; lam0=8*S0/(pi*rhoA*bet0*ome); R=0.05:0.05:2; num=max(size(R)); for i=1:1:num lam0=8*S0/(pi*rhoA*bet0*ome^2); ka=fsolve(@(ka) MyFunRL(ka, R(i), S0, bet0, ome, rhoA, alp), [0.1 9]); k=fsolve(@(k) MyFunEM(k, R(i), S0, bet0, ome, rhoA, alp), [0.1 0.1]); kc=fsolve(@(kc) MyFunCL(kc, R(i), S0, bet0, ome, rhoA, alp), [0.1 0.1 9]); lambdaRL(i)=lam0/ka(1); lambdaEM(i)=lam0/k(1); lambdaCL(i)=lam0/kc(1); end plot(R, lambdaRL,'r-'); hold on plot(R,lambdaEM,'b '); hold on plot(R, lambdaCL,'k:'); hold on %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% hold on R_1=[0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 1.8 2.0]; E_Smu1=[ 2.1812 4.2702 6.1984 8.1410 10.0478 12.0609 13.8322 15.5734 17.2122 18.8455 ]; for i=1:1:10 plot(R_1(i),E_Smu1(i),'r*'); hold on end set(gcf, 'color', 'white'); xlabel('R'); ylabel('mean square response E[W_{1}^{2}]'); legend('Present Method','Energy Method','Conventional Method','Simulation'); 57 title('S_{0}= 5, \alpha = 1, \beta = 0.1'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunRL=MyFunRL(ka, R, S0, bet0, ome, rhoA, alp);% Regulated Stochastic Linearization %ka: Linearization coefficient %R: Radius of gyration of the beam cross section %S0: Spectral density %bet0=beta/rhoA S11=pi*S0/(bet0*ome^2*ka(1)); S33=pi*S0/(81*bet0*ome^2*ka(2)); S13=4*pi*S0*bet0/((ka(1)-81*ka(2))^2*ome^4+2*bet0^2*(ka(1)+81*ka(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; ka1eq=1+alp+1/(2*R^2)*(7/3*lam11+45*(lam11*lam33+2*lam13^2)*(lam11*lam33 ^3+6*lam13^2*lam33^2)^2/(lam11*(lam11*lam33^2+4*lam33*lam13^2)*(7*lam11* lam33^4+8*lam13^3*lam33^2+48*lam13^2*lam33^3))); ka3eq=1+alp/81+1/ (18*R^2)*(21*lam33+5*(lam11*lam33+2*lam13^2)*(lam11^3*la m33+6*lam13^2*lam11^2)^2/(lam33*(lam11^2*lam33+4*lam11*lam13^2)*(7*lam3 3*lam11^4+8*lam13^3*lam11^2+48*lam13^2*lam11^3))); FunRL=[ka1eq-ka(1); ka3eq-ka(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunEM=MyFunEM(k, R, S0, bet0, ome, rhoA, alp); %Energy Method %k: Linearization coefficient S11=pi*S0/(bet0*ome^2*k(1)); S33=pi*S0/(81*bet0*ome^2*k(2)); S13=4*pi*S0*bet0/((k(1)-81*k(2))^2*ome^4+2*bet0^2*(k(1)+81*k(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; E2W1=lam11; EW1W3=lam13; E2W3=lam33; E4W1=3*lam11^2; E4W3=3*lam33^2; E6W1=15*lam11^3; E6W3=15*lam33^3; E22W1W3=lam11*lam33+2*lam13^2; % E[w1^2*W^2] 58 E42W1W3=3*lam11^2*lam33+12*lam11*lam13^2; E24W1W3=3*lam33^2*lam11+12*lam33*lam13^2; E2W1U=ome^2/2*((1+alp)*E4W1+(81+alp)*E22W1W3+1/(4*R^2)*(E6W1+81*E24 W1W3+18*E42W1W3)); E2W3U=ome^2/2*((1+alp)*E22W1W3+(81+alp)*E4W3+1/(4*R^2)*(E42W1W3+81 *E6W3+18*E24W1W3)); Det=E4W1*E4W3-(E22W1W3)^2; Det1=2/(ome^2)*(E2W1U*E4W3-E2W3U*E22W1W3); Det3=2/(ome^2)*(E4W1*E2W3U-E22W1W3*E2W1U); k1eq=Det1/Det; k3eq=Det3/(81*Det); FunEM=[k1eq-k(1); k3eq-k(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunCL=MyFunCL(kc, R, S0, bet0, ome, rhoA, alp); %Conventional Linearization Technique %kc: Linearization coefficient Q1=2*sqrt(2)/pi; Q2=0; Q3=2*sqrt(2)/(3*pi); S11=pi*S0/(bet0*ome^2*kc(1)); S22=pi*S0/(16*bet0*ome^2*kc(2)); S33=pi*S0/(81*bet0*ome^2*kc(3)); S12=4*pi*S0*bet0/((kc(1)-16*kc(2))^2*ome^4+2*bet0^2*(kc(1)+16*kc(2))*ome^2); S13=4*pi*S0*bet0/((kc(1)-81*kc(3))^2*ome^4+2*bet0^2*(kc(1)+81*kc(3))*ome^2); S23=4*pi*S0*bet0/((16*kc(2)81*kc(3))^2*ome^4+2*bet0^2*(16*kc(2)+81*kc(3))*ome^2); k1eq=1+alp+1/(2*R^2)*((Q1/rhoA)^2*(S11*S11+2*S11^2)/S11+4*(Q2/rhoA)^2*(S1 1*S22+2*S12^2)/S11+9*(Q3/rhoA)^2*(S11*S33+2*S13^2)/S11); k2eq=1+alp/16+1/ (8*R^2)*((Q1/rhoA)^2*(S22*S11+2*S12^2)/S22+4*(Q2/rhoA)^2* (S22*S22+2*S22^2)/S22+9*(Q3/rhoA)^2*(S22*S33+2*S23^2)/S22); k3eq=1+alp/81+1/ (18*R^2)*((Q1/rhoA)^2*(S33*S11+2*S13^2)/S33+4*(Q2/rhoA)^2 *(S33*S22+2*S23^2)/S33+9*(Q3/rhoA)^2*(S33*S33+2*S33^2)/S33); lam11=(Q1/rhoA)^2*S11; FunCL=[k1eqkc(1); k2eq-kc(2); k3eq-kc(3)]; % - END PROGRAM - 59 Chương trình Matlab cho Hình % -%Copyright @ 2011 Nguyen Nhu Hieu %Date: May 10, 2011 %Faculty of Engineering Mechanics and Automation, University of Engineering and %Technology, Vietnam National University % -function Mean_Square_Response_W1 clc S0=5; bet0=0.1; ome=1; rhoA=1; R=1; lam0=8*S0/(pi*rhoA*bet0*ome^2); alp=0.05:0.05:10; num=max(size(alp)); for i=1:1:num ka=fsolve(@(ka) MyFunRL(ka, alp(i), S0, bet0, ome, rhoA, R), [0.1 9]); k=fsolve(@(k) MyFunEM(k, alp(i), S0, bet0, ome, rhoA, R), [0.1 0.1]); kc=fsolve(@(kc) MyFunCL(kc, alp(i), S0, bet0, ome, rhoA, R), [0.1 0.1 9]); lambdaRL(i)=lam0/ka(1); lambdaEM(i)=lam0/k(1); lambdaCL(i)=lam0/kc(1); end plot(alp, lambdaRL,'r-'); hold on plot(alp,lambdaEM,'b '); hold on plot(alp, lambdaCL,'k:'); hold on alpha=[1 10]; MMM=[10.1095 9.5256 9.0638 8.6552 8.2053 7.7941 7.4623 7.0973 6.7656 6.4760]; for i=1:1:10 plot(alpha(i), MMM(i), 'r*'); hold on end set(gcf, 'color', 'white'); xlabel('\alpha'); ylabel('mean square response E[W_{1}^{2}]'); 60 legend('Present Method','Energy Method','Conventional Method','Simulation'); title('S_{0}=5, R =1, \beta =0.1'); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunRL=MyFunRL(ka, alp, S0, bet0, ome, rhoA, R); % Regulated Stochastic Linearization %ka: Linearization coefficient %R: Radius of gyration of the beam cross section %S0: Spectral density %bet0=beta/rhoA S11=pi*S0/ (bet0*ome^2*ka(1)); S33=pi*S0/ (81*bet0*ome^2*ka(2)); S13=4*pi*S0*bet0/((ka(1)-81*ka(2))^2*ome^4+2*bet0^2*(ka(1)+81*ka(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; ka1eq=1+alp+1/(2*R^2)*(7/3*lam11+45*(lam11*lam33+2*lam13^2)*(lam11*lam33 ^3+6*lam13^2*lam33^2)^2/(lam11*(lam11*lam33^2+4*lam33*lam13^2)*(7*lam11* lam33^4+8*lam13^3*lam33^2+48*lam13^2*lam33^3))); ka3eq=1+alp/81+1/ (18*R^2)*(21*lam33+5*(lam11*lam33+2*lam13^2)*(lam11^3*la m33+6*lam13^2*lam11^2)^2/(lam33*(lam11^2*lam33+4*lam11*lam13^2)*(7*lam3 3*lam11^4+8*lam13^3*lam11^2+48*lam13^2*lam11^3))); FunRL=[ka1eq-ka(1); ka3eq-ka(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunEM=MyFunEM(k, alp, S0, bet0, ome, rhoA, R); %Energy Method %k: Linearization coefficient S11=pi*S0/(bet0*ome^2*k(1)); S33=pi*S0/(81*bet0*ome^2*k(2)); S13=4*pi*S0*bet0/((k(1)-81*k(2))^2*ome^4+2*bet0^2*(k(1)+81*k(2))*ome^2); Q1=2*sqrt(2)/pi; Q3=2*sqrt(2)/(3*pi); lam11=(Q1/rhoA)^2*S11; lam33=(Q3/rhoA)^2*S33; lam13=(Q1*Q3)/(rhoA)^2*S13; E2W1=lam11; EW1W3=lam13; E2W3=lam33; E4W1=3*lam11^2; E4W3=3*lam33^2; E6W1=15*lam11^3; 61 E6W3=15*lam33^3; E22W1W3=lam11*lam33+2*lam13^2; % E[w1^2*W^2] E42W1W3=3*lam11^2*lam33+12*lam11*lam13^2; E24W1W3=3*lam33^2*lam11+12*lam33*lam13^2; E2W1U=ome^2/2*((1+alp)*E4W1+(81+alp)*E22W1W3+1/(4*R^2)*(E6W1+81*E24 W1W3+18*E42W1W3)); E2W3U=ome^2/2*((1+alp)*E22W1W3+(81+alp)*E4W3+1/(4*R^2)*(E42W1W3+81 *E6W3+18*E24W1W3)); Det=E4W1*E4W3-(E22W1W3)^2; Det1=2/(ome^2)*(E2W1U*E4W3-E2W3U*E22W1W3); Det3=2/(ome^2)*(E4W1*E2W3U-E22W1W3*E2W1U); k1eq=Det1/Det; k3eq=Det3/(81*Det); FunEM=[k1eq-k(1); k3eq-k(2)]; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% function FunCL=MyFunCL(kc, alp, S0, bet0, ome, rhoA, R); %Conventional Linearization Technique %kc: Linearization coefficient Q1=2*sqrt(2)/pi; Q2=0; Q3=2*sqrt(2)/(3*pi); S11=pi*S0/(bet0*ome^2*kc(1)); S22=pi*S0/(16*bet0*ome^2*kc(2)); S33=pi*S0/(81*bet0*ome^2*kc(3)); S12=4*pi*S0*bet0/((kc(1)-16*kc(2))^2*ome^4+2*bet0^2*(kc(1)+16*kc(2))*ome^2); S13=4*pi*S0*bet0/((kc(1)-81*kc(3))^2*ome^4+2*bet0^2*(kc(1)+81*kc(3))*ome^2); S23=4*pi*S0*bet0/((16*kc(2)81*kc(3))^2*ome^4+2*bet0^2*(16*kc(2)+81*kc(3))*ome^2); k1eq=1+alp+1/(2*R^2)*((Q1/rhoA)^2*(S11*S11+2*S11^2)/S11+4*(Q2/rhoA)^2*(S1 1*S22+2*S12^2)/S11+9*(Q3/rhoA)^2*(S11*S33+2*S13^2)/S11); k2eq=1+alp/16+1/ (8*R^2)*((Q1/rhoA)^2*(S22*S11+2*S12^2)/S22+4*(Q2/rhoA)^2* (S22*S22+2*S22^2)/S22+9*(Q3/rhoA)^2*(S22*S33+2*S23^2)/S22); k3eq=1+alp/81+1/ (18*R^2)*((Q1/rhoA)^2*(S33*S11+2*S13^2)/S33+4*(Q2/rhoA)^2 *(S33*S22+2*S23^2)/S33+9*(Q3/rhoA)^2*(S33*S33+2*S33^2)/S33); lam11=(Q1/rhoA)^2*S11; FunCL=[k1eqkc(1); k2eq-kc(2); k3eq-kc(3)]; % - END PROGRAM -5 Chương trình đầu vào cho Mô ph ỏng công cụ Simulink Matlab % -%Copyright @ 2011 Nguyen Nhu Hieu %Date: May 10, 2011 62 %Faculty of Engineering Mechanics and Automation, University of Engineering and %Technology, Vietnam National University % -clear; clc; num=10000; %num=1; sum1=0; sum3=0; R=1; S0=5; alpha=4; Q1=2*sqrt(2)/pi; Q2=0; Q3=2*sqrt(2)/(3*pi); p1=(Q1*sqrt(2*pi*S0))^2; p2=0; p3=(Q3*sqrt(2*pi*S0))^2; beta0=0.1; b1=1+alpha; om1=1; b2=1+alpha/16; om2=4; b3=1+alpha/81; om3=9; A1=1/2/R^2; A2=1/8/R^2; A3=1/18/R^2; %err=0.0001; for i=1:1:num Ran0=round(100000000*rand(1)); sim('ptvp1'); w1=yout(:,1); %w2=yout(:,2); w3=yout(:,3); MM1=mean(w1.*w1); MM3=mean(w3.*w3); sum1=sum1+MM1; sum3=sum3+MM3; end sum1=sum1/num sum3=sum3/num % - THE END 63 Sơ đồ mô ph ỏng công c ụ Simulink Matlab ... Euler-Bernoulli phi tuyến chịu kích động ngồi ngẫu nhiên Chương Áp d ụng phương pháp tuyến tính hóa tương đương cho tốn dao động dầm Phương pháp tuyến tính hóa tương đương quan tâm nghiên cứu hệ rời... ến tính hóa tương đương nhằm tăng độ xác đáp ứng hệ phi tuyến Chương Một số mở rộng phương pháp tuyến tính hóa tương đương Như nói chương 1, số hệ phi tuyến, phương pháp tuyến tính hóa tương đương. .. ụng phương pháp tuyến tính hóa cho hệ phi tuyến chịu kích động ngẫu nhiên Ơng g ọi phương pháp ? ?phương pháp tuyến tính hóa tương đương? ?? Cịn tên g ọi ? ?phương pháp tuyến tính hóa thống kê” trình