Tính toán tĩnh và dao động của kết cấu tấm Composite áp điện

Tính toán tĩnh và dao động của kết cấu tấm Composite áp điện Tính toán tĩnh và dao động của kết cấu tấm Composite áp điện Tính toán tĩnh và dao động của kết cấu tấm Composite áp điện luận văn tốt nghiệp,luận văn thạc sĩ, luận văn cao học, luận văn đại học, luận án tiến sĩ, đồ án tốt nghiệp luận văn tốt nghiệp,luận văn thạc sĩ, luận văn cao học, luận văn đại học, luận án tiến sĩ, đồ án tốt nghiệp

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI - LÊ KIM NGỌC TÍNH TỐN TĨNH VÀ DAO ĐỘNG CỦA KẾT CẤU TẤM COMPOSITE ÁP ĐIỆN LUẬN ÁN TIẾN SĨ KỸ THUẬT Hà Nội - 2010 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC BÁCH KHOA HÀ NỘI - LÊ KIM NGỌC TÍNH TỐN TĨNH VÀ DAO ĐỘNG CỦA KẾT CẤU TẤM COMPOSITE ÁP ĐIỆN Chuyên ngành: Cơ học vật thể rắn Mã số: 62.44.21.01 LUẬN ÁN TIẾN SĨ KỸ THUẬT NGƢỜI HƢỚNG DẪN KHOA HỌC GS TS TRẦN ÍCH THỊNH Hà Nội - 2010 CỘNG HOÀ XÃ HỘI CHỦ NGHĨA VIỆT NAM Độc lập - Tự - Hạnh phúc LỜI CAM ĐOAN Tôi tên là: Lê Kim Ngọc Tôi xin cam đoan cơng trình nghiên cứu riêng Các số liệu, kết nêu luận án trung thực chƣa đƣợc công bố cơng trình khác Hà Nội, ngày tháng năm 2010 Ngƣời cam đoan Lê Kim Ngọc LỜI CẢM ƠN Tác giả xin bày tỏ lòng biết ơn sâu sắc GS Trần Ích Thịnh - thày giáo hướng dẫn tận tình giúp đỡ, tạo điều kiện động viên suốt trình học tập, nghiên cứu hoàn thành luận án Tác giả xin bày tỏ lịng biết ơn tập thể thày Bộ môn Cơ học vật liệu kết cấu - Trường Đại học Bách khoa Hà Nội đóng góp nhiều ý kiến có giá trị, tạo điều kiện giúp đỡ q trình học tập, nghiên cứu hồn thành luận án Tác giả xin bày tỏ lòng biết ơn tập thể thành viên nhóm Seminar Cơ học - Đại học Khoa học Tự nhiên - ĐH Quốc gia Hà Nội đóng góp nhiều ý kiến có giá trị giúp đỡ q trình học tập, nghiên cứu hoàn thành luận án Tác giả xin bày tỏ lòng biết ơn bạn bè, đồng nghiệp tận tình giúp đỡ động viên suốt q trình học tập, nghiên cứu hồn thành luận án Tác giả xin bày tỏ lòng biết ơn sâu sắc cha mẹ, vợ con, anh em tạo điều kiện động viên suốt trình học tập, nghiên cứu hoàn thành luận án Tác giả MỤC LỤC Lời cam đoan Lời cảm ơn Mục lục Danh mục ký hiệu chữ viết tắt Danh mục bảng số liệu Danh mục hình vẽ MỞ ĐẦU Chƣơng 1: TỔNG QUAN VỀ VẤN ĐỀ NGHIÊN CỨU 1.1 TÌNH HÌNH NGHIÊN CỨU TRONG VÀ NGOÀI NƢỚC LIÊN QUAN ĐẾN ĐỀ TÀI LUẬN ÁN 1.2 NHỮNG VẤN ĐỀ MÀ LUẬN ÁN TẬP TRUNG NGHIÊN CỨU 19 1.3 KẾT LUẬN CHƢƠNG 19 Chƣơng 2: MỘT SỐ HỆ THỨC CƠ HỌC TRONG TÍNH TỐN TẤM COMPOSITE ÁP ĐIỆN 2.1 ĐẶT VẤN ĐỀ 21 2.2 VẬT LIỆU ÁP ĐIỆN VÀ TƢƠNG TÁC CƠ - ĐIỆN 21 2.2.1 VLAĐ số khái niệm, đại lƣợng liên quan 21 2.2.2 Các hệ thức biểu diễn ứng xử học VLAĐ 27 2.2.3 Kích thích cảm biến áp điện 31 2.3 CÁC HỆ THỨC CƠ BẢN TRONG TÍNH TỐN TẤM COMPOSITE LỚP THEO LÝ THUYẾT TẤM CỦA MINDLIN -REISSNER 2.3.1 Trƣờng chuyển vị 35 37 2.3.2 Trƣờng biến dạng 37 2.3.3 Trƣờng ứng suất 38 2.3.4 Các thành phần nội lực 40 2.3.5 Phƣơng trình ứng xử học nhiều lớp 41 2.4 PHƢƠNG TRÌNH ỨNG XỬ CƠ HỌC CỦA TẤM COMPOSITE ÁP ĐIỆN 2.5 KẾT LUẬN CHƢƠNG 42 46 Chƣơng 3: THUẬT TỐN PTHH TÍNH TỐN TẤM COMPOSITE ÁP ĐIỆN 3.1 ĐẶT VẤN ĐỀ 47 3.2 THIẾT LẬP THUẬT TOÁN 47 3.2.1 Trƣờng chuyển vị, phần tử đẳng tham số nút trƣờng điện 47 3.2.2 Trƣờng biến dạng điện trƣờng 51 3.2.3 Trƣờng ứng suất điện tích cảm ứng 52 3.2.4 Phƣơng trình PTHH tính tốn chuyển vị tĩnh, tính tốn dao động tự có khơng có cản kết cấu composite áp điện 54 3.2.5 Bài toán tối ƣu với thuật toán di truyền 66 3.2.6 Thuật tốn tích phân Newmark 71 3.2.7 Chƣơng trình tính 73 3.3 KẾT LUẬN CHƢƠNG 74 Chƣơng 4: KẾT QUẢ TÍNH TỐN SỐ BẰNG PHƢƠNG PHÁP PTHH 4.1 ĐẶT VẤN ĐỀ 75 4.2 KẾT QUẢ NGHIÊN CỨU BÀI TOÁN UỐN TĨNH 76 4.2.1 Sự tác động qua lại hai trƣờng điện 76 4.2.2 Điều khiển chuyển vị tĩnh kết cấu composite có gắn lớp hay miếng áp điện 78 4.2.3 Ảnh hƣởng góc sợi lớp composite, vị trí lớp áp điện đến độ võng kết cấu composite áp điện 83 4.2.4 Ảnh hƣởng vị trí miếng áp điện đến độ võng kết cấu composite áp điện 4.2.5 Ảnh hƣởng kích thƣớc miếng áp điện đến độ võng kết cấu composite áp điện 4.3 KẾT QUẢ NGHIÊN CỨU BÀI TOÁN DAO ĐỘNG TỰ DO 4.3.1 Ảnh hƣởng HUAĐ đến tần số dao động riêng kết cấu composite áp điện 4.3.2 Ảnh hƣởng góc sợi lớp composite đến tần số dao động riêng kết cấu composite áp điện 85 86 91 91 92 4.3.3 Ảnh hƣởng vị trí miếng áp điện đến tần số riêng khả tự khử dao động tự kết cấu composite áp điện 94 4.3.4 Ảnh hƣởng hệ số điều khiển hồi tiếp đến khả triệt tiêu dao động tự kết cấu composite áp điện 96 4.4 BÀI TOÁN TỐI ƢU Tính tốn điện hợp lý áp đặt, vị trí hợp lý dán miếng áp điện, góc sợi hợp lý composite lớp để đạt đƣợc chuyển vị mong muốn kết cấu conxon composite 98 4.5 KẾT LUẬN CHƢƠNG 103 Chƣơng 5: NGHIÊN CỨU THỰC NGHIỆM 5.1 ĐẶT VẤN ĐỀ 107 5.2 XÂY DỰNG THÍ NGHIỆM 107 5.2.1 Mẫu thí nghiệm 107 5.2.2 Thiết bị hệ thống kích thích miếng áp điện 109 5.2.3 Thiết bị hệ thống ghi số liệu đo chuyển vị, tần số dao động riêng 111 5.3 ĐO, GHI VÀ XỬ LÝ SỐ LIỆU 112 5.3.1 Đo, ghi độ võng tần số dao động riêng 112 5.3.2 Xử lý số liệu 114 5.4 SO SÁNH KẾT QUẢ THỰC NGHIỆM VỚI TÍNH TỐN BẰNG PP PTHH 114 5.5 KẾT LUẬN CHƢƠNG 121 KẾT LUẬN CHUNG DANH MỤC CÁC CƠNG TRÌNH CỦA TÁC GIẢ ĐÃ CÔNG BỐ LIÊN QUAN ĐẾN ĐỀ TÀI LUẬN ÁN TÀI LIỆU THAM KHẢO PHỤ LỤC 122 DANH MỤC CÁC KÝ HIỆU VÀ CHỮ VIẾT TẮT x, y, z 1, 2, u, v, w u0, v0, w0 θx, θy, θz εxx, εyy, εzz γxy, γyz, γxz  xx0 , yy0 , xy0 hệ trục toạ độ tổng thể hệ trục chung vật liệu composite lớp hệ trục lớp vật liệu thành phần chuyển vị theo phƣơng x, y, z thành phần chuyển vị theo phƣơng x, y, z mặt trung bình kết cấu thành phần chuyển vị góc quanh trục x, y, z thành phần biến dạng dài theo phƣơng x, y, z thành phần biến dạng góc mặt xy, yz, zx thành phần biến dạng màng mặt trung bình  yz0 , xz0 thành phần biến dạng cắt mặt trung bình  x ,  y ,  xy thành phần độ cong theo phƣơng σxx, σyy, σxy, σyz, σzx thành phần ứng suất hệ toạ độ x, y, z σ11, σ22, σ12, σ23, σ13 thành phần ứng suất hệ toạ độ 1, 2, góc phƣơng sợi lớp vật liệu so với phƣơng x θ hk, hk-1 toạ độ mặt dƣới lớp vật liệu thứ k zk toạ độ theo phƣơng chiều dày lớp vật liệu thứ k E1, E2, G12, υ12 mô đun Young dọc, mô đun Young ngang, mô đun cắt, hệ số Poisson lớp vật liệu [C], [C'], [S], [S'] ma trận số độ cứng, độ mềm lớp vật liệu hệ toạ độ 1, 2, x, y, z CA, CR ma trận hệ số cản động, ma trận hệ số cản kết cấu (Rayleigh) ma trận độ cứng thu gọn [Qij' ] [Bu],  B    ma trận tính biến dạng, ma trận tính điện trƣờng hàm nội suy chuyển vị (hàm dạng) ma trận độ cứng màng, màng - uốn, uốn, xoắn ma trận Jacobian hệ toạ độ tự nhiên toạ độ điểm Gauss hàm trọng số điểm Gauss khối lƣợng, khối lƣợng riêng vật liệu hệ số khuếch đại hồi tiếp tốc độ, hệ số khuếch đại hồi tiếp chuyển dịch, hệ số khuếch đại điều khiển mạch điều khiển [Kuu],  Ku  ,  Ku  , ma trận độ cứng cơ, ma trận độ cứng kết hợp điện-cơ, ma trận Ni [A], [B], [D], [F] [J] ξ, η ξi, ηi wi, wj m, ρ G v , G d , Gc  K  , [Muu] {F} {N}, {M}, {Q} [T] { qeu } q  k e độ cứng kết hợp cơ-điện, ma trận độ cứng điện môi vật liệu áp điện, ma trận khối lƣợng véc tơ lực nút tổng thể véc tơ thành phần nội lực màng, mô men, lực cắt ma trận chuyển đổi hệ trục toạ độ véc tơ chuyển vị nút phần tử véc tơ điện phần tử { qg } véc tơ bậc tự tổng thể {E} Qc Dp d e p véctơ cƣờng độ điện trƣờng điện tích ngồi tác dụng véctơ chuyển dịch điện tích (véc tơ cảm ứng điện) ma trận hệ số biến dạng áp điện ma trận hệ số ứng suất áp điện ma trận hệ số điện môi tần số dao động riêng fi ( i  1, n ) As AC CPT DC đ/n FE FSDT GA HOPT HUAĐ KQ PP PTHH Ss VL VLAĐ Actuator - kích thích Alternative Curent - dịng xoay chiều Classical Plate Theory - lý thuyết cổ điển Direct current - dòng chiều đồng nghiệp finite element - phần tử hữu hạn First order Shear Deformation laminated plate Theory - lý thuyết lớp biến dạng trƣợt bậc thuật toán di truyền (Genetic Algorithm) Higher Order Plate Theory - lý thuyết bậc cao hiệu ứng áp điện kết phƣơng pháp phần tử hữu hạn Sensor - cảm biến vật liệu vật liệu áp điện DANH MỤC CÁC BẢNG SỐ LIỆU (đánh số theo mục) 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Bảng 1.1 Tóm tắt tình hình nghiên cứu nƣớc Bảng 3.1 Trọng số phép cầu phƣơng Gauss Bảng 4.2.1 Độ võng dầm mặt mặt dƣới dầm chịu điện 1Vôn Bảng 4.2.2 Điện đƣợc sinh phân bố vùng bề mặt dầm kéo đầu dầm võng 10 mm Bảng 4.2.3 Thuộc tính vật liệu PZT G1195 [25], PZT G1195N [57] graphite/epoxy T300/976 [25] Bảng 4.2.4 Giá trị thành phần chuyển vị (W1, W2, W3) miếng áp điện chịu 315 V/mm Bảng 4.2.5 Độ võng (x 10-5 m) tâm tựa lề, chịu tải phân bố mức điện áp đặt Bảng 4.2.6 Độ võng điểm M trƣờng hợp Bảng 4.2.7 Độ võng điểm M thay đổi kích thƣớc miếng áp điện Bảng 4.3.1 So sánh tần số dao động riêng (Hz) Bảng 4.3.2 Tần số dao động riêng (Hz) đối xứng với góc θ khác Bảng 4.3.3 Tần số dao động riêng bất đối xứng với góc θ khác Bảng 4.3.4 Tần số dao động riêng (Hz) Bảng 4.4.1 Kết thu đƣợc dùng GA "Tìm tập hợp khả thi" Bảng 5.2.1 Các thiết bị sử dụng Bảng 5.2.2 Các thiết bị đo, ghi Bảng 5.4.1 Tần số dao động riêng (Hz) thực nghiệm tính tốn Bảng 5.4.2 Độ võng (mm) điểm (M1) đầu nhôm Bảng 5.4.3 Độ võng (mm) điểm (M1) đầu [00/900] Bảng 5.4.4 Độ võng (mm) điểm (M1) đầu [00/900] điểm dọc Bảng 5.4.5 Độ võng (mm) điểm (M1) đầu [450/-450] Bảng 5.4.6 Độ võng (mm) điểm (M1) đầu [450/-450] điểm dọc Bảng 5.4.7 Áp đặt điện để đƣa điểm M1 xấp xỉ 0, giá trị tính toán thực nghiệm 17 59 77 77 79 83 84 88 90 91 92 93 95 100 110 111 115 116 116 116 117 118 119 94 Midé Technology Corporation, 200 Boston Avenue, USA 95 http://vi.wikipedia.org/wiki/%C3%81p_%C4%91i%E1%BB%87n 96 http://www.efunda.com/materials/piezo/general_info/gen_info_index.cfm 97 http://www.morganelectroceramics.com/tutorials/piezoguide1.html 98 http://www.physikinstrumente.com/tutorial/4_15.html 99 http://en.wikipedia.org/wiki/Polyvinylidene_fluoride 100 http://www.codeprovn.com/forums/viewtopic.php?f=31&t=420, Thuật giải di truyền - Genetic algorithm, GS.TSKH Hoàng Kiếm 101 http://www.csiberkeley.com/Tech_Info/20.pdf 102 Ansys Tutorials PHỤ LỤC PHỤ LỤC GỒM CĨ: Tính số lƣợng mẫu xử lý sai số; Biên nghiên cứu thực nghiệm Các chƣơng trình tính viết ngơn ngữ Matlab: chƣơng trình tính tốn để giải tốn tĩnh; chƣơng trình tính tốn để giải tốn động chƣơng trình tính tốn để giải tốn tối ƣu TÍNH SỐ LƢỢNG MẪU VÀ XỬ LÝ SAI SỐ 1.1 Tính số lƣợng mẫu Mơ hình trích mẫu tập hợp cá thể (thƣờng gọi tập mẫu) trích từ tổng thể đƣợc xét Mơ hình thực thể chất với ngun hình, lý thuyết mơ hình lý thuyết xác suất thống kê toán học Tổng số mẫu cần thực (dung lƣợng tập mẫu) đƣợc tính theo độ xác mức tin cậy cho trƣớc [5, 3]: n  u2 s2  X  (PL.1) Trong đó, ε độ xác; uγ phân vị chuẩn (tra bảng theo độ tin cậy); s2 phƣơng sai điều chỉnh số lƣợng mẫu n s2   X  X  i 1 n 1 (PL.2) với X giá trị thực nghiệm mẫu; X giá trị trung bình n mẫu thử; n-1 số bậc tự Đây ƣớc lƣợng trung bình, nên theo [3], tác giả chọn tập mẫu lần đầu với n = 15 tiến hành đo đạc ghi lại giá trị đƣợc tƣơng ứng để từ tính phƣơng sai điều chỉnh số lƣợng mẫu theo (PL.2) Và với mong muốn để đạt đƣợc độ tin cậy 95%, mức xác νbảng loại bỏ Xmax, Xmin, ngƣợc lại khơng loại bỏ Nhƣ vậy, giá trị đƣợc giữ lại không chứa sai số thô Các kết đo sau loại bỏ sai số thơ, lấy trung bình cộng đƣợc đƣa biên đo thực nghiệm 2.1 Chƣơng trình tính tốn để giải toán tĩnh: TamComp2lopNgam1CanhGan1CapPieSatNgam(TinhChoMauTam[0/90]ThucNghiem): ChuongTrinhChinh(main.m): %%% -Read Data from file close all; clear all; fname='Data090.txt' ;%input('(ten file du lieu):'); %fname='Data45_45.txt' ;%input('(ten file du lieu):'); f1=fopen(fname,'r'); Num_layer=fscanf(f1,'%f',1); E1R=fscanf(f1,'%f',Num_layer);E1=E1R'*1e9; E2R=fscanf(f1,'%f',Num_layer);E2=E2R'*1e9; G12R=fscanf(f1,'%f',Num_layer);G12=G12R'*1e9; G13=G12; G23R=fscanf(f1,'%f',Num_layer);G23=G23R'*1e9; v12R=fscanf(f1,'%f',Num_layer);v12=v12R'; Goc_CotR=fscanf(f1,'%f',Num_layer);Goc_Cot=Goc_CotR'*pi/180; ZR=fscanf(f1,'%f',Num_layer+1);Z=ZR'*1e-3; Length=fscanf(f1,'%f',1)*1e-3; Width=fscanf(f1,'%f',1)*1e-3; fclose('all'); %%%********************************************************************** n=18; % So phan tu chia theo chieu truc x m=4; % So phan tu chia theo chieu truc y NodeDof=5; Z_comp=[-0.5 0.5]*1e-3; % moi lop comp day 0.0005m; 90 Z_comp_pie=[-0.75 -0.5 0.5 0.75]*1e-3; % moi lop pie day 0.00025m %%% -Chia luoi [Ex,Ey,Node_number,Element_number,Edof_Co,Edof,Dof,Coord,Element_Matrix]=Meshing9T(Length,Width, n,m,NodeDof); %%% -Tinh cac ma tran cau (thanh phan) [A,B,D,F]=ConstiMatrix(E1,E2,G12,G13,G23,v12,Goc_Cot,Z_comp); %%% -Cac ma tran cau (thanh phan) lop comp A_comp=A;B_comp=B;D_comp=D;F_comp=F; %%% -Ma tran cau boi thuoc tinh CO cho phan comp KHONG GAN pie tren/duoi G_comp=zeros(8,8); G_comp(1:3,1:3)=A;G_comp(1:3,4:6)=B; G_comp(4:6,1:3)=B;G_comp(4:6,4:6)=D; G_comp(7:8,7:8)=F; %%% -Cac thong so CO cua pie E_pie=63e9;Nuy_pie=0.3;G12_pie=24.2e9;G23_pie=G12_pie;G13_pie=G12_pie; %%% -Ma tran cac hang so dan hoi nhung lop pie Q_pie=[E_pie/(1-Nuy_pie.^2) (Nuy_pie*E_pie)/(1-Nuy_pie.^2) 0; (Nuy_pie*E_pie)/(1-Nuy_pie.^2) E_pie/(1-Nuy_pie.^2) 0; 0 E_pie/(2*(1+Nuy_pie))];%3x3 Q_pie_F=[E_pie/(2*(1+Nuy_pie)) 0; E_pie/(2*(1+Nuy_pie))];%2x2 %%% -Cac ma tran cau (thanh phan) cua comp GAN pie tren/duoi (CO tinh) A_comp_pie=A+(Z_comp_pie(1,2)-Z_comp_pie(1,1))*Q_pie+(Z_comp_pie(1,5)-Z_comp_pie(1,4))*Q_pie; B_comp_pie=B+1/2*(Z_comp_pie(1,2)^2-Z_comp_pie(1,1)^2)*Q_pie+1/2*(Z_comp_pie(1,5)^2Z_comp_pie(1,4)^2)*Q_pie; D_comp_pie=D+1/3*(Z_comp_pie(1,2)^3-Z_comp_pie(1,1)^3)*Q_pie+1/3*(Z_comp_pie(1,5)^3Z_comp_pie(1,4)^3)*Q_pie; F_comp_pie=F+5/6*(Z_comp_pie(1,2)-Z_comp_pie(1,1))*Q_pie_F+5/6*(Z_comp_pie(1,5)Z_comp_pie(1,4))*Q_pie_F; %%% -Ma tran cau boi thuoc tinh CO cho phan comp GAN pie tren/duoi G_comp_pie=zeros(8,8); G_comp_pie(1:3,1:3)=A_comp_pie;G_comp_pie(1:3,4:6)=B_comp_pie; G_comp_pie(4:6,1:3)=B_comp_pie;G_comp_pie(4:6,4:6)=D_comp_pie; G_comp_pie(7:8,7:8)=F_comp_pie; %%% -Cac thong so DIEN cua vat lieu pie d31=171e-12;d32=d31;d33=d31; %m/V hay C/N d=[0 d31;0 d32;0 d33];%d33 %%% -Ma tran he so US ap dien e=Q_pie*d;%HS US AD e:C/m2 hay N/V.m %%% -Tinh chi Tai Co e_ngang_dC=zeros(8,3);%"C": Co e_ngang_tC=zeros(8,3); p11C=0; p22C=0; p33C=0; p_ngang_dC=[p11C 0;0 p22C 0;0 p33C]; p_ngang_tC=[p11C 0;0 p22C 0;0 p33C]; ir=3; % So diem cau Gauss T_dC=Z_comp_pie(1,2)-Z_comp_pie(1,1); T_tC=Z_comp_pie(1,5)-Z_comp_pie(1,4); % LoaiPhanTu=zeros(1,72); LoaiPhanTu(1,1:18:55)=1;LoaiPhanTu(1,2:18:56)=1;%Gan o sat ngam %%% Khai bao ma tran cung TongThe K_Co_TongThe=zeros(Node_number*NodeDof,Node_number*NodeDof);%nam K_TongThe K_TongThe=zeros(Node_number*(NodeDof+2),Node_number*(NodeDof+2)); %%% -Tinh ma tran cung K_comp_pie_phantu=zeros(63,63); for i=1:72 if LoaiPhanTu(1,i)==0 %cho phan comp KHONG GAN pie tren/duoi [K_comp_phantu]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,G_comp); K_comp_pie_phantu(1:45,1:45)=K_comp_phantu; K_comp_pie_phantu(1:45,46:54)=zeros(45,9); K_comp_pie_phantu(1:45,55:63)=zeros(45,9); K_comp_pie_phantu(46:54,1:45)=zeros(9,45); K_comp_pie_phantu(46:54,46:54)=zeros(9,9); K_comp_pie_phantu(55:63,1:45)=zeros(9,45); K_comp_pie_phantu(55:63,55:63)=zeros(9,9); [K_TongThe]=assem(Edof(i,:),K_TongThe,K_comp_pie_phantu); end if LoaiPhanTu(1,i)==1 %cho phan comp GAN pie tren/duoi [K_comp_pie_Co_phantu]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,G_comp_pie); [Kuphi_d,Kuphi_t]=Kuphi_dt(Ex(i,:),Ey(i,:),ir,e_ngang_dC,e_ngang_tC,T_dC,T_tC); [Kphiu_d,Kphiu_t]=Kphiu_dt(Ex(i,:),Ey(i,:),ir,e_ngang_dC,e_ngang_tC,T_dC,T_tC); [Kphiphi_d,Kphiphi_t]=Kphiphi_dt(Ex(i,:),Ey(i,:),ir,p_ngang_dC,p_ngang_tC,T_dC,T_tC); K_comp_pie_phantu(1:45,1:45)=K_comp_pie_Co_phantu; K_comp_pie_phantu(1:45,46:54)=Kuphi_d; K_comp_pie_phantu(1:45,55:63)=Kuphi_t; K_comp_pie_phantu(46:54,1:45)=Kphiu_d; K_comp_pie_phantu(46:54,46:54)=Kphiphi_d; K_comp_pie_phantu(55:63,1:45)=Kphiu_t; K_comp_pie_phantu(55:63,55:63)=Kphiphi_t; [K_TongThe]=assem(Edof(i,:),K_TongThe,K_comp_pie_phantu); end end % Fg=zeros(Node_number*7,1); Fg(923,1)=-0.004;%(~0.4g) dat tai diem giua dau tu % BcC=NgamCo_CanhA(Coord,Length,Width,Node_number); % [Ini_Dis0004N]=Solveq(K_TongThe,Fg,BcC); % nutdauCG=(2*n+1)*m+1; %n=18; m=4 => nut thu 149, Dof thu 743 la w nutcuoiCG=(2*n+1)*m+2*n+1; % => nut thu 185, Dof thu 923 la w countG=0; for i=nutdauCG:nutcuoiCG countG=countG+1; dovongCG0005N(countG)=Ini_Dis0005N((i-1)*5+3); khoangcach(countG)=Length*(countG-1)/(2*n); end % dovongCG0005N; DVCG0005N=dovongCG0005N' DVongDGDTDkhichiCo=Ini_Dis0005N(923,1) % %%% -Tinh DIEN & CO e_ngang_d=zeros(8,3); e_ngang_d(1,3)=(Z_comp_pie(1,2)-Z_comp_pie(1,1))*e(1,3); e_ngang_d(2,3)=(Z_comp_pie(1,2)-Z_comp_pie(1,1))*e(2,3); e_ngang_d(4,3)=1/2*(Z_comp_pie(1,2)^2-Z_comp_pie(1,1)^2)*e(1,3); e_ngang_d(5,3)=1/2*(Z_comp_pie(1,2)^2-Z_comp_pie(1,1)^2)*e(2,3); % e_ngang_t=zeros(8,3); e_ngang_t(1,3)=(Z_comp_pie(1,5)-Z_comp_pie(1,4))*e(1,3); e_ngang_t(2,3)=(Z_comp_pie(1,5)-Z_comp_pie(1,4))*e(2,3); e_ngang_t(4,3)=1/2*(Z_comp_pie(1,5)^2-Z_comp_pie(1,4)^2)*e(1,3); e_ngang_t(5,3)=1/2*(Z_comp_pie(1,5)^2-Z_comp_pie(1,4)^2)*e(2,3); %%% -Hso dien moi p11=15.3e-9;p22=p11;p33=15e-9;%p:F/m hay C/Vm p_ngang_d=[p11 0;0 p22 0;0 p33]*(Z_comp_pie(1,2)-Z_comp_pie(1,1)); p_ngang_t=[p11 0;0 p22 0;0 p33]*(Z_comp_pie(1,5)-Z_comp_pie(1,4)); % ir=3; % So diem cau Gauss % T_d=Z_comp_pie(1,2)-Z_comp_pie(1,1); T_t=Z_comp_pie(1,5)-Z_comp_pie(1,4); % LoaiPhanTu=zeros(1,72); LoaiPhanTu(1,1:18:55)=1;LoaiPhanTu(1,2:18:56)=1;%Gan o sat ngam % %%% Khai bao ma tran cung TongThe K_Co_TongThe=zeros(Node_number*NodeDof,Node_number*NodeDof);%nam K_TongThe K_TongThe=zeros(Node_number*(NodeDof+2),Node_number*(NodeDof+2)); %%% -Tinh ma tran cung K_comp_pie_phantu=zeros(63,63); for i=1:72 if LoaiPhanTu(1,i)==0 %cho phan comp KHONG GAN cac cap pie tren/duoi [K_comp_phantu]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,G_comp); K_comp_pie_phantu(1:45,1:45)=K_comp_phantu; K_comp_pie_phantu(1:45,46:54)=zeros(45,9); K_comp_pie_phantu(1:45,55:63)=zeros(45,9); K_comp_pie_phantu(46:54,1:45)=zeros(9,45); K_comp_pie_phantu(46:54,46:54)=zeros(9,9); K_comp_pie_phantu(55:63,1:45)=zeros(9,45); K_comp_pie_phantu(55:63,55:63)=zeros(9,9); [K_TongThe]=assem(Edof(i,:),K_TongThe,K_comp_pie_phantu); end if LoaiPhanTu(1,i)==1 %cho phan comp GAN cac cap pie tren/duoi [K_comp_pie_Co_phantu]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,G_comp_pie); [Kuphi_d,Kuphi_t]=Kuphi_dt(Ex(i,:),Ey(i,:),ir,e_ngang_d,e_ngang_t,T_d,T_t); [Kphiu_d,Kphiu_t]=Kphiu_dt(Ex(i,:),Ey(i,:),ir,e_ngang_d,e_ngang_t,T_d,T_t); [Kphiphi_d,Kphiphi_t]=Kphiphi_dt(Ex(i,:),Ey(i,:),ir,p_ngang_d,p_ngang_t,T_d,T_t); K_comp_pie_phantu(1:45,1:45)=K_comp_pie_Co_phantu; K_comp_pie_phantu(1:45,46:54)=Kuphi_d; K_comp_pie_phantu(1:45,55:63)=Kuphi_t; K_comp_pie_phantu(46:54,1:45)=Kphiu_d; K_comp_pie_phantu(46:54,46:54)=Kphiphi_d; K_comp_pie_phantu(55:63,1:45)=Kphiu_t; K_comp_pie_phantu(55:63,55:63)=Kphiphi_t; [K_TongThe]=assem(Edof(i,:),K_TongThe,K_comp_pie_phantu); end end % Fg=zeros(Node_number*7,1); Fg(923,1)=-0.004;%(~0.4g) dat tai diem giua dau tu %%% -ket hop ap dat Dien the %%% - 100V DThe_t100=100; DThe_d100=DThe_t100; DienThe100=[DThe_t100 DThe_d100]; % BcDC100=ApDatDienApPTAD_NgamCo_CanhA(Coord,Length,Width,Node_number,DienThe100,Element_M atrix,Element_number,LoaiPhanTu); % [Ini_Dis0004N100V]=Solveq(K_TongThe,Fg,BcDC100);%"DC" Dien Co % nutdauCG=(2*n+1)*m+1; %n=18; m=4 => nut thu 149, Dof thu 743 la w nutcuoiCG=(2*n+1)*m+2*n+1; % => nut thu 185, Dof thu 923 la w countG=0; for i=nutdauCG:nutcuoiCG countG=countG+1; dovongCG0005N100V(countG)=Ini_Dis0005N100V((i-1)*5+3); khoangcach(countG)=Length*(countG-1)/(2*n); end % dovongCG0005N100V; DVCG0005N100V=dovongCG0005N100V' % figure(1); plot(khoangcach,dovongCG0004N100V) grid; xlabel('Chieu dai tam (m)') ylabel('Do vong (m)') % figure(2);%Ve gop Co, CoDien plot(khoangcach,dovongCG0004N,khoangcach,dovongCG0004N100V) grid; xlabel('Chieu dai tam (m)') ylabel('Do vong (m)') % %%%===== The End ===== CacChuongTrinhCon: ApDatDienApPTAD_NgamCo_CanhA.m assem.m ConstiMatrix.m coordxtr.m ElasticMatrix.m eldisp2.m eldraw2.m extract.m Kphiphi_dt.m 10 Kphiu_dt.m 11 Kuphi_dt.m 12 Meshing9T.m 13 NgamCo_CanhA.m 14 pltstyle.m 15 Solveq.m 16 StiffnessMatrix.m 17 Data45_45.txt 18 Data090.txt 2.2 Chƣơng trình tính tốn để giải toán động: TamComp2lopNgam1CanhGan1CapPieSatNgam(TinhChoMauTam[0/90]ThucNghiem): ChuongTrinhChinh(main.m): %%% -Read Data from file close all; clear all; fname='Data090.txt' ;%input('(ten file du lieu):'); %fname='Data45_45.txt' ; f1=fopen(fname,'r'); Num_layer=fscanf(f1,'%f',1); E1R=fscanf(f1,'%f',Num_layer);E1=E1R'*1e9; E2R=fscanf(f1,'%f',Num_layer);E2=E2R'*1e9; G12R=fscanf(f1,'%f',Num_layer);G12=G12R'*1e9; G13=G12; G23R=fscanf(f1,'%f',Num_layer);G23=G23R'*1e9; v12R=fscanf(f1,'%f',Num_layer);v12=v12R'; Goc_CotR=fscanf(f1,'%f',Num_layer);Goc_Cot=Goc_CotR'*pi/180; ZR=fscanf(f1,'%f',Num_layer+1);Z=ZR'*1e-3; Length=fscanf(f1,'%f',1)*1e-3; Width=fscanf(f1,'%f',1)*1e-3; fclose('all'); %%%********************************************************************** n=18; % So phan tu chia theo chieu truc x m=4; % So phan tu chia theo chieu truc y NodeDof=5; Ro_comp=[1600 1600]; Ro_comp_pie=[7500 1600 1600 7500]; Z_comp=[-0.5 0.5]*1e-3; % moi lop comp day 0.0005m = 0.5mm; 90 Z_comp_pie=[-0.75 -0.5 0.5 0.75]*1e-3; % moi lop pie day 0.00025m = 0.25mm %%% -Chia luoi [Ex,Ey,Node_number,Element_number,Edof,Dof,Coord]=Meshing9(Length,Width,n,m,NodeDof); %%% -Tinh cac ma tran cau (thanh phan) [A,B,D,F]=ConstiMatrix(E1,E2,G12,G13,G23,v12,Goc_Cot,Z_comp); %%% -Cac ma tran cau (thanh phan) lop comp A_comp=A;B_comp=B;D_comp=D;F_comp=F; %%% -Cac thong so CO cua pie E_pie=63e9;Nuy_pie=0.3;G12_pie=24.2e9;G23_pie=G12_pie;G13_pie=G12_pie; %%% -Ma tran cac hang so dan hoi nhung lop pie Q_pie=[E_pie/(1-Nuy_pie.^2) (Nuy_pie*E_pie)/(1-Nuy_pie.^2) 0; (Nuy_pie*E_pie)/(1-Nuy_pie.^2) E_pie/(1-Nuy_pie.^2) 0; 0 E_pie/(2*(1+Nuy_pie))];%3x3 Q_pie_F=[E_pie/(2*(1+Nuy_pie)) 0; E_pie/(2*(1+Nuy_pie))];%2x2 %%% -Cac ma tran cau (thanh phan) cua comp lop phu pie tren/duoi (CO tinh) A_comp_pie=A+(Z_comp_pie(1,2)-Z_comp_pie(1,1))*Q_pie+(Z_comp_pie(1,5)-Z_comp_pie(1,4))*Q_pie; B_comp_pie=B+1/2*(Z_comp_pie(1,2)^2-Z_comp_pie(1,1)^2)*Q_pie+1/2*(Z_comp_pie(1,5)^2Z_comp_pie(1,4)^2)*Q_pie; D_comp_pie=D+1/3*(Z_comp_pie(1,2)^3-Z_comp_pie(1,1)^3)*Q_pie+1/3*(Z_comp_pie(1,5)^3Z_comp_pie(1,4)^3)*Q_pie; F_comp_pie=F+5/6*(Z_comp_pie(1,2)-Z_comp_pie(1,1))*Q_pie_F+5/6*(Z_comp_pie(1,5)Z_comp_pie(1,4))*Q_pie_F; %%% -Cac thong so DIEN cua vat lieu pie d31=171e-12;d32=d31;d33=d31; %m/V hay C/N d=[0 d31;0 d32;0 d33;0 0;0 0];%5x3 % Q_PIE=zeros(5,5); Q_PIE(1:3,1:3)=Q_pie; Q_PIE(4:5,4:5)=Q_pie_F; % e_ngang=Q_PIE*d;%5x3; %HS US AD e:C/m2 hay N/V.m % p11=15.3e-9;p22=p11;p33=15e-9;%p: F/m hay C/V.m p_ngang=[p11 0;0 p22 0;0 p33]; % ad=e_ngang*inv(p_ngang)*e_ngang';%5x5 % %%% -Cac ma tran cau (thanh phan) boi thuoc tinh AD cua cua lop pie.(tren/duoi) Ad=(Z_comp_pie(1,2)-Z_comp_pie(1,1))*ad(1:3,1:3)+(Z_comp_pie(1,5)-Z_comp_pie(1,4))*ad(1:3,1:3); Bd=1/2*(Z_comp_pie(1,2)^2-Z_comp_pie(1,1)^2)*ad(1:3,1:3)+1/2*(Z_comp_pie(1,5)^2Z_comp_pie(1,4)^2)*ad(1:3,1:3); Dd=1/3*(Z_comp_pie(1,2)^3-Z_comp_pie(1,1)^3)*ad(1:3,1:3)+1/3*(Z_comp_pie(1,5)^3Z_comp_pie(1,4)^3)*ad(1:3,1:3); Fd=5/6*(Z_comp_pie(1,2)-Z_comp_pie(1,1))*ad(4:5,4:5)+5/6*(Z_comp_pie(1,5)Z_comp_pie(1,4))*ad(4:5,4:5); %%% -Ma tran cau boi thuoc tinh CO cho phan comp KHONG GAN pie tren/duoi G_comp=zeros(8,8); G_comp(1:3,1:3)=A;G_comp(1:3,4:6)=B; G_comp(4:6,1:3)=B;G_comp(4:6,4:6)=D; G_comp(7:8,7:8)=F; %%% -Ma tran cau boi thuoc tinh CO cho phan comp GAN pie tren/duoi G_comp_pie=zeros(8,8); G_comp_pie(1:3,1:3)=A_comp_pie;G_comp_pie(1:3,4:6)=B_comp_pie; G_comp_pie(4:6,1:3)=B_comp_pie;G_comp_pie(4:6,4:6)=D_comp_pie; G_comp_pie(7:8,7:8)=F_comp_pie; %%% -Ma tran cau boi thuoc tinh DIEN phan comp GAN pie tren/duoi A_D=zeros(8,8); A_D(1:3,1:3)=Ad;A_D(1:3,4:6)=Bd;A_D(4:6,1:3)=Bd;A_D(4:6,4:6)=Dd;A_D(7:8,7:8)=Fd; % ir=3; %So diem Gauss % mm_comp=Midle_mass(Num_layer,Z_comp,Ro_comp); mm_comp_pie=Midle_mass(Num_layer+2,Z_comp_pie,Ro_comp_pie); % %%% -Khai bao ma tran kh.luong cho phan comp va phan comp GAN pie tren/duoi Mass_phantu_comp=zeros(NodeDof*9,NodeDof*9); Mass_phantu_comp_pie=zeros(NodeDof*9,NodeDof*9); Mass_tongthe=zeros(Node_number*NodeDof,Node_number*NodeDof); %%% Khai bao ma tran cung CO cho phan comp va phan comp GAN pie tren/duoi K_phantu_comp=zeros(NodeDof*9,NodeDof*9); K_phantu_comp_pie=zeros(NodeDof*9,NodeDof*9); K_tongthe=zeros(Node_number*NodeDof,Node_number*NodeDof); %%% -Khai bao ma tran cung DIEN cho phan comp lop phu pie tren/duoi K_apdien_phantu=zeros(NodeDof*9,NodeDof*9); K_apdien_tongthe=zeros(Node_number*NodeDof,Node_number*NodeDof); % LoaiPhanTu=zeros(1,72);%72=18x4 LoaiPhanTu(1,1:18:55)=1;LoaiPhanTu(1,2:18:56)=1;%Gan o sat ngam % %%% -Tinh ma tran khoi luong & cung: for i=1:72 if LoaiPhanTu(1,i)==0 %cho phan comp KHONG GAN cac cap pie tren/duoi [K_phantu_comp,Mass_phantu_comp]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,G_comp,mm_comp); [K_tongthe]=assem(Edof(i,:),K_tongthe,K_phantu_comp); [Mass_tongthe]=assem(Edof(i,:),Mass_tongthe,Mass_phantu_comp); end if LoaiPhanTu(1,i)==1 %cho phan comp GAN cac cap pie tren/duoi [K_phantu_comp_pie,Mass_phantu_comp_pie]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,G_comp_pie,mm_comp_pie); [K_tongthe]=assem(Edof(i,:),K_tongthe,K_phantu_comp_pie); [K_apdien_phantu]=StiffnessMatrix(Ex(i,:),Ey(i,:),ir,A_D,mm_comp_pie); [K_apdien_tongthe]=assem(Edof(i,:),K_apdien_tongthe,K_apdien_phantu); [Mass_tongthe]=assem(Edof(i,:),Mass_tongthe,Mass_phantu_comp_pie); end end % %%% -Dieu kien bien Bc=NgamCo_CanhA(Coord,Length,Width,Node_number); % Bcc=Bc(:,1); % K_daodong=K_tongthe-K_apdien_tongthe; % [La,Egv]=eigen(K_daodong,Mass_tongthe,Bcc); Freq=sqrt(La)/(2*pi); % for i=1:7 Freq(i) end % %%% -Ve mode dao dong figure(1); clf, axis('equal'), hold on, axis off magnfac=0.00025;%Thay doi khuech dai hien thi % Tansothu=1;%Chon tan so de ve mode tuong ung % title(['Mode tuong ung voi tan so thu','; f = ',num2str(Freq(Tansothu)),' Hz']); % eldraw22(Ex,Ey,[1 0],LoaiPhanTu);% Edb=extract(Edof,Egv(:,Tansothu)); eldisp22(Ex,Ey,Edb,magnfac,LoaiPhanTu);% FreqText=num2str(Freq(Tansothu));%Hien thi tan so cua mode ve % %%% - Dao dong tu do, co can KC, khong can dien Gv=0; C_a=Gv*K_apdien_tongthe; Gd=1; C_d=1e-2*Mass_tongthe+1e-6*K_tongthe; K_sao=K_tongthe+Gd*K_apdien_tongthe; C_can=C_a+C_d; % dt=0.005; T=11; c=45; %%% -Making 'disturbance' G=[0 0; 0.15 1; 0.25 0; T 0]; [t,g]=gfunc(G,dt); % f=zeros(Node_number*5, length(g)); f(((((2*n+1)*m+2*n)*5)+3),:)=1e2*g; % d0=zeros(Node_number*5,1); v0=zeros(Node_number*5,1); %%% -Output parameters ntimes=[0.1:0.1:1]; nhist=[((((2*n+1)*m+2*n)*5)+3)]; %%% -Time integration parameters ip=[dt T 0.25 0.5 10 ntimes nhist]; %%% -Time integration kk=sparse(K_sao); mm=sparse(Mass_tongthe); [Dsnap,D,V,A]=step2(kk,C_can,mm,d0,v0,ip,f,Bc); %%% -Ve voi diem(0;0) = thoi diem cat "kich thich" tt=t(1,c:((T/dt)+1)); ttt=zeros(1,(((T/dt)+1)-c)); ttt(1,1:((T/dt+2)-c))=(c-1)*dt; tttt=minus(tt,ttt); ttttt=tttt(1,:); DD=D(1,c:(T/dt+1)); DDD=DD(1,:); % figure(2); plot(ttttt,DDD(1,:),'-') grid; xlabel('Time (sec)'); ylabel('Displacement (mm)'); title(['1c1, Dao dong tu do, co can KC, khong can dien, Gv=0, Gd=1']); % % -%%% - DD tu do, khong can KC, khong can dien - Gv=0; C_a=Gv*K_apdien_tongthe;% Gd=1;% C_d=0;%C_d=1e-2*Mass_tongthe+1e-6*K_tongthe; K_sao=K_tongthe+Gd*K_apdien_tongthe; C_can=C_a+C_d; % dt=0.005; T=11; c=45; %%% -Making 'disturbance' G=[0 0; 0.15 1; 0.25 0; T 0]; [t,g]=gfunc(G,dt); % f=zeros(Node_number*5, length(g)); f(((((2*n+1)*m+2*n)*5)+3),:)=250*g; f=zeros(Node_number*5, length(g)); f(((Node_number-1)/2*NodeDof+3),:)=1e-2*g; % d0=zeros(Node_number*5,1); v0=zeros(Node_number*5,1); %%% -Output parameters ntimes=[0.1:0.1:1]; nhist=[((((2*n+1)*m+2*n)*5)+3)]; %%% -Time integration parameters ip=[dt T 0.25 0.5 10 ntimes nhist]; %%% -Time integration kk=sparse(K_sao); mm=sparse(Mass_tongthe); [Dsnap,D,V,A]=step2(kk,C_can,mm,d0,v0,ip,f,Bc); %%% -Ve voi diem(0;0) = thoi diem cat "kich thich" tt=t(1,c:((T/dt)+1)); ttt=zeros(1,(((T/dt)+1)-c)); ttt(1,1:((T/dt+2)-c))=(c-1)*dt; tttt=minus(tt,ttt); ttttt=tttt(1,:); DD=D(1,c:(T/dt+1)); DDD=DD(1,:); % figure(3); plot(ttttt,DDD(1,:),'-') grid; xlabel('Time (sec)'); ylabel('Displacement (mm)'); title(['1c1, DD tu do, khong can KC, khong can dien, Gv=0, Gd=1']); % % % -%%% - DD tu do, co can dien + can KC Gv=0.01; Gd=1; C_a=Gv*K_apdien_tongthe;% C_d=1e-2*Mass_tongthe+1e-6*K_tongthe;%C_d=0;% K_sao=K_tongthe+Gd*K_apdien_tongthe; C_can=C_a+C_d; % dt=0.005; T=11; c=45; %%% -Making 'disturbance' G=[0 0; 0.15 1; 0.25 0; T 0]; [t,g]=gfunc(G,dt); % f=zeros(Node_number*5, length(g)); f(((((2*n+1)*m+2*n)*5)+3),:)=250*g; f=zeros(Node_number*5, length(g)); f(((Node_number-1)/2*NodeDof+3),:)=1e-2*g; % d0=zeros(Node_number*5,1); v0=zeros(Node_number*5,1); %%% -Output parameters ntimes=[0.1:0.1:1]; nhist=[((((2*n+1)*m+2*n)*5)+3)]; %%% -Time integration parameters ip=[dt T 0.25 0.5 10 ntimes nhist]; %%% -Time integration kk=sparse(K_sao); mm=sparse(Mass_tongthe); [Dsnap,D,V,A]=step2(kk,C_can,mm,d0,v0,ip,f,Bc); %%% -Ve voi diem(0;0) = thoi diem cat "kich thich" tt=t(1,c:((T/dt)+1)); ttt=zeros(1,(((T/dt)+1)-c)); ttt(1,1:((T/dt+2)-c))=(c-1)*dt; tttt=minus(tt,ttt); ttttt=tttt(1,:); DD=D(1,c:(T/dt+1)); DDD=DD(1,:); % figure(4); plot(ttttt,DDD(1,:),'-') grid; xlabel('Time (sec)'); ylabel('Displacement (mm)'); title(['1c1, Dao dong tu do, co can dien, Gv=0.01, Gd=1']); % %%%===== The End ===== CacChuongTrinhCon: assem.m ConstiMatrix.m coordxtr.m eigen.m ElasticMatrix.m eldisp22.m eldraw22.m extract.m gfunc.m 10 Kphiphi.m 11 Kphiu.m 12 Kuphi.m 13 Meshing9.m 14 Midle_mass.m 15 NgamCo_CanhA.m 16 pltstyle.m 17 step2.m 18 StiffnessMatrix.m 19 Data45_45.txt 20 Data090.txt 2.3 Chƣơng trình tính tốn để giải tốn tối ƣu ChuongTrinhChinh(GAOPT1.M): clear all; clc; NIND=10; %10 Number of individuals per subpopulations so luong ca the quan the - kich thuoc quan the MAXGEN=250; %Number of generations so the he (duoc) sinh GGAP=0.9; % Recombination probability kha nang lai ghep - xac xuat lai ghep NVAR=3;%3 Number of variables so bien PRECI=10; % Fidelity of solution tin cay cua nghiem (xac suat nghiem) - PRECT: dai ma hoa gen % set up set of decipher thiet lap bo ma gen (ma di truyen) FieldD=[rep([PRECI],[1, NVAR]); rep([0;1],[1, NVAR]); rep([1; 0; 1; 1], [1, NVAR])]; % creation population - khoi tao quan the ban dau Chrom=crtbp(NIND, NVAR*PRECI); % set up a count variable for generation - khoi tao bien dem (cho sinh san) Best=NaN*ones(MAXGEN,1); % Best adaptability (fittness) in initial population - Vec to he so thich nghi tot nhat quan the qua cac the he gen=0; % assess adaptability (fitness) of population - Tinh he so thich nghi cua quan the ObjV=obj1(bs2rv(Chrom,FieldD)); % print diagram of best individuals - dua (in) gia tri thich nghi tot nhat quan the Best(gen+1)=min(ObjV); plot(Best,'.');xlabel('Generation'); ylabel('Value of objective function'); text(0.5,0.95,['Best value = ', (num2str(Best(gen+1)))],'Units','normalized'); drawnow; % loop - vong lap tien hoa while Best(gen+1) >= 0.00000001 % dispose adaptation values - sap xep nhung gia tri thich nghi cua cac ca the quan the FitnV=ranking(ObjV); % select induviduals to reproduce - chon loc ca the de tai sinh (Toan tu tai sinh chon cac ca the tot de lai ghep) SelCh=select('sus', Chrom, FitnV, GGAP); % cross-over lai tao Recombination - Toan tu lai ghep tao cac ca the voi xac suat lai ghep = 0.8 ??? SelCh=recombin('xovsp',SelCh,0.8); % mutation - Toan tu "dot bien" tao ca the moi tu the he sinh qua lai ghep SelCh=mut(SelCh); % assess adaptability of individuals in later generation - Tinh he so thich nghi cua quan the moi hinh sau dot bien ObjVSel=obj1(bs2rv(SelCh,FieldD)); % replace individual in population of parents - thay the ca the quan the cha me (Thay the quan the cu bang quan the moi vua hinh sau dot bien) [Chrom ObjV]=reins(Chrom,SelCh,1,1,ObjV,ObjVSel); bs2rv(Chrom,FieldD); % To check population % Increase generation and count variable - tang the he sinh va tang bien dem (Tang bien dem de tiep tuc tien hoa) gen=gen+1; % Update and print results - cap nhat va dua KQ moi Best(gen+1)=min(ObjV); if Best(gen+1)