²é¿´: 1957  |  »Ø¸´: 4
¡¾ÐüÉͽð±Ò¡¿»Ø´ð±¾ÌûÎÊÌ⣬×÷Õßlinzchey½«ÔùËÍÄú 10 ¸ö½ð±Ò

linzchey

гæ (³õÈëÎÄ̳)

[ÇóÖú] 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

²»ÖªµÀ´íÔÚÄÄ£¿ÇëÖîλ°ïæָµãһϣ¡
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍƼö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

fish.yfyh

Í­³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
write(66,*) M2
write(66,*) NP1
2Â¥2014-01-06 01:30:09
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

linzchey

гæ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by fish.yfyh at 2014-01-06 01:30:09
write(66,*) M2
write(66,*) NP1

¸Ðл»Ø¸´£¡
ÎÒÏ£ÍûÊÇunformattedÎÞ¸ñʽÊä³ö£¬¶ø
write(66,*)ÊǸñʽ»¯Êä³ö¡£
3Â¥2014-01-06 09:40:44
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

baobiao007

ľ³æ (Ö°Òµ×÷¼Ò)

ÖйúÌØÉ«

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
µ±ÐèÒªÓÃfortranÓëÆäËûÈí¼þ½áºÏʹÓÃʱ£¬½¨Òé²ÉÓÃÎÞ¸ñʽֱ½ÓдÎļþ£¬¶ø²»ÊÇÄãÄÇÖÖĬÈÏ·½Ê½£¬ÒòΪĬÈϵÄÄÇÖÖ·½Ê½write(66,*)»á×Ô¶¯¼ÓÈëһЩ¼ä¸ô·û£¬ÆäËûÈí¼þ²»ÈÏʶ
ÎÒͬÒâÊå±¾»ªµÄ¹Ûµã£¬ÈËÃÇͶÉíÒÕÊõºÍ¿ÆѧÁìÓòµÄÇ¿ÁÒÔ¸ÍûÖ®Ò»¾ÍÊÇÌÓÀëÍ´¿à¡¢²Ð¿áºÍ¿ÝÔïÎÞζµÄÏÖʵÉú»î£¬ÌÓÀë×Ô¼ºÆ®ºö²»¶¨µÄÆßÇéÁùÓûµÄèäèô¡£--°®Òò˹̹
4Â¥2014-01-06 10:18:21
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

linzchey

гæ (³õÈëÎÄ̳)

ÎÊÌâÒѽâ¾ö¡£ÈçÏ·¶Àý£º

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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌøת ÎÒÒª¶©ÔÄÂ¥Ö÷ linzchey µÄÖ÷Ìâ¸üÐÂ
²»Ó¦Öú È·¶¨»ØÌûÓ¦Öú (×¢Ò⣺ӦÖú²Å¿ÉÄܱ»½±Àø£¬µ«²»ÔÊÐí¹àË®£¬±ØÐëÌîд15¸ö×Ö·ûÒÔÉÏ)
×î¾ßÈËÆøÈÈÌûÍƼö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[½Ìʦ֮¼Ò] ÓÐûÓа²»ÕºÍºÓÄϵØÇø¸ßУ²©Ê¿ÇóÖ°½»Á÷Ⱥ +4 Äϼ«10¡æ 2025-02-16 5/250 2025-02-18 15:13 by СÁúϺ2008
[Óлú½»Á÷] ºÏ³ÉÇóÖú 30+3 sz280115710 2025-02-18 3/150 2025-02-18 12:55 by mintsun
[ÂÛÎÄͶ¸å] CPCÒâ¼û»ØÀ´ÁË£ºÒ»¸ö¸ø¾Ü£¬Ò»¸ö¸øÐÞ£¬±à¼­ÈÃÐÞ +4 zzqxcy 2025-02-17 10/500 2025-02-18 11:36 by zzqxcy
[¿¼ÑÐ] ѧ¿ÆÓ¢Óïµ÷¼Á +4 Àõ×Ó¼ÓÓÍѼ 2025-02-16 7/350 2025-02-18 06:47 by Ò»ºø×ǾÆ6686
[¿¼ÑÐ] ¿¼ÑÐÕÐÉú +11 ³Ì³¤£¨zhang£© 2025-02-14 21/1050 2025-02-17 22:00 by רҵ¿Î²ÄÁÏÁ¦Ñ§£
[˶²©¼ÒÔ°] É격-²©µ¼ÎÊÎÒÂÛÎűÏ×ÎÊÌâ +8 CG-KY 2025-02-15 13/650 2025-02-17 21:12 by CTACСκ
[˶²©¼ÒÔ°] ´ó¼Ò¸øÎҵ㽨Òé +16 ɽÓêÒàÆæ 2025-02-16 18/900 2025-02-17 20:16 by huixiong0627
[ÂÛÎÄͶ¸å] »·¾³×¨ÒµÆÚ¿¯Í¶¸å 15+3 »Ê×Ó?±£ 2025-02-14 5/250 2025-02-17 17:01 by Wanggy
[»ù½ðÉêÇë] B06ÈϿɵÄÆÚ¿¯ÓÐÄÄЩ£¿ +3 jqq123456 2025-02-14 6/300 2025-02-17 15:34 by jqq123456
[»ù½ðÉêÇë] 2025ÃæÉÏÔ¤Ëã¶àÉÙºÏÊÊ +7 гÇ×ÓÔø 2025-02-16 10/500 2025-02-17 11:35 by 215670560
[»ù½ðÉêÇë] ÃæÉÏÏîÄ¿Ä£°åµÄÁ¢ÏîÒÀ¾ÝÇ°ÃæµÄµÚÒ»¸ö»ÆÉ«¿òÊǸÉÂïÓÃµÄ +13 bangkuday 2025-02-14 19/950 2025-02-17 10:43 by bangkuday
[ÂÛÎÄͶ¸å] ÎÄÕ½ÓÊպ󣬱༭²¿·¢Óʼþ˵Èç¹ûÑ¡Ôñoa¸úËûÃÇ˵£¬ÕâÓʼþ»¹ÐèÒª»Ø¸´Â𣿠+3 bitbing 2025-02-14 4/200 2025-02-17 09:03 by ±±¾©À³ÒðÈóÉ«
[ÂÛÎÄͶ¸å] Ͷ¸åÇóÖú 5+5 :ztt 2025-02-12 5/250 2025-02-17 08:56 by ±±¾©À³ÒðÈóÉ«
[ÂÛÎÄͶ¸å] Ͷ¸åÓöµ½technical screening 39+4 ÇáÃèʱ¹âl 2025-02-14 6/300 2025-02-17 08:53 by ±±¾©À³ÒðÈóÉ«
[¿¼²©] ΪɶÎÒµÄÉ격Ìû×Ó·¢²»³öÈ¥ +6 dzЦÐÄÈálin 2025-02-13 9/450 2025-02-17 07:59 by ÖÐҩѧ˶ʿÉúµ÷¼
[˶²©¼ÒÔ°] É격-²©µ¼Í¨¹ýÓʼþѯÎÊÎÊÌâ +4 CG-KY 2025-02-16 4/200 2025-02-16 19:27 by white7wine
[¿¼²©] 25¿¼²©ÇóÖú +6 13011997401 2025-02-13 12/600 2025-02-16 16:33 by peterniu7716
[¿¼ÑÐ] µç×ÓÐÅÏ¢µ÷¼Á +3 lucky.....n 2025-02-14 6/300 2025-02-16 11:14 by °¢zzzz
[¿¼ÑÐ] 320Çóµ÷¼Á +3 ÓÀ²»ÑÔÆúµÄС͸à 2025-02-12 3/150 2025-02-15 10:47 by д´úÂëµÄcoder
[¿¼ÑÐ] 357Çóµ÷¼Á +3 ³ÇÏçÖ®±ð 2025-02-12 7/350 2025-02-12 21:05 by l?h?j
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û