51 lines
1.1 KiB
Scilab
51 lines
1.1 KiB
Scilab
function []=dcompare(s1)
|
|
// Copyright (C) 2001 Michel Juillard
|
|
//
|
|
|
|
global('dsmpl_','iter_');
|
|
global('nvx','nvy','x','y','lag1');
|
|
|
|
ftest(s1,0);
|
|
|
|
i = (lag1(1):size(x,2)-lag1(2)+1)';
|
|
|
|
if size(dsmpl_,1)==1 then
|
|
error('DSAMPLE not specified.');
|
|
end
|
|
|
|
if dsmpl_(3)>0 then
|
|
if dsmpl_(3)==2 then
|
|
if dsmpl_(1)<0|dsmpl_(2)>(size(x,2)-lag1(2)) then
|
|
error('Wrong sample.');
|
|
end
|
|
i = (dsmpl_(1)+lag1(1):dsmpl_(2)+lag1(1))';
|
|
elseif dsmpl_(3)==1 then
|
|
if dsmpl_(1)>(size(x,2)-lag1(2)) then
|
|
error('Wrong sample.');
|
|
end
|
|
i = (lag1(1):dsmpl_(1)+lag1(1))';
|
|
end
|
|
end
|
|
|
|
j = bseastr(nvx,nvy);
|
|
|
|
|
|
//! mtlb(stop) can be replaced by stop() or stop whether stop is an m-file or not
|
|
if mtlb(stop) then
|
|
return
|
|
|
|
end
|
|
|
|
|
|
//! mtlb_mean(abs(x(j,i)-y(j,i))) may be replaced by
|
|
//! mean(abs(x(j,i)-y(j,i))) if abs(x(j,i)-y(j,i))is a vector
|
|
//! mean(abs(x(j,i)-y(j,i)),1) if abs(x(j,i)-y(j,i))is a matrix
|
|
z = mean(mtlb_mean(abs(x(j,i)-y(j,i))));
|
|
|
|
dyn_disp('The mean absolute difference between set '+s1(1,:)+'and set '+s1(2,:));
|
|
dyn_disp('is : '+string(z));
|
|
return
|
|
|
|
|
|
|