Tính toán hình dáng và sự thay đổi độ dầy của vỏ bồn đựng chất lỏng có sức chịu đều dưới tác dụng của áp lực chất lỏng và trọng lượng bản thân vỏ bồn

BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ NÔNG NGHIỆP VÀ PTNT TRƯỜNG ĐẠI HỌC LÂM NGHIỆP - PHẠM QUỐC HỒN TÍNH TỐN HÌNH DÁNG VÀ SỰ THAY ĐỔI ĐỘ DẦY CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CÓ SỨC CHỊU ĐỀU, DƯỚI TÁC DỤNG CỦA ÁP LỰC CHẤT LỎNG VÀ TRỌNG LƯỢNG BẢN THÂN VỎ BỒN LUẬN VĂN THẠC SỸ KỸ THUẬT Hà Nội - 2012 BỘ GIÁO DỤC VÀ ĐÀO TẠO BỘ NÔNG NGHIỆP VÀ PTNT TRƯỜNG ĐẠI HỌC LÂM NGHIỆP PHẠM QUỐC HỒN TÍNH TỐN HÌNH DÁNG VÀ SỰ THAY ĐỔI ĐỘ DẦY CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CÓ SỨC CHỊU ĐỀU, DƯỚI TÁC DỤNG CỦA ÁP LỰC CHẤT LỎNG VÀ TRỌNG LƯỢNG BẢN THÂN VỎ BỒN Chuyên ngành: Kỹ thuật máy thiết bị giới hóa nơng lâm nghiệp Mã số: 60.52.14 LUẬN VĂN THẠC SỸ KỸ THUẬT NGƯỜI HƯỚNG DẪN KHOA HỌC: TS VŨ KHẮC BẢY Hà Nội - 2012 i LỜI CẢM ƠN Trong trình học tập hồn thành luận văn tớ t nghiê ̣p Cao ho ̣c ta ̣i Trường Đa ̣i Ho ̣c Lâm Nghiê ̣p, tác giả nhận quan tâm, tận tình giúp đỡ Thầy giáo tham gia giảng dạy Trường Đại học Lâm nghiệp, đặc biệt thầy giáo - TS Vũ Khắc Bảy - Người hướng dẫn khoa học, dành nhiều thời gian, tận tình giúp đỡ, truyền đạt kiến thức quý báu suốt thời gian học tập Nhân dịp tác giả xin bày tỏ lòng biế t ơn và ghi nhận giúp đỡ quý báu Xin chân thành cảm ơn các Thầy cô giáo khoa thuộc trường Đại học Lâm nghiệp có nhiều ý kiến góp ý giúp tác giả hồn thiện Luận văn cách hệ thống Mặc dù có nhiều cố gắng, thời gian hạn chế, nên đề tài khơng thể tránh khỏi thiếu sót định, mong nhận ý kiến đóng góp quý báu Thầy cô giáo, Hội đồng khoa học của trường để đề tài nghiên cứu hoàn thiện Cuối tác giả xin chân thành cảm ơn đồng nghiệp, bạn bè người thân gia đình giúp đỡ, động viên tác giả suốt thời gian học tập hoàn thành luận văn tốt nghiệp Xin trân trọng cảm ơn! Hà Nội, ngày 05 tháng 06 năm 2012 Tác giả Phạm Quốc Hoàn ii MỤC LỤC Trang Trang phụ bìa Lời cảm ơn i Danh mục bảng iv Danh mục hình iv ĐẶT VẤN ĐỀ CHƯƠNG TỔNG QUAN NỘI DUNG NGHIÊN CỨU 1.1 Các nghiên cứu lý thuyết 1.2 Đặt toán .7 1.3 Mục tiêu đề tài 1.4 Các bước thực nghiên cứu 1.5 Đối tượng - Phạm vi nghiên cứu - Khả ứng dụng 1.5.1 Đối tượng nghiên cứu 1.5.2 Phạm vi nghiên cứu 10 1.5.3 Khả ứng dụng 10 Nội dung trình bày luận văn 10 1.7 Các kết đạt luận văn 11 CHƯƠNG CƠ SỞ LÝ THUYẾT SỬ DỤNG TRONG LUẬN VĂN .12 2.1 Các hệ thức lý thuyết đàn hồi .12 2.2 Các hệ thức lý thuyết màng vỏ tròn xoay 13 2.2.1 Định nghĩa ký hiệu 13 2.2.2 Phương trình cân vỏ trịn xoay chịu tải đối xứng trục 18 CHƯƠNG TRẠNG THÁI ỨNG SUẤT ĐỀU CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CĨ DẠNG VỎ TRỊN XOAY 23 3.1 Trạng thái ứng suất vỏ tròn xoay chịu áp lực thủy tĩnh trọng lượng thân 23 3.2 Phương pháp tính tốn hình dạng độ dầy vỏ trịn xoay có trạng thái ứng suất điểm , chịu áp lực thủy tĩnh trọng lượng thân .26 iii 3.2.1 Tính tốn hình dạng độ dầy vỏ bồn .26 3.2.2 Tính tốn thể tích bồn .31 CHƯƠNG KẾT QUẢ TÍNH TỐN VỚI CÁC SỐ LIỆU CỤ THỂ 32 4.1 Cơng cụ tính tốn 32 4.2 Các kết tính tốn .32 4.2.1 Tính tốn với vật liệu bê-tông cốt thép : 33 4.2.2 Tính tốn với vật liệu composite : 36 4.3 Nhận xét kết tính tốn 40 KẾT LUẬN 41 TÀI LIỆU THAM KHẢO iv DANH MỤC CÁC BẢNG Tên bảng Trang 4.1 Tọa độ (v , t) độ dầy h điểm kinh tuyến v 34 4.2 Tọa độ (v , t) độ dầy h điểm kinh tuyến v 37 TT DANH MỤC CÁC HÌNH TT Tên hình Trang 1.1 Hình ảnh q trình thi cơng xây dựng tháp chứa nước 1.2 Tháp chứa nước Trảng Bom – Đồng Nai 2.1 Mặt hình học vỏ 13 2.2 Mặt trung bình vỏ 13 2.3 Hình 2.3 19 2.4 Lực tác động lên mặt cạnh phân tố 20 2.5 Hình 2.5 21 2.6 Cân vỏ vịng trịn vĩ tuyến 22 3.1 Chọn hệ tọa độ tính tốn : Trục 0v trục 0t 24 3.2 Hình 3.2 24 3.3 Tại đỉnh bồn 28 4.1 Mặt cắt đứng thành vỏ bồn 33 4.2 Mặt cắt đứng thành vỏ bồn 36 ĐẶT VẤN ĐỀ Trong nghiệp cơng nghiệp hóa đại hóa đất nước lĩnh vực khí chể tạo lắp giáp sửa chữa máy, thiết kế, thiết bị cho loại hình cơng nghệ sản xuất đóng vai trị quan trọng Phạm vi sử sản phẩm nghành chế tạo lắp máy rộng rãi.từ chi tiết nhỏ đơn giản đến chi tiết, sản phẩm có kích thước lớn phức tạp Những sản phẩm tạo nhờ má móc thiết bị khác Với xu tồn cầu hóa để nâng cao sức mạnh cạnh tranh trình hội nhập cần phát triển theo hướng tối giảm chi phí gia cơng sở đảm bảo nâng cao chất lượng sản phẩm Trong xu tồn cầu hóa để nâng cao sức cạnh tranh trình hội nhập cần phát triển sản xuất theo hướng tối giảm chi phí gia cơng sở đảm bảo nâng cao chất lượng sản phẩm,cũng thẩm mĩ Bồn chứa chất lỏng chủ yếu ta thấy nhiều cơng nghiệp hóa dầu tất hoạt động sản xuất buôn bán tích trữ liên quan đến khâu bờn bể chứa Bồn bể chứa tiếp nhận nguyên liệu trước đưa vào sản xuất tồn trữ sau sản xuất Bồn chứa có vai trị quan trọng có nhiệm vụ tồn trữ nguyên liệu sản phẩm giúp ta nhận biết số lượng tồn trữ Tại hoạt động kiểm tra chất lượng, số lượng phân tích tiêu trước xuất hàng tiêu thụ thực Bờn chứa có nhiều loại : Dựa theo chiều cao xây dựng người ta có bể ngầm, bể nổi, bể nửa ngầm bể khơi Dựa theo áp suất Ta có bể cao áp, bể áp lực trung bình, bể áp thường Phân loại theo vật liệu xây dựng ta có bể kim loại bể phi kim, cuối dựa theo hình dạng ta có bể trụ đứng, bể trụ nằm, bể hình cầu, hình giọt nước Bờn đựng chất lỏng ( tháp nước ) với kích thước lớn làm vật liệu kim loại vật liệu composite thường xây dựng khu công nghiệp dân sinh Bờn nước có dạng vỏ trịn xoay đặt trụ giá đỡ Do áp lực thủy tĩnh chất lỏng nên thành bồn nước xuất ứng xuất , chuyển vị Nếu với hình dáng tròn xoay tùy ý, tác dụng áp lực chất lỏng trọng lượng thân, điểm vỏ có ứng suất với cường độ khác theo hướng Để bồn làm việc giới hạn cho phép cường độ ứng suất u phải nhỏ cường độ ứng suất cho phép p điểm Để tốn nguyên liệu xây dựng cần có hình dáng độ dầy hợp lý để ứng suất theo hướng điểm thành vỏ Do vậy, tính tốn hình dạng trịn xoay thay đổi độ dầy vỏ bồn đựng chất lỏng làm vật liệu kim loại hay composite có sức chịu phía áp lực thủy tĩnh trọng lượng thân giúp cho việc xây dựng bồn đựng chất lỏng có dạng vỏ trịn xoay làm việc an toàn tối ưu vật liệu xây dựng Hình dạng tháp nước thường vỏ nón hay dạng giọt nước Tháp nước dạng giọt nước việc cơng trình thẩm mỹ nơi cơng cộng mà cịn hình dạng vỏ có sức chịu theo hướng tác dụng áp lực nước trọng lượng thân Vật liệu composite thay nhiều cho vật liệu kim loại xây dựng Tính tốn cách chi tiết để tối ưu hóa có chương trình tính thuận tiện cho việc thiết kế thi công xây dựng bờn nước có sức chịu vật liệu composite chưa có đầy đủ Để đảm bảo cho bờn làm việc đảm bảo tính an tồn hiệu kinh tế đờng thời đáp ứng tính thẩm mĩ địi hỏi việc thiết kế tính tốn phải tỉ mỉ cẩn thận đảm bảo độ xác cao Xuất phát từ yêu cầu thực tiễn nêu trên, đồng ý hội đồng khoa học- công nghệ sở đào tạo SĐH trường ĐHLN, Tôi tiến hành thực luận văn tốt nghiệp với đề tài “Tính tốn hình dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” CHƯƠNG TỔNG QUAN NỘI DUNG NGHIÊN CỨU 1.1 Các nghiên cứu lý thuyết Nghiên cứu độ bền kết cấu học vấn đề quan tâm Trên sở lý thuyết đàn hời mà có quan hệ ứng suất – biến dạng theo Húc, người ta giải nhiều toán độ bền kết cấu dạng bản, vỏ Sự phát triển nghiên cứu học đàn dẻo với mơ hình lý thuyết đàn dẻo khác nhau, người ta có kết nghiên cứu tính tốn đàn – dẻo số dạng kết cấu vỏ mỏng Bài tốn độ bền vỏ có dạng trịn xoay đề cập đến [1], [2], [5] Trong cơng trình tác giả xây dựng phương trình tính tốn bền cho kết cấu vỏ dạng trịn xoay Cơng trình [3] có nghiên cứu độ bền ổn định đàn - dẻo vỏ nón chịu áp suất ngồi, cơng trình tác giả có xét đến ảnh hưởng đặc trưng vật liệu đến giá trị lực tới hạn xét đến ảnh hưởng độ mỏng vỏ ( qua tỷ số h ) L giá trị lực tới hạn Bồn nước dạng vỏ có sức chịu chịu tải ngồi áp lực thủy tĩnh trọng lượng thân vỏ, ta chọn tham số tải trọng lượng riêng chất lỏng  trọng lượng riêng vỏ  B trọng lượng riêng đơn vị diện tích mặt q ( với q =  B h , h chiều dầy vỏ) Do tốn đàn hời nghiệm, nên kết cấu học làm việc giai đoạn đàn hời ứng với giá trị tải ngồi có trạng thái ứng suất , biến dạng , chuyển vị Tải trọng ngồi bờn đựng nước áp lực thủy tĩnh trọng lượng thân vỏ, chúng có cường độ hướng khác điểm Vì để có 42 dáng thay đổi) Do đó, dùng vật liệu có ứng suất cho phép lớn giá trị  tăng lên, lấy giá trị h0 nhỏ ta có sức chứa bồn định trước * Với phần mềm xây dựng, tính tốn nhanh chóng thiết kế thi công xây dựng bồn chứa chất lỏng dạng vỏ trịn xoay có sức chịu Điều giúp cho việc lựa chọn hiệu thông số độ dầy vỏ hay thông số vật liệu để xây dựng Đề xuất Do khuôn khổ luận văn thạc sỹ, nên đề tài : “Tính tốn hình dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” chỉ nghiên cứu trường hợp vỏ bờn khơng có gân ( gân gia cường) Trên sở nghiên cứu, tính tốn đề tài tiếp tục theo hướng : tính tốn trường hợp vỏ có gân gia cường TÀI LIỆU THAM KHẢO Brush D O (1975), Almroth B O Buckling of bars, plates and shells, McGraw – Hill, London Huy Bich Dao (2000), Theory of Elasticity, VNU Publishing House, Company, New York Third Edition Huy Bich Dao, Khac Bay Vu (1996), “Influence of the hardening characteristics of material on the critical load in the elastic – plastic stability problem of conical shells”, Proceedings of the NCST of Vietnam, Vol.8, (No.1), pp 23-24 Timoshenko S.P, Gere J M, (1961), Theory of elastic stability , 2d ed, McGraw – Hill Timoshenko S.P (1940), Theory of Plates and Shells, McGraw-Hill Book Company, New York, First Edition PHỤ LỤC GIAO DIỆN PHẦN CHƯƠNG TRÌNH TÍNH CODE CỦA CHƯƠNG TRÌNH TÍNH Mơ dul Public u, t, x, phi, delX, delPhi, delU, delT, GaMa, GaMaB, XicMa, R1, du_dx, dt_dx, dh_dphi, n, V, Pi, HeSoH, MaxX, MaxY, MaxH As Double Public i, j, k As Integer Public Chieu_dung() As Double Public Chieu_Ngang() As Double Public H() As Double Public H0() As Double Public Sub CenterForm(frm As Form) frm.Top = (Screen.Height - frm.Height) / frm.Left = (Screen.Width - frm.Width) / End Sub Mơ dul Private Sub Command1_Click() Call PrintRep02 End Sub Private Sub Form_Load() Call CenterForm(Form1) End Sub Private Sub Thoat_Click() Unload Me End Sub Private Sub Tinh_Vo() 'Public u, t, x, phi, delX, delPhi, delU,delT, GaMa, GaMaB, XicMa, R1, u0, t0, x0, phi0, du_dx, dt_dx,n ,Chieu_dung, Chieu_Ngang As Double Dim tg, rong, cao, x0, y0, x1, y1, x2, y2, hesoX, hesoY, tgHeSo, tgmu, tgmau, x01, x02, y01, y02, delB As Double Dim x1L, y1L, x2L, y2L As Double Pi = 3.1416 phi = 0: V = 'H = Text2.Text GaMaB = Text3.Text GaMa = Text1.Text XicMa = Text4.Text n = Text6.Text tgmu = GaMaB / XicMa ReDim Chieu_dung(0 To n) ReDim Chieu_Ngang(0 To n) ReDim H(0 To n) ReDim H0(0 To n) For i = To n Chieu_dung(i) = Chieu_Ngang(i) = H(i) = H0(i) = Next H(0) = Text2.Text H0(0) = H(0) u = 0: t = 0: x = 0: phi = R1 = * XicMa / GaMaB delPhi = Pi / n delX = R1 * delPhi delU = delPhi delT = R1 * (delPhi) ^ / u = u + delU t = t + delT x = x + delX phi = phi + delPhi H(1) = H(0) du_dx = GaMa * t / (XicMa * H(1)) + GaMaB * Cos(phi) / XicMa - u / x dt_dx = u / Cos(phi) R1 = / du_dx dh_dphi = H(1) * (GaMaB * Sin(phi) * R1 / XicMa) Chieu_dung(1) = t Chieu_Ngang(1) = x V = delT * Pi * ((Chieu_Ngang(1) + Chieu_Ngang(0)) / 2) ^ '+++++++++++++++++++++++++++++++++++++ For i = To n delX = R1 * Cos(phi) * delPhi delU = du_dx * delX delT = dt_dx * delX u = u + delU t = t + delT H(i) = H(i - 1) + dh_dphi * delPhi x = x + delX phi = phi + delPhi du_dx = GaMa * t / (XicMa * H(i)) + GaMaB * Cos(phi) / XicMa - u / x dt_dx = u / Cos(phi) R1 = / du_dx dh_dphi = H(i) * (GaMaB * Sin(phi) * R1 / XicMa) Chieu_dung(i) = t Chieu_Ngang(i) = x V = V + delT * Pi * ((Chieu_Ngang(i) + Chieu_Ngang(i - 1)) / 2) ^ Next MaxX = 0: MaxY = 0: MaxH = For i = To n If MaxX < Abs((Chieu_Ngang(i))) Then MaxX = Abs((Chieu_Ngang(i))) If MaxY < Abs((Chieu_dung(i))) Then MaxY = Abs((Chieu_dung(i))) If MaxH < Abs(H(i)) Then MaxH = Abs(H(i)) Next '**************************** Ve With ChatPic1 ChatPic1.Cls x0 = ChatPic1.ScaleWidth / y0 = ChatPic1.ScaleHeight * 0.1 rong = ChatPic1.ScaleWidth * 0.9 cao = ChatPic1.ScaleHeight * 0.9 - y0 hesoX = (rong / 2) / MaxX hesoY = (cao - y0) / MaxY Text7.Text = "" Text7.Text = Text7.Text & Round(V / 100 ^ 3, 1) & " m^3" & vbNewLine '****************** tgHeSo = hesoX If tgHeSo > hesoY Then tgHeSo = hesoY hesoX = tgHeSo hesoY = tgHeSo HeSoH = CDbl(Text8.Text) '***************** ChatPic1.DrawWidth = For i = To n x1 = x0 + (Chieu_Ngang(i) * hesoX) y1 = y0 + (Chieu_dung(i) * hesoX) x2 = * x0 - x1 y2 = y1 ChatPic1.PSet (x1, y1), vbRed ChatPic1.PSet (x2, y2), vbRed If i > Then ChatPic1.Line (x1L, y1L)-(x1, y1), vbRed ChatPic1.Line (x2L, y2L)-(x2, y2), vbRed End If x1L = x1: y1L = y1 x2L = x2: y2L = y2 Next '++++++++++ ChatPic1.DrawWidth = For i = To n x1 = x0 + (Chieu_Ngang(i) * hesoX) y1 = y0 + (Chieu_dung(i) * hesoX) x2 = * x0 - x1 y2 = y1 x01 = x0 + ((Chieu_Ngang(i) - HeSoH * H(i) * Sin(i * delPhi)) * hesoX) y01 = y0 + ((Chieu_dung(i) + HeSoH * H(i) * Cos(i * delPhi)) * hesoY) x02 = * x0 - x01 y02 = y01 ChatPic1.PSet (x01, y01), vbRed ChatPic1.Line (x1, y1)-(x01, y01), vbBlue ChatPic1.PSet (x02, y02), vbRed ChatPic1.Line (x02, y02)-(x2, y2), vbBlue Next ChatPic1.DrawWidth = ChatPic1.Line (x02, y02 + 10)-(x01, y01 + 10) ChatPic1.Line (x2, y2 + 10)-(x1, y1 + 10) tg = (x1 - x2) / 100 ChatPic1.DrawWidth = For i = To 100 x02 = x2 + i * tg ChatPic1.Line (x02, y01 + 10)-(x02, y1 + 10) Next ChatPic1.Line (x0, y0 - 50)-(x0, ChatPic1.ScaleHeight - (y0 / 2)) ChatPic1.CurrentX = x0 - 55 ChatPic1.CurrentY = ChatPic1.ScaleHeight - (y0 / 2) - 150 ChatPic1.FontSize = 14 ChatPic1.Print "v t " ChatPic1.Line (x0, y0 - 50)-(rong * 20 / 19, y0 - 50) ChatPic1.CurrentX = rong * 20 / 19 - 100 ChatPic1.CurrentY = y0 - 180 ChatPic1.FontSize = 14 ChatPic1.Print ">" ChatPic1.CurrentX = rong * 20 / 19 - 100 ChatPic1.CurrentY = y0 ChatPic1.Print "v" ChatPic1.FontSize = 13 ChatPic1.CurrentX = x0 - 200 ChatPic1.CurrentY = y0 - 350 ChatPic1.Print "0" End With '*************************************** With MSFG1 rows = cols = n + For i = To n ColWidth(i) = 550 ColAlignment(i) = flexAlignCenterTop Next FixedCols = FixedRows = For j = To n MSFG1.TextMatrix(0, j) = j Next MSFG1.TextMatrix(1, 0) = "V" MSFG1.TextMatrix(2, 0) = "t" MSFG1.TextMatrix(3, 0) = "h" For j = To n MSFG1.TextMatrix(1, j + 1) = Round(Chieu_dung(j), 1) MSFG1.TextMatrix(2, j + 1) = Round(Chieu_Ngang(j), 1) MSFG1.TextMatrix(3, j + 1) = Round(H(j), 1) Next End With End Sub Private Sub Tinh_Click() Call Tinh_Vo End Sub Private Sub PrintRep02() Dim bay As Boolean Dim m0, j, i, k, hg0, DauTren, dau_soLieu, trai, Xic_thanh_CP, Xic_Tam_CP, bay1, bay2 As Double Dim s, s1 As String Dim rpt As Object Dim fPreview As New frmPreview Dim ctl As Object Dim dau, chu, stchu As String Set rpt = New AacReport1 With rpt.Sections("reportheader").Controls Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH0" ctl.Left = ctl.Top = ctl.Width = 10600 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArialH" ctl.Font.Size = 14 ctl.Visible = True ctl.Text = "Kết tính toán" Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH2" ctl.Left = ctl.Top = 500 ctl.Width = 9000 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = 13 ctl.Visible = True ctl.Text = " " Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH3" ctl.Left = 200 ctl.Top = 1000 ctl.Width = 9000 ctl.Alignment = ddTXRight ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True ctl.Text = "Ngµy " & Format(Date, "dd/mm/yyyy") dau_soLieu = 1500 For i = To Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHson" & i ctl.Left = 100 ctl.Top = dau_soLieu + (i - 1) * 500 ctl.Width = 9800 ctl.Alignment = ddTXLeft ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True If i = Then ctl.Font.Name = ".VnArialH" ctl.Text = " thông số tính toán : " End If If i = Then ctl.Text = " Ga ma chÊt láng = " & GaMa & " kG/cm^3 ; Ga ma vá = " & GaMaB & " kG/cm^3 ; øng st ®Ịu :" & XicMa & "kG/cm^2 " If i = Then ctl.Text = " Độ dầy vỏ đỉnh: " & H(0) & " cm ; Độ dầy lơn : " & Round(MaxH, 1) & " cm ; ThÓ tÝch bån : " & Round(V / 100 ^ 3, 1) & " m^3" If i = Then ctl.Text = " B¸n kÝnh lín nhÊt : " & Round(MaxX, 1) & " cm ; ChiỊu cao vßm : " & Round(MaxY, 1) & " cm " If i = Then ctl.Text = " " Next rpt.Image1.Picture = ChatPic1.Image Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHsonBay" ctl.Left = 100 ctl.Top = dau_soLieu + 7500 ctl.Width = 10600 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = ctl.Visible = True ctl.Font.Name = ".VnArialH" ctl.Text = " Hình ảnh Mặt cắt đứng thành vỏ & Độ dầy vỏ bồn " End With '***************** With rpt.Sections("pageheader").Controls Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldH0H" ctl.Left = ctl.Top = 100 'ctl.Width = rpt.PrintWidth ' - 20 ctl.Width = 10600 ctl.Alignment = ddTXLeft ctl.Font.Name = ".VnArial" ctl.Font.Size = 13 ctl.Visible = True ctl.Text = "Độ dầy h vỏ điểm có tọa độ (v,t) :" End With '++++++++++++++++++++++ With rpt.Sections("detail").Controls DauTren = 100 dau_soLieu = DauTren i = -1 For j = To n i=i+1 For k = To Set ctl = Add("DDActiveReports2.Field") ctl.Name = "txtFieldHngang_sau" & k & j ctl.Left = + i * 900 + 100 ctl.Top = dau_soLieu + k * 300 ctl.Width = 800 ctl.Alignment = ddTXCenter ctl.Font.Name = ".VnArial" ctl.Font.Size = 10 ctl.Visible = True If i = Then If k = Then ctl.Text = " v (cm)" If k = Then ctl.Text = " t (cm)" If k = Then ctl.Text = " h (cm)" End If If i > Then ctl.Text = MSFG1.TextMatrix(k, j) Next If i = 10 Then i = -1 dau_soLieu = dau_soLieu + * 300 + 100 End If Next End With fPreview.RunReport rpt fPreview.arv.Toolbar.Font.Name = "VK Sans Serif" fPreview.Show End Sub ... LUẬN Với trình thực nội dung đề tài ? ?Tính tốn hình dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng trọng lượng thân vỏ bồn ” , đến đưa kết luận sau : Các kết... DỤC VÀ ĐÀO TẠO BỘ NÔNG NGHIỆP VÀ PTNT TRƯỜNG ĐẠI HỌC LÂM NGHIỆP PHẠM QUỐC HỒN TÍNH TỐN HÌNH DÁNG VÀ SỰ THAY ĐỔI ĐỘ DẦY CỦA VỎ BỒN ĐỰNG CHẤT LỎNG CÓ SỨC CHỊU ĐỀU, DƯỚI TÁC DỤNG CỦA ÁP. .. dầy h vỏ phải để ứng suất điểm theo hướng giá trị định trước Việc nghiên cứu đề tài đưa tốn : ? ?Tính tốn hình dáng thay đổi độ dầy vỏ bồn đựng chất lỏng có sức chịu đều, tác dụng áp lực chất lỏng