2011数模国赛A题部分Matlab代码

close all x=gd(:,1); y=gd(:,2); z=gd(:,3); scatter(x,y,5,z)%散点图 %figure [X,Y,Z]=griddata(x,y,z,linspace(1,30000)',linspace(1,20000),'v4');%插值 %pcolor(X,Y,Z);shading interp%伪彩色图 figure [C,h]=contourf(X,Y,Z) %等高线图; a=0:pi/36:2*pi; mymaker=['p';'o';'*';'s';'d'] hold on for i=1:size(gd,1) plot(gd(i,1),gd(i,2),mymaker(gd(i,4))) end colormap gray %plot(x,y,'*') hold on for i=1:size(gd,1) plot(50*gd(i,5)*cos(a)+gd(i,1),50*gd(i,5)*sin(a)+gd(i,2),'r-'); end colorbar <pre class="plain" name="code">b={'As','Cd','Cr','Cu','Hg','Ni','Pb','Zn'}; load nd for i=1:1 Y=fix(nd(:,i)); theta = [10 10]; lob = [1e-1 1e-1]; upb = [20 20]; %[dmodel, perf] = dacefit(S, Y, @regpoly0, @corrspherical, theta, lob, upb) %球状模型 [dmodel, perf] = dacefit(S, Y, @regpoly0, @correxp, theta, lob, upb) %指数模型 %>>>>>>>>>>>>>>predict<<<<<<<<<<<<<<<<<<<<<<<<< m=100; X = gridsamp([0 0;30000 20000], m); [YX MSE] = predictor(X, dmodel); X1 = reshape(X(:,1),m,m); X2 = reshape(X(:,2),m,m); YX = reshape(YX, size(X1)); %figure(i), mesh(X1, X2, YX) figure(i), mesh(X1, X2, YX) hold on, plot3(S(:,1),S(:,2),Y,'.k', 'MarkerSize',10) %plot3(posi(:,1),posi(:,2),'*') hold off xlabel('x/m') ylabel('y/m') zlabel('浓度') title([b(i)]) colormap gray %print(gcf,'-dpng',['E:\360data\重要数据\桌面\空间分布\kriging插值图\' cell2mat(b(i)) '.png']) %print(gcf,'-djpeg',['E:\360data\重要数据\桌面\空间分布\等值线\' cell2mat(b(i)) '.jpg']) end %------------------------------------</pre> % >>>>>>>>>>>>>>>> Kriging_fit.m ====================%S=data(:,1:2);Y=data(:,8);theta = [10 10]; lob = [1e-1 1e-1]; upb = [20 20];%[dmodel, perf] = dacefit(S, Y, @regpoly0, @corrspherical, theta, lob, upb)[dmodel, perf] = dacefit(S, Y, @regpoly0, @correxp, theta, lob, upb)%>>>>>>>>>>>>>>predict<<<<<<<<<<<<<<<<<<<<<<<<<m=80;X = gridsamp([0 0;30000 20000], m);[YX MSE] = predictor(X, dmodel);X1 = reshape(X(:,1),m,m); X2 = reshape(X(:,2),m,m);YX = reshape(YX, size(X1));figure(1), contourf(X1, X2, YX)hold on,plot3(S(:,1),S(:,2),Y,'.k', 'MarkerSize',10)hold offxlabel('x')ylabel('y')zlabel('浓度')title('Zn浓度空间分布')%===========

b={'生活区','工业区','山区','交通区','公园绿地区'} for i=1:5 figure(i) a=eval(['a' num2str(i)]); a=a'; bar(a); legend('背景值','观测值均值','国家二级标准') set(gca,'XTickLabel',['As';'Cd';'Cr';'Cu';'Hg';'Ni';'Pb';'Zn']) title([b(i)]) xlabel('x') ylabel('y') colormap gray set(gca,'fontsize',16) print(gcf,'-dpng',['E:\360data\重要数据\桌面\城市区域\' num2str(i) '.png']) end close all
===============================================