Luận văn thạc sĩ 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êpp̣ Cao hocp̣ tai Trường ĐaiHocp̣ Lâm Nghiêpp̣, tác giả nhận quan tâm, tận tình giúp đỡ Thầy cô 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 dip 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 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ả hoàn thiện Luận văn cách hệ thớng Mặc dù có nhiều cớ gắng, thời gian còn hạn chế, nên đề tài khơng thể tránh khỏi thiếu sót đinh, mong nhận ý kiến đóng góp quý báu Thầy cô giáo, Hội đồng khoa học trường đểđề tài nghiên cứu tơi hồ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ả śt thời gian học tập hoàn thành luận văn tốt nghiệp Xin trân trongg̣ cảm ơn! Hà Nội, ngày 05 tháng 06 năm 2012 Tác giả Phạm Quốc Hồ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 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 chiu á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 , chiu áp lực thủy tĩnh trọng lượng thân 26 iii 3.2.1Tính tốn hình dạn 3.2.2Tính tốn thể tích CHƯƠNG KẾT QUẢ TÍNH TỐN VỚI CÁC SỐ LIỆU CỤ THỂ 4.1Cơng cụ tính tốn 4.2Các kết tính tốn 4.2.1Tính tốn với vật l 4.2.2Tính tốn với vật l 4.3Nhận xét kết tính tốn KẾT LUẬN TÀI LIỆU THAM KHẢO iv DANH MỤC CÁC BẢNG TT Tên b 4.1 Tọa độ (v , t) độ dầy h 4.2 Tọa độ (v , t) độ dầy h DANH MỤC CÁC HÌNH TT Tên h 1.1 Hình ảnh q trình thi cơng x 1.2 Tháp chứa nước Trảng Bo 2.1 Mặt hình học vỏ 2.2 Mặt trung bình vỏ 2.3 Hình 2.3 2.4 Lực tác động lên mặt cạnh củ 2.5 Hình 2.5 2.6 Cân vỏ vòng trò 3.1 Chọn hệ tọa độ tính tốn : Trụ 3.2 Hình 3.2 3.3 Tại đỉnh bờn 4.1 Mặt cắt đứng thành vỏ bồn 4.2 Mặt cắt đứng thành vỏ bồn ĐẶ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 bi 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 bi 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 bn 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, ć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 vi 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 ngun 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 chiu 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 tồ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 ngồi 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 chiu 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 chiu 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 đinh đàn - dẻo vỏ nón chiu á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á tri h lực tới hạn xét đến ảnh hưởng độ mỏng vỏ ( qua tỷ số L ) đối với giá tri lực tới hạn Bồn nước dạng vỏ có sức chiu chiu 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 ngồ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 vi 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á tri tải ngồi có trạng thái ứng suất , biến dạng , chuyển vi 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á tri  tăng lên, lấy giá tri h nhỏ ta có sức chứa bồn đinh 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 chiu Đ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 chiu đề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, McGrawHill 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 ... 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á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... thay đổi độ dầy h vỏ phải để ứng suất điểm theo hướng giá tri đinh 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