| 查看: 2254 | 回复: 4 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
Fortran输出二进制数据，用matlab读出，结果出错，求助问题何在？ 已有2人参与
|
|||
|
----------------------------------------------------------------------------------------- ! fortran 程序将整数写入文件 program databin integer M2, NP1 M2 = 512 NP1=35001 open(unit=66,file='data.BIN',action='WRITE',form='UNFORMATTED',RECL=4) write(66) M2 write(66) NP1 close(66) end program ----------------------------------------------------------------------------------------- % matlab程序将数据读入 clc; clear all; close all; % fname = 'data.BIN'; fid = fopen(fname,'rb'); M2 = fread(fid,1,'int32'); NP1= fread(fid,1,'int32'); fclose(fid); disp(fprintf('M2 = %d, NP1 = %d\n',M2,NP1)); %matlab读入输出结果为 M2 = 4, NP1 = 512 18 不知道错在哪？请诸位帮忙指点一下！ |
回复此楼» 猜你喜欢
307中医考研调剂
已经有9人回复
-
327求调剂
已经有30人回复
-
294求调剂
已经有15人回复
-
求调剂
已经有4人回复
-
0854求调剂
已经有27人回复
-
材料相关专业344求调剂双非工科学校或课题组
已经有27人回复
-
300求调剂
已经有12人回复
-
291求调剂
已经有10人回复
-
一志愿沪9，326求生物学调剂
已经有12人回复
-
生物学调剂
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran中如何调用matlab中求解特征值函数？
已经有9人回复
- 用fortran程序遗传算法解非线性方程组
已经有7人回复
- 求助大神：要做参数回归，fortran和matlab，该选择哪个？
已经有14人回复
- 想学fortran语言，会点MATlab基础
已经有5人回复
- fortran输出求助
已经有6人回复
- FORTRAN与MATLAB精度比较？
已经有8人回复
- C++编程，关于循环结构的，大家看看我这程序哪里错了？
已经有21人回复
- 求帮忙啊~ matlab一多项式结果太长，怎么写到txt里？
已经有14人回复
- fortran程序怎样调用lapack库进行矩阵对角化？
已经有7人回复
- 求助fortran编程时怎么使用数据库
已经有4人回复
- MATLAB 数据导入
已经有13人回复
- 【求助】matlab数据导入Fortran
已经有9人回复
- 【求助】fortran出错了
已经有3人回复
- 【求助】同样一个问题用matlab和fortran编程计算，结果相差比较大，不知道为什么
已经有4人回复
- 【求助】求高手关于Fortran数据读写的问题。【已完结】
已经有12人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
- 【求助】matlab的fit的结果读出问题，cfit的类型
已经有7人回复
- 【求助】fortran程序未出错，但运行不出结果，中途中断！
已经有6人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
|
问题已解决。如下范例： open (1,file=fname,status='replace',form='unformatted',access='direct',recl=n*m ) write(1,rec=1) mat ! 先存行 close(1) % matlab nx=n; ny=m; fid= fopen(fname,'rb'); mat = fread(fid,[nx, ny],'int32'); fclose(fid); % mat(nx,ny) == mat(n,m) ! ! method 2 (把一行看做一个记录--n个记录, 一个记录长度为m) fname='data2-'//trim(adjustl(name1))//'-'//trim(adjustl(name2)) open (1,file =fname,status='replace',form='unformatted',access='direct',recl=m) do i=1,n write(1,rec=i) ( mat(i,j), j=1,m ) ! 先存列 enddo close(1) % matlab nx=n; ny=m; fid= fopen(fname,'rb'); mat = fread(fid,[ny, nx],'int32'); fclose(fid); M = mat'; % M(nx,ny) == mat(n,m) |
5楼2014-01-06 15:25:48
2楼2014-01-06 01:30:09
3楼2014-01-06 09:40:44
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
4楼2014-01-06 10:18:21
50