| 
 
	积分1697贡献 精华在线时间 小时注册时间2013-9-22最后登录1970-1-1 
 | 
 
 发表于 2015-3-27 14:16:50
|
显示全部楼层 
| function dia=diamond11(filename) %此函数用于读取diamond11类型数据
 %filename为要读取文件的路径,由主程序按照循环生成
 %*********本程序内有部分数据未使用,但是读取过程已经包含,具体对应请查看
 %Micaps数据结构,如有需要可自行设置接口使用
 fid=eval(['fopen(''' filename ''')']);
 Type=fscanf(fid,'%s%s%s',3);
 Time=fscanf(fid,'%d%d%d%d%d',6);
 Pointpara=fscanf(fid,'%f%f%f%f%f%f',6);
 Linepara=fscanf(fid,'%f%f',2);
 Temp=struct('year',[],'month',[],'day',[],'hour',[],'presc',[],...
 'lev',[],'londis',[],'latdis',[],'lonbeg',[],'lonend',[],...
 'latbeg',[],'latend',[],'latgrinum',[],'longrinum',[],...
 'datau',[],'datav',[]);
 Temp.year=Time(1);
 Temp.month=Time(2);
 Temp.day=Time(3);
 Temp.hour=Time(4);
 Temp.presc=Time(5);
 Temp.lev=Time(6);
 Temp.londis=Pointpara(1);
 Temp.latdis=Pointpara(2);
 Temp.lonbeg=Pointpara(3);
 Temp.lonend=Pointpara(4);
 Temp.latbeg=Pointpara(5);
 Temp.latend=Pointpara(6);
 Temp.latgrinum=Linepara(1);
 Temp.longrinum=Linepara(2);
 n=1;
 while n<=Linepara(2)
 Temp.datau(n,:)=fscanf(fid,'%f',Linepara(1));
 Temp.datav(n,:)=fscanf(fid,'%f',Linepara(1));
 n=n+1;
 end
 dia=Temp;
 fclose(fid);
 
 供参考
 | 
 |