exe0809.m

来自「用matab写的一些源程序」· M 代码 · 共 13 行

%Exe0809
a=[1 2;3 4];
fid=fopen('Exe0809.mat','w');
fwrite(fid,a);
fclose(fid);
fid=fopen('Exe0809.mat','r');
a=fread(fid,[2,2])
b=sin(a)
fclose(fid);
fid=fopen('Exe0809.mat','w');
fwrite(fid,b);
fclose(fid);