基于Matlab开发的克里金插值GUI程序 软件介绍: 基于Matlab开发的克里金插值,克里格插值GUI程序,内置四个模块,有数据浏览,数据预处理,经验半方差函数拟合以及克里金插值四个模块,稳定运行; 支持四种数据变换处理,同时展示直方图和QQ图验证数据是否符合正态分布; 一键去除异常值,全自动数据变换,自动判别是否可以进行对数,开方以及boxcox变换; 采用遗传算法进行经验半方差函数拟合,拟合速度快,拟合度高,误差小,同时展示各种指标,便于判断拟合效果; 拟合模型支持球形模型,圆形模型,指数模型,高斯模型,线性模型; 插值结果支持3d视角查看,可随意拖动,可查询任何插值点的数据; 插值结果支持导出以及数据切割,导出结果为Matlab mat格式。 注意事项:本程序使用Matlab 2023a开发,由于内置函数的原因,最低支持版本为2022b,2022b以下版本可能运行报错
数据预处理这块儿有个挺酷的功能——自动数据变换。这玩意儿能自己判断要不要做对数、开根号或者Box-Cox变换。比如下面这段自动选择变换类型的代码就挺有意思:
if skewness(data) > 0.5 if min(data) > 0 transformed = log(data); % 对数变换 disp('自动选择对数变换') else transformed = sqrt(data - min(data) + 1); % 偏移后开方 disp('自动选择平方根变换') end else [transformed, lambda] = boxcox(data); % 自动找最优lambda disp(['Box-Cox变换 λ=',num2str(lambda)]) end这代码有意思的地方在于处理负数的情况,自动加了偏移量再做开方,比某些直接报错的二愣子程序聪明多了。QQ图展示用到了probplot函数,但加了自定义配色:
h = probplot('normal',data); h.Color = [0.2 0.6 0.8]; % 改个马卡龙蓝 h.LineWidth = 2; grid on title('卖萌版QQ图')半方差函数拟合用遗传算法优化参数,这里用了全局优化工具箱。参数设置很有讲究,迭代次数控制在50代防止过拟合:
options = optimoptions('ga','MaxGenerations',50,'Display','iter'); [params, fval] = ga(@variogram_error, 3, [], [], [], [], ... [0.1 0.1 0.1], [10 10 10], [], options);模型选择界面用了按钮组做单选,比传统的下拉菜单直观得多。每个按钮绑定不同模型类型:
bg = uibuttongroup('Title','选个模型耍耍','Position',[.1 .6 .3 .3]); rb1 = uitogglebutton(bg,'Text','球形','Position',[10 50 60 20]); rb2 = uitogglebutton(bg,'Text','高斯','Position',[10 30 60 20]);3D可视化这块玩得最花,加了鼠标拖动旋转功能。核心是这段视图控制代码:
function rotateView(src,~) persistent startPoint if strcmp(src.SelectionType,'normal') startPoint = get(gcf,'CurrentPoint'); elseif strcmp(src.SelectionType,'extend') endPoint = get(gcf,'CurrentPoint'); delta = endPoint - startPoint; view(azm+delta(1), elv+delta(2)) % 实时更新视角 end end数据切割导出的骚操作是用切片平面实现的,支持任意角度切割:
h = slice(X,Y,Z,V,[],[],zLevel); set(h,'EdgeColor','none','FaceAlpha',0.8); colormap(jet(256))这个工具最大的优点是能一条龙处理从原始数据到最终成图的所有流程。不过要注意版本问题,之前用2021b跑的时候发现ga函数参数格式不对,升级到2022b就稳了。建议装新版MATLAB再玩,不然可能遇到些妖蛾子。
(完)