- 积分
- 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);
供参考 |
|