matlab将数据转化为tecplot输入文件格式
function fortecplot()%此程序是为了将数据转化未tecplot可以接受的格式
clc
% -------------------------
origin_X=100;
origin_Y=100;
origin_Z=0;
num_X=10;
num_Y=10;
num_Z=5; %定义网格信息
size_X=20;
size_Y=20;
size_Z=3;
N=num_X*num_Y*num_Z;
% -----------------------------
input=importdata('E:\......');%导入数据
DAT=input.data;
M=length(DAT);
fid1=fopen('E:\...\**.dat','wt');%输出文件
fprintf(fid1,'%s\n%s\n%s%d\t%s%d\t%s%d\t%s\n','TITLE="NUTRIENT"','VARIABLES="X""Y""Z""M"','ZONE I=',num_X,' J=',num_Y,' K=',num_Z,' F=POINT');
for k=1:num_Z
for j=1:num_Y
for i=1:num_X
grid_X=(i-1)*size_X+origin_X;
grid_Y=(j-1)*size_Y+origin_Y;
grid_Z=(k-1)*size_Z+origin_Z;
fprintf(fid1,'%d\t',grid_X);
fprintf(fid1,'%d\t',grid_Y);
fprintf(fid1,'%g\t',grid_Z);
m=i+num_X*(j-1)+num_X*num_Y*(k-1);
fprintf(fid1,'%d\n',DAT(m));
end
end
end
fclose(fid1);
end
页:
[1]