43 lines
1.0 KiB
Scilab
43 lines
1.0 KiB
Scilab
|
function []=gcompare(s1,s2)
|
||
|
// GCOMPARE : GCOMPARE ( [ 'file1' ; 'file2' ] , [ 'var1' ; 'var2' ...] )
|
||
|
// Copyright (C) 2001 Michel Juillard
|
||
|
//
|
||
|
// This optional command plots the trajectories of a list of
|
||
|
// variables in two different simulations. One plot is drawn
|
||
|
// for each variable. The trajectories must have been previously
|
||
|
// saved by the instruction DYNASAVE. The simulation in file1
|
||
|
// is refered to as the base simulation.
|
||
|
|
||
|
|
||
|
global('dsmpl_','iter_','ykmin_');
|
||
|
global('nvx','nvy','x','y','lag1');
|
||
|
|
||
|
ftest(s1,s2);
|
||
|
|
||
|
ix = (1-lag1(1):size(x,2)-lag1(1))';
|
||
|
i = (lag1(1):size(ix,1)-lag1(2)+1)';
|
||
|
|
||
|
if dsmpl_==0 then
|
||
|
i = (ykmin_:size(y,2))';
|
||
|
else
|
||
|
i = (dsmpl_(1):dsmpl_(2))';
|
||
|
end
|
||
|
|
||
|
for k = 1:size(x,1)
|
||
|
xset('window',max(winsid()+1))
|
||
|
max(winsid());
|
||
|
mtlb_plot(ix(i),x(k,i),ix(i),y(k,i));
|
||
|
xtitle(' ','Periods',' ');
|
||
|
xtitle('Variable '+s2(k,:),' ',' ');
|
||
|
l = min(i)+1;
|
||
|
ll = max(i)-1;
|
||
|
xstring(l,x(k,l),s1(1,:));
|
||
|
xstring(ll,y(k,ll),s1(2,:));
|
||
|
end
|
||
|
|
||
|
// 06/18/01 MJ corrected treatment of dsmpl_
|
||
|
// 06/24/01 MJ removed color specification
|
||
|
|
||
|
|
||
|
|