xunhuanxianshi.m

应用matlabGUI工具设计了数据循环显示程序

function xunhuanxianshi
%输入数据的循环显示动画

%设置动画图形初始环境变量
%clear;clc;close all;
u=[1 4 7 8 9 10 24 400 50 7 510 20 35 44 60];   %输入数据

figure;
set(gcf,'DoubleBuffer','on');  %设置图形的刷新模式
axis([0,10,0,10]);              %设置图形的坐标范围
hold on ;
%创建图形的数字显示框

Z1=2.5+5i+exp(i*linspace(0,2*pi,60))*1; %定义圆的数字方程
F1=fill(real(Z1),imag(Z1),'r');          %绘制圆
set(F1,'EdgeColor','r');                 %设置边缘颜色

Z2=5+7.5i+exp(i*linspace(0,2*pi,60))*1; %定义圆的数字方程
F2=fill(real(Z2),imag(Z2),'r');          %绘制圆
set(F2,'EdgeColor','r');                 %设置边缘颜色

Z3=7.5+5i+exp(i*linspace(0,2*pi,60))*1; %定义圆的数字方程
F3=fill(real(Z3),imag(Z3),'r');          %绘制圆
set(F3,'EdgeColor','r');                 %设置边缘颜色

Z4=5+2.5i+exp(i*linspace(0,2*pi,60))*1; %定义圆的数字方程
F4=fill(real(Z4),imag(Z4),'r');          %绘制圆
set(F4,'EdgeColor','r');                 %设置边缘颜色

%画箭头
p1=5*i;p2=1+5*i;p3=0.9+4.9*i;p4=0.9+5.1*i;
Hp1=plot([p1,p2],'r');
Hp11=plot([p3,p2],'r');
Hp12=plot([p4,p2],'r');
Hu=text(0.5,5.5,'u','fontsize',16,'color',[0.2,0.8,0.6]);
axis off
n=0;
    Sx1=text(2,5,['',num2str(u(n+1))],'fontsize',16,'color',[0.2,0.8,0.6]);
h1=text(2,3.5,['n=',num2str(n)],'fontsize',16,'color',[0.2,0.8,0.6]);
    Sx2=text(4.5,7.5,['',num2str(u(n+1))],'fontsize',16,'color',[0.2,0.8,0.6]);
h2=text(4.5,6,['n=',num2str(n)],'fontsize',16,'color',[0.2,0.8,0.6]);
    Sx3=text(7,5,['',num2str(u(n+1))],'fontsize',16,'color',[0.2,0.8,0.6]);
h3=text(7,3.5,['n=',num2str(n)],'fontsize',16,'color',[0.2,0.8,0.6]);
    Sx4=text(4.5,2.5,['',num2str(u(n+1))],'fontsize',16,'color',[0.2,0.8,0.6]);
h4=text(4.5,1,['n=',num2str(n)],'fontsize',16,'color',[0.2,0.8,0.6]);
%定义图形动画的初始参数
t=0;               %控制时间
dt=1;          %时间的单位递加量
pause(0.1);       %做一停留

%定义图形动画的循环程序代码
while t<length(u);
    t=t+dt;
    n=t;
    for j=0:1:fix(length(u)/4)+1
    if n==1+4*j;
    set(Sx1,'string',['',num2str(u(n))]);
    set(h1,'string',['n=',num2str(n)]);
elseif n==2+4*j;
    set(Sx2,'string',['',num2str(u(n))]);
    set(h2,'string',['n=',num2str(n)]);
elseif n==3+4*j;
    set(Sx3,'string',['',num2str(u(n))]);
    set(h3,'string',['n=',num2str(n)]);
elseif n==4+4*j;
    set(Sx4,'string',['',num2str(u(n))]);
    set(h4,'string',['n=',num2str(n)]);
    end
    end

    pause(1);
   
end