Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)

215 431 1
Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)Nghiên cứu sự làm việc của cọc đơn và nhóm cọc đất xi măng cho công trình nhà cao tầng (LA tiến sĩ)

BỘ GIÁO DỤC ĐÀO TẠO ĐẠI HỌC ĐÀ NẴNG ĐỖ HỮU ĐẠO NGHIÊN CỨU SỰ LÀM VIỆC CỦA CỌC ĐƠN NHÓM CỌC ĐẤT XI MĂNG CHO CÔNG TRÌNH NHÀ CAO TẦNG LUẬN ÁN TIẾN SĨ KỸ THUẬT Đà nẵng - Năm 2015 BỘ GIÁO DỤC ĐÀO TẠO ĐẠI HỌC ĐÀ NẴNG - ĐỖ HỮU ĐẠO NGHIÊN CỨU SỰ LÀM VIỆC CỦA CỌC ĐƠN NHÓM CỌC ĐẤT XI MĂNG CHO CÔNG TRÌNH NHÀ CAO TẦNG CHUYÊN NGÀNH: CƠ KỸ THUẬT MÃ SỐ : 62.52.01.01 LUẬN ÁN TIẾN SĨ KỸ THUẬT Người hướng dẫn khoa học GS.TS NGUYỄN TRƯỜNG TIẾN PGS.TS PHAN CAO THỌ Đà nẵng – Năm 2015 ii LỜI CAM ĐOAN Tôi xin cam đoan công trình nghiên cứu riêng Các số liệu kết luận án trung thực chưa công bố công trình khác Tác giả NCS Đỗ Hữu Đạo i LỜI CẢM ƠN Để có kết nghiên cứu luận án này, tác giả nhận nhiều giúp đỡ tận tình thầy giáo hướng dẫn, nhà khoa học, đồng nghiệp, quan hữu quan, doanh nghiệp gia đình Tác giả xin bày tỏ lòng biết ơn đến Ban Giám đốc Đại học Đà Nẵng, Ban Đào tạo sau Đại học hỗ trợ, tạo điều kiện thuận lợi, giúp đỡ trình học tập, nghiên cứu Tác giả xin bày tỏ lòng biết ơn đến Ban Giám hiệu, Phòng Khoa học - sau đại học hợp tác quốc tế, Khoa Phạm Kỹ Thuật, Khoa Xây dựng Cầu Đường, Trung tâm nghiên cứu ứng dụng TVKT móng công trình, Bộ môn Cơ sở kỹ thuật xây dựng, phòng thí nghiệm: Địa Cơ, Vật liệu Xây dựng trường Đại học Bách Khoa – Đại học Đà Nẵng tạo điều kiện thuận lợi trình nghiên cứu Tác giả xin bày tỏ lòng biết ơn đến doanh nghiệp: Công ty cổ phần Nền móng Phú Sỹ, Công ty cổ phần Ô tô Trường Hải, Công ty cổ phần đầu tư xây dựng Uy Nam –Unicons, Công ty TNHH Xây dựng Việt Thịnh, Công ty cổ phần Khởi Phát, Công ty cổ phần Đức Mạnh, Công ty CP Vinaconex 25 hỗ trợ công việc dự án, mặt bằng, máy móc, thiết bị để triển khai thí nghiệm trường Tác giả xin bày tỏ lòng biết ơn đến Thầy giáo, nhà khoa học Khoa Phạm Kỹ Thuật, Khoa xây dựng Cầu Đường trường ĐHBK Đà Nẵng, Hội học đất Địa kỹ thuật công trình Việt Nam, Viện Địa Kỹ thuật Việt Nam, Trường Đại học Xây Dựng, Trường Đại học Thủy Lợi, Viện Khoa học công nghệ Xây Dựng – Bộ Xây Dựng có ý kiến quý báu thiết thực Đặc biệt Tác giả xin bày tỏ lòng biết ơn chân thành sâu sắc GS.TS Nguyễn Trường Tiến, PGS.TS Phan Cao Thọ GS.TS Vũ Công Ngữ người thầy tận tình giúp đỡ, hướng dẫn từ ngày đầu bắt tay vào nghiên cứu, có ý kiến hướng dẫn, đạo sâu sắc mặt khoa học, sâu sát việc hướng dẫn tổ chức chương trình thí nghiệm việc hoàn thành luận án Trong khuôn khổ nội dung luận án, chắn chưa đáp ứng cách đầy đủ vấn đề đặt ra, thêm vào trình độ thân hạn chế Tác giả xin chân thành cảm ơn tiếp thu ý kiến đóng góp nhà khoa học bạn đồng nghiệp Trân trọng! Tác giả ii MỤC LỤC Trang Trang phụ bìa Lời cam đoan Mục lục Danh mục bảng Danh mục hình vẽ đồ thị Danh mục ký hiệu, chữ viết tắt MỞ ĐẦU ĐẶT VẤN ĐỀ, MỤC ĐÍCH, PHƯƠNG PHÁP NỘI DUNG NGHIÊN CỨU CỦA LUẬN ÁN Đặt vấn đề Mục đích đề tài Đối tượng nghiên cứu Nội dung nghiên cứu Phương pháp nghiên cứu Phạm vi nghiên cứu Những đóng góp luận án Cấu trúc luận án CHƯƠNG TỔNG QUAN VỀ CỌC ĐẤT XI MĂNG 1.1 GIỚI THIỆU CHUNG 1.1.1 Quá trình hình thành phát triển cọc đất xi măng 1.1.2 Các ứng dụng cọc đất xi măng 1.1.3 Các phương pháp thi công cọc theo phương pháp trộn sâu 1.1.3.1 Phương pháp trộn khô (Dry mixing method) 1.1.3.2 Phương pháp trộn ướt (Wet mixing method) 1.1.4 Một số nghiên cứu nước cọc SCP 11 1.1.4.1 Nghiên cứu đặc tính cường độ vật liệu cọc 11 1.1.4.2 Các nghiên cứu học chịu tải cọc nhóm cọc SCP 13 1.2 VỀ ĐẶC TÍNH CƯỜNG ĐỘ VẬT LIỆU CỌC ĐẤT XI MĂNG 1.2.1 Cường độ nén nở hông qu 15 15 iii 1.2.2 Cường độ uốn qb 16 1.2.3 Mô đun đàn hồi E50 16 1.2.4 Cường độ phòng thí nghiệm trường 17 1.2.5 Nhận xét 18 1.3 CƠ SỞ TÍNH TOÁN CỌC ĐƠN NHÓM CỌC ĐẤT XI MĂNG 1.3.1 Khả chịu tải cọc đơn 18 18 1.3.1.1 Sức chịu tải theo vật liệu cọc 19 1.3.1.2 Sức chịu tải cọc đơn theo đất 19 1.3.2 Tính toán nhóm cọc SCP 21 1.3.2.1 Khả chịu tải giới hạn nhóm cọc SCP 21 1.3.2.2 Hiệu ứng nhóm cọc 23 a Hệ số nhóm theo Feld’s 23 b Hệ số nhóm theo Terzaghi Peck 23 c Hệ số nhóm theo Convese-Labarre 23 d Hệ số nhóm xét đến dạng phá hoại khối theo Coduto 24 e Phương pháp Sayed Bakeer (1992) 24 1.3.3 Nhận xét 24 1.4 MỘT SỐ ĐẶC ĐIỂM ĐỊA CHẤT KHU VỰC ĐÀ NẴNG – QUẢNG NAM TRIỂN VỌNG ỨNG DỤNG CỌC SCP CHO NHÀ CAO TẦNG 25 1.5 MỘT SỐ VẤN ĐỀ TỒN TẠI TRONG NGHIÊN CỨU ỨNG DỤNG CỌC ĐẤT XI MĂNG CHO CÔNG TRÌNH NHÀ CAO TẦNG 28 1.5.1 Về vật liệu cọc 28 1.5.2 Về sức chịu tải cọc nhóm cọc 28 1.6 NHIỆM VỤ ĐẶT RA CHO LUẬN ÁN 29 CHƯƠNG MỘT SỐ KẾT QUẢ NGHIÊN CỨU VỀ ĐẶC TÍNH CƯỜNG ĐỘ VẬT LIỆU CỌC ĐẤT XI MĂNG 30 2.1 ĐẶT VẤN ĐỀ 30 2.2 PHẠM VI LẤY MẪU THÍ NGHIỆM ĐẤT, XI MĂNG 30 2.2.1 Phạm vi lấy mẫu đất 30 2.2.2 Kết thí nghiệm đất 31 iv 2.2.1.1 Kết thí nghiệm tính chất lý đất 31 2.2.1.2 Kết thí nghiệm hóa đất 33 2.2.3 Kết thí nghiệm xi măng 33 2.2.4 Nước 34 2.3 PHƯƠNG PHÁP THÍ NGHIỆM, CÁCH TÍNH TOÁN ĐÁNH GIÁ KẾT QỦA 34 2.3.1 Chương trình thí nghiệm 34 2.3.2 Trộn đúc mẫu 35 2.3.3 Dưỡng hộ mẫu 35 2.3.4 Thí nghiệm nén uốn mẫu 35 2.3.5 Phương pháp tính toán, đánh giá kết 36 2.3.5.1 Xác định cường độ chịu nén nở hông qu 36 2.3.5.2 Xác định cường độ chịu uốn mẫu qb 36 2.3.5.3 Đánh giá tăng trưởng cường độ theo thời gian 37 2.3.5.4 Đánh giá ảnh hưởng hàm lượng xi măng đến cường độ qu, qb 37 2.3.5.5 Xác định mô đun đàn hồi E50 vật liệu cọc 38 2.3.5.6 Đánh giá tương quan cường độ qu cường độ kháng uốn qb 38 2.3.5.7 Đánh giá tương quan cường độ phòng trường 2.4 KẾT QUẢ NGHIÊN CỨU THỰC NGHIỆM 38 38 2.4.1 Kết thí nghiệm nén mẫu 38 2.4.1.1 Các biểu đồ nén mẫu 38 2.4.1.2 Tăng trưởng cường độ qu theo thời gian 41 2.4.1.3 Xác định mô đun đàn hồi E50 44 2.4.2 Kết thí nghiệm uốn mẫu 46 2.4.2.1 Các biểu đồ uốn mẫu 46 2.4.2.2 Tăng trưởng cường độ qb theo thời gian 49 2.4.2.3 Tương quan q b qu 50 2.4.3 Xây dựng tương quan hàm lượng xi măng ax qu 51 2.4.4 Đánh giá ảnh hưởng thành phần hạt hóa tính đất 52 2.4.5 Tương quan cường độ phòng trường 53 2.5 KẾT LUẬN CHƯƠNG 55 v CHƯƠNG NGHIÊN CỨU SỰ LÀM VIỆC CỦA CỌC ĐƠN NHÓM CỌC ĐẤT XI MĂNG BẰNG MÔ HÌNH KÍCH THƯỚC THẬT 57 3.1 ĐẶT VẤN ĐỀ 57 3.1.1 Mục đích việc xây dựng mô hình thí nghiệm thực 57 3.1.2 Công nghệ, thiết bị tiêu chuẩn áp dụng cho mô hình 58 3.2 CHUẨN BỊ THÍ NGHIỆM 59 3.2.1 Vị trí thực xây dựng mô hình 59 3.2.2 Các thí nghiệm địa kỹ thuật 59 3.2.2.1 Khoan địa chất thí nghiệm lý đất 59 3.2.2.2 Thí nghiệm CPTu 60 3.2.3 Thiết kế mô hình thí nghiệm 61 3.2.4 Thiết kế cấp phối vữa bơm cho cọc 62 3.2.5 Dự tính sức chịu tải cọc SCP theo đất 62 3.3 XÂY DỰNG MÔ HÌNH TIẾN HÀNH THÍ NGHIỆM 63 3.3.1 Định vị tọa độ cọc thí nghiệm 63 3.3.2 Chuẩn bị tổ hợp máy khoan cọc 63 3.3.3 Trình tự lắp đặt thiết bị đo biến dạng dọc trục cọc 65 3.3.4 Thi công dưỡng hộ cọc thí nghiệm 66 3.3.5 Tiến hành thí nghiệm cho mô hình 66 3.3.5.1 Thí nghiệm khoan lõi xuyên tâm cọc 66 3.3.5.2 Thí nghiệm nén tĩnh dọc trục cho cọc đơn nhóm cọc 68 3.3.5.3 Kết số liệu thí nghiệm 70 3.4 PHÂN TÍCH ĐÁNH GIÁ KẾT QUẢ THÍ NGHIỆM 70 3.4.1 Cơ sở phân tích truyền tải sức chịu tải giới hạn 70 3.4.1.1 Cơ sở phân tích truyền tải cọc 70 3.4.1.2 Cơ sở phân tích sức chịu tải giới hạn cọc 71 3.4.2 Phân tích cọc đơn 72 3.4.2.1 Phân tích truyền tải cọc đơn 72 3.4.2.2 Phân tích sức chịu tải giới hạn (Qu) cọc đơn 73 3.4.2.3 Đánh giá sức kháng thành bên kháng mũi 75 vi 3.4.3 Phân tích nhóm cọc 78 3.4.3.1 Phân tích truyền tải cọc nhóm cọc 78 3.4.3.2.Phân tích sức chịu tải giới hạn cọc 83 3.4.3.3 Xác định hệ số nhóm cọc cho mô hình thí nghiệm 85 3.5 ĐỀ NGHỊ PHƯƠNG PHÁP TÍNH SỨC CHỊU TẢI CHO NHÓM CỌC SCP 86 3.5.1 Nhận xét phương pháp Bergado 86 3.5.2 Phương pháp đề nghị áp dụng 87 3.5.2.1 Điều kiện thực tiễn 87 3.5.2.2 Sơ đồ học cho nhóm cọc SCP 87 3.5.2.3 Công thức đề nghị tính sức chịu tải cho nhóm cọc SCP 87 3.5.2.4 Kết tính toán so sánh 88 3.6 KẾT LUẬN CHƯƠNG 89 CHƯƠNG MÔ PHỎNG SỐ XÂY DỰNG TƯƠNG QUAN VỀ HỆ SỐ NHÓM CHO CỌC ĐẤT XI MĂNG 90 4.1 MỤCC ĐÍCH PHƯƠNG PHÁP 90 4.1.1 Mục đích việc mô số 90 4.1.2 Các phương pháp số thường dùng Địa kỹ thuật 90 4.1.3 Mô cọc SCP phần mềm Plaxis 3D Foundation 91 4.1.3.1 Mô hình vật liệu Plaxis 91 4.1.3.2 Các môđun Plaxis 91 4.1.3.3 Kiểu phần tử mô cọc SCP Plaxis 92 4.1.3.4 Trình tự thực mô phân tích cọc SCP Plaxis 93 4.1.4 Các trường hợp mô số 4.2 MÔ PHỎNG SỐ CHO MÔ HÌNH THÍ NGHIỆM 94 94 4.2.1 Số liệu đất cọc 94 4.2.2 Kết mô số phân tích cọc đơn 95 4.2.3 Mô số cho nhóm G1: 03 cọc 96 4.2.4 Mô số 3D cho nhóm G2: 05 cọc 97 4.2.5 Nhận xét 98 4.3 MÔ PHỎNG SỐ CHO CỌC SCP CÁC CÔNG TRÌNH THỰC TẾ 99 vii 4.3.1 Công trình Showroom KIA Trường Hải Đà Nẵng 99 4.3.1.1 Giới thiệu công trình thông số cọc thí nghiệm 99 4.3.1.2 Số liệu địa chất cọc 99 4.3.2 Công trình Khu phức hợp văn phòng FPT Complex 100 4.3.2.1 Giới thiệu thông số cọc thí nghiệm 100 4.3.2.2 Số liệu địa chất cọc 100 4.3.2.3 Kết thí nghiệm mô số 3D 100 4.3.3 Công trình Chung cư thu nhập thấp Khu dân cư An Trung 101 4.3.3.1 Giới thiệu thông số cọc thí nghiệm 101 4.3.3.2 Số liệu địa chất cọc đất xi măng 102 4.3.3.3 Kết thí nghiệm mô số cho cọc đơn nhóm 04 cọc 102 4.3.4 Công trình Bệnh viện Đa khoa Điện Bàn – Quảng Nam 103 4.3.4.1 Giới thiệu thông số cọc thí nghiệm 103 4.3.4.2 Số liệu địa chất cọc 103 4.3.4.3 Kết thí nghiệm cho cọc đơn nhóm 05 cọc 104 4.3.5 Công trình Đường đầu cầu Trần Thị Lý – thành phố Đà Nẵng 104 4.3.5.1 Giới thiệu thông số cọc thí nghiệm 104 4.3.5.2 Số liệu địa chất cọc 104 4.3.5.3 Kết thí nghiệm cho cọc đơn nhóm 07 cọc 105 4.3.6 Tổng hợp số liệu công trình thực tế 106 4.3.7 Nhận xét 106 4.4 MÔ PHỎNG SỐ XÂY DỰNG TƯƠNG QUAN HỆ SỐ NHÓM CỌC SCP 107 4.4.1 Mô số cho trường hợp phân tích 107 4.4.2 Phân tích kết từ trường hợp mô số 109 4.4.3 So sánh kết từ phương trình với kết thí nghiệm 112 4.5 KẾT LUẬN CHƯƠNG 112 CHƯƠNG NGHIÊN CỨU ỨNG DỤNG CỌC ĐẤT XI MĂNG CHO CÔNG TRÌNH NHÀ CAO TẦNG 113 5.1 GIỚI THIỆU CHUNG 113 5.2 XÂY DỰNG TRÌNH TỰ TÍNH TOÁN MÓNG CỌC SCP 113 viii End If Next ' sodong = Max(n2_xi, n2_yi) Data_Tinh_xiyi.Rows.Add(sodong + 1) Data_Tinh_xiyi.Rows(0).Cells(1).Value = "M2" For i As Integer = To sodong With Data_Tinh_xiyi Rows(i - 1).Cells(0).Value = i Rows(i - 1).Cells(1).Value = Round(xi(i) * HS_OutL, 2) Rows(i - 1).Cells(2).Value = Round(x2i(i) * HS_OutL ^ 2, 2) Rows(i - 1).Cells(3).Value = Round(yi(i) * HS_OutL, 2) Rows(i - 1).Cells(4).Value = Round(y2i(i) * HS_OutL ^ 2, 2) End With Next Data_Tinh_xiyi.Rows.Add(1) Data_Tinh_xiyi.Rows(sodong).Cells(2).Value = Round(Sum_x2 * HS_OutL ^ 2, 2) Data_Tinh_xiyi.Rows(sodong).Cells(4).Value = Round(Sum_y2 * HS_OutL ^ 2, 2) ' ' Pmax2 = Ntt / n2_coc + (Mxtt * ymax) / (Sum_x2) + (Mytt * xmax) / (Sum_y2) Pmin2 = Ntt / n2_coc - (Mxtt * ymax) / (Sum_x2) - (Mytt * xmax) / (Sum_y2) ' Pn_coc = Ntt / n_coc ' Pmax = Max(Pmax1, Pmax2) Pmin = Max(Pmin1, Pmin2) ' Label_PmaxPmin_MongDoi.Visible = True ' End If ' 'ĐIỀN KẾT QUẢ TÍNH UPDATE DỮ LIỆU txt_Pmax.Text = Round(Pmax, 2) txt_Pmin.Text = Round(Pmin, 2) FS_test_datnen = 'Hệ số an toàn kiểm tra tải trọng đứng If Round(Pmax, 2) < Round(Pdatnen / FS_test_datnen, 2) Or Round(Pmax, 2) = Round(Pdatnen / FS_test_datnen, 2) Then 'Kết Label_Taitrongdung_Datnen.Text = "Pmax=" & Round(Pmax * HS_OutF, 2) & "(" & Str_F & ")" & " Pđn/FS=" & Round((Pdatnen * HS_OutF) / FS_test_datnen, 2) & "(" & Str_F & ")" Label_TESTTaitrongdung_Datnen.Text = "(Không thỏa mãn)" OK_string = "NO" 179 End If Pvatlieu = Fcoc * CuongdoVua / Heso_FS_ShortTime 'MsgBox("P vat lieu=" & Pvatlieu & "Cuongdo vua=" & CuongdoVua & ", He so an toan=" & Heso_FS_ShortTime) If Pvatlieu > * Pmax Then Label_Taitrongdung_VatLieu.Text = "Pvl=" & Round(Pvatlieu * HS_OutF, 2) & "(" & Str_F & ")" & " > 2.Pmax=" & Round(2 * Pmax * HS_OutF, 2) & "(" & Str_F & ")" Label_TESTTaitrongdung_VatLieu.Text = "(Thỏa mãn)" Label_TESTTaitrongdung_VatLieu.ForeColor = Color.Blue OK_string = "OK" Else Label_Taitrongdung_VatLieu.Text = "Pvl=" & Round(Pvatlieu * HS_OutF, 2) & "(" & Str_F & ")" & "< 2.Pmax=" & Round(2 * Pmax * HS_OutF, 2) & "(" & Str_F & ")" Label_TESTTaitrongdung_VatLieu.Text = "(Không thỏa mãn)" OK_string = "NO" End If US_daucoc = Pmax / Fcoc If US_daucoc < CuongdoVua / Heso_FS_LongTime Then Label_Taitrongdung_Cuongdovua.Text = "US(đầu cọc)=" & Round(US_daucoc * HS_OutF, 2) & "(" & Str_F & "/" & Str_F & "2)" & " qc=" & Round((CuongdoVua * HS_OutF) / Heso_FS_LongTime, 2) & "(" & Str_F & "/" & Str_F & "2)" Label_TESTTaitrongdung_Cuongdovua.Text = "(Không thỏa mãn)" OK_string = "NO" End If ' 'xxxxxxxxxxxxxxxxxxxxxxxxxxxx 'x PHẦN 7: TẢI TRỌNG NGANG x 'xxxxxxxxxxxxxxxxxxxxxxxxxxxx ' SumHn = Fx + MomenMy / Hdai Hn_cocdon = SumHn / n_coc qb_taingang = 0.1 * CuongdoVua Hn_chophep = qb_taingang * Fcoc / FS_test_datnen txt_taingang_SumH.Text = Round(SumHn * HS_OutF, 2) txt_taingang_Hdon.Text = Round(Hn_cocdon * HS_OutF, 2) txt_taingang_qb.Text = Round(qb_taingang * HS_OutF / (HS_OutL ^ 2), 2) txt_taingang_Hchophep.Text = Round(Hn_chophep * HS_OutF, 2) ' If Hn_cocdon < Hn_chophep Or Hn_cocdon = Hn_chophep Then Label_Ketqua_Hngang.Text = "Hn=" & Round(Hn_cocdon * HS_OutF, 2) & "(" & Str_F & ")" & " [H]=" & Round(Hn_chophep * HS_OutF, 2) & "(" & Str_F & ")" Label_TEST_Taingang.Text = "(Không thỏa mãn)" OK_string = "NO" End If ' 'xxxxxxxxxxxxxxxxxxxxxxxx 'x PHẦN 8: HỆ SỐ NHÓM x 'xxxxxxxxxxxxxxxxxxxxxxxx ' If MongLe = True Then Select Case n_coc Case n_nhomcoc = m_nhomcoc = Case n_nhomcoc = m_nhomcoc = Case n_nhomcoc = m_nhomcoc = End Select Else n_nhomcoc = ny_coc m_nhomcoc = nx_coc End If ' Ds_nhomcoc = Dcoc / KCx1_coc Dim SD As Double SD = KCx1_coc / Dcoc artangDs_nhomcoc = Atan(Ds_nhomcoc) ' Class_TraBangNenMong.BKITEC.Class_TraBangNenMong.TraHesoNhomCoc(Heso_nhomcoc_DoHuuDao, SD, n_coc) ' Data_Thongso_HesoNhomCoc.Rows.Clear() Data_Thongso_HesoNhomCoc.Rows.Add(1) With Data_Thongso_HesoNhomCoc Rows(0).Cells(0).Value = n_nhomcoc Rows(0).Cells(1).Value = m_nhomcoc Rows(0).Cells(2).Value = Round(Ds_nhomcoc, 2) Rows(0).Cells(3).Value = Round(artangDs_nhomcoc * 180/PI, 2) End With Heso_nhomcoc = - (artangDs_nhomcoc * 180 / PI) / 90 * ((n_nhomcoc - 1) * m_nhomcoc + (m_nhomcoc - 1) * n_nhomcoc) / (n_nhomcoc * m_nhomcoc) Pdn_nhomcoc = Heso_nhomcoc * Pdatnen 'Dim Qg As Double If MongLe = False Then Qg = nx_coc * ny_coc * Pdatnen Else Qg = n_coc * Pdatnen End If Label_Succhiutainhomcoc.Text = "Qg=n1.n2.Qu= " & Round(Qg * HS_OutF, 2) & " (" & Str_F & ")" 181 Label_Ketqua_HesoNhomcoc.Text = "= " & Round(Heso_nhomcoc, 2) If Pdn_nhomcoc > Pmax Or Pdn_nhomcoc = Pmax Then Label_Kiemtra_Hesonhomcoc.Text = "P = " & Round(Pdatnen * HS_OutF, 2) & "(" & Str_F & ")" & " > Pmax = " & Round(Pmax * HS_OutF, 2) & " (" & Str_F & ")" Label_TEST_Hesonhomcoc.Text = "(Thỏa mãn)" Label_TEST_Hesonhomcoc.ForeColor = Color.Blue OK_string = "OK" Else Label_Kiemtra_Hesonhomcoc.Text = "P = " & Round(Pdatnen * HS_OutF, 2) & "(" & Str_F & ")" & " < Pmax = " & Round(Pmax * HS_OutF, 2) & "(" & Str_F & ")" Label_TEST_Hesonhomcoc.Text = "(Không thỏa mãn)" OK_string = "NO" End If ' 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'x PHẦN 9: TÍNH TOÁN THÉP BỐ TRÍ THÉP x 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'x KIỂM TRA ĐIỀU KIỆN MẶT PHẲNG NGHIÊNG x 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' 'MẶT CẮT 1-1 với bề rộng B b cột ' If Mongdoi = False Then If Mongdondungtam = True Then ' Móng đơn If MongLe = False Then 'Móng đơn tâm chẵn cọc ' GroupBox_TH_Mongchancoc.Visible = True GroupBox_TH_MongLeCoc.Visible = False ' If Bdai > (Bco + ho) Then r1_thep = xmax - Aco / r2_thep = ymax - Bco / 'Tính khoảng cách từ mép cột đến mép hàng cọc bên c_mc1 = r1_thep - Dcoc / c_mc2 = r2_thep - Dcoc / ho = Hdai - 0.15 'Chiều cao làm việc đài cọc P1np = nx_coc * Pmax P2np = ny_coc * Pmax txt_Ketqua_Pnp_MC1.Text = Round(P1np* HS_OutF, 2) txt_Ketqua_Pnp_MC2.Text = Round(P2np* HS_OutF, 2) txt_Ketqua_Rk_bt_MC1.Text = Round(Rk_bt * 10, 2) Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì B = " & Bdai * HS_OutL & "(" & Str_L & ")" & " > bk+ho = " & (Bco + ho) * HS_OutL & " (" & Str_L & ")" & "nên ta có" Pic_CongthucPnp_TH1_MC_1.Visible = True Pic_CongthucPnp_TH2_MC_1.Visible = False ho_ttmc1 = -Bco / + Sqrt((Bco ^ 2) / + P1np / (Rk_bt * 10)) Else Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì B = " & Bdai * HS_OutL & "(" & Str_L & ")" & "< bk+ho = " & (Bco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" 182 Pic_CongthucPnp_TH1_MC_1.Visible = False Pic_CongthucPnp_TH2_MC_1.Visible = True ho_ttmc1 = P1np / (Bdai * Rk_bt * 10) End If Label_KetquaTinh_ho_MC1.Text = "= " & Round(ho_ttmc1 * HS_OutL, 2) & "(" & Str_L & ")" ' 'MẶT CẮT 2-2 với bề rộng A a cột ' If Adai > (Aco + ho) Then Label_KiemtraDieukien_I_MC2.Text.Clone() Label_KiemtraDieukien_I_MC2.Text = "Vì A = " & Adai * HS_OutL & "(" & Str_L & ")" & " > bk+ho = " & (Aco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_2.Visible = True Pic_CongthucPnp_TH2_MC_2.Visible = False ho_ttmc2 = -Aco / + Sqrt((Aco ^ 2) / + P2np / (Rk_bt * 10)) Else Label_KiemtraDieukien_I_MC2.Text.Clone() Label_KiemtraDieukien_I_MC2.Text = "Vì A = " & Adai & "(" & Str_L * HS_OutL & ")" & " < bk+ho = " & (Aco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_2.Visible = False Pic_CongthucPnp_TH2_MC_2.Visible = True ho_ttmc2 = P2np / (Adai * Rk_bt * 10) End If Label_KetquaTinh_ho_MC2.Text = "= " & Round(ho_ttmc2 * HS_OutL, 2) & "(" & Str_L & ")" ' ' Label_Ketquaho_DK1_MC1.Text.Clone() Label_Ketquaho_DK1_MC1.Text = "Kết tính ho1(tt)= " & Round(ho_ttmc1 * HS_OutL, 2) & "(" & Str_L & ")" & " ho2(tt)= " & Round(ho_ttmc2 * HS_OutL, 2) & " (" & Str_L & ")" ' Else ' Móng đơn tâm lẻ cọc GroupBox_TH_Mongchancoc.Visible = False GroupBox_TH_MongLeCoc.Visible = True Dim Utb, Utr, Ud As Double ' ho = Hdai - 0.15 'Chiều cao làm việc đài cọc Utr = * (Aco + Bco) ' Select Case n_coc Case Is = r1_thep = KCx1_coc / / Cos(PI / 6) - Bco / Ud = * KCx1_coc Case Is = r1_thep = KCx1_coc * Cos(PI / 4) - Aco / r2_thep = KCx1_coc * Cos(PI / 4) - Bco / Ud = * * KCx1_coc * Cos(PI / 4) Case Is = r1_thep = Ud = * KCx1_coc End Select Utb = / * (Utr + Ud) P1np = n_coc * Pmax 183 txt_Pnp_TH_MongLe.Text = Round(P1np * HS_OutF, 2) txt_Utb_MongLe.Text = Round(Utb * HS_OutL, 2) txt_Utr_MongLe.Text = Round(Utr * HS_OutL, 2) txt_Ud_MongLe.Text = Round(Ud * HS_OutL, 2) ' Dim VP As Double VP = 0.75 * Rk_bt * 10 * Utb * ho Pct_mc1 = VP ' SuperTabItem_KetQua5.Visible = True SuperTabItem_KetQua6.Visible = True SuperTabItem_KetQua7.Visible = True SuperTabItem_KetQua8.Visible = True SuperTabItem_KetQua9.Visible = True SuperTabItem_KetQua10.Visible = True SuperTabItem_KetQua11.Visible = True SuperTabItem_KetQua12.Visible = True SuperTabItem_KetQua15.Visible = True 'SuperTabItem_KetQua13.Visible = True 'SuperTabItem_KetQua14.Visible = True SuperTab_KetQuaTinh.TabLayoutType = DevComponents.DotNetBar.eSuperTabLayoutType.SingleLineFit ' SuperTab_KetQuaTinh.SelectedTabIndex = 12 If P1np < VP Or P1np = VP Then Label_Ketquaho_DK1_MC1.Text.Clone() Label_Ketquaho_DK1_MC1.Text = "Pnp=" & Round(P1np * HS_OutF, 2) & " 0,75.Rk.Utb.ho=" & Round(VP * HS_OutF, 2) Label_Tieu_de_Nhap_gia_tri_Ho_tinh_toan.Text.Clone() Label_Tieu_de_Nhap_gia_tri_Ho_tinh_toan.Text = "Chiều cao đài cọc" & Round(Hdai * HS_OutL, 2) & Str_L & " không thỏa mãn điều kiện chọc thủng" Try Dim ngamcoc As Double Hdai = InputBox("Hãy nhập lại chiều cao đài cọc:", "Thông báo") ngamcoc = InputBox("Bạn nhập chiều dài ngàm cọc vào đài:", "Thông báo") 184 ho = Hdai - ngamcoc If MsgBox("Bạn có chắn chiều cao làm việc đài cọc là: " & ho & " " & Str_L, MsgBoxStyle.YesNo, "Thông báo") = MsgBoxResult.No Then MsgBox("Các hành động thực thi không tiếp tục thực hiện", MsgBoxStyle.Exclamation, "Cảnh báo:") Exit Sub End If Select Case n_coc Case VeMCN.VeHinhBKITEC_Mong3coc(Pic_ThietKe, Bco, Aco, Bdai, Hmong, Hdai, MNN, Dcoc, Lcoc, KCmep_C, KCx1_coc, Lop_hi, Lop_Ci, Lop_ID, z_SPT, N_SPT, sodongSPT, solop, SigmaBooLean, TextBooLean, Bien_hi, Diem, usvi, uszi, soloptinhlun, Aqu, Atd) Case VeMCN.VeHinhBKITEC_Mong5coc(Pic_ThietKe, Bco, Aco, Bdai, Hmong, Hdai, MNN, Dcoc, Lcoc, KCmep_C, KCx1_coc, Lop_hi, Lop_Ci, Lop_ID, z_SPT, N_SPT, sodongSPT, solop, SigmaBooLean, TextBooLean, Bien_hi, Diem, usvi, uszi, soloptinhlun, Aqu) Case VeMCN.VeHinhBKITEC_Mong7coc(Pic_ThietKe, Bco, Aco, Bdai, Hmong, Hdai, MNN, Dcoc, Lcoc, KCmep_C, KCx1_coc, Lop_hi, Lop_Ci, Lop_ID, z_SPT, N_SPT, sodongSPT, solop, SigmaBooLean, TextBooLean, Bien_hi, Diem, usvi, uszi, soloptinhlun, Aqu, Atd) End Select Catch ex As Exception End Try Label105.Text.Clone() Label105.Visible = False txt_hdai_moi.Visible = False cmd_Tieptuc.Visible = False VP = 0.75 * Rk_bt * 10 * Utb * ho If P1np < VP Or P1np = VP Then MsgBox("Điều kiện thỏa mãn.Hãy nhấn nút tiếp tục để tính toán thép", MsgBoxStyle.Information, "Thông báo:") Else MsgBox("Điều kiện không thỏa mãn.Vui lòng nhập lại giá trị theo yêu cầu", MsgBoxStyle.Exclamation, "Thông báo:") If MsgBox("Bạn có muốn tiếp tục tính toán", MsgBoxStyle.YesNo, "Thông báo:") = vbNo Then MsgBox("Các hành động thực thi không tiếp tục thực hiện", MsgBoxStyle.Exclamation, "Cảnh báo:") Exit Sub End If End If Loop Until P1np < VP Or P1np = VP cmd_Tieptuc.Visible = True End If End If Else ' Móng đơn lệch tâm GroupBox_TH_Mongchancoc.Visible = True GroupBox_TH_MongLeCoc.Visible = False If Bdai > (Bco + ho) Then r1_thep = xmax - Aco / r2_thep = ymax - Bco / 185 'Tính khoảng cách từ mép cột đến mép hàng cọc bên c_mc1 = r1_thep - Dcoc / c_mc2 = r2_thep - Dcoc / ho = Hdai - 0.15 'Chiều cao làm việc đài cọc P1np = nx_coc * Pmax P2np = ny_coc * Pmax txt_Ketqua_Pnp_MC1.Text = Round(P1np, 2) txt_Ketqua_Pnp_MC2.Text = Round(P2np, 2) txt_Ketqua_Rk_bt_MC1.Text = Round(Rk_bt * 10, 2) ' Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì B = " & Bdai * HS_OutL & "(" & Str_L & ")" & " > bk+ho = " & (Bco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_1.Visible = True Pic_CongthucPnp_TH2_MC_1.Visible = False ho_ttmc1 = -Bco / + Sqrt((Bco ^ 2) / + P1np / (Rk_bt * 10)) Else Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì B = " & Bdai * HS_OutL & "(" & Str_L & ")" & " < bk+ho = " & (Bco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_1.Visible = False Pic_CongthucPnp_TH2_MC_1.Visible = True ho_ttmc1 = P1np / (Bdai * Rk_bt * 10) End If Label_KetquaTinh_ho_MC1.Text = "= " & Round(ho_ttmc1 * HS_OutL, 2) & " (" & Str_L & ")" ' 'MẶT CẮT 2-2 với bề rộng A a cột ' If Adai > (Aco + ho) Then Label_KiemtraDieukien_I_MC2.Text.Clone() Label_KiemtraDieukien_I_MC2.Text = "Vì A = " & Adai * HS_OutL & " (" & Str_L & ")" & " > bk+ho = " & (Aco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_2.Visible = True Pic_CongthucPnp_TH2_MC_2.Visible = False ho_ttmc2 = -Aco / + Sqrt((Aco ^ 2) / + P2np / (Rk_bt * 10)) Else Label_KiemtraDieukien_I_MC2.Text.Clone() Label_KiemtraDieukien_I_MC2.Text = "Vì A = " & Adai * HS_OutL & "(" & Str_L & ")" & " < bk+ho = " & (Aco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_2.Visible = False Pic_CongthucPnp_TH2_MC_2.Visible = True ho_ttmc2 = P2np / (Adai * Rk_bt * 10) End If Label_KetquaTinh_ho_MC2.Text = "= " & Round(ho_ttmc2 * HS_OutL, 2) & "(" & Str_L & ")" ' ' Label_Ketquaho_DK1_MC1.Text.Clone() Label_Ketquaho_DK1_MC1.Text = "Kết tính ho1(tt)= " & Round(ho_ttmc1 * HS_OutL, 2) & "(" & Str_L & ")" & " ho2(tt)= " & Round(ho_ttmc2 * HS_OutL, 2) & "(" & Str_L & ")" 186 ' End If Else 'Móng đôi ' GroupBox_TH_Mongchancoc.Visible = True GroupBox_TH_MongLeCoc.Visible = False ' If Bdai > (Bco + ho) Then r1_thep = xmax - Aco / r2_thep = ymax - Bco / 'Tính khoảng cách từ mép cột đến mép hàng cọc bên c_mc1 = r1_thep - Dcoc / c_mc2 = r2_thep - Dcoc / ho = Hdai - 0.15 'Chiều cao làm việc đài cọc P1np = nx_coc * Pmax P2np = ny_coc * Pmax txt_Ketqua_Pnp_MC1.Text = Round(P1np, 2) txt_Ketqua_Pnp_MC2.Text = Round(P2np, 2) txt_Ketqua_Rk_bt_MC1.Text = Round(Rk_bt * 10, 2) ' Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì B = " & Bdai * HS_OutL & "(" & Str_L & ")" & " > bk+ho = " & (Bco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_1.Visible = True Pic_CongthucPnp_TH2_MC_1.Visible = False ho_ttmc1 = -Bco / + Sqrt((Bco ^ 2) / + P1np / (Rk_bt * 10)) Else Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì B = " & Bdai * HS_OutL & "(" & Str_L & ")" & " < bk+ho = " & (Bco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_1.Visible = False Pic_CongthucPnp_TH2_MC_1.Visible = True ho_ttmc1 = P1np / (Bdai * Rk_bt * 10) End If Label_KetquaTinh_ho_MC1.Text = "= " & Round(ho_ttmc1 * HS_OutL, 2) & "(" & Str_L & ")" ' 'MẶT CẮT 2-2 với bề rộng A a cột ' If Adai > (Aco + ho) Then Label_KiemtraDieukien_I_MC1.Text.Clone() Label_KiemtraDieukien_I_MC1.Text = "Vì A = " & Adai * HS_OutL & "(" & Str_L & ")" & " > bk+ho = " & (Aco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_2.Visible = True Pic_CongthucPnp_TH2_MC_2.Visible = False ho_ttmc2 = -Aco / + Sqrt((Aco ^ 2) / + P2np / (Rk_bt * 10)) Else Label_KiemtraDieukien_I_MC2.Text.Clone() Label_KiemtraDieukien_I_MC2.Text = "Vì A = " & Adai * HS_OutL & "(" & Str_L & ")" & " < bk+ho = " & (Aco + ho) * HS_OutL & "(" & Str_L & ")" & " nên ta có" Pic_CongthucPnp_TH1_MC_2.Visible = False Pic_CongthucPnp_TH2_MC_2.Visible = True ho_ttmc2 = P2np / (Adai * Rk_bt * 10) 187 End If Label_KetquaTinh_ho_MC2.Text = "= " & Round(ho_ttmc2 * HS_OutL, 2) & "(" & Str_L & ")" ' ' Label_Ketquaho_DK1_MC1.Text.Clone() Label_Ketquaho_DK1_MC1.Text = "Kết tính ho1(tt)= " & Round(ho_ttmc1 * HS_OutL, 2) & "(" & Str_L & ")" & " ho2(tt)= " & Round(ho_ttmc2 * HS_OutL, 2) & "(" & Str_L & ")" ' End If If MongLe = False Then SuperTabItem_KetQua5.Visible = True SuperTabItem_KetQua6.Visible = True SuperTabItem_KetQua7.Visible = True SuperTabItem_KetQua8.Visible = True SuperTabItem_KetQua9.Visible = True SuperTabItem_KetQua10.Visible = True SuperTabItem_KetQua11.Visible = True SuperTabItem_KetQua12.Visible = True SuperTabItem_KetQua15.Visible = True 'SuperTabItem_KetQua13.Visible = True 'SuperTabItem_KetQua14.Visible = True SuperTab_KetQuaTinh.TabLayoutType = DevComponents.DotNetBar.eSuperTabLayoutType.SingleLineFit ' SuperTab_KetQuaTinh.SelectedTabIndex = 12 End If If ClickRun = False Then MsgBox("Tính toán Thành công", MsgBoxStyle.Information, "Thông báo") ClickRun = True End If End Sub 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 'x TÍNH TOÁN SỨC CHỊU TỈA CỦA ĐẤT NẾN KHI CHỌN CÁC TÙY CHỌN KHÁC NHAU 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Private Sub ComboBox_TuychonSucchiuTai_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_TuychonSucchiuTai.SelectedIndexChanged Dim Solopchia As Integer = Int(Lcoc / 1) Select Case Val(ComboBox_TuychonSucchiuTai.SelectedIndex) Case Is = GroupBox_SucChiuTaiDatNen.Visible = True Group_SucChiuTai_NhatBan.Visible = False GroupBox_SucChiuTaiMeyerhof.Visible = False Dim Tangz As Double Dim DeltaZ As Double = Dim DatSet As Boolean = For i As Integer = To solopcoctiepxuc Tangz = Tangz + Lop_hi(i) DeltaZ = Tangz - (Lcoc + Hmong) If DeltaZ > Then HamPhanBietDat(DatSet, Lop_ID(i)) 188 Class_TraBangNenMong.BKITEC.Class_TraBangNenMong.TraR(R_nen, Lcoc + Hmong, Lop_ID(i), DatSet) ElseIf DeltaZ = Or i = solopcoctiepxuc Then HamPhanBietDat(DatSet, Lop_ID(i + 1)) Class_TraBangNenMong.BKITEC.Class_TraBangNenMong.TraR(R_nen, Lcoc + Hmong, Lop_ID(i + 1), DatSet) End If Next Tangz = Hmong Dim Tangh As Double = For j As Integer = To Solopchia Giatri_li(j) = Tangz = Tangh + 0.5 Tangh = Tangh + Giatri_zi(j) = Tangz Dim CongdonH As Double = For i As Integer = To solopcoctiepxuc CongdonH = CongdonH + Lop_hi(i) ''Debug.WriteLine("Gía trị Loại cát ỏ độ sệt" & i & "=" & Lop_ID(i)) 'Debug.WriteLine("hi=" & Lop_hi(i)) If Tangz + Hmong < CongdonH Then 'Debug.WriteLine("Gía trị Loại cát ỏ độ sệt" & i & "=" & Lop_ID(i)) 'Debug.WriteLine("Cộng dồn=" & CongdonH & ", tangh=" & Tangz + Hmong) HamPhanBietDat(DatSet, Lop_ID(i)) Class_TraBangNenMong.BK-ITEC.Class_TraBangNenMong.Trafi(Giatri_fi(j), Tangz + Hmong, Lop_ID(i), DatSet) End If Dim delta As Double delta = Tangh + Hmong - CongdonH If delta < Then Exit For End If Next Next Data_KetquaTinhQf.Rows.Clear() Data_KetquaTinhQf.Rows.Add(Solopchia) Dim Sum_fili As Double For i As Integer = To Solopchia With Data_KetquaTinhQf Rows(i - 1).Cells(0).Value = Giatri_li(i) Rows(i - 1).Cells(1).Value = Giatri_zi(i) Rows(i - 1).Cells(2).Value = Giatri_fi(i) Rows(i - 1).Cells(3).Value = Giatri_li(i) * Giatri_fi(i) Sum_fili = Sum_fili + Giatri_li(i) * Giatri_fi(i) End With Next Data_KetquaTinhQf.Rows.Add(1) Data_KetquaTinhQf.Rows(Solopchia).Cells(3).Value = Sum_fili txt_Sumfili.Text = Sum_fili * (HS_OutF / (HS_OutL ^ 2) * HS_OutL) Chuvi_u = PI * Dcoc Data_Datnen_Ketqua.Rows.Clear() Data_Datnen_Ketqua.Rows.Add(1) 189 Data_Datnen_Ketqua.Rows(0).Cells(0).Value = Heso_m Data_Datnen_Ketqua.Rows(0).Cells(1).Value = Heso_mr Data_Datnen_Ketqua.Rows(0).Cells(2).Value = Heso_mf Data_Datnen_Ketqua.Rows(0).Cells(3).Value = Round(R_nen * HS_OutF / (HS_OutL ^ 2), 2) Data_Datnen_Ketqua.Rows(0).Cells(4).Value = Round(Fcoc * HS_OutL ^ 2, 2) Data_Datnen_Ketqua.Rows(0).Cells(5).Value = Round(Chuvi_u * HS_OutL, 2) ' Qr_datnen = Heso_mr * R_nen * Fcoc txt_datnen_Qr.Text = Round(Qr_datnen * HS_OutF, 2) Qf_datnen = Chuvi_u * Sum_fili * Heso_mf txt_datnen_Qf.Text = Round(Qf_datnen * HS_OutF, 2) Qu_datnen = Qr_datnen + Qf_datnen txt_datnen_Qu.Text = Round(Qu_datnen * HS_OutF, 2) txt_datnen_Ktc.Text = Heso_Ktc Qa_datnen = Qu_datnen / Heso_Ktc txt_datnen_Qa.Text = Round(Qa_datnen * HS_OutF, 2) ' VeMasatThanh_TCXD205(Pic_ThietKe, Solopchia) Case Is = ' GroupBox_SucChiuTaiDatNen.Visible = False Group_SucChiuTai_NhatBan.Visible = False GroupBox_SucChiuTaiMeyerhof.Visible = True Dim N_2D, N_4D, N_mui, Mui_2D, Mui_4D As Double ' Class_TraBangNenMong.BKITEC.Class_TraBangNenMong.TraChiSo_SPT(Ntb_Meyerhof, N_mui, N_2D, N_4D, Mui_2D, Mui_4D, Lcoc, Dcoc, z_SPT, N_SPT, sodongSPT) Na_Meyerhof = ((N_mui + N_2D + Mui_2D) / * * Dcoc + (N_mui + N_4D + Mui_4D) / * * Dcoc) / (6 * Dcoc) As_Meyerhof = PI * Dcoc * Lcoc Ap_Meyerhof = Fcoc Qr_Meyerhof = Heso_K1_Meyerhof * Na_Meyerhof * Ap_Meyerhof ' Qf_Meyerhof = Heso_K2_Meyerhof * Ntb_Meyerhof * As_Meyerhof ' Qu_Meyerhof = Qr_Meyerhof + Qf_Meyerhof Qa_Meyerhof = Qu_Meyerhof / Heso_FS_Meyerhof Data_KetquaMeyerhof.Rows.Clear() Data_KetquaMeyerhof.Rows.Add(1) Data_KetquaMeyerhof.Rows(0).Cells(0).Value Heso_K1_Meyerhof * HS_OutF / (HS_OutL ^ 2) Data_KetquaMeyerhof.Rows(0).Cells(1).Value Heso_K2_Meyerhof * HS_OutF / (HS_OutL ^ 2) Data_KetquaMeyerhof.Rows(0).Cells(2).Value Round(Ap_Meyerhof * HS_OutL ^ 2, 2) Data_KetquaMeyerhof.Rows(0).Cells(3).Value Round(Na_Meyerhof, 2) Data_KetquaMeyerhof.Rows(0).Cells(4).Value Round(Ntb_Meyerhof, 2) = = = = = 190 Data_KetquaMeyerhof.Rows(0).Cells(5).Value = Round(As_Meyerhof * HS_OutL ^ 2, 2) txt_Meyerhof_Qr.Text = Round(Qr_Meyerhof * HS_OutF, 2) txt_Meyerhof_Qf.Text = Round(Qf_Meyerhof * HS_OutF, 2) txt_Meyerhof_Qu.Text = Round(Qu_Meyerhof * HS_OutF, 2) txt_Meyerhof_Qa.Text = Round(Qa_Meyerhof * HS_OutF, 2) txt_Meyerhof_HesoFS.Text = Heso_FS_Meyerhof ' VeMasatThanh_Meyerhof(Pic_ThietKe, solopchia) Case Is = GroupBox_SucChiuTaiDatNen.Visible = False Group_SucChiuTai_NhatBan.Visible = True GroupBox_SucChiuTaiMeyerhof.Visible = False Dim Tangz As Double = Dim DeltaZ As Double = Dim Datyeu As Boolean = False Dim DeltaZ_4D As Double = Dim DeltaZ_2D As Double = Dim Testmui As Boolean = False Dim Test4D As Boolean = False Dim Test2D As Boolean = False Dim N_2D, N_4D, N_mui, Mui_2D, Mui_4D As Double Dim TH As Integer = 'Dim Ngamcoc, Thuadatduoicoc As Double Lc_NhatBan = ctb_NhatBan = Ls_NhatBan = Ns_NhatBan = Dim solopyeu As Integer = For i As Integer = To solopcoctiepxuc If Lop_Ci(i) > Then Lc_NhatBan = Lc_NhatBan + Lop_hi(i) ctb_NhatBan = ctb_NhatBan + Lop_Ci(i) solopyeu = solopyeu + Datyeu = True ElseIf Lop_Ci(i) = Then Ls_NhatBan = Ls_NhatBan + Lop_hi(i) End If Next Class_TraBangNenMong.BKITEC.Class_TraBangNenMong.TraChiSo_SPTNhatBan(Ns_N hatBan, N_mui, N_2D, N_4D, Mui_2D, Mui_4D, Lcoc, Dcoc, z_SPT, N_SPT, sodongSPT, solopcoctiepxuc, Lop_hi, Lop_Ci) Na_NhatBan = ((N_2D + N_mui + Mui_2D) / * * Dcoc + (N_4D + N_mui + Mui_4D) / * * Dcoc) / (6 * Dcoc) ' If Datyeu = True Then ctb_NhatBan = ctb_NhatBan / solopyeu Else ctb_NhatBan = Lc_NhatBan = End If ' Ls_NhatBan = Lcoc - Lc_NhatBan Ap_NhatBan = Fcoc dcoc_NhatBan = Dcoc ' Data_Ketqua_NhatBan.Rows.Clear() Data_Ketqua_NhatBan.Rows.Add(1) 191 Data_Ketqua_NhatBan.Rows(0).Cells(0).Value = Heso_alpha_NhatBan Data_Ketqua_NhatBan.Rows(0).Cells(1).Value = Round(Ap_NhatBan * HS_OutL ^ 2, 2) Data_Ketqua_NhatBan.Rows(0).Cells(2).Value = Round(Na_NhatBan, 2) Data_Ketqua_NhatBan.Rows(0).Cells(3).Value = Round(Ns_NhatBan, 2) Data_Ketqua_NhatBan.Rows(0).Cells(4).Value = Round(Ls_NhatBan * HS_OutL, 2) Data_Ketqua_NhatBan.Rows(0).Cells(5).Value = Round(Lc_NhatBan * HS_OutL, 2) Data_Ketqua_NhatBan.Rows(0).Cells(6).Value = Round(ctb_NhatBan * HS_OutF / (HS_OutL ^ 2), 2) txt_NhatBan_FS.Text = Heso_FS_NhatBan Qr_NhatBan = Heso_alpha_NhatBan * Na_NhatBan * Ap_NhatBan txt_NhatBan_Qr.Text = Round(Qr_NhatBan * HS_OutF, 2) If Datyeu = True Then Qf_NhatBan = (0.32 * Ns_NhatBan * Ls_NhatBan + ctb_NhatBan * Lc_NhatBan) * PI * dcoc_NhatBan Else Qf_NhatBan = (0.26 * Ns_NhatBan * Ls_NhatBan) * PI * dcoc_NhatBan End If txt_NhatBan_Qf.Text = Round(Qf_NhatBan * HS_OutF, 2) Qu_NhatBan = Qr_NhatBan + Qf_NhatBan txt_NhatBan_Qu.Text = Round(Qu_NhatBan * HS_OutF, 2) Qa_NhatBan = Qu_NhatBan / Heso_FS_NhatBan txt_NhatBan_Qa.Text = Round(Qa_NhatBan * HS_OutF, 2) End Select 'Debug.Listeners.Remove(Listen) 'Str.Close() End Sub 192 PHỤ LỤC 6: CÁC CHỨNG CHỈ CỦA THIẾT BỊ THÍ NGHIỆM 193 ... quan hệ số nhóm cọc cho cọc đất xi măng Chương 5: Nghiên cứu ứng dụng cọc đất xi măng cho cơng trình nhà cao tầng CHƯƠNG TỔNG QUAN VỀ CỌC ĐẤT XI MĂNG 1.1 GIỚI THIỆU CHUNG 1.1.1 Q trình hình thành... Chương 1: Tổng quan cọc đất xi măng Chương 2: Một số kết nghiên cứu thực nghiệm đặc tính cường độ vật liệu cọc đất xi măng Chương 3: Nghiên cứu làm việc cọc đơn nhóm cọc đất xi măng mơ hình kích... kháng mũi cọc đơn nhóm cọc đất xi măng từ mơ hình thí nghiệm kích thước thật, làm sở đánh giá cọc đất xi măng bán cứng làm việc cọc để ứng dụng chịu lực - Phân tích nhóm cọc đất xi măng mơ hình

Ngày đăng: 27/07/2017, 07:27

Từ khóa liên quan

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan