主题:求助,这个matlab小程序用fortran该怎么写??
求助,本人刚刚接触fortran,不知道下面这个matlab程序用fortran该怎么写??
clear
clc
road='M:\';
name='2007_08_05_12_57_17_六楼.rel';
fid=fopen([road name]);
a = fread(fid, 14, 'bit16');
b = fread(fid, 9, 'float');
c = fread(fid, 48, '*char');
d= fread(fid, 23, 'bit16');
e= fread(fid, 17, 'long');
time= fread(fid, 7, 'bit16');
f= fread(fid, 34, 'bit64');
i=1;
while feof(fid)==0;
k= fread(fid, 1, 'bit8');
if feof(fid)==0;
data= fread(fid, 3, 'bit32');
da(i,1:3)=data'./2097/1.25;
i=i+1;
end
end
fclose(fid);
我最终想得到da,能够举个例子,怎么样从2进制文件里读去数字\字符也好,
谢谢各位高手!!!!
clear
clc
road='M:\';
name='2007_08_05_12_57_17_六楼.rel';
fid=fopen([road name]);
a = fread(fid, 14, 'bit16');
b = fread(fid, 9, 'float');
c = fread(fid, 48, '*char');
d= fread(fid, 23, 'bit16');
e= fread(fid, 17, 'long');
time= fread(fid, 7, 'bit16');
f= fread(fid, 34, 'bit64');
i=1;
while feof(fid)==0;
k= fread(fid, 1, 'bit8');
if feof(fid)==0;
data= fread(fid, 3, 'bit32');
da(i,1:3)=data'./2097/1.25;
i=i+1;
end
end
fclose(fid);
我最终想得到da,能够举个例子,怎么样从2进制文件里读去数字\字符也好,
谢谢各位高手!!!!