基于MATLAB实现的各国GDP变化动态图+使用说明文档.rar

function barChartRace( inData, Opt ) %csdn??:https://blog.csdn.net/zzx2016zzx %email:2377389590@qq.com xTickLabelStrs=Opt.xTickLabelStrs; % tick labels (vertical) if isequal(Opt.outFileName(end-3:end),'.gif') outFileName=Opt.outFileName; % output gif name else outFileName=[Opt.outFileName '.gif']; % output gif name end y=inData; x=zeros(size(inData)); x(:,1)=(1:size(inData,1))'; for n1=2:size(inData,2) [val,ind]=sort(inData(:,n1),'ascend'); for n2=1:size(ind,1) x(ind(n2),n1)=n2; end end a=get(0); figure('position',a.MonitorPositions(2,:)); % figure hold on grid on; set(gca,'FontName','宋体','FontSize',10) h=barh(x(:,1),inData(:,1),'stacked','FaceAlpha',0.5, 'EdgeColor','white'); h.FaceColor=Opt.faceColor; xlim([0 max(max(h(1).YData)*1.2,1)]) ylim([0,size(inData,1)+1]) set(gca,'YTick',x(:,1),'YTickLabel',xTickLabelStrs(x(:,1))) % title(Opt.titleStr) xlabel(Opt.xLabelStr) ylabel(Opt.yLabelStr) framesPerDataTick=24; for k=2:size(y,2) for n1=0:framesPerDataTick tmp=((framesPerDataTick-n1)*x(:,k-1)+ (n1)*x(:,k))/framesPerDataTick; [val,ind]=sort(tmp); bWidth=min(diff(val)); if bWidth>0.01 h(1).XData= ((framesPerDataTick-n1)*x(:,k-1)+ (n1)*x(:,k))/framesPerDataTick; set(gca,'YTick',val,'YTickLabel',xTickLabelStrs(ind)); h(1).YData=((framesPerDataTick-n1)*y(:,k-1)+ (n1)*y(:,k))/framesPerDataTick; set(h(1),'BarWidth',0.9/bWidth); % automatic scaling of horizontal axis xlim([0 max(max(h(1).YData)*1.2,1)]) refresh(1) end [A,map] = rgb2ind(frame2im( getframe(gcf)),256); if k==2 && n1==0 imwrite(A,map,outFileName,'gif','DelayTime',0.5); else imwrite(A,map,outFileName,'gif','writemode', 'append','delaytime',1/framesPerDataTick); end end for n1=1:4 %stop between time instant imwrite(A,map,outFileName,'gif','writemode', 'append','delaytime',1/framesPerDataTick); end end %padding final frame to display longer. imwrite(A,map,outFileName,'gif','writemode', 'append','delaytime',0.5); end