74 lines
1.7 KiB
Scilab
74 lines
1.7 KiB
Scilab
function []=ftest(s1,s2)
|
|
// Copyright (C) 2001 Michel Juillard
|
|
//
|
|
|
|
global('nvx','nvy','x','y','lag1');
|
|
|
|
if size(s1,1)~=2 then
|
|
error('Spécifiez deux fichiers pour la comparaison.');
|
|
end
|
|
|
|
for i = 1:2
|
|
if ~(matrix(find(abs(s1(i,:))==46),1,-1)==[]) then
|
|
error('Entrez les noms de fichiers sans extensions.');
|
|
end
|
|
end
|
|
|
|
s1 = s1+[' ';' '];
|
|
file1 = part(s1(1),1:min(find(abs(part(s1(1),:))==32))-1)+'.BIN';
|
|
file2 = part(s1(2),1:min(find(abs(part(s1(2),:))==32))-1)+'.BIN';
|
|
|
|
[fid,%v] = mopen(file1,'r',0)
|
|
if %v<0 then fid = -1;end
|
|
n1 = mtlb_fread(fid,1,'int');
|
|
n2 = mtlb_fread(fid,1,'int');
|
|
n3 = mtlb_fread(fid,1,'int');
|
|
lag1 = mtlb_fread(fid,4,'int');
|
|
nvx = mtlb_fread(fid,[n1,n3],'int');
|
|
x = mtlb_fread(fid,[n1,n2],'float64');
|
|
mclose(fid);
|
|
nvx = ascii(nvx);
|
|
|
|
[fid,%v] = mopen(file2,'r',0)
|
|
if %v<0 then fid = -1;end
|
|
n1 = mtlb_fread(fid,1,'int');
|
|
n2 = mtlb_fread(fid,1,'int');
|
|
n3 = mtlb_fread(fid,1,'int');
|
|
lag2 = mtlb_fread(fid,4,'int');
|
|
nvy = mtlb_fread(fid,[n1,n3],'int');
|
|
y = mtlb_fread(fid,[n1,n2],'float64');
|
|
mclose(fid);
|
|
nvy = ascii(nvy);
|
|
|
|
if size(x,1)~=size(y,1) then
|
|
error('FTEST: The two files don''t have the same number of variables.');
|
|
end
|
|
|
|
for i = 1:size(x,1)
|
|
if ~(part(nvx(i),:)==part(nvy(i),:)) then
|
|
error('FTEST: The two files don''t have the same variables.');
|
|
end
|
|
end
|
|
|
|
if nnz(lag1-lag2)>0 then
|
|
error('FTEST: Leads and lags aren''t the same in both files.');
|
|
end
|
|
|
|
j = zeros(size(s2,1),1);
|
|
for i = 1:size(s2,1)
|
|
|
|
//!! Unknown function strmatch ,the original calling sequence is used
|
|
k = strmatch(s2(i,:),nvx,'exact');
|
|
if k==[] then
|
|
t = 'FTEST: Variable '+s2(i)+'doesn''t exist';
|
|
error(t);
|
|
else
|
|
j(i,1) = k(:);
|
|
end
|
|
end
|
|
|
|
y = y(j,:);
|
|
x = x(j,:);
|
|
|
|
//06/18/01 MJ replaced beastr by strmatch
|