【Surfer】93.快速选择网格化方法的一种方式

主要观点总结

本文介绍了使用Surfer软件通过循环使用12种不同的网格化算法对输入数据文件的指定列进行网格化处理，并生成一系列对应的等值线地图。这些地图可用于数据分析、地理信息系统等相关领域，方便用户直观地对比不同网格化方法得到的结果。文章详细描述了如何使用SurferApp对象来设置地图参数，包括地图大小、等值线图位置等，并分别介绍了12种网格化算法的应用过程。

关键观点总结

关键观点1: 文章主题

介绍使用Surfer软件进行网格化处理和生成等值线地图的方法

关键观点2: 使用的软件

Surfer

关键观点3: 核心步骤

通过循环使用12种不同的网格化算法对输入数据进行处理，并生成对应的等值线地图。

关键观点4: 地图参数设置

使用SurferApp对象设置地图大小、等值线图位置等参数。

关键观点5: 12种网格化算法介绍

文章详细介绍了12种网格化算法的应用过程，包括Inverse Distance、Kriging、Minimum Curvature等。

文章预览

【创作不易，记得关注、点赞、分享、收藏】 '通过循环使用 12 种不同的网格化算法对输入数据文件的指定列进行网格化处理，并生成一系列对应的等值线线地图 '方便用户直观地对比不同网格化方法得到的结果，可用于数据分析、地理信息系统等相关领域中对数据进行网格化处理及可视化展示的需求。 ' 地图大小和等值线图位置可以自己调整 Sub Main Dim SurferApp As Object Set SurferApp = CreateObject("Surfer.Application") SurferApp.Visible = True '指定地图高度 ylength = 5 '获取数据文件路径，支持多种文件格式（.dat、.csv、.xls、.xlsx） Data$ = GetFilePath( , "dat;csv;xls;xlsx",path1, "Data file to grid") If Data$ ="" Then End Dim Doc As Object Set Doc = SurferApp.Documents.Add '设置数据列 xcol = Val(InputBox$("输入X所在列", "X列", "1")) ycol = Val(InputBox$("输入Y所在列", "Y 列", "2")) zcol = Val(InputBox$(" ………………………………