nghiên cứu lập trình tính toán nhanh một số bài toán trắc địa cơ bản phục vụ giải đáp bài tập trắc địa đại cương

BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC CẦN THƠ NGUYỄN VĂN CHIẾN NGHIÊN CỨU LẬP TRÌNH TÍNH TỐN NHANH MỘT SỐ BÀI TOÁN TRẮC ĐỊA CƠ BẢN PHỤC VỤ GIẢI ĐÁP BÀI TẬP TRẮC ĐỊA ĐẠI CƢƠNG LUẬN VĂN KỸ SƢ NGÀNH QUẢN LÝ ĐẤT ĐAI Cần Thơ 12/2014 BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC CẦN THƠ - NGHIÊN CỨU LẬP TRÌNH TÍNH TỐN NHANH MỘT SỐ BÀI TOÁN TRẮC ĐỊA CƠ BẢN PHỤC VỤ GIẢI ĐÁP BÀI TẬP TRẮC ĐỊA ĐẠI CƢƠNG LUẬN VĂN KỸ SƢ NGÀNH QUẢN LÝ ĐẤT ĐAI Mã ngành: 52850103 Cán hƣớng dẫn: Sinh viên thực hiện: Ths TRẦN VĂN HÙNG NGUYỄN VĂN CHIẾN MSSV: 4115006 LỚP: Quản lý đất đai K37 Cần Thơ 12/2014 TRƢỜNG ĐẠI HỌC CẦN THƠ KHOA MÔI TRƢỜNG VÀ TÀI NGUYÊN THIÊN NHIÊN BỘ MÔN TÀI NGUYÊN ĐẤT ĐAI  XÁC NHẬN CỦA BỘ MÔN TÀI NGUYÊN ĐẤT ĐAI Xác nhận đề tài: “Nghiên cứu lập trình tính tốn nhanh số tốn trắc địa phục vụ giải đáp bái tập trắc địa đại cƣơng” Do sinh viên NGUYỄN VĂN CHIẾN, MSSV: 4115006, lớp Quản Lý Đất Đai Khóa 37, Bộ môn Tài Nguyên Đất Đai – Khoa Môi Trƣờng Tài Nguyên Thiên Nhiên – Trƣờng Đại Học Cần Thơ thực từ ngày 29/7/2014 đến ngày 1/12/2014 Xác nhận Bộ môn: ……………………………………………………………… ………………………………………………………………………………………… …………………………………………………………………………………… ……… ………………………………………………………………………………… ………… ……………………………………………………………………………… …………… …………………………………………………………………………… …………… …………………………………………………………………………… …………… …………………………………………………………………………… …………… …………………………………………………………………………… …………… …………………………………………………………………………… …………… …………………………………………………………………………… Cần thơ, ngày ……, tháng……, năm 2014 Trƣởng Bộ môn i TRƢỜNG ĐẠI HỌC CẦN THƠ KHOA MÔI TRƢỜNG VÀ TÀI NGUYÊN THIÊN NHIÊN BỘ MÔN TÀI NGUYÊN ĐẤT ĐAI  NHẬN XÉT CỦA CÁN BỘ HƢỚNG DẪN Chứng nhận chấp thuận báo cáo luận văn tốt nghiệp ngành Quản Lý Đất Đai với đề tài: “Nghiên cứu lập trình tính tốn nhanh số toán trắc địa phục vụ giải đáp tập trắc địa đại cƣơng” Do sinh viên NGUYỄN VĂN CHIẾN, MSSV: 4115006, lớp Quản Lý Đất Đai Khóa 37, Bộ môn Tài Nguyên Đất Đai – Khoa Môi Trƣờng Tài Nguyên Thiên Nhiên – Trƣờng Đại Học Cần Thơ thực từ ngày 29/7/2014 đến ngày 1/12/2014 Nhận xét cán hƣớng dẫn: ……………………………………………… ……………………………………………………………………………………… … ……………………………………………………………………………………… … ……………………………………………………………………………………… … ……………………………………………………………………………………… … ……………………………………………………………………………………… … ……………………………………………………………………………………… … ……………………………………………………………………………………… … ……………………………………………………………………………………… … ………………………………………………………………………………………… Cần thơ, ngày……, tháng ……, năm 2014 Cán hƣớng dẫn ii TRƢỜNG ĐẠI HỌC CẦN THƠ KHOA MÔI TRƢỜNG VÀ TÀI NGUYÊN THIÊN NHIÊN BỘ MÔN TÀI NGUYÊN ĐẤT ĐAI  NHẬN XÉT CỦA HỘI ĐỒNG BÁO CÁO Hội đồng chấm luận văn tốt nghiệp chấp thuận báo cáo với đề tài: “NGHIÊN CỨU LẬP TRÌNH TÍNH TỐN NHANH MỘT SỐ BÀI TỐN TRẮC ĐỊA CƠ BẢN PHỤC VỤ GIẢI ĐÁP BÀI TẬP TRẮC ĐỊA ĐẠI CƢƠNG” Do sinh viên NGUYỄN VĂN CHIẾN, MSSV: 4115006, lớp Quản Lý Đất Đai Khóa 37, Bộ mơn Tài Nguyên Đất Đai – Khoa Môi Trƣờng Tài Nguyên Thiên Nhiên – Trƣờng Đại Học Cần Thơ thực bảo vệ trƣớc hội đồng Ngày …… tháng 12 năm 2014 Báo cáo luận văn tốt nghiệp đƣợc hội đồng đành giá mức: ………………… Ý kiến hội đồng: ….………………………………………………………… ……………………………… ………………………………………………………… ………………………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………………………………………… ………………………………………………………………………………………… Cần thơ, ngày……, tháng ……, năm 2014 Chủ tịch hội đồng iii LỜI CAM ĐOAN  Em xim cam đoan cơng trình nghiên cứu thân Các số liệu, kết trình bày luận văn trung thực chƣa đƣợc công bố cơng trình khác Tác giả luận văn Nguyễn Văn Chiến iv TIỂU SỬ CÁ NHÂN  Họ tên: NGUYỄN VĂN CHIẾN Ngày sinh: 16/7/1993 Nơi sinh: huyện Mỹ Tú, tỉnh Sóc Trăng Họ tên cha: NGUYỄN VĂN RONG Nghề nghiệp: Nông Dân Họ tên mẹ: ĐÀO THỊ MỸ LỆ Nghề nghiệp: Nội Trợ Nguyên quán: ấp Kinh Mới, xã An Ninh, huyện Châu Thành, tỉnh Sóc Trăng Tốt nghiệp trung học phổ thơng vào tháng 6/2011 trƣờng trung học phổ thông AN NINH huyện Châu Thành, tỉnh Sóc Trăng Trúng tuyển kỳ thi đại học Ngành Quản Lý Đất Đai, Khoa Môi Trƣờng Tài Nguyên Thiên Nhiên, Trƣờng Đại Học Cần Thơ vào tháng 9/2011 Tác giả luận văn Nguyễn Văn Chiến v LỜI CẢM TẠ  Trải qua trình học tập, rèn luyện trƣờng Đại Học Cần Thơ em tiếp thu, tích lũy đƣợc nhiều kiến thức kinh nghiệm quý báu từ dạy dỗ, truyền đạt bảo tận tâm, nhiệt tình q thầy, trƣờng, đặc biệt thầy, cô môn tài nguyên đất đai Đây hành trang quan trọng giúp em vững bƣớc vào đời Giờ trƣớc rời khỏi mái trƣờng gắn bó chứa nhiều kỉ niệm với em Em xin gởi lời cảm tạ chân thành sâu sắc đến ngƣời ủng hộ, giúp đỡ em suốt thời gian qua Xin cảm ơn tồn thể q thầy trƣờng Đại Học Cần Thơ, Bộ môn Tài Nguyên Đất Đai khoa Môi Trƣờng Tài Nguyên Thiên Nhiên, đặc biệt cố vấn học tập Nguyễn Thị Song Bình tận tình quan tâm, dẫn giúp đỡ em suốt trình em theo học trƣờng Đặc biệt em xin gửi lời biết ơn sâu sắc đến thầy: Trần Văn Hùng tận tâm hƣớng dẫn em chu em hồn thành tốt luận văn tốt nghiệp Một lịng biết ơn vơ vàng sâu sắc đến ngƣời thân yêu em, cha mẹ sinh ra, nuôi nấng dạy dỗ, động viên, quan tâm, chăm sóc tạo điều kiện tốt có đƣợc nhƣ ngày hôn Sau em xin chúc quý thầy cô Bộ môn Tài Nguyên Đất Đai Khoa Môi Trƣờng Tài Nguyên Thiên Nhiên Trƣờng Đại Học Cần Thơ đƣợc dồi sức khỏe, công tác tốt gặt hái đƣợc nhiều thành công Một lần xin chân thành biết ơn! Nguyễn Văn Chiến vi T M LƢ C Ngày khoa học kỹ thuật KHKT ngày phát triển, CNTT giúp ích thay ngƣời nhiều l nh vực Với phát triển cải tiến chất lƣợng giáo dục nói chung việc giảng dạy Khoa Môi Trƣờng Tài Nguyên Thiên Nhiên Trƣờng Đại Học Cần Thơ nói riêng, áp lực ngày đặt nặng lên vai ngƣời làm nghề giáo dục Do đòi hỏi phải làm rút ngắn đƣợc thời gian, có độ xác cao việc giảng dạy truyền đạt kinh nghiệm quý báu cho hệ sau Visual Basic từ lâu đƣợc ứng dụng nhiều l nh vực đời sống ngƣời Với phát triển khơng ngừng CNTT, Visual Basic ngày có tính ƣu việt nhiều l nh vực, với việc giải nhanh tập trắc địa có độ xác cao thuận tiện cho việc giảng dạy trắc địa Chính việc thực hiện: “Nghiên cứu lập trình tính tốn nhanh số toán trắc địa phục vụ giải đáp tập trắc địa đại cƣơng nhằm mục đích rút ngắn thời gian, quy trình nhƣ khắc phục nhầm lẫn khơng đáng có việc giải tập Kết xây dựng đƣợc: Với đề tài này, VB đƣợc ứng dụng trắc địa thành lập đƣợc số form tính tốn nhƣ: Bài tốn thuận, tốn nghịch, tốn quan hệ góc với góc định hƣớng hai tia tạo thành góc bằng, tốn quan hệ góc định hƣớng với góc đƣờng gấp khúc, xác định tính chuyển góc định hƣớng với góc hai phƣơng áp dụng cho tốn nghịch vii PHỤ LỤC PHỤ BÌA XÁC NHẬN CỦA BỘ MÔN TÀI NGUYÊN ĐẤT ĐAI i NHẬN XÉT CỦA CÁN BỘ HƢỚNG DẪN ii NHẬN XÉT CỦA HỘI ĐỒNG BÁO CÁO iii LỜI CAM ĐOAN iv TIỂU SỬ CÁ NHÂN v LỜI CẢM TẠ vi T M LƢ C vii PHỤ LỤC viii DANH SÁCH BẢNG xi DANH SÁCH HÌNH xiii DANH SÁCH TỪ VIẾT TẮT xvii MỞ ĐẦU CHƢƠNG LƢ C KHẢO TÀI LIỆU .2 1.1 Khái niệm trắc địa .2 1.2 Lịch sử phát triển trắc địa 1.2.1 Trên giới 1.2.2 Trong nước 1.3 Định hướng đường thẳng 1.3.1 Khái niệm 1.3.2 Góc phương vị 1.3.3 Góc hai phương (R) 1.3.4 Góc định hướng 1.4 Sự liên quan góc định hướng (GĐH) góc hai phương (GHP) 1.5 Bài toán thuận nghịch đo đạc 1.5.1 Bài toán thuận 1.5.2 Bài toán nghịch 1.6 Sai số đo đạc .9 1.6.1 Khái niệm 1.6.2 Phân loại sai số đo đạc 10 viii Hình 3.38: Giao diện tốn quan hệ gi a GĐH GB - Trƣờng hợp: >3600 Theo thủ cơng ta tính gồm bƣớc nhƣ ví dụ nhƣ sau: Ví dụ 8: Cho GĐH cạnh trƣớc là: 359045’00 Cho GB là: 54009’22 Công thức đƣợc áp dụng là: Ta thấy góc định hƣớng tính từ GB phải lớn 3600 nhƣng theo tính chất GĐH từ 00-3600, nên ta bắt buộc phải lấy kết tính đƣợc trừ cho 3600 Vậy kết là: 72 Hình 3.39: Giao diện tốn GĐH với GB rơi vào trƣờng h p >3600 Giao diện bày tốn quan hệ góc định hƣớng với góc việc đƣợc xây dựng dựa điều khiển giống nhƣ form tốn trƣớc form toán thiết kế thêm điều khiển Optionbutton để ta lựa chọn thuộc tính, cụ thể tốn ta chọn góc trái góc phải 3.3 Tính khả thi dự án Với mục tiêu đặt ra, tác giả mong sản phẩm dự án đƣợc ứng dụng Do có nhiều nguyên nhƣ:  Trƣớc tiên giải với phần mềm kết trả có độ xác tuyệt đối, không mắt phải số lỗi nguyên nhân khách quan nhƣ kỷ hay thao tác…  Thứ hai ứng dụng phần mềm tiến hành giải tập thời gian cơng sức  Có thể tránh đƣợc số lỗi khơng đáng có q trình tính tốn  Và khiền thức hạn hẹp nên có lợi ích sử dụng phần mềm tác giả cịn chƣa nói hết đƣợc 73 CHƢƠNG KẾT LUẬN VÀ KIẾN NGHỊ 4.1 Kết luận Ngơn ngữ lập trình Visual Basic mạnh, có khả hỗ trợ tốt lập trình tính tốn nhanh số tốn trắc địa Sử dụng ngơn ngữ lập trình Visual Basic thiết kế phần mềm hỗ trợ giải đáp nhanh số toán trắc địa đại cƣơng Giao diện chƣơng trình gồm số cơng cụ thiết kế thành cơng nhƣ sau: - Cơng cụ tính tốn nhanh giải đáp kết toán thuận, nghịch trắc địa - Cơng cụ tính tốn mối quan hệ góc định hƣớng với góc - Cơng cụ tính tốn mối quan hệ góc với góc định hƣớng 4.2 Kiến nghị - Cần nghiên cứu cơng cụ có chức tính tốn hỗ trợ tính tốn nhƣ sai số đo đạc, tốn bình sai lƣới dƣờng chuyền - Sau tính tốn bình sai lƣới đƣờng chuyền, xuất lƣới đƣờng chuyền 74 TÀI LIỆU THAM KHẢO Trần Văn Quảng 2001 , Tr c địa đ i cương, NXB Xây dựng Hà Nội Phạm Văn Chuyên 2008 , Tr c địa đ i cương, NXB Xây dựng Hà Nội Bùi Quang Tuyến 2005 , i giảng tr c địa, Trƣờng Đại học Cần Thơ, Cần Thơ Đàm Xuân Hoàn 2007 , Tr c địa (Giáo trình cho ng nh địa v quản lý đất đai) Trƣờng Đại học Nông Nghiệp I, Hà Nội Nguyễn Quang Tác 2008 , Trắc Địa, NXB Xây dựng Hà Nội Đinh Cơng Hịa 2010 Lập trình b i tốn tr c địa s , NXB Giao thơng vận tải Hà Nội Lâm Hồi Bảo 2005 , Giáo trình isual asic, Khoa Cơng nghệ thơng tin-Trƣờng Đại học Cần Thơ Lâm Hoài Bảo 2005 , Giáo trình thực h nh Visual Basic, Khoa Cơng nghệ thông tin-Trƣờng Đại học Cần Thơ Các trang web http://www.youtube.com/watch?v=pv72lxgpVKo (10/9/2014) http://www.youtube.com/watch?v=mwGbbEAHqdU (10/9/2014) 75 PHỤ CHƢƠNG CODE FORM GIAO DIỆN CHÍNH PHẦM MỀM Private Sub BTNghich_Click() Dim form1 As Form3 Form3.Show Me.Hide End Sub Private Sub BTThuan_Click() Dim form1 As Form2 Form2.Show Me.Hide End Sub Private Sub DCKinhviho_Click() Dim form1 As Form6 Form6.Show Me.Hide End Sub Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = Timer2.Enabled = True Timer2.Interval = End Sub Private Sub Mttin_Click() filesl = "" CommonDialog1.DialogTitle = "Nhap Ten File So Lieu" CommonDialog1.Filter = "Solieu(*.sl)|*.sl|All File (*.*)|*.*|" CommonDialog1.ShowOpen filesl = CommonDialog1.FileName End Sub Private Sub QHGBGocdinhhuong_Click() Dim form1 As Form4 76 Form4.Show Me.Hide End Sub Private Sub QHGDhuonggocbang_Click() Dim form1 As Form5 Form5.Show Me.Hide End Sub Private Sub QHGDHuongvoihaiphuong_Click() Dim form1 As Form6 Form6.Show Me.Hide End Sub Private Sub Timer1_Timer() Label3.Caption = Time End Sub Private Sub Timer2_Timer() Label4.Caption = Date End Sub 77 PHỤ CHƢƠNG CODE FORM BÀI TOÁN TRẮC ĐỊA THUẬN Private Function doiRadian(BETA#) As Double Dim id%, ip%, giay#, pi#, pi2#, ro# pi = Atn(1) * 4# ro = 180# * 3600# / pi id = Fix(BETA) ip = Fix((BETA - id) * 100#) giay = ((BETA - id) * 100# - ip) * 100# BETA = (id * 3600# + ip * 60# + giay) / ro End Function Private Sub CmdThoat_Click() End End Sub Private Sub CmdThuchien_Click() Dim xa#, ya#, s#, afa# Dim Xb#, Yb# Dim id$, ip$, giay# pi = Atn(1) * 4# pi2 = pi * 2# ro = 180# * 3600# / pi If (TxtXa.Text = "" Or TxtYa = "") Then GoTo 10 If (TxtGDH.Text = "") Then GoTo 11 If (TxtKC.Text = "") Then GoTo 12 xa = Val(TxtXa.Text) ya = Val(TxtYa.Text) s = Val(TxtKC.Text) afa = Val(TxtGDH.Text) doiRadian afa Xb = xa + s * Cos(afa) Yb = ya + s * Sin(afa) TxtXb = Format(Xb, "0.000") 78 TxtYb = Format(Yb, "0.000") Exit Sub 10: MsgBox ("Ban can nhap toa X,Y cua diem A"), vbYes, "THONG BAO" Exit Sub 11: MsgBox ("Ban can nhap goc dinh huong"), vbYes, "THONG BAO" Exit Sub 12: MsgBox ("Ban can nhap khoang cach"), vbYes, "THONG BAO" End Sub 79 PHỤ CHƢƠNG CODE BÀI TOÁN TRẮC ĐỊA NGHỊCH Private Function KC(xa#, ya#, Xb#, Yb#) As Double Dim dx#, dy# dx = Xb - xa dy = Yb - ya KC = Sqr(dx * dx + dy * dy) End Function Private Function DhHg(xa#, ya#, Xb#, Yb#) As Double Dim dx#, dy#, dxy#, R#, pi#, pi2# pi = Atn(1) * 4# pi2 = pi * 2# dx = Xb - xa dy = Yb - ya If (dx = 0) Then R = pi / 2# Else dxy = Abs(dy / dx) R = Atn(dxy) End If If (dx >= And dy >= 0) Then DhHg = R If (dx = 0) Then DhHg = pi - R If (dx = 0) Then afa0 = R If (dx = 0) Then afa0 = pi - R If (dx pi2) Then afaS = afaS - pi2 If (afaS < 0) Then afaS = pi2 + afaS DoPhutGiay afaS, sodo, sophut, sogiay TxtGDHS1 = Format(sodo, "000") TxtGDHS2 = Format(sophut, "00") TxtGDHS3 = Format(sogiay, "0.00") Else afaS = afaD - pi + GB If (afaS > pi2) Then afaS = afaS - pi2 If (afaS < 0) Then afaS = pi2 + afaS DoPhutGiay afaS, sodo, sophut, sogiay TxtGDHS1 = Format(sodo, "000") TxtGDHS2 = Format(sophut, "00") TxtGDHS3 = Format(sogiay, "0.00") End If Exit Sub 10: MsgBox ("Ban Can Nhap Goc Dinh Huong Canh Dau"), vbYes, "THONG BAO" Exit Sub 11: MsgBox ("Ban Can Nhap Goc Bang"), vbYes, "THONG BAO" End Sub Private Sub Command2_Click() End End Sub 86 ... góp phần vào việc tính tốn, giải đáp nhanh số tốn trắc địa góp phần học tập sinh viên đề tài ? ?Nghiên cứu lập trình tính tốn nhanh số tốn trắc địa phục vụ giải đáp tập trắc địa đại cƣơng” đƣợc thực... hiện: ? ?Nghiên cứu lập trình tính toán nhanh số toán trắc địa phục vụ giải đáp tập trắc địa đại cƣơng nhằm mục đích rút ngắn thời gian, quy trình nhƣ khắc phục nhầm lẫn khơng đáng có việc giải tập. ..BỘ GIÁO DỤC VÀ ĐÀO TẠO TRƢỜNG ĐẠI HỌC CẦN THƠ - NGHIÊN CỨU LẬP TRÌNH TÍNH TỐN NHANH MỘT SỐ BÀI TỐN TRẮC ĐỊA CƠ BẢN PHỤC VỤ GIẢI ĐÁP BÀI TẬP TRẮC ĐỊA ĐẠI CƢƠNG LUẬN VĂN KỸ SƢ NGÀNH