5e557abe8f0584ff46b976dc8d3f6ae958f2d773
[scilab.git] / scilab / modules / graphics / macros / paramfplot2d.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // This file must be used under the terms of the CeCILL.
4 // This source file is licensed as described in the file COPYING, which
5 // you should have received as part of this distribution.  The terms
6 // are also available at    
7 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
8
9 function paramfplot2d(f,x,theta,flag,rect)
10 //animated plot of x-->f(x,t) for t=theta(1),theta(2),etc
11 //x=N-vector of x-values 
12 //f(x,t)=N-vector of y-values.
13 //f: mapping x,t -> f(x,t) = R^N valued function for x= vector of R^N and t=real number. 
14 //f can be a either Scilab function or a dynamically linked routine since
15 // y=f(x,t) is evaluated as y=feval(x(:),t,f). See feval.
16 // Here y should be a column vector.
17 //theta = row vector of parameters theta=[theta(1), theta(2),... theta(M)]
18 // Optional parameters
19 //flag = 'yes' (screen is cleared between two consecutive plots).
20 //flag = 'no'  (screen is not cleared between two consecutive plots).
21 //
22 //rect = "rectangle" [xmin, xmax, ymin, ymax] (1 x 4 real vector),
23 // containing a-priori lower and upper bounds for x and f(t,x).
24 //function y=f(x,t),y=abs(cos(1.5*x+4*t)).*sin(x+10*t),endfunction
25 //x=linspace(0,20*%pi,500);theta=0:0.05:5;
26 [lhs,rhs]=argn(0)
27 x=x(:);
28 if rhs<5 then //compute the data bounds
29    xmin=min(x);xmax=max(x);
30    ymin=%inf;ymax=-%inf;
31    for t=theta
32       y=f(x,t); ymin=min(ymin,min(y)); ymax=max(ymax,max(y));
33    end
34    rect=[xmin,xmax,ymin,ymax];
35 end
36 if rhs<43 then flag='no';end
37 realtimeinit(0.1);
38  
39 clf();
40 fig=gcf();
41 a=gca();
42 a.data_bounds=matrix(rect,2,2);
43 a.axes_visible='on';
44 fig.pixmap='on'; //double buffer mode
45 y=feval(x,theta(1),f);
46 xpoly(x,y(:));p=gce(); //the polyline handle
47 realtime(0);
48 if flag=='no' then
49   for k=1:size(theta,'*')
50     realtime(k);
51     y=feval(x,theta(k),f);
52     p.data(:,2)=y(:);
53     show_pixmap()
54   end
55 else
56   for k=1:size(theta,'*')
57     realtime(k);
58     plot2d(x,feval(x,theta(k),f))
59     show_pixmap()
60   end
61 end
62 fig.pixmap='off';
63
64 endfunction