|
程序和输入文件见附件。 希望看到其他的程序。
输入文件:input.dat
11 8
-.11369E-35 .12006E+04 -.44973E+00 -.25486E+01 -.49342E+00 -.96195E-01 -.27174E+01 .29109E+01
-.20046E-35 -.46788E+04 .71252E-01 .57758E+02 -.14295E+01 .37558E+01 .57783E+02 -.50423E+01
-.16585E-38 .52330E+01 -.44525E-02 .49700E-02 -.66855E-02 .69460E-02 .41395E-02 .35363E-01
.20948E-38 .16339E+01 -.16281E-03 -.21950E-01 -.59159E-05 .17444E-03 -.18972E-01 .55946E-02
.14227E-38 -.91208E+00 -.13754E-03 .44672E-02 -.57513E-03 .20959E-02 .43984E-02 .49620E-02
-.14887E-38 .14533E+01 .41109E-04 -.67149E-02 .79985E-03 -.32606E-02 -.62200E-02 -.87427E-02
.89508E-39 .26151E+01 .86498E-03 -.51974E-01 .22977E-02 -.41590E-02 -.45913E-01 -.33926E-02
.26184E-38 .11988E+01 -.83188E-03 -.28858E-02 -.11694E-02 .11043E-02 -.14038E-02 .25288E-02
.31325E-38 -.16718E+01 .96352E-03 -.29389E-03 .13620E-02 .27050E-03 .11479E-03 -.54524E-02
.53622E-39 -.11350E+01 .31951E-03 .77262E-03 .33178E-03 -.16097E-03 -.48947E-03 -.20563E-02
-.11869E-38 .48081E+00 -.51258E-03 .48091E-03 -.83320E-03 -.55140E-03 .91278E-03 .53598E-03
源代码
clear all;
clc;
fid=fopen('input.dat','r');
%读入矩阵的行和列
tmp=fscanf(fid,'%f',2);
row=tmp(1); % 行
col=tmp(2); % 列
%
tmp=fscanf(fid,'%f',[col,row]);
A = tmp';
fclose(fid);
%取矩阵的第5列
B=A(:,5);
[ 本帖最后由 ChaChing 于 2010-2-7 10:43 编辑 ] |
|