[go: up one dir, main page]
Menu ▾ ▴

[73c35b]: / init / cheq.m  Maximize  Restore  History

Download this file

16 lines (15 with data), 430 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
% res=cheq(x): utility to check equality of components of x. Some slack allowed.

% GUISDAP v.1.60 96-05-27 Copyright Asko Huuskonen and Markku Lehtinen

%

% function res=cheq(x)

function res=cheq(x)

maxim=max(x);minim=min(x);

%if((maxim-minim)<=1000*eps*max(abs([1,maxim,minim]))),

if maxim==minim

  res=x(1);

else

  fprintf(' The input values to cheq are not all equal\n')

  res=mean(x);

% disp(x), dbstop error,

% error(' ')

end