exec_bouncing.m

一套科学运算语言 MATLAB 的程序设计有关的函数代码!!!

function exec_bouncing(x)
%隶属于 BALL_BOUNCE，计算实际小球谈跳的过程。
k=1; uu=get(gcf,'UserData');
if nargin==0, 
   [x,y,k]=ginput(1); uu{3}=x; set(gcf,'UserData',uu);
end
if k==1
   if x<0, x=0.1; end
   if x>1, x=1; end
   xx=[0]; yy=[1]; x0=0; x1=x; y1=1; 
   while (x1<=1+x)
      xx=[xx x1]; y1=~y1; yy=[yy y1]; x0=x1; x1=x1+x;
   end  
   dx=1/50; xx_l=[0:dx:1,xx]; xx_l=sort(xx_l);
   yy_l=interp1(xx,yy,xx_l);
   h_mark=findobj(gcf,'Tag','hBall'); 
   set(h_mark,'Color',uu{1});
   for i=1:length(xx_l)
      x0=xx_l(i); y0=yy_l(i);
      set(h_mark,'XData',x0,'YData',y0); 
      s=0; for i=1:uu{2}*200000, s=s+i; end;
   end   
end