07-10.txt

《MATLAB R2007基础教程》 清华大学出版社,包含电子课件,实例原文件,习题答案,都是基于matlab实现

fid = fopen('magic.m','r');
count = 0;
while ~feof(fid)
    line = fgetl(fid);
    if isempty(line) | strncmp(line,'%',1)
        continue
    end
    count = count + 1;
end
disp(sprintf('%d lines',count));