Nghiên cứu mô hình phân tích gis để xây dựng bản đồ thích nghi lúa chất lượng cao trên địa bàn tỉnh vĩnh long

1 ĐẠI HỌC QUỐC GIA THÀNH PHỐ HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA HUỲNH THỊ HÀ THỦY NGHIÊN CỨU MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH VĨNH LONG Chuyên ngành: Hệ thống thông tin địa lý (GIS) Mã số ngành: 2.15.04 LUẬN VĂN THẠC SĨ TP HỒ CHÍ MINH 12-2003 CÔNG TRÌNH ĐƯC HOÀN THÀNH TẠI TRƯỜNG ĐẠI HỌC BÁCH KHOA ĐẠI HỌC QUỐC GIA TP HỒ CHÍ MINH Cán hướng dẫn khoa học: TS Trương Chí Hiền Cán chấm nhận xét 1: TS Phạm Văn Ro Cán chấm nhận xét 2: TS Trần Vónh Phước Luận văn thạc só bảo vệ HỘI ĐỒNG CHẤM BẢO VỆ LUẬN VĂN THẠC SĨ TRƯỜNG ĐẠI HỌC BÁCH KHOA, ngày 30 tháng 12 năm 2003 ĐẠI HỌC QUỐC GIA TP.HỒ CHÍ MINH CỘNG HÒA Xà HỘI CHỦ NGHĨA VIỆT NAM TRƯỜNG ĐẠI HỌC BÁCH KHOA Độc lập - Tự - Hạnh phúc TP.HCM, ngày tháng năm 2003 NHIỆM VỤ LUẬN VĂN THẠC SĨ Họ tên học viên: HUỲNH THỊ HÀ THỦY Phái: Nữ Ngày, tháng, năm sinh: 16/01/1968 Nơi sinh: Long Châu - Vónh Long Chuyên ngành: Hệ thống thông tin địa lý (GIS) MSHV: 1911099 I TÊN ĐỀ TÀI: NGHIÊN CỨU MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH VĨNH LONG II NHIỆM VỤ VÀ NỘI DUNG: - Thu thập số thông tin giống lúa chất lượng cao - Chọn giống lúa chất lượng cao để áp dụng mô hình - Tổng hợp chọn lọc phương pháp luận phân vùng nông nghiệp để xây dựng đồ thích nghi lúa chất lượng cao - Giới thiệu phép toán có liên quan đến chọn vùng lúa chất lượng cao - Đưa giải thuật sơ đồ giải thuật phép toán - Xây dựng áp dụng mô hình để xây dựng đồ thích nghi lúa chất lượng cao địa bàn tỉnh Vónh Long III NGÀY GIAO NHIỆM VỤ : 26/05/2003 IV NGÀY HOÀN THÀNH NHIỆM VỤ : 26/11/2003 V HỌ VÀ TÊN CÁN BỘ HƯỚNG DẪN: TS Trương Chí Hiền CÁN BỘ HƯỚNG DẪN CHỦ NHIỆM NGÀNH BỘ MÔN QUẢN LÝ CHUYÊN NGÀNH Nội dung đề cương luận văn thạc só Hội Đồng Chuyên Ngành thông qua Ngày 14 tháng 05 năm 2003 PHÒNG ĐÀO TẠO SĐH KHOA QUẢN LÝ NGÀNH LỜI CẢM ƠN Chân thành bày tỏ lòng biết ơn TS Trương Chí Hiền tận tình hướng dẫn, giúp đỡ hoàn thành luận văn cao học Chân thành bày tỏ lòng biết ơn TS Trần Vónh Phước tận tình hướng dẫn tạo điều kiện thuận lợi cho thực tập luận văn tốt nghiệp Trung tâm DITAGIS Chân thành cám ơn q thầy cô tận tình giảng dạy, hướng dẫn giúp đỡ học tập nghiên cứu khoa học Xin cám ơn Phòng Quản lý đào tạo sau đại học, Trung tâm DITAGIS, Khoa Môi trường thuộc trường Đại học Bách Khoa Tp.HCM tạo điều kiện tốt cho trang thiết bị, tài liệu học tập suốt khóa học Xin cám ơn Lãnh đạo Sở Khoa học Công nghệ Môi trường Vónh Long, Phòng Quản lý Môi trường, Sở Nông nghiệp Phát triển Nông thôn Vónh Long, Viện lúa Đồng Sông Cửu Long, Phân Viện Qui hoạch thiết kế nông nghiệp Tp.HCM, đồng nghiệp, bạn học viên cao học GIS gia đình ủng hộ, giúp đỡ học tập thực luận văn tốt nghiệp Xin chân thành cám ơn! TÓM TẮT LUẬN ÁN CAO HỌC Luận án thực gồm có chương: Chương 1: GIỚI THIỆU Giới thiệu cần thiết đề tài, mục tiêu đề tài, nội dung nghiên cứu, phương pháp nghiên cứu qui trình thực Chương 2: TỔNG QUAN NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN 2.1 TỔNG QUAN VỀ SẢN XUẤT LÚA VÀ GẠO XUẤT KHẨU - Tổng quan trạng sản xuất lúa xuất nhập gạo giới - Tổng quan trạng sản xuất tiêu thụ lúa gạo Việt Nam từ năm 1990-2000 2.2 NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN VỀ GIỐNG LÚA CHẤT LƯNG CAO - Giới thiệu số giống lúa thơm trồng giới: giống Basmati, giống Khao Dawk Mali (KDM), giống Jasmine85, - Giới thiệu số giống lúa thơm đặc sản Việt Nam phân thành ba nhóm: lúa thơm đặc sản địa phương, lúa thơm nhập nội lúa lai nhập nội - Một số kết nghiên cứu nước: + Một số đánh giá chung lúa thơm đặc sản Nam Bộ + Một số đánh giá chung lúa thơm ngắn ngày gồm giống: Jasmine85, VD20, VNN97-6, MTL250, KDM105 2.3 NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN ĐẾN CHỌN VÙNG SẢN XUẤT LÚA CHẤT LƯNG CAO - Trình bày phân bố đặc tính nhóm đất ĐBSCL - Trình bày kết phân vùng nông nghiệp ĐBSCL theo Chương trình Qui hoạch tổng thể ĐBSCL - Giới thiệu số đặc trưng phân bố cấu vụ lúa theo vùng nông nghiệp Chương 3: XÂY DỰNG MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI SẢN XUẤT MỘT GIỐNG LÚA CHẤT LƯNG CAO Đây chương trọng tâm luận án, sản phẩm giải thuật để xây dựng đồ thích nghi sản xuất lúa chất lượng cao cho giống lúa, phạm vi áp dụng mô hình ĐBSCL 3.1 CÁC PHÉP TOÁN PHÂN TÍCH GIS CÓ LIÊN QUAN ĐẾN PHÂN VÙNG THÍCH NGHI SẢN XUẤT LÚA CHẤT LƯNG CAO - Giới thiệu phép toán phân tích GIS có liên quan đến phân vùng thích nghi sản xuất lúa chất lượng cao: + Các phép toán phân tích GIS lớp liệu: Phép toán nhận dạng chọn đối tượng (Feature Identification and Selection), phép toán Dissolve thuộc tính, phép toán Dissolve nhiều thuộc tính + Các phép toán phân tích GIS hai hay nhiều lớp liệu: phép hợp (Union), phép giao (Intersect) - Xây dựng giải thuật sơ đồ giải thuật phép toán nêu 3.2 CĂN CỨ CƠ SỞ XÁC ĐỊNH VÙNG SẢN XUẤT LÚA GẠO XUẤT KHẨU CHẤT LƯNG CAO ĐBSCL - Giới thiệu tiêu chuẩn lúa – gạo chất lượng cao nước - Tổng hợp tiêu chuẩn gạo xuất chất lượng cao - Trình bày sở để chọn lựa vùng trồng lúa gạo xuất chất lượng cao thừa kế phương pháp luận phân vùng nông nghiệp ĐBSCL Chương trình qui hoạch tổng thể ĐBSCL (dựa vào yếu tố về: đất, nước, đặc trưng khí hậu trạng phân bố loại hình sử dụng đất nông nghiệp) 3.3 XÂY DỰNG MÔ HÌNH - Trình bày phương pháp xây dựng đồ đơn vị đất đai: + Từ lớp liệu điều kiện tự nhiên, dựa theo tiêu chuẩn sử dụng xây dựng đồ đơn vị đất đai thực phép toán GIS T1, kết đồ đơn vị đất đai + Định nghóa phép toán GIS T1 - Trình bày phương pháp xây dựng đồ thích nghi sản xuất lúa chất lượng cao giống lúa: + Dựa yếu tố thích nghi giống lúa chất lượng cao so sánh với lớp liệu đơn vị đất đai thực phép toán GIS T2, kết đồ thích nghi sản xuất lúa chất lượng cao giống lúa theo loại hình sử dụng đất + Định nghóa phép toán GIS T2 - Trình bày phương pháp xây dựng đồ đề xuất chọn vùng sản xuất giống lúa chất lượng cao + Từ lớp liệu thích nghi sản xuất lúa chất lượng cao lớp liệu trạng sử dụng đất nông nghiệp, thực phép toán GIS T3 Kết lớp liệu đề xuất chọn vùng sản xuất giống lúa chất lượng cao + Định nghóa phép toán GIS T3 Chương 4: ÁP DỤNG MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI SẢN XUẤT LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH VĨNH LONG Đây chương áp dụng mô hình phân tích GIS để xây dựng đồ thích nghi sản xuất lúa chất lượng cao địa bàn tỉnh Vónh Long Mô hình viết ngôn ngữ lập trình AVENUE phần mềm ARCVIEW 3.2, số liệu tỉnh Vónh Long 4.1 MÔ TẢ VÙNG SẢN XUẤT LÚA TRÊN ĐỊA BÀN TỈNH VĨNH LONG Mô tả vị trí địa lý, địa hình, đất đai, nguồn nước chế độ thủy văn, thời tiết khí hậu địa bàn tỉnh Vónh Long 4.2 MỘT SỐ GIỐNG LÚA CHẤT LƯNG CAO ĐƯC TRỒNG Ở TỈNH VĨNH LONG Các giống lúa thơm chất lượng cao trồng địa bàn tỉnh Jasmine85, MTL250, Khao dawk Mali105, Tàu Hương, 4.3 ÁP DỤNG MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI SẢN XUẤT MỘT GIỐNG LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH VĨNH LONG 4.3.1 Đặc điểm giống lúa chọn để xây dựng mô hình Về chọn giống: giống Jasmine85 giống chọn để áp dụng mô hình phân tích GIS để xây dựng đồ thích nghi sản xuất lúa chất lượng cao tỉnh Vónh Long 4.3.2 Các yếu tố thích nghi giống Jasmine85 + Đặc trưng đất đai, địa hình + Đặc trưng điều kiện thủy văn + Thích hợp với loại hình sử dụng đất nào? 4.3.3 Áp dụng mô hình phân tích GIS để xây dựng đồ thích nghi giống Jasmine85 địa bàn tỉnh Vónh Long - Trình bày nội dung áp dụng mô hình phân tích GIS để xây dựng đồ thích nghi giống Jasmine85 địa bàn tỉnh Vónh Long - Kết mô hình là: + Bản đồ đơn vị đất đai tỉnh Vónh Long + Bản đồ thích nghi lúa hai vụ (ĐX-HT) giống Jasmine85 tỉnh Vónh Long + Bản đồ đề xuất chọn vùng sản xuất lúa hai vụ (ĐX-HT) giống Jasmine85 tỉnh Vónh Long Chương 5: KẾT LUẬN Nhận xét hướng phát triển đề tài 10 MỤC LỤC Chương 1: GIỚI THIỆU 1.1 ĐẶT VẤN ĐỀ 1.2 MỤC TIÊU VÀ NỘI DUNG CHÍNH CỦA LUẬN ÁN 1.2.1 Mục tiêu luận án 1.2.2 Nội dung nghiên cứu 1.2.3 Phương pháp thực 1.2.4 Qui trình thực Chương 2: TỔNG QUAN NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN 2.1 TỔNG QUAN VỀ SẢN XUẤT LÚA VÀ GẠO XUẤT KHẨU 2.1.1 Hiện trạng sản xuất lúa xuất nhập gạo giới 2.1.2 Hiện trạng sản xuất tiêu thụ lúa gạo Việt Nam từ năm 1990-2000 2.2 NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN VỀ GIỐNG LÚA CHẤT LƯNG CAO 2.2.1 Một số giống lúa thơm giới 2.2.2 Một số giống lúa thơm đặc sản Việt Nam 2.2.3 Một số kết nghiên cứu 2.2.3.1 Đánh giá chung lúa thơm đặc sản Nam Bộ 2.2.3.2 Đánh giá chung lúa thơm ngắn ngày 2.3 NHỮNG NGHIÊN CỨU CÓ LIÊN QUAN ĐẾN CHỌN VÙNG SẢN XUẤT LÚA CHẤT LƯNG CAO 2.3.1 Phân bố đặc tính nhóm đất ĐBSCL 2.3.1.1 Nhóm đất phù sa bồi ven sông 2.3.1.2 Nhóm đất phù sa phát triển 2.3.1.3 Nhóm đất phèn 2.3.1.4 Nhóm đất mặn nhiễm mặn 2.3.1.5 Nhóm đất giồng 2.3.1.6 Nhóm đất xám bạc màu 2.3.1.7 Nhóm đất than bùn 2.3.2 Phân vùng nông nghiệp ĐBSCL 2.3.3 Đặc trưng phân bố cấu vụ lúa theo vùng nông nghiệp 2.3.3.1 Vùng phù sa sông Tiền-sông Hậu 2.3.3.2 Vùng Đồng Tháp Mười 2.3.3.3 Vùng tứ giác Long Xuyên 2.3.3.4 Vùng Tây sông Hậu 2.3.3.5 Vùng Bán đảo Cà Mau Trang 13 14 14 14 14 15 16 17 17 17 18 19 19 21 22 22 23 24 24 24 24 25 27 29 29 29 30 31 31 31 31 31 32 109 PHUÏ LUÏC II Đoạn mã phép toán Dissolve thuộc tính: Tên đoạn mã là:”DisolveForField” theTheme=self.Get(0) theView=self.Get(1) fName=self.Get(2) theFTab=theTheme.GetFTab lstV={} for each rec in theFtab exp="" f=theFTab.FindField(fName) 'Truong hop mot field v=theFTab.ReturnValue(f,rec) if (f.IsTypeNumber) then exp=exp+"(["+f.GetName+"]="+v.Clone.Asstring+") and " elseif (f.IsTypeString) then exp=exp+"(["+f.GetName+"]="+v.Clone.Asstring.Quote+") and " end exp=exp.left(exp.count-5) 'Bo AND cuoi cung cua vong lap lstV.Add(exp) end lstV.RemoveDuplicates 'Xoa nhung record giong for each exp in lstV theFTab.Query(exp,theFTab.GetSelection,#VTAB_SELTYPE_NEW) theFTab.UpdateSelection theView.SetEditableTheme(theTheme) theFTab.BeginTransaction theTheme.UnionSelected theFTab.EndTransaction theTheme.Invalidate(true) theTheme.StopEditing(true) end theFTab.GetSelection.ClearAll theFTab.UpdateSelection Để chạy đoạn mã “DisolveForField” chương trình , ta tạo đoạn mã gọi chương trình sau: av.run("DisolveForField",theTheme,theView,fName) 110 PHỤ LỤC III Đoạn mã phép toán Dissolve nhiều thuộc tính: Tên đoạn mã là: “DisolveForMultiFields” theTheme=self.Get(0) theView=self.Get(1) theFTab=theTheme.GetFTab lstV={} for each rec in theFtab exp="" for each f in theFtab.GetFields if (f.GetName="Shape") then continue end v=theFTab.ReturnValue(f,rec) if (f.IsTypeNumber) then exp=exp+"(["+f.GetName+"]="+v.Clone.Asstring+") and " elseif (f.IsTypeString) then exp=exp+"(["+f.GetName+"]="+v.Clone.Asstring.Quote+") and " end end exp=exp.left(exp.count-5) lstV.Add(exp) end lstV.RemoveDuplicates 'Xoa nhung record giong for each exp in lstV theFTab.Query(exp,theFTab.GetSelection,#VTAB_SELTYPE_NEW) theFTab.UpdateSelection theView.SetEditableTheme(theTheme) theFTab.BeginTransaction theTheme.UnionSelected theFTab.EndTransaction theTheme.Invalidate(true) theTheme.StopEditing(true) end theFTab.GetSelection.ClearAll theFTab.UpdateSelection Để chạy đoạn mã “DisolveForMultiFields” chương trình , ta tạo đoạn mã gọi chương trình sau: av.run("DisolveForMultiFields”,theTheme,theView) 111 PHỤ LỤC IV Đoạn mã phép toán hợp (union): Tên đoạn mã “UnionTwoThemes” Theme1=Self.Get(0) Theme2=Self.Get(1) OutPath=Self.Get(2) OutFile=FileName.Make(OutPath) OutFTab=FTab.MakeNew(OutFile,Polygon) Ftab1=Theme1.GetFTab Ftab2=Theme2.GetFTab lstField1={} for each f in FTab1.GetFields if (f.GetName="Shape") then continue end lstField1.Add(f.Clone) end lstField2={} for each f in FTab2.GetFields if (f.GetName="Shape") then continue end lstField2.Add(f.Clone) end if (lstField1.Count>0) then OutFTab.AddFields(lstField1) end if (lstField2.Count>0) then OutFTab.AddFields(lstField2) end OutFTab.SetEditable(true) 'Create the Temp file aFileName="$HOME".asFileName.Maketmp("tmp","shp") tmpFTab=FTab.MakeNew(aFileName,POLYGON) tmpField={Field.Make("c",#FIELD_SHORT,2,0)} tmpFTab.AddFields(tmpField) tmpFTab.SetEditable(false) tmpTheme=fTheme.Make(tmpFTab) 112 theView.AddTheme(tmpTheme) tmpFTab.SetEditable(true) ShpFldOut=OutFTab.FindField("Shape") ShpFld1=FTab1.FindField("Shape") ShpFld2=Ftab2.FindField("Shape") ShpFldtmp=tmpFtab.FindField("Shape") Ftab1.GetSelection.ClearAll Ftab1.UpdateSelection count=0 total=Ftab1.GetNumRecords av.Showmsg("Dang xu ly ") for each rec1 in Ftab1 count=count+1 av.Setstatus(count/total*100) av.Showstopbutton Shpmain1=Ftab1.ReturnValue(ShpFld1,rec1) Shp1=Shpmain1 for each shp1 in shpmain1.Explode Shp1=Shp1.clean Shpleftover=Shp1.clone if (Shp1.IsNull) then continue end if (theView.Getprojection.IsNull) then theme2.SelectbyShapes({Shp1},#VTAB_SELTYPE_NEW) else theme2.SelectbyShapes({Shp1}.ReturnProjected(theView Getprojection),#VTAB_SELTYPE_NEW) end if (FTab2.GetNumSelRecords>0) then For each rec2 in FTab2.GetSelection Shp2=FTab2.ReturnValue(ShpFld2,rec2) ShpInsct=Shp1.ReturnIntersection(Shp2) if(ShpInsct.IsNull.Not) then if(ShpInsct=shp1) then ShpleftOver=Polygon.MakeNull OutRec=OutFtab.AddRecord tmpRec= tmpFtab.AddRecord 113 OutFtab.SetValue(ShpFldOut,OutRec,Shp1) tmpFtab.SetValue(ShpFldtmp,tmpRec,Shp1) for each f in FTab1.GetFields if (f.GetName="Shape") then continue end v1=FTab1.ReturnValue(f,rec1) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v1) end for each f in FTab2.GetFields if (f.GetName="Shape") then continue end v2=FTab2.ReturnValue(f,rec2) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v2) end continue end if(ShpInsct.IsNull) then Continue end OutRec=OutFTab.AddRecord tmpRec=tmpFTab.AddRecord OutFTab.SetValue(ShpFldOut,OutRec,ShpInsct) tmpFTab.SetValue(ShpFldtmp,tmpRec,ShpInsct) for each f in FTab1.GetFields if (f.GetName="Shape") then continue end v1=FTab1.ReturnValue(f,rec1) OutFTab.SetValue(OutFTab.FindField(f.GetName),OutRec,v1) end for each f in FTab2.GetFields if (f.GetName="Shape") then continue end v2=FTab2.ReturnValue(f,rec2) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v2) end ShpleftOver= ShpleftOver.ReturnDifference(Shp2) end end 114 if (ShpleftOver.IsNull) then Continue end OutRec=OutFtab.AddRecord OutFtab.SetValue(ShpFldOut,OutRec, ShpleftOver) for each f in FTab1.GetFields if (f.GetName="Shape") then continue end v1=FTab1.ReturnValue(f,rec1) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v1) end else if (Shp1.IsNull) then continue end OutRec=OutFtab.AddRecord OutFtab.SetValue(ShpFldOut,OutRec, ShpleftOver) for each f in FTab1.GetFields if (f.GetName="Shape") then continue end v1=FTab1.ReturnValue(f,rec1) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v1) end end end end tmpFTab.SetEditable(false) ' -av.showmsg("Dang xu ly ") count=0 total=FTab2.GetNumRecords for each rec2 in FTab2 count=count+1 av.Setstatus(count/total*100) av.Showstopbutton Shpmain2=FTab2.ReturnValue(ShpFld2,rec2) 'Shp2=Shpmain2 for each shp2 in shpmain2.Explode Shp2=Shp2.clean Shpleftover=Shp2.clone 115 if (theView.Getprojection.IsNull) then tmptheme.SelectByPolygon(Shp2,#VTAB_SELTYPE_NEW) else tmptheme.SelectByPolygon(Shp2.ReturnProjected(theView Getprojection),#VTAB_SELTYPE_NEW) end if (tmpFTab.GetNumSelRecords>0) then For each rectmp in tmpFTab.GetSelection Shptmp=tmpFTab.ReturnValue(ShpFldtmp,rectmp) ShpInsct=Shp2.ReturnIntersection(Shptmp) if(ShpInsct.IsNull.Not) then ShpleftOver=ShpleftOver.ReturnDifference(ShpInsct) if (ShpInsct=Shptmp) then continue end end end if (ShpleftOver.IsNull) then Continue end OutRec=OutFtab.AddRecord OutFtab.SetValue(ShpFldOut,OutRec, ShpleftOver) for each f in FTab2.GetFields if (f.GetName="Shape") then continue end v2=FTab2.ReturnValue(f,rec2) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v2) end else if (Shp2.IsNull) then continue end OutRec=OutFtab.AddRecord OutFtab.SetValue(ShpFldOut,OutRec, Shp2) for each f in FTab2.GetFields if (f.GetName="Shape") then continue end v2=FTab2.ReturnValue(f,rec2) OutFTab.SetValue(OutFTab.FindField(f.GetName), OutRec,v2) end 116 end end end OutFTab.SetEditable(false) theView.DeleteTheme(tmpTheme) tmpFTab=nil tmpTheme=nil theNewTheme=FTheme.Make(OutFTab) 'theView.AddTheme(theNewTheme) 'khong them vao view av.ClearStatus av.Purgeobjects aFileNameShp=aFileName.asstring aFileNamedbf=aFileName.SetExtension("dbf").asstring aFileNameshx=aFileName.SetExtension("shx").asstring aFileName=nil tmpFTab=nil tmpTheme=nil if (file.candelete(aFileNameshp.asFileName)) then file.delete(aFileNameshp.asFileName) end if (file.candelete(aFileNamedbf.asFileName)) then file.delete(aFileNamedbf.asFileName) end if (file.candelete(aFileNameshx.asFileName)) then file.delete(aFileNameshx.asFileName) end Return theNewTheme Để chạy đoạn mã “UnionTwoThemes” chương trình , ta tạo đoạn mã gọi chương trình sau: av.run("UnionTwoThemes",Theme1,Theme2,OutPath) 117 PHỤ LỤC V Đoạn mã phép toán giao (Intersect): Tên đoạn mã là”IntersectTwoThemes” InputTheme=Self.Get(0) IntersectTheme=Self.Get(1) OutputFilePath=Self.Get(2) '"C:\abc.shp" OutputFile=FileName.Make(OutputFilePath) OutputFTab=Ftab.MakeNew(OutputFile,Polygon) InputFTab=InputTheme.GetFTab InputFields={} '{} la danh sach rong for each f in InputFTab.GetFields if (f.GetName="Shape") then Continue end InputFields.Add(f.clone) end IntersectFTab=IntersectTheme.GetFTab IntersectFields={} 'danh sach rong for each f in IntersectFTab.GetFields if (f.GetName="Shape") then Continue end IntersectFields.Add(f.clone) end OutputFields=InputFields+IntersectFields OutputFTab.SetEditable(true) 'Mo bang OutputFTab OutputFTab.AddFields(OutputFields) ShpInputFld=InputFTab.FindField("Shape") ShpIntersectFld=IntersectFTab.FindField("Shape") ShpOutputFld=OutputFTab.FindField("Shape") Total=inputFTab.GetNumRecords count=0 av.ShowMsg("Dang xu ly ") 118 for each recInput in InputFtab count=count+1 mainShp=InputFTab.ReturnValue(ShpInputFld,recInput) for each aShape in mainShp.Explode ShpInput=aShape IntersectTheme.SelectByShapes({ShpInput},#VTAB_SELTYPE_NEW) for each recIntersect in IntersectFTab.GetSelection ShpIntersect=IntersectFTab.ReturnValue(ShpIntersectFld,recIntersect) ShpOutput=ShpInput.ReturnIntersection(ShpIntersect)'Lay phan giao if (ShpOutput.Isnull.Not) then recOutput=OutputFTab.AddRecord OutputFTab.SetValue(ShpOutputFld,recOutput,ShpOutput) for each f in InputFTab.GetFields if (f.GetName="Shape") then Continue end vInput=InputFTab.ReturnValue(f,recInput) OutputFTab.SetValue(OutputFTab.FindField(f.GetName),recOutput,vInput) end for each f in IntersectFTab.GetFields if (f.GetName="Shape") then Continue end vIntersect=IntersectFTab.ReturnValue(f,recIntersect) OutputFTab.SetValue(OutputFTab.FindField(f.GetName),recOutput,vIntersect) end end end end av.SetStatus((count/total)*100) end av.ClearStatus av.ClearMsg OutputFTab.SetEditable(false) Outputtheme=FTheme.Make(OutputFTab) Return OutputTheme Để chạy đoạn mã “IntersectTwoThemes” chương trình , ta tạo đoạn mã gọi chương trình sau: av.run("IntersectTwoThemes",InputTheme,IntersectTheme,OutputFilePath) 119 TÀI LIỆU THAM KHẢO [1] Bá, N.V., Chương trình Đất tỉnh Cửu Long 1990 –1994, Sở Địa Chính Vónh Long, 1994 [2] Bong B.B., Hue N.T.N., Mui P.T., Quynh L.V., Progress in rice improvement for the Mekong Delta of Vietnam, OMONRICE 6:5-19, 1998 [3] Bửu, B.C., người khác, Chương trình cải tiến giống lúa cao sản, phẩm chất gạo tốt phát triển hệ thống sản xuất hạt giống lúa tỉnh Cần Thơ (1996-1998), Sở KHCN & MT Cần Thơ, 1998 [4] Bửu, B.C., Lang, N.T., Một số vấn đề cần biết gạo xuất khẩu, Viện lúa Đồng Sông Cửu Long, Nhà xuất nông nghiệp TP Hồ Chí Minh, 2000 [5] Cần Đào, Những đặc điểm phát sinh phân bố đất Đồng Bằng Sông Cửu Long, Viện Qui Hoạch Thiết Kế Nông Nghiệp, 1997 [6] Đấu, P.V., Điều chỉnh Qui hoạch nông nghiệp tỉnh Vónh Long giai đoạn 2001-2010, Sở Nông Nghiệp Phát Triển Nông Thôn Vónh Long, 2001 [7] Đức, Đ.V., Phân tích thiết kế hướng đối tượng UML-UniFiedModeling Language, Nhà xuất Giáo dục, 2002 [8] Fred R.McFadden, Jeffrey A.Hoffer, Marry B.Prescott Modern Database Management Fifth Edition, 1999 [9] GIS by ESRI Using ArcView GIS, 1999 [10] GIS by ESRI Using Avenue, 1999 [11] Graeme F.Bonham-Carter Geographic Information Geoscientist: Modelling with GIS Pergamon, 1994 Systems for [12] Hạnh, B.T., Nghiên cứu phát triển vài thuật toán tích hợp vùng qui hoạch môi trường, 2002 [13] Huy, N.X., Giáo trình Công nghệ phần mềm, Hà Nội, 1994 [14] Keith C.Clarke Getting Stated with Geographic Information Systems Second Edition, 1999 120 [15] Khoa, L.V., Giáo trình thổ nhưỡng, Phần đất ĐBSCL, Bộ môn Khoa Học Đất, Khoa Trồng Trọt, trường Đại học Cần Thơ, 1996 [16] Không rõ tác giả, Chương trình Qui hoạch tổng thể Đồng Bằng Sông Cửu Long đến 2010, Mã số: VIE-87/031, 1987 [17] Không rõ tác giả, Bản tin giá thị trường lúa gạo tháng 1/1999, Bộ Nông Nghiệp Phát Triển Nông Thôn, 1999 [18] Không rõ tác giả, Bản tin giá thị trường lúa gạo tháng 1/2000, Bộ Nông Nghiệp Phát Triển Nông Thôn, 2000 [19] Không rõ tác giả, Báo cáo kết nghiên cứu lúa 1999-2000, Viện Khoa Học Kỹ Thuật Nông Nghiệp Miền Nam, 2000 [20] Không rõ tác giả, Đặc tính số giống lúa cao sản, chất lượng cao sản xuất Nông Trường Sông Hậu, Báo cáo chuyên đề, Hội thảo giống lúa ĐBSCL lần VI, Phòng Trồng Trọt, Nông Trường Sông Hậu, 2000 [21] Không rõ tác giả, Báo cáo kết nghiên cứu lúa 2000-2001, Viện Lúa Đồng Bằng Sông Cửu Long, 2001 [22] Không rõ tác giả, Ứng dụng công nghệ GIS xây dựng đồ thích nghi cho trồng, Phòng Quản lý Khoa học, Sở Khoa học Công nghệ Môi trường Đắc Lắc, Hội thảo Khoa học lần 7, Công nghệ thông tin địa lý GIS, 2001 [23] Không rõ tác giả, Phẩm chất hạt cải tiến giống lúa, Viện Nghiên cứu Lúa Gạo Quốc tế, Trường Đại học Cần Thô, 1986 [24] Los Banos Standard Evaluation System International Rice Research Institute Philippines, 1996 [25] Minh, V.Q., người khác, Một số kết ứng dụng kỹ thuật GIS đánh giá qui hoạch sử dụng đất quản lý tài nguyên vùng ĐBSCL, Bộ môn Khoa học đất Quản lý đất đai, Khoa Nông nghiệp, Trường Đại học Cần Thơ, Hội thảo Khoa học lần 7, Công nghệ thông tin địa lý GIS, 2001 [26] Phước, T.V., người khác, GIS Đại cương-Phần thực hành-Nhà Xuất Đại học Quốc Gia Tp.HCM, 2003 [27] Phước, T.V., GIS-Một số vấn đề chọn lọc, Nhà xuất Giáo dục, 2001 [28] Robert Sedgewick, Cẩm nang thuật toán, Nhà xuất Khoa học, 1995 121 [29] Shi-Kuo-Chang Principles of Pictorial Information Design,1999 [30] Sơn, L.H., người khác, Ứng dụng GIS phục vụ qui hoạch đất đai, Sở Địa Chính - Nhà đất Tp.HCM, Hội thảo Khoa học lần 6, Công nghệ thông tin địa lý GIS, 2000 [31] Thanh, N.V., Ứng dụng GIS phục vụ công tác quản lý tài nguyên thiên nhiên giám sát môi trường tỉnh Vónh Long, Báo cáo nghiệm thu đề tài, Sở Khoa Học Công Nghệ Môi Trường Vónh Long, trường Đại học Mỏ Địa chất, Hà Nội, 1997 [32] Thanh, N.V., Báo cáo tổng kết ngành năm 2000, Sở Nông Nghiệp Phát Triển Nông Thôn Vónh Long, 2000 [33] Thanh, N.V., Báo cáo tổng kết ngành năm 2001, Sở Nông Nghiệp Phát Triển Nông Thôn Vónh Long, 2001 [34] Thanh, N.V., Báo cáo tổng kết ngành năm 2002, Sở Nông Nghiệp Phát Triển Nông Thôn Vónh Long, 2002 [35] Thái, L.X., Các giống lúa có triển vọng ở Đồng Bằng Sông Cửu Long, Báo cáo chuyên đề, Hội thảo giống lúa ĐBSCL lần V, Viện Nghiên cứu Phát triển Hệ thống Canh tác - trường Đại học Cần Thơ, 1999 [36] Thịnh, Đ.K., người khác, Giống lúa thơm, đặc sản Đồng Bằng Sông Cửu Long số nước giới, Báo cáo chuyên đề, Hội thảo giống lúa ĐBSCL lần VII, Viện Khoa học Kỹ thuật Nông nghiệp Miền Nam, 2001 [37] Trí, L.Q Minh, V.Q., Sự phân bố thành phần lý hóa tính nhóm đất vùng Đồng Bằng Sông Cửu Long, Báo cáo chuyên đề, Bộ môn Khoa học Đất, Khoa Nông nghiệp, trường Đại học Cần Thơ, 1997 [38] Tuấn, H.Q., Xác định vùng lúa - gạo xuất chất lượng cao Đồng Bằng Sông Cửu Long, Báo cáo chuyên đề, Phân Viện Qui Hoạch Thiết Kế Nông Nghiệp, 1997 [39] Tuấn, V.Đ., người khác, Chương trình nghiên cứu lúa 2000-2001 tỉnh Vónh Long, Báo cáo tổng kết, Viện Lúa ĐBSCL, Sở Khoa Học Công Nghệ Môi Trường Vónh Long, 2001 [40] Tuấn, V.Đ., người khác, Nghiên cứu ứng dụng giống lúa suất cao chất lượng tốt, đạt tiêu chuẩn xuất cho tỉnh Vónh Long (2001- 122 2002), Báo cáo nghiệm thu đề tài, Viện Lúa ĐBSCL, Sở Khoa Học Công Nghệ Môi Trường Vónh Long, 2002 [41] Tuấn, V.Đ., người khác, Nghiên cứu ứng dụng giống lúa suất cao chất lượng tốt, đạt tiêu chuẩn xuất cho tỉnh An Giang (20012002), Báo cáo nghiệm thu đề tài, Viện Lúa ĐBSCL, Sở Khoa Học Công Nghệ Môi Trường An Giang, 2002 [42] Vệ, N.B., Báo cáo chỉnh lý khảo sát bổ sung hoàn chỉnh đồ đất khu vực Tây Nam sông Hậu, CT 60-02 60B, 1968 [43]Cương, V.K., Giáo trình GIS Quản lý đô thị, 2002 [44] Yue-Hong Chou Exploring Spatial Analysis in Geographic Information Systems, 1997 123 TOÙM TẮT LÝ LỊCH TRÍCH NGANG Họ tên: Huỳnh Thị Hà Thủy Ngày, tháng, năm sinh: 16/01/1968 Nơi sinh: Long Châu – Vónh Long Địa liên lạc: Sở Tài nguyên Môi trường Vónh Long số 42B Phạm Thái Bường, Phường 4, thị xã Vónh Long, tỉnh Vónh Long QUÁ TRÌNH ĐÀO TẠO: - Từ năm 1985 đến 1989: học đại học trường Đại học Cần Thơ thuộc Khoa Trồng Trọt - Từ năm 2000 đến nay: học cao học trường Đại học Bách Khoa Tp HCM, ngành Hệ thống thông tin địa lý (GIS) QUÁ TRÌNH CÔNG TÁC: - Từ năm 2/1990 đến 6/1992: công tác Chi Cục Quản lý Ruộng đất tỉnh Cửu Long (nay tỉnh Vónh Long) - Từ năm 6/1992 đến 9/1997: công tác Trung tâm Nghiên cứu Khoa học Công nghệ thuộc Sở Khoa học, Công nghệ Môi trường Vónh Long - Từ năm 9/1997 đến 10/2003: công tác Sở Khoa học, Công nghệ Môi trường Vónh Long - Từ năm 10/2003 đến nay: công tác Sở Tài nguyên Môi trường Vónh Long ... DỤNG MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI SẢN XUẤT LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH VĨNH LONG Đây chương áp dụng mô hình phân tích GIS để xây dựng đồ thích nghi sản xuất lúa chất. .. giống lúa 3.3.3 Xây dựng đồ đề xuất chọn vùng sản xuất giống lúa chất lượng cao Chương 4: ÁP DỤNG MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI SẢN XUẤT LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH VĨNH... Long Châu - Vónh Long Chuyên ngành: Hệ thống thông tin địa lý (GIS) MSHV: 1911099 I TÊN ĐỀ TÀI: NGHI? ?N CỨU MÔ HÌNH PHÂN TÍCH GIS ĐỂ XÂY DỰNG BẢN ĐỒ THÍCH NGHI LÚA CHẤT LƯNG CAO TRÊN ĐỊA BÀN TỈNH