0001 function md=cielomesh2grid(md)
0002
0003
0004
0005
0006 t1=clock;
0007
0008 analysis='mesh2grid';
0009
0010
0011 SetParameterDefaults;
0012
0013
0014 md.mesh2grid_results=cell(length(md.mesh2grid_parameters),1);
0015
0016
0017 writefile('contours.exp',md.domainoutline);
0018 contours=expread('contours.exp',0);
0019 contours=contours(1);
0020 delete('contours.exp');
0021
0022
0023 for i=1:length(md.mesh2grid_parameters),
0024 parameter=eval(['md.' md.mesh2grid_parameters{i}]);
0025
0026
0027 md.mesh2grid_results{i}=...
0028 GriddataMeshToGrid( md.elements,md.x,md.y,contours,parameter,md.mesh2grid_cornereast,md.mesh2grid_cornernorth,...
0029 md.mesh2grid_xposting,md.mesh2grid_yposting,md.mesh2grid_nlines,md.mesh2grid_ncolumns,md.mesh2grid_interpolation{i},...
0030 md.mesh2grid_filter{i},md.mesh2grid_windowsize);
0031
0032 end
0033
0034
0035
0036 t2=clock;
0037 disp(sprintf('\n%s\n',[' solution lasted ' num2str(etime(t2,t1)) ' seconds']));