function y = teckentest(f, a, b)
% teckentest - kollar om f(a) och f(b) har samma tecken
%
% Syntax:  y = teckentest(f, a, b)
%
% Input:  f    - funktionshandtag
%         a, b - två tal
% Output: y - ett tal
%
% Beskrivning:
% Programmet returnerar värdet 1 om f(a) och f(b) har samma tecken.
% Programmet returnerar värdet -1 om f(a) och f(b) har olika tecken.
% Programmet returnerar värdet 0 om en av f(a) och f(b) är noll.
%
% Exempel: 
% y = teckentest(@sin, 1, 2)
% y = teckentest(@funk1, 1, 2)
%
%----------------------------------------------------------------------


y=0;

if f(a)*f(b)>0 
  y=1;
end

if f(a)*f(b)<0 
  y=-1;
end


