matlab 绘制带尾迹的动态曲_线图.docxVIP

matlab 绘制带尾迹的动态曲线图 function mycometEx(varargin)%MYCOMET? Comet-like trajectory.%?? MYCOMETEX(Y) displays an animated comet plot of the vector Y.%?? MYCOMETEX(X,Y) displays an animated comet plot of vector Y vs. X.%?? MYCOMETEX(X,Y,p) 以p个点作为尾巴的长度.? Default is p = 10.%%?? MYCOMETEX(AX,...) plots into AX instead of GCA.%%?? Example:%?????? t = -pi:pi/200:pi;%?????? mycometEx(t,tan(sin(t))-sin(tan(t)),10)%以10个点作为尾巴的长度%?%?? See also COMET3.%?? Author :hyyly520 % Parse possible Axes input[ax,args,nargs] = axescheck(varargin{:}); error(nargchk(1,3,nargs,struct)); % Parse the rest of the inputsif nargs 2, x = args{1}; y = x; x = 1:length(y); endif nargs == 2, [x,y] = deal(args{:}); endif nargs 3, p = 10; endif nargs == 3, [x,y,p] = deal(args{:}); endif ~isscalar(p) || ~isreal(p) ||? p = 0 || mod(p,1)0??? error(MATLAB:comet:InvalidP, ...??????? The input p must be a positive? integer.);endax = newplot(ax);if ~ishold(ax)??? [minx,maxx] = minmax(x);??? [miny,maxy] = minmax(y);??? axis(ax,[minx maxx miny maxy])endco = get(ax,colororder);pause % Choose first three colors for head, body, and tailhead = line(parent,ax,color,co(1,:),marker,o,erase,xor, ...??? xdata,x(1),ydata,y(1));body = line(parent,ax,color,co(1,:),linestyle,-,erase,none, ...??? xdata,[],ydata,[]); m = length(x);N=p;if(N=m)???? N=5;endtry??? % Grow the body??? for i = N:m??????? set(head,xdata,x(i),ydata,y(i))??????? if(mod(i,N))??????????? set(body,xdata,x(i-N:i),ydata,y(i-N:i))??????? else??????????? set(body,erase,xor)??????? end??????? drawnow??????? pause(0.0001)??? endcatch E??? if ~strcmp(E.identifier, MATLAB:class:InvalidHandle)??????? rethrow(E);??? endendend function [minx,maxx] = minmax(x)minx = min(x(isfinite(x)));maxx = max(x(isfinite(x)));if minx == maxx??? minx = maxx-1;??? maxx = maxx+1;endend HYPERLINK /tag/matlab%20%E7%BC%96%E7%A8%8B/feeds #matlab 编程