Nghiên cứu ứng dụng công nghệ trắc địa hiện đại trong thi công xây dựng nhà cao tầng

BỘ GIÁO DỤC VÀ ĐÀO TẠO Kü TH UË T TRƯỜNG ĐẠI HỌC MỎ - ĐỊA CHẤT KH OA Hä C BÙI KHẮC TIẾN NGHIÊN CỨU ỨNG DỤNG CÔNG NGHỆ TR IĨ N TRẮC ĐỊA HIỆN ĐẠI TRONG THI CƠNG PH ¸T XÂY DỰNG NHÀ CAO TẦNG Chuyên ngành: Kỹ thuật Trắc địa TR ỵ Mã số: 60.52.85 TR UN G T M Hỗ LUN VN THC S K THUT NGƯỜI HƯỚNG DẪN KHOA HỌC PGS.TS NGUYỄN QUANG THẮNG Hà Nội - 2013 LỜI CAM ĐOAN Tôi xin cam đoan nghiên cứu riêng Các kết nội dung luận văn trung thực, chưa cơng bố cơng trình khác Hà Nội, ngày tháng năm 2013 HỌC VIÊN BÙI KHẮC TIẾN MỤC LỤC Trang Trang bìa phụ LỜI CAM ĐOAN MỤC LỤC DANH MỤC CÁC BẢNG DANH MỤC CÁC HÌNH VẼ MỞ ĐẦU Chương 1: TỔNG QUAN VỀ CÔNG TÁC TRẮC ĐỊA TRONG XÂY DỰNG NHÀ CAO TẦNG 10 1.1 Những nội dung công tác trắc địa xây dựng nhà cao tầng 10 1.2 Những tiêu kỹ thuật công tác trắc địa xây dựng nhà cao tầng 14 1.3 Tổng quan công tác xây dựng nhà cao tầng Việt Nam 19 Chương 2: NGHIÊN CỨU ỨNG DỤNG CÔNG NGHỆ TRẮC ĐỊA HIỆN ĐẠI ĐỂ THÀNH LẬP CÁC MẠNG LƯỚI KHỐNG CHẾ THI CÔNG NHÀ CAO TẦNG 24 2.1 Đặc điểm thành lập mạng lưới khống chế thi công xây dựng nhà cao tầng 24 2.2 Công nghệ trắc địa đại ứng dụng xây dựng nhà cao tầng 31 2.3 Ứng dụng công nghệ trắc địa đại thành lập lưới khống chế thi cơng móng nhà cao tầng 47 2.4 Thành lập lưới khống chế thi công phần thân nhà cao tầng sở ứng dụng công nghệ trắc địa đại 51 Chương 3: NGHIÊN CỨU CÔNG NGHỆ TRẮC ĐỊA HIỆN ĐẠI ĐỂ CHUYỂN TRỤC CƠNG TRÌNH VÀ ĐỘ CAO LÊN CÁC SÀN XÂY DỰNG 55 3.1 Đặc điểm cơng tác chuyển trục cơng trình độ cao lên sàn xây dựng thi công nhà cao tầng 55 3.2 Ưng dụng công nghệ trắc địa chuyển trục lên sàn xây dựng 56 3.3 Chuyển độ cao lên sàn thi công sở ứng dụng công nghệ trắc địa đại 64 3.4 Thành lập chương trình ước tính độ xác lưới khống chế thi cơng nhà cao tầng theo thuật tốn bình sai lưới tự 69 Chương 4: THỰC NGHIỆM CHUYỂN TRỤC CƠNG TRÌNH VÀ ĐỘ CAO TRONG THI CÔNG NHÀ CAO TẦNG BẰNG CÔNG NGHỆ TRẮC ĐỊA HIỆN ĐẠI 79 4.1 Đặc điểm cơng trình xây dựng 79 4.2 Thực nghiệm thành lập lưới khống chế thi công xây dựng nhà cao tầng 80 4.3 Thực nghiệm chuyển trục cơng trình độ cao lên sàn xây dựng 83 KẾT LUẬN VÀ KIẾN NGHỊ 91 TÀI LIỆU THAM KHẢO 92 PHỤ LỤC 93 DANH MỤC CÁC BẢNG STT Tên bảng Bảng 1.1 Nội dung Bảng tiêu kỹ thuật mạng lưới sở bố Trang 17 trí cơng trình Bảng 1.2 Bảng độ xác cơng tác bố trí cơng 18 trình Bảng 1.3 Bảng tiêu kỹ thuật để lập lưới khống chế độ cao 19 Bảng 1.4 Bảng phân loại nhà cao tầng 21 Bảng 1.5 Bảng thống kê số tòa nhà cao tầng Việt Nam 21 Bảng 2.1 Bảng tham số kỹ thuật số máy TĐĐT 34 Bảng 3.1 Bảng sai số trung phương chuyển lên mặt 55 xây lắp Bảng 3.2 Bảng tương hỗ vị trí điểm 77 Bảng 3.3 Bảng ước tính sai số vị trí điểm 78 10 Bảng 4.1 Bảng tọa độ gốc 81 11 Bảng 4.2 Bảng tọa độ GPS sau bình sai 82 12 Bảng 4.3 Bảng tọa độ trắc địa sau bình sai 82 13 Bảng 4.4 Bảng tọa độ vng góc khơng gian sau bình sai 82 14 Bảng 4.5 Bảng Elíp sai số 82 15 Bảng 4.6 Bảng trị đo sau bình sai 83 16 Bảng 4.7 Bảng Tọa độ điểm khởi tính 85 17 Bảng 4.8 Bảng tọa độ độ cao GPS sau bình sai 85 18 Bảng 4.9 Bảng kết đo cạnh 85 19 Bảng 4.10 Bảng kết đo góc 85 20 Bảng 4.11 Bảng tọa độ khởi tính 86 21 Bảng 4.12 Bảng thành tọa độ bình sai lưới khống chế 86 khung (phương án 1) 22 Bảng 4.13 Bảng tương hỗ vị trí điểm 86 23 Bảng 4.14 Bảng so sánh tọa độ đo GPS toàn đạc 87 điện tử 24 Bảng 4.15 Bảng tọa độ điểm khởi tính lưới khung điện 87 tử (phương án 2) 87 Bảng 4.17 Bảng thành tọa độ bình sai lưới khống chế khung Bảng tương hỗ vị trí điểm Bảng 4.18 Bảng so sánh tọa độ đo GPS toàn đạc 88 25 Bảng 4.16 26 27 88 điện tử (phương án 2) 28 Bảng 4.19 Bảng chênh cao đo GPS thủy chuẩn hình học 89 DANH MỤC CÁC HÌNH VẼ STT Tên hình vẽ Nội dung Lưới khống chế mặt phục vụ xây dựng Hình 2.1 Trang 25 NCT Hình 2.2 Máy tồn đạc điện tử 33 Hình 2.3 Máy thu GPS 38 Hình 2.4 Các sơ đồ lưới khống chế thi cơng móng nhà 49 cao tầng Hình 3.1 Sơ đồ chuyền độ cao lên nhà cao tầng 65 Hình 3.2 Sơ đồ chuyền độ cao GPS 68 Hình 3.3 Sơ đồ khối chương trình ước tính hỗn hợp 73 lưới GPS với trị đo mặt đất Hình 3.4 Giao diện chương trình 74 Hình 3.5 File lưu trữ liệu kết 75 10 Hình 3.6 Cửa sổ thiết lập kết ước tính hỗn hợp 75 lưới GPS tồn đạc điện tử 11 Hình 3.7 Sơ đồ ước tính lưới hỗn hợp 76 12 Hình 4.1 Sơ đồ lưới thi cơng cơng trình cơng 81 nghệ GPS 13 Hình 4.2 Sơ đồ chuyển trục cơng trình tầng 21 tịa nhà cơng nghệ GPS kết hợp máy toàn đạc điện tử 84 MỞ ĐẦU Tính cấp thiết đề tài Hiện nước ta tiến mạnh đường công nghiệp hóa đại hóa Trong xây dựng cơng trình cao xuất ngày nhiều Ở thị người ta xây dựng công trình nhà cao tầng có chiều cao lớn lớn Cơng tác trắc địa cơng trình dạng cơng tác trắc địa xác, địi hỏi tính cẩn thận trình độ cao cán thực Để đáp ứng yêu cầu thực tế sản xuất, người làm công tác trắc địa trang bị thiết bị đo đạc đại ứng dụng thành tựu khoa học công nghệ kèm theo phần mềm xử lý chun dụng Máy tồn đạc điện tử cơng nghệ GPS có ưu điểm trội có đặc điểm riêng ứng dụng trắc địa cơng trình Việc hồn thiện khơng ngừng cơng tác trắc địa xây dựng cơng trình với việc ứng dụng công nghệ yêu cầu cấp bách Vì em chọn đề tài ‘‘Nghiên cứu ứng dụng công nghệ trắc địa đại thi cơng xây dựng nhà cao tầng’’ nhằm mục đích ứng dụng cơng nghệ GPS máy tồn đạc điện tử thành lập mạng lưới khống chế chuyển trục lên sàn xây dựng thi công xây dựng nhà cao tầng Đối tượng phạm vi nghiên cứu đề tài - Đối tượng nghiên cứu: Là ứng dụng công nghệ trắc địa đại thi công nhà cao tầng - Phạm vi nghiên cứu: Lưới khống chế thi công nhà cao tầng công tác chuyển trục cơng trình độ cao lên sàn xây dựng thi công nhà cao tầng Mục đích đề tài - Nghiên cứu ứng dụng công nghệ trắc địa thành lập mạng lưới khống chế thi công nhà cao tầng; - Thành lập modul chương trình ước tính lưới hỗn hợp GPS toàn đạc điện tử theo thuật tốn bình sai lưới tự do; - Nghiên cứu ứng dụng công nghệ trắc địa chuyển trục cơng trình độ cao lên sàn xây dựng thi công nhà cao tầng Nội dung đề tài - Nghiên cứu xây dựng quy trình cơng nghệ để thành lập mạng lưới khống chế thi công nhà cao tầng sở ứng dụng công nghệ trắc địa đại; - Thành lập modul chương trình xử lý số liệu xây dựng lưới khống chế thi cơng nhà cao tầng theo thuật tốn bình sai lưới tự do: ước tính độ xác lưới hỗn hợp GPS - mặt đất; - Nghiên cứu ứng dụng công nghệ trắc địa chuyển trục cơng trình độ cao lên sàn xây dựng thi công nhà cao tầng; - Thực nghiệm thành lập lưới khống chế thi công nhà cao tầng công nghệ trắc địa đại; - Thực nghiệm chuyển trục cơng trình độ cao lên sàn xây dựng thi công nhà cao tầng công nghệ trắc địa đại Phương pháp nghiên cứu Luận văn sử dụng phương pháp nghiên cứu sau: - Phương pháp thống kê: Thu thập, tổng hợp xử lý thông tin, tài liệu liên quan - Phương pháp phân tích: Tổng hợp, xử lý logic tài liệu, giải vấn đề đặt - Phương pháp so sánh: Đối chiếu, so sánh kết thu công nghệ GPS với kết thu phương pháp đo đạc truyền thống để đưa nhận định, quy trình cơng nghệ phù hợp với yêu cầu thực tiễn Ý nghĩa khoa học thực tiễn Phát triển, góp phần nâng cao hồn thiện cơng nghệ trắc địa đại thi công xây dựng nhà cao tầng, với việc ứng dụng thiết bị đại máy toàn đạc điện tử, máy chiếu đứng, GPS điều kiện Việt Nam Cấu trúc luận văn Luận văn gồm phần mở đầu, chương, phần kết luận trình bày 123 trang với 28 bảng 13 hình Luận văn hồn thành hướng dẫn PGS.TS Nguyễn Quang Thắng Em xin trân trọng cảm ơn thầy hướng dẫn tận tình bảo giúp đỡ em hoàn thành luận văn Đồng thời em xin cảm ơn thầy cô giáo mơn trắc địa cơng trình Khoa Trắc địa Trường Đại học Mỏ - Địa chất bạn bè, đồng nghiệp nhiệt tình quan tâm giúp em q trình học tập, nghiên cứu hồn thiện luận văn 109 R44 R44 R2 R3 ΔHt -74.996 m 0.010 m ΔElev -74.994 m 0.010 m Ellip Dist 182.521 m 0.004 m Az 299°45'31" 1.331 sec ΔHt -74.882 m 0.010 m ΔElev -74.885 m 0.010 m Ellip Dist 566.143 m 0.003 m Az 225°36'26" 1.500 sec ΔHt -74.438 m 0.010 m ΔElev -74.444 m 0.010 m Ellip Dist 431.832 m 0.004 m Date: 3/27/2013 3:02:18 PM Project: E:\TBC\Luoi Thi Cong Cao Tang.vce : 175300 : 167898 : 115775 : 128300 Trimble Business Center 110 Phụ lục THANH QUA TINH TOAN BINH SAI LUOI MAT BANG CAC THONG SO CUA LUOI Tong so diem luoi: So diem goc : So diem moi lap : So goc : So canh : So phuong vi : SSTP goc(cap luoi) : SSTP canh (may do) : SSTP phuong vi : 4 5" 3+2ppm (mm) 0" SO LIEU KHOI TINH +=====================================================+ | | | TOA DO | | STT | TEN DIEM | | | | | X(m) | Y(m) | +=========|============|===============|==============+ | | R22 | 2326877.459 | 578777.718 | +=====================================================+ BANG THANH QUA TOA DO SAU BINH SAI -+=====================================================================+ | | | TOA DO | SAI SO VI TRI DIEM | | STT | TEN DIEM | | -| | | | X(m) | Y(m) | MX(m) | MY(m) | MP(m) | +======|===========|=============|============|=======|=======|=======+ | | R11 | 2326910.172 | 578780.636 |0.0003 |0.0000 |0.0003 | | | R44 | 2326908.173 | 578801.502 |0.0003 |0.0003 |0.0004 | | | R33 | 2326874.308 | 578798.673 |0.0001 |0.0003 |0.0003 | +=====================================================================+ BANG TUONG HO VI TRI DIEM +====================================================================+ | Diem | Diem |Chieu dai| Ms | Ms/S | Phuong vi | M(a)| | dau | cuoi | (m) | (m) | | o ' " | " | +===========|===========|=========|======|========|============|=====+ | R11 | R44 | 20.961| 0.000|1/ 88827| 95 28 24| 1| | | R22 | 32.843| 0.000|1/145838|185 51| 0| | -| -| -| | | | -| | R44 | R33 | 33.983| 0.000|1/150873|184 46 28| 1| | | R11 | 20.961| 0.000|1/ 88827|275 28 24| 1| | -| -| -| | | | -| | R33 | R44 | 33.983| 0.000|1/150873| 46 28| 1| | | R22 | 21.191| 0.000|1/ 89653|278 33 7| 1| | -| -| -| | | | -| | R22 | R11 | 32.843| 0.000|1/145838| 5 51| 0| | | R33 | 21.191| 0.000|1/ 89653| 98 33 7| 1| +====================================================================+ 111 KET QUA DANH GIA DO CHINH XAC LUOI -1 Sai so trung phuong Trong so don vi Mo = 1(") -2 Sai so trung phuong vi tri Diem yeu nhat (R44) = 0.0004(m) Sai so trung phuong vi tri Diem nho nhat (R11) = 0.0003(m) -4 Sai so trung phuong tuong doi Canh yeu nhat: (R11_R44): 1/88828 Sai so trung phuong tuong doi Canh nho nhat: (R44_R33): 1/150874 -6 Sai so trung phuong Phuong vi yeu nhat: (R44_R33): 1(") Sai so trung phuong Phuong vi nho nhat: (R11_R22): 0(") BANG TRI DO, SO HIEU CHINH VA TRI BINH SAI GOC -+=============================================================================+ | S | Ky hieu goc | |So CC| | | | T | | Goc | m.ph| SHC | Goc sau b/s| | T | trai | giua | phai | o ' " | " | " | o ' " | +=====|==========|==========|==========|============|=====|======|============+ | | R11| R22| R33| 93 27 15| 0| 1| 93 27 16| | | R22| R33| R44| 86 13 21| -0| 1| 86 13 22| | | R33| R44| R11| 90 41 55| -0| 0| 90 41 55| | | R44| R11| R22| 89 37 27| 0| 0| 89 37 27| +=============================================================================+ BANG TRI DO, SO HIEU CHINH VA TRI BINH SAI CANH +==========================================================================+ | S | Ky hieu canh | |So cai chinh(m)| | | | T | -| Canh | -| SHC |Canh b/s | | T | Diem dau | Diem cuoi | (m) | Elip | UTM | (m) | (m) | +=====|===========|===========|==========|=======|=======|=======|=========+ | | R22 | R33 | 21.191 | - | -0.000| 0.0003| 21.191| | | R33 | R44 | 33.984 | - | -0.001|-0.0000| 33.983| | | R44 | R11 | 20.962 | - | -0.000|-0.0003| 20.961| | | R11 | R22 | 32.844 | - | -0.001| 0.0000| 32.843| +==========================================================================+ BANG TRI DO, SO HIEU CHINH VA TRI BINH SAI PHUONG VI -+==========================================================================+ | S | Ky hieu phuong vi | | So CC | | | | T | -| Phuong vi do|Laplace| SHC |P/vi sau b/s | | T | Diem dau | Diem cuoi | o ' " | " | " | o ' " | +======|===========|===========|=============|=======|=======|=============+ | | R22 | R11 | 5 50 | -0 | | 5 51 | +==========================================================================+ 112 Ph lc Kết bình sai lới mặt tự Tên công trình : Tên công trình Số liƯu khëi tÝnh + Sè ®iĨm khëi tÝnh : + Số điểm lập : + Số phơng vị gốc : + Số góc đo :4 + Số cạnh đo :4 + Sai số đo góc : m = 2" + Sai số đo cạnh : mS = (2+2.ppm) mm Bảng tọa độ khởi tính STT Tên điểm R11 R22 R33 R44 X(m) 2326910.173 2326877.459 2326874.312 2326908.175 Y(m) 578780.636 578777.718 578798.674 578801.497 Bảng tọa độ sau bình sai v sai số vị trí điểm STT Tên điểm R11 R22 R33 R44 X(m) 2326910.174 2326877.459 2326874.310 2326908.176 Y(m) 578780.633 578777.718 578798.674 578801.500 Mx(m) 0.0002 0.0002 0.0002 0.0002 My(m) 0.0002 0.0002 0.0002 0.0002 Mp(m) 0.0003 0.0003 0.0003 0.0003 Đánh giá ®é lƯch täa ®é ®iĨm STT Tên điểm R11 R22 R33 R44 Qx(mm) 0.62 0.21 -2.06 1.24 Qy(mm) -2.75 0.09 0.11 2.55 Q(mm) 2.81 0.23 2.07 2.83 Bảng kết trị đo góc sau bình sai Số TT Đỉnh trái R11 R22 R33 R44 Tên đỉnh góc Đỉnh Đỉnh phải R22 R33 R33 R44 R44 R11 R11 R22 Gãc ®o o ' " 93 27 15 86 13 21 90 41 55 89 37 27 SHC " +0.53 +0.52 +0.47 +0.48 Gãc sau BS o ' " 93 27 15.53 86 13 22.52 90 41 55.47 89 37 27.48 113 B¶ng kết trị đo cạnh sau bình sai Số TT Tên đỉnh cạnh Điểm đầu Điểm cuèi R11 R22 R22 R33 R33 R44 R44 R11 C¹nh ®o (m) 32.844 21.191 33.984 20.962 SHC (m) 0.000 0.000 0.000 0.000 Cạnh BS (m) 32.844 21.191 33.984 20.962 Bảng sai số tơng hỗ Cạnh tơng hỗ Điểm đầu Điểm cuèi R11 R22 R22 R33 R33 R44 R44 R11 ChiÒu di (m) 32.844 21.191 33.984 20.962 Phơng vị o ' " 185 05 32 98 32 47 04 46 275 28 ms/S 1/70500 1/45900 1/73000 1/45500 mα " 0.33 0.39 0.33 0.39 Kết đánh giá độ xác Sai số trung phơng trọng số đơn vÞ mo = 0.318 Sai sè vÞ trÝ ®iĨm u nhÊt : (R22) mp = 0.0003(m) Sai số trung phơng tơng đối chiều di cạnh yÕu : (R44-*-R11) mS/S = 1/ 45500 Sai số trung phơng phơng vị cạnh yếu : (R44-*-R11) m = 0.39" Sai số trung phơng tơng hỗ hai ®iĨm u : (R33-*-R44) m(t.h) = 0.001(m) m(t.h) (m) 0.0010 0.0007 0.0010 0.0008 114 Phụ lục Chương trình ước tính lưới hỗn hợp GPS tồn đạc điện tử Private Sub mnuut_Click() PicView.Cls CdgView.Filter = "Tep so lieu(*.txt)|*.txt|Tat ca (*.*)|*.*" CdgView.ShowOpen If CdgView.FileName = "" Then Exit Sub Open CdgView.FileName For Input As #1 Dim filename1 As String, filename2 As String, filename3 As String, filename4 As String filename1 = InStr(CdgView.FileName, ".") filename2 = Left(CdgView.FileName, filename1) filename3 = filename2 + "doc" filename4 = filename2 + "dxf" Open filename3 For Output As #2 Open filename4 For Output As #3 Line Input #1, LGPSMD.Ten Dim TextLine As String Dim Words() As String, WordsCount As Long Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) LGPSMD.n = Words(1) LGPSMD.nk = Words(2) LGPSMD.nguy = Words(3) Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) LGPSMD.nGPS = Words(1) LGPSMD.ncGPS = Words(2) LGPSMD.nPVGPS = Words(3) LGPSMD.aGPS = Words(4) LGPSMD.bGPS = Words(5) Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) LGPSMD.nGTDDT = Words(1) LGPSMD.nCTDDT = Words(2) LGPSMD.mGoc = Words(3) LGPSMD.aTDDT = Words(4) LGPSMD.bTDDT = Words(5) Dim i As Long ReDim Preserve DS_DGPSMD(1 To LGPSMD.n) For i = To LGPSMD.n Line Input #1, DS_DGPSMD(i).Ten Next For i = To LGPSMD.n Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) DS_DGPSMD(i).STT = Words(1) DS_DGPSMD(i).X = Val(Words(2)) DS_DGPSMD(i).Y = Val(Words(3)) Next ReDim DS_CGPS(1 To LGPSMD.ncGPS) ReDim DS_PVGPS(1 To LGPSMD.nPVGPS) 115 For i = To LGPSMD.ncGPS Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) DS_CGPS(i).STT = Words(1) DS_CGPS(i).iD = Words(2) DS_CGPS(i).iC = Words(3) DS_CGPS(i).NCado = Words(4) DS_PVGPS(i).STT = Words(1) DS_PVGPS(i).iD = Words(2) DS_PVGPS(i).iC = Words(3) DS_PVGPS(i).NCado = Words(4) Next If LGPSMD.nGTDDT Then ReDim DS_GocTDDT(1 To LGPSMD.nGTDDT) For i = To LGPSMD.nGTDDT Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) DS_GocTDDT(i).STT = Words(1) DS_GocTDDT(i).iT = Words(2) DS_GocTDDT(i).iG = Words(3) DS_GocTDDT(i).iP = Words(4) Next ReDim DS_CTDDT(1 To LGPSMD.nCTDDT) For i = To LGPSMD.nCTDDT Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) DS_CTDDT(i).STT = Words(1) DS_CTDDT(i).iD = Words(2) DS_CTDDT(i).iC = Words(3) Next Else ReDim DS_CTDDT(1 To LGPSMD.nCTDDT) For i = To LGPSMD.nCTDDT Line Input #1, TextLine WordsCount = TachXau(TextLine, Words()) DS_CTDDT(i).STT = Words(1) DS_CTDDT(i).iD = Words(2) DS_CTDDT(i).iC = Words(3) Next End If 'Viet PT so hieu chinh cac tri 'Tri canh GPS Dim a() As Double, R() As Double, Q() As Double, p() As Double ReDim Preserve a(1 To * LGPSMD.ncGPS + LGPSMD.nGTDDT + LGPSMD.nCTDDT, To * LGPSMD.n) ReDim Preserve p(1 To * LGPSMD.ncGPS + LGPSMD.nCTDDT + LGPSMD.nGTDDT) ReDim R(1 To LGPSMD.n * 2, To LGPSMD.n * 2) ReDim Q(1 To LGPSMD.n * 2, To LGPSMD.n * 2) 'Tri GPS For i = To LGPSMD.ncGPS Dim dX As Double, dY As Double, n As Double, m As Double n = DS_CGPS(i).iC m = DS_CGPS(i).iD dX = DS_DGPSMD(n).X - DS_DGPSMD(m).X dY = DS_DGPSMD(n).Y - DS_DGPSMD(m).Y DS_CGPS(i).S = Sqr(dX ^ + dY ^ 2) DS_CGPS(i).Ms = ((LGPSMD.aGPS + (LGPSMD.bGPS * DS_CGPS(i).S) / 1000) / Sqr(DS_CGPS(i).NCado)) / 1000 116 a(i, a(i, a(i, a(i, p(i) m m n n = * - 1) = -dX / DS_CGPS(i).S * 2) = -dY / DS_CGPS(i).S * - 1) = dX / DS_CGPS(i).S * 2) = dY / DS_CGPS(i).S LGPSMD.nguy / (DS_CGPS(i).Ms ^ 2) 'Pvi a(i + LGPSMD.ncGPS, m * - 1) = (ro * dY) / (DS_CGPS(i).S ^ 2) a(i + LGPSMD.ncGPS, m * 2) = -(ro * dX) / (DS_CGPS(i).S ^ 2) a(i + LGPSMD.ncGPS, n * - 1) = -(ro * dY) / (DS_CGPS(i).S ^ 2) a(i + LGPSMD.ncGPS, n * 2) = (ro * dX) / (DS_CGPS(i).S ^ 2) DS_PVGPS(i).mPV = (ro * DS_CGPS(i).Ms) / DS_CGPS(i).S p(i + LGPSMD.ncGPS) = LGPSMD.nguy / (DS_PVGPS(i).mPV ^ 2) Next 'Tri TDDT 'tri goc For i = To LGPSMD.nGTDDT Dim Kb As Long, Kl As Long, Kr As Long Dim dXij As Double, dYij As Double, dXik As Double, dYik As Double Dim Sij As Double, Sik As Double Kb = DS_GocTDDT(i).iG Kl = DS_GocTDDT(i).iT Kr = DS_GocTDDT(i).iP dXij = DS_DGPSMD(Kl).X - DS_DGPSMD(Kb).X dYij = DS_DGPSMD(Kl).Y - DS_DGPSMD(Kb).Y dXik = DS_DGPSMD(Kr).X - DS_DGPSMD(Kb).X dYik = DS_DGPSMD(Kr).Y - DS_DGPSMD(Kb).Y Sij = dXij ^ + dYij ^ Sik = dXik ^ + dYik ^ Dim iMe As Double, d As Double DS_GocTDDT(i).Goc = ATAN2(dYik, dXik) - ATAN2(dYij, dXij) If DS_GocTDDT(i).Goc < Then DS_GocTDDT(i).Goc = * pi + DS_GocTDDT(i).Goc d = (DS_GocTDDT(i).Goc) * 180 / pi DS_GocTDDT(i).De = Fix(d) iMe = (d - DS_GocTDDT(i).De) * 60 DS_GocTDDT(i).Mi = Fix(iMe) DS_GocTDDT(i).Se = (iMe - DS_GocTDDT(i).Mi) * 60 If DS_GocTDDT(i).Mi >= 60 Then DS_GocTDDT(i).Mi = DS_GocTDDT(i).Mi - 60 DS_GocTDDT(i).De = DS_GocTDDT(i).De + End If If DS_GocTDDT(i).Se >= 60 Then DS_GocTDDT(i).Se = DS_GocTDDT(i).Se - 60 DS_GocTDDT(i).Mi = DS_GocTDDT(i).Mi + End If a(i + * LGPSMD.ncGPS, Kb * - 1) = ro * (dYik / Sik - dYij / Sij) a(i + * LGPSMD.ncGPS, Kb * 2) = ro * (dXij / Sij - dXik / Sik) a(i + * LGPSMD.ncGPS, Kl * - 1) = ro * dYij / Sij a(i + * LGPSMD.ncGPS, Kl * 2) = -ro * dXij / Sij a(i + * LGPSMD.ncGPS, Kr * - 1) = -ro * dYik / Sik a(i + * LGPSMD.ncGPS, Kr * 2) = ro * dXik / Sik p(i + * LGPSMD.ncGPS) = LGPSMD.nguy ^ / (LGPSMD.mGoc ^ 2) Next 'tri canh For i = To LGPSMD.nCTDDT Dim dX1 As Double, dY1 As Double, n1 As Double, m1 As Double 117 n1 = DS_CTDDT(i).iC m1 = DS_CTDDT(i).iD dX1 = DS_DGPSMD(n1).X - DS_DGPSMD(m1).X dY1 = DS_DGPSMD(n1).Y - DS_DGPSMD(m1).Y DS_CTDDT(i).S = Sqr(dX1 ^ + dY1 ^ 2) DS_CTDDT(i).Ms = (LGPSMD.aTDDT + LGPSMD.bTDDT * (DS_CTDDT(i).S / 1000)) / 1000 a(i + * LGPSMD.ncGPS + LGPSMD.nGTDDT, m1 * - 1) = -dX1 / DS_CTDDT(i).S a(i + * LGPSMD.ncGPS + LGPSMD.nGTDDT, m1 * 2) = -dY1 / DS_CTDDT(i).S a(i + * LGPSMD.ncGPS + LGPSMD.nGTDDT, n1 * - 1) = dX1 / DS_CTDDT(i).S a(i + * LGPSMD.ncGPS + LGPSMD.nGTDDT, n1 * 2) = dY1 / DS_CTDDT(i).S p(i + * LGPSMD.ncGPS + LGPSMD.nGTDDT) = LGPSMD.nguy ^ / (DS_CTDDT(i).Ms ^ 2) Next 'Lap he PT chuan HEPTC a(), p(), R(), * LGPSMD.ncGPS + LGPSMD.nCTDDT + LGPSMD.nGTDDT, * LGPSMD.n 'Tinh ma tran gia nghich dao Dim c() As Double, SK As Long, Po() As Double, R1() As Double, j As Long SK = ReDim Preserve c(1 To * LGPSMD.n, To SK) ReDim R1(1 To * LGPSMD.n, To * LGPSMD.n) ReDim Po(1 To SK) For i = To SK Po(i) = 1000000 Next For i = To LGPSMD.n c(i * - 1, 1) = 1: c(i * - 1, 2) = c(2 * i, 1) = 0: c(i * 2, 2) = Next HEPTC2 c(), Po(), R1(), * LGPSMD.n, SK Dim Q12() As Double ReDim Q12(1 To * LGPSMD.n, To * LGPSMD.n) Dim Q1() As Double ReDim Q1(1 To * LGPSMD.n, To * LGPSMD.n) For i = To * LGPSMD.n For j = To * LGPSMD.n Q12(i, j) = R1(i, j) + R(i, j) Next Next NghichDaoMaTran Q12(), Q1(), * LGPSMD.n 'Tinh sai so vi tri diem For i = To LGPSMD.n DS_DGPSMD(i).mX = Sqr((Q1(2 * i - 1, * i - 1))) DS_DGPSMD(i).mY = Sqr((Q1(2 * i, * i))) DS_DGPSMD(i).mP = Sqr(DS_DGPSMD(i).mX ^ + DS_DGPSMD(i).mY ^ 2) Next Print #2, Tab(30); LGPSMD.Ten Print #2, Tab(30); String(15, "="); "*****"; String(15, "=") Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(10); "CAC THAM SO CUA LUOI :" Print #2, Tab(10); String(26, "=") 118 Print #2, Tab(10); "1 Tong so diem luoi"; Tab(42); ":"; Tab(46); LGPSMD.n Print #2, Tab(10); "2 So diem tham gia dinh vi"; Tab(42); ":"; Tab(46); LGPSMD.n Print #2, Tab(10); "3 So luong goc co the"; Tab(42); ":"; Tab(46); LGPSMD.nGTDDT Print #2, Tab(10); "4 So luong canh co the"; Tab(42); ":"; Tab(46); LGPSMD.nCTDDT Print #2, Tab(10); "5 So luong canh GPS co the"; Tab(42); ":"; Tab(46); LGPSMD.ncGPS Print #2, Tab(10); "6 Do chinh xac goc du kien"; Tab(42); ":"; Tab(46); LGPSMD.mGoc Print #2, Tab(10); "7 Do chinh xac canh du kien"; Tab(42); ":"; Tab(46); "a= "; LGPSMD.aTDDT / 1000; "m"; " "; "b= "; LGPSMD.bTDDT / 1000; "m" Print #2, Tab(10); "8 Do chinh xac canh GPS du kien"; Tab(46); ":"; Tab(50); "a= "; LGPSMD.aGPS / 1000; "m"; " "; "b= "; LGPSMD.bGPS / 1000; "m" Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(27); "TOA DO CAC DIEM DINH VI" Print #2, Tab(25); String(12, "="); "*****"; String(12, "=") Print #2, Tab(10); String(62, "=") Print #2, Tab(10); "| SO | KH | TOA DO | Ghi chu |" Print #2, Tab(10); "| THU | DIEM | -| |" Print #2, Tab(10); "| TU | | X(m) | Y(m) | |" Print #2, Tab(10); String(62, "=") For i = To LGPSMD.n Print #2, Tab(10); "|"; Tab(12); i; Tab(16); "|"; Tab(18); DS_DGPSMD(i).Ten; Tab(23); "|"; Tab(25); Format(DS_DGPSMD(i).X, "0.000"); Tab(38); "|"; Tab(40); Format(DS_DGPSMD(i).Y, "0.000"); Tab(53); "|"; Tab(71); "|" Next Print #2, Tab(10); String(62, "=") Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(32); "CHIEU DAI CANH GPS THIET KE" Print #2, Tab(25); String(45, "=") Print #2, Tab(25); "| Stt | Diem dau - Diem cuoi | Chieu dai(m) | " Print #2, Tab(25); String(45, "=") For i = To LGPSMD.ncGPS Print #2, Tab(25); "|"; Tab(27); i; Tab(31); "|"; Tab(35); DS_DGPSMD(DS_CGPS(i).iD).Ten; Tab(41); " -"; Tab(47); DS_DGPSMD((DS_CGPS(i).iC)).Ten; Tab(54); "|"; Tab(59); Format(DS_CGPS(i).S, "0.000"); Tab(69); "|" Next Print #2, Tab(25); String(45, "=") If LGPSMD.nGTDDT Then Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(32); "GIA TRI GOC DO TDDT THIET KE" Print #2, Tab(25); String(50, "=") Print #2, Tab(25); "| STT | Goc | Trai | Giua |Phai|Do Phut Giay |" Print #2, Tab(25); String(50, "=") For i = To LGPSMD.nGTDDT Print #2, Tab(25); "|"; Tab(27); i; Tab(31); "|"; Tab(33); i; Tab(37); "|"; Tab(40); DS_DGPSMD(DS_GocTDDT(i).iT).Ten; Tab(44); "|"; Tab(47); DS_DGPSMD((DS_GocTDDT(i).iG)).Ten; Tab(51); "|"; Tab(54); DS_DGPSMD((DS_GocTDDT(i).iP)).Ten; Tab(58); "|"; Tab(60); 119 DS_GocTDDT(i).De; Tab(64); Format(DS_GocTDDT(i).Mi, "00"); Tab(68); Format(DS_GocTDDT(i).Se, "00.0"); Tab(74); "|" Next Print #2, Tab(25); String(50, "=") Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(32); "CHIEU DAI CANH DO TDDT THIET KE" Print #2, Tab(25); String(45, "=") Print #2, Tab(25); "| Stt | Diem dau - Diem cuoi | Chieu dai(m) | " Print #2, Tab(25); String(45, "=") For i = To LGPSMD.nCTDDT Print #2, Tab(25); "|"; Tab(27); i; Tab(31); "|"; Tab(35); DS_DGPSMD(DS_CTDDT(i).iD).Ten; Tab(41); " -"; Tab(47); DS_DGPSMD((DS_CTDDT(i).iC)).Ten; Tab(54); "|"; Tab(59); Format(DS_CTDDT(i).S, "0.000"); Tab(69); "|" Next Print #2, Tab(25); String(45, "=") Else Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(32); "CHIEU DAI CANH DO TDDT THIET KE" Print #2, Tab(25); String(45, "=") Print #2, Tab(25); "| Stt | Diem dau - Diem cuoi | Chieu dai(m) | " Print #2, Tab(25); String(45, "=") For i = To LGPSMD.nCTDDT Print #2, Tab(25); "|"; Tab(27); i; Tab(31); "|"; Tab(35); DS_DGPSMD(DS_CTDDT(i).iD).Ten; Tab(41); " -"; Tab(47); DS_DGPSMD((DS_CTDDT(i).iC)).Ten; Tab(54); "|"; Tab(59); Format(DS_CTDDT(i).S, "0.000"); Tab(69); "|" Next Print #2, Tab(25); String(45, "=") End If Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(15); " TUONG HO VI TRI DIEM" Print #2, Tab(1); String(76, "=") Print #2, Tab(1); "|STT |DIEM|DIEM|CHIEUDAI|PHUONGVI|Ms/S|m(a)| m(t/ h)|" Print #2, Tab(1); "| |DAU |CUOI| -| |" Print #2, Tab(1); "| | | | (m) | o ' | | | (cm) | Print #2, Tab(1); String(76, "=") ReDim DS_PVi(1 To LGPSMD.n) Dim KTCanh As Boolean, Canhthu As Integer, k As Long For i = LGPSMD.nk To LGPSMD.n Canhthu = For j = To LGPSMD.n If i j Then KTCanh = False 'Gia thiet khong co canh noi diem thu i va diem thu j For k = To LGPSMD.ncGPS If (DS_CGPS(k).iD = i And DS_CGPS(k).iC = j) Or (DS_CGPS(k).iD = j And DS_CGPS(k).iC = i) Then KTCanh = True Canhthu = Canhthu + Exit For End If Next k If KTCanh = False Then For k = To LGPSMD.nCTDDT 120 If (DS_CTDDT(k).iD = i And DS_CTDDT(k).iC = j) Or (DS_CTDDT(k).iD = j And DS_CTDDT(k).iC = i) Then KTCanh = True Canhthu = Canhthu + Exit For End If Next k End If If KTCanh = True Then Dim dX3 As Double, dY3 As Double, ma As Double, alpha As Double, d1 As Double, Ms As Double dX3 = DS_DGPSMD(j).X - DS_DGPSMD(i).X dY3 = DS_DGPSMD(j).Y - DS_DGPSMD(i).Y DS_DGPSMD(j).S = Sqr(dX3 * dX3 + dY3 * dY3) alpha = ATAN2(dY3, dX3) d1 = alpha * 180 / pi DS_PVi(j).De = Fix(d1) iMe = (d1 - DS_PVi(j).De) * 60 DS_PVi(j).Mi = Fix(iMe) DS_PVi(j).Se = (iMe - DS_PVi(j).Mi) * 60 If DS_PVi(j).Mi >= 60 Then DS_PVi(j).Mi = DS_PVi(j).Mi - 60 DS_PVi(j).De = DS_PVi(j).De + End If If DS_PVi(j).Se >= 60 Then DS_PVi(j).Se = DS_PVi(j).Se - 60 DS_PVi(j).Mi = DS_PVi(j).Mi + End If 'Ham so canh Dim f1() As Double, l As Long, Ps As Double, msS As Double ReDim f1(1 To * LGPSMD.n) f1(i * - 1) = -dX3 / DS_DGPSMD(j).S f1(i * 2) = -dY3 / DS_DGPSMD(j).S f1(j * - 1) = dX3 / DS_DGPSMD(j).S f1(j * 2) = dY3 / DS_DGPSMD(j).S Tinh1pf Ps, f1(), Q1(), * LGPSMD.n Ms = Sqr(Ps) msS = DS_DGPSMD(j).S / Ms 'Ham so pvi Dim f() As Double, pf As Double, malpha As Double, mth As Double ReDim f(1 To * LGPSMD.n) f(i * - 1) = (ro * dY3) / (DS_DGPSMD(j).S ^ 2) f(i * 2) = -(ro * dX3) / (DS_DGPSMD(j).S ^ 2) f(j * - 1) = -(ro * dY3) / (DS_DGPSMD(j).S ^ 2) f(j * 2) = (ro * dX3) / (DS_DGPSMD(j).S ^ 2) Tinh1pf pf, f(), Q1(), * LGPSMD.n malpha = Sqr(pf) mth = Sqr(Ms ^ + malpha ^ * DS_DGPSMD(j).S ^ / ro ^ 2) * 100 If Canhthu = Then Print #2, Tab(1); "|"; Tab(3); i - (LGPSMD.n - LGPSMD.nk); Tab(6); "|"; Tab(8); DS_DGPSMD(i).Ten; Tab(13); "|"; Tab(15); DS_DGPSMD(j).Ten; Tab(20); "|"; Tab(22); Format(DS_DGPSMD(j).S, "0.000"); Tab(32); "|"; Tab(34); DS_PVi(j).De; Tab(39); Format(DS_PVi(j).Mi, "00"); Tab(43); Format(DS_PVi(j).Se, "00.0"); Tab(48); "|"; Tab(50); "1/"; Round(msS / 1000, 1) * 1000; Tab(60); "|"; Tab(62); Format(malpha, "0.00"); Tab(68); "|"; Tab(70); Format(mth, "0.00"); Tab(77); "|" 121 Else Print #2, Tab(1); "|"; Tab(3); Tab(6); "|"; Tab(8); Tab(13); "|"; Tab(15); DS_DGPSMD(j).Ten; Tab(20); "|"; Tab(22); Format(DS_DGPSMD(j).S, "0.000"); Tab(32); "|"; Tab(34); DS_PVi(j).De; Tab(39); Format(DS_PVi(j).Mi, "00"); Tab(43); Format(DS_PVi(j).Se, "00.0"); Tab(48); "|"; Tab(50); "1/"; Round(msS / 1000, 1) * 1000; Tab(60); "|"; Tab(62); Format(malpha, "0.00"); Tab(68); "|"; Tab(70); Format(mth, "0.00"); Tab(77); "|" End If End If End If Next Print #2, Tab(1); String(76, "-") Next Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(25); " UOC TINH SAI SO VI TRI DIEM" Print #2, Tab(25); String(12, "="); "*****"; String(12, "=") Print #2, Tab(10); String(68, "=") Print #2, Tab(10); "| SO | KH | TOA DO | S.S VI TRI DIEM (cm) |" Print #2, Tab(10); "| THU | DIEM | -| -|" Print #2, Tab(10); "| TU | | X(m)| Y(m) | Mx | My | Mp |" Print #2, Tab(10); String(68, "=") For i = To LGPSMD.n Print #2, Tab(10); "|"; Tab(12); i; Tab(16); "|"; Tab(18); DS_DGPSMD(i).Ten; Tab(23); "|"; Tab(25); Format(DS_DGPSMD(i).X, "0.000"); Tab(38); "|"; Tab(40); Format(DS_DGPSMD(i).Y, "0.000"); Tab(53); "|"; Tab(55); Format(DS_DGPSMD(i).mX * 100, "0.00"); Tab(61); "|"; Tab(63); Format(DS_DGPSMD(i).mY * 100, "0.00"); Tab(69); "|"; Tab(71); Format(DS_DGPSMD(i).mP * 100, "0.00"); Tab(77); "|" Next Print #2, Tab(10); String(68, "=") Print #2, vbCrLf Print #2, vbCrLf Print #2, Tab(15); " ELIP SAI SO CAC DIEM" Print #2, Tab(10); String(43, "=") Print #2, Tab(10); "| NO.| TEN |BAN TRUC(cm) | GOC QUAY |" Print #2, Tab(10); "| | DIEM | LON | Be | |" Print #2, Tab(10); String(43, "=") ' elip sai so tuong ho vi tri diem ReDim Preserve DS_E(1 To LGPSMD.n) For i = To LGPSMD.n Dim H1 As Double, H2 As Double, H3 As Double Dim Z As Double, G As Double, Mphi As Double Dim Ac As Double, Bc As Double, phi As Double H1 = Q1(i * - 1, i * - 1) H2 = Q1(i * - 1, i * 2) H3 = Q1(i * 2, i * 2) Z = H1 + H3 G = Sqr((H1 - H3) * (H1 - H3) + * H2 * H2) 'ban truc lon Ac Ac = (Sqr(Z + G)) / Sqr(2) 'ban truc nho Bc Bc = (Sqr(Z - G)) / Sqr(2) 'tinh goc dinh huong ban truc lon phi = (ATAN2(2 * H2, (H1 - H3))) / DS_E(i).Ac = Ac DS_E(i).Bc = Bc DS_E(i).phi = phi 122 Mphi = Sqr(DS_E(i).Ac ^ * (Cos(phi)) ^ + DS_E(i).Bc ^ * (Sin(phi)) ^ 2) d = (DS_E(i).phi) * 180 / pi DS_E(i).De = Fix(d) iMe = (d - DS_E(i).De) * 60 DS_E(i).Mi = Fix(iMe) DS_E(i).Se = (iMe - DS_E(i).Mi) * 60 If DS_E(i).Mi >= 60 Then DS_E(i).Mi = DS_E(i).Mi - 60 DS_E(i).De = DS_E(i).De + End If If DS_E(i).Se >= 60 Then DS_E(i).Se = DS_E(i).Se - 60 DS_E(i).Mi = DS_E(i).Mi + End If Print #2, Tab(10); "|"; Tab(12); i; Tab(15); "|"; Tab(17); DS_DGPSMD(i).Ten; Tab(22); "|"; Tab(24); Format(DS_E(i).Ac * 100, "0.00"); Tab(29); "|"; Tab(31); Format(DS_E(i).Bc * 100, "0.00"); Tab(36); "|"; Tab(38); DS_E(i).De; Tab(43); Format(DS_E(i).Mi, "00"); Tab(47); Format(DS_E(i).Se, "00.0"); Tab(52); "|" Next Print #2, Tab(10); String(43, "=") Dim max As Double, Ten As String max = DS_DGPSMD(1).mP For i = To LGPSMD.n If max < DS_DGPSMD(i).mP Then max = DS_DGPSMD(i).mP Ten = DS_DGPSMD(i).Ten End If Next Print #2, "Sai so vi tri diem yeu nhat la:"; " "; Ten; " "; "Mp "= "; Format(max * 100, "0.00"); " (cm)" Close (2) Print #3, "0" Print #3, "SECTION" Print #3, "2" Print #3, "ENTITIES" For i Print Print Print Print Print Print Print Print Print Print Next For i = Print Print Print Print Print Print Print Print = #3, #3, #3, #3, #3, #3, #3, #3, #3, #3, To LGPSMD.n "0" "Point" "8" "0" "10" DS_DGPSMD(i).Y "20" DS_DGPSMD(i).X "30" "0.0" To LGPSMD.ncGPS #3, "0" #3, "LINE" #3, "8" #3, "0" #3, "10" #3, DS_DGPSMD(DS_CGPS(i).iD).Y #3, "20" #3, DS_DGPSMD(DS_CGPS(i).iD).X "; 123 Print #3, "30" Print #3, "0.0" Print #3, "11" Print #3, DS_DGPSMD(DS_CGPS(i).iC).Y Print #3, "21" Print #3, DS_DGPSMD(DS_CGPS(i).iC).X Print #3, "31" Print #3, "0.0" Next For i = To LGPSMD.nCTDDT Print #3, "0" Print #3, "LINE" Print #3, "8" Print #3, "0" Print #3, "10" Print #3, DS_DGPSMD(DS_CTDDT(i).iD).Y Print #3, "20" Print #3, DS_DGPSMD(DS_CTDDT(i).iD).X Print #3, "30" Print #3, "0.0" Print #3, "11" Print #3, DS_DGPSMD(DS_CTDDT(i).iC).Y Print #3, "21" Print #3, DS_DGPSMD(DS_CTDDT(i).iC).X Print #3, "31" Print #3, "0.0" Next For i = To LGPSMD.n Print #3, "0" Print #3, "Text" Print #3, "8" Print #3, "0" Print #3, "10" Print #3, DS_DGPSMD(i).Y + Print #3, "20" Print #3, DS_DGPSMD(i).X + Print #3, "30" Print #3, "0.0" Print #3, "40" Print #3, "6" Print #3, "1" Print #3, DS_DGPSMD(i).Ten Next Print #3, "0" Print #3, "ENDSEC" Print #3, "0" Print #3, "EOF" Close (3) Close (2) Close (1) End Sub ... khống chế thi công xây dựng nhà cao tầng 24 2.2 Công nghệ trắc địa đại ứng dụng xây dựng nhà cao tầng 31 2.3 Ứng dụng công nghệ trắc địa đại thành lập lưới khống chế thi cơng móng nhà cao tầng 47... - Nghiên cứu ứng dụng công nghệ trắc địa chuyển trục cơng trình độ cao lên sàn xây dựng thi công nhà cao tầng; - Thực nghiệm thành lập lưới khống chế thi công nhà cao tầng công nghệ trắc địa đại; ... trình độ cao lên sàn xây dựng thi công nhà cao tầng 55 3.2 Ưng dụng công nghệ trắc địa chuyển trục lên sàn xây dựng 56 3.3 Chuyển độ cao lên sàn thi công sở ứng dụng công nghệ trắc địa đại 64 3.4