威望0
积分7209
贡献0
在线时间708 小时
UID1
注册时间2021-4-14
最后登录2024-9-8
管理员
![Rank: 9](static/image/common/star_level3.gif) ![Rank: 9](static/image/common/star_level3.gif) ![Rank: 9](static/image/common/star_level1.gif)
- UID
- 1
- 威望
- 0
- 积分
- 7209
- 贡献
- 0
- 注册时间
- 2021-4-14
- 最后登录
- 2024-9-8
- 在线时间
- 708 小时
![QQ](static//image/common/qq_big.gif)
|
- 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
复制代码 |
|