readprocess(file).m

来自「平面刚架（带弹簧支座）有限元程序」· M 代码 · 共 39 行

function readprocess(file)

fid=fopen(file,'rt');

if(fid==-1)

    display('File not exist!');

    return;

end

array=[];

while(~feof(fid))

    str=fscanf(fid,'%s',1);

    if(length(str)>10)

        %d+00005.00;v+00002.72;e+00002.28;u-0007;m+0761;t+0295;

        col=sscanf(str,'d%f;v%f;e%f;u%f;m%d;t%d;');

        array=[array col];

    end

end

fclose(fid);

dhead=array(1,:);

head=array(2,:);

'r:',t,head,'b-');