威望0
积分7994
贡献0
在线时间765 小时
UID1
注册时间2021-4-14
最后登录2024-12-2
管理员
- UID
- 1
- 威望
- 0
- 积分
- 7994
- 贡献
- 0
- 注册时间
- 2021-4-14
- 最后登录
- 2024-12-2
- 在线时间
- 765 小时
|
- 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
复制代码 |
|