plotgraphics.asv

来自「用于计算多体系统动力学的程序,可用于多体系统动力学的计算和仿镇,也可用于机器人的」· ASV 代码 · 共 51 行

function PlotGraphics
% 输出数据为曲线
clear
clc
% 读入物体数和积分步数
fid=fopen('outputs\0base.m','r');
[nBodies,allFreeNum,transJointsNum,rotJointsNum,nSteps]=RFile(fid,5,[1 1 1 1 1]);
fclose(fid);

% 读入数据
for ii=1:nBodies
    fid=fopen(strcat('outputs\',int2str(ii),'thbody.m'),'r');
    for jj=1:nSteps
        Bdd(ii).Rss(jj,1:10)=RFile(fid,1,[10]);        
    end
    fclose(fid);
end
% 独立变量
fid=fopen('outputs\Aevery.m','r');
for i=1:nSteps
    t(i)=RFile(fid,1,[1]);
    for j=1:transJointsNum
        zrv(i,j)=RFile(fid,1,1);
    end
    for j=1:allFreeNum
        zw(i,j)=RFile(fid,1,1);
    end    
end
fclose(fid);

% 输出曲线
for ii=1:nBodies
    figure(ii);
    hold on;
    for jj=1:nSteps
        title(strcat(int2str(ii),'物体输出数据'));
        plot(Bdd(ii).Rss(:,1),Bdd(ii).Rss(:,2:10));
    end
    hold off;
end
for jj=1:transJointsNum
    figure(jj+ii);
    %plot(t,zrv(:,jj));    
end
for kk=1:allFreeNum
    figure(kk+jj+ii);
    plot(t,zrv(:,kk));    
end

% 最好是删除输出数据文件，以免和以前的混淆
% delete 'outputs\*.*'；