matlab将数据转化为tecplot输入文件格式

admin

1. function fortecplot()
   
2. %此程序是为了将数据转化未tecplot可以接受的格式
   
3. clc
   
4. % -------------------------
   
5. origin_X=100;
   
6. origin_Y=100;
   
7. origin_Z=0;
   
8. num_X=10;
   
9. num_Y=10;
   
10. num_Z=5;                               %定义网格信息
    
11. size_X=20;
    
12. size_Y=20;
    
13. size_Z=3;
    
14. N=num_X*num_Y*num_Z;
    
15. % -----------------------------
    
16. 
    
17. input=importdata('E:\......');%导入数据
    
18. DAT=input.data;
    
19. M=length(DAT);
    
20. 
    
21. 
    
22. fid1=fopen('E:\...\**.dat','wt');%输出文件
    
23. 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');
    
24. for k=1:num_Z
    
25.     for j=1:num_Y
    
26.         for i=1:num_X
    
27.             grid_X=(i-1)*size_X+origin_X;
    
28.             grid_Y=(j-1)*size_Y+origin_Y;
    
29.             grid_Z=(k-1)*size_Z+origin_Z;
    
30.             fprintf(fid1,'%d\t',grid_X);
    
31.             fprintf(fid1,'%d\t',grid_Y);
    
32.             fprintf(fid1,'%g\t',grid_Z);
    
33.             m=i+num_X*(j-1)+num_X*num_Y*(k-1);
    
34.             fprintf(fid1,'%d\n',DAT(m));
    
35.         end   
    
36.     end
    
37. end
    
38. fclose(fid1);
    
39. end

复制代码