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