From 15aa4ec879a3c640da1bcea26c58cd1513f83534 Mon Sep 17 00:00:00 2001
From: Sunil Shetye
Date: Tue, 31 Jul 2018 23:22:15 +0530
Subject: incorporate changes in test1.sce by Sonu Sharma

use ieee(2) mode instead of ieee(1) mode

reduce messages
---
 macros/bilinear.sci | 4 ++--
 macros/fir1.sci     | 1 -
 macros/residued.sci | 2 +-
 macros/residuez.sci | 5 +++--
 4 files changed, 6 insertions(+), 6 deletions(-)

(limited to 'macros')

diff --git a/macros/bilinear.sci b/macros/bilinear.sci
index 9030bfd..d1ee3f7 100644
--- a/macros/bilinear.sci
+++ b/macros/bilinear.sci
@@ -51,7 +51,7 @@ function [Zz, Zp, Zg] = bilinear(Sz, Sp, Sg, T)
 
     funcprot(0);
     [nargout nargin] = argn();
-    ieee(1);
+    ieee(2);
 
     if nargin==3
         T = Sg;
@@ -113,5 +113,5 @@ function [Zz, Zp, Zg] = bilinear(Sz, Sp, Sg, T)
         [Zz, Zp] = zp2tf(Zz, Zp, Zg);
         Zz = prepad(Zz, length(Zp));
     end
-
+ieee(0);
 endfunction
diff --git a/macros/fir1.sci b/macros/fir1.sci
index 05532db..636d6f8 100644
--- a/macros/fir1.sci
+++ b/macros/fir1.sci
@@ -94,7 +94,6 @@ function b = fir1(n, w, varargin)
 
         x=exp(-1*%i*%pi*w_o)
 //        z=[1 -exp(-1*%i*%pi*w_o)];
-        disp(x)
         nc = length(b);
        if(isscalar(x) &  nc>0 & (x~=%inf) & or(b(:)~=%inf))
             // Make it scream for scalar x.  Polynomial evaluation can be
diff --git a/macros/residued.sci b/macros/residued.sci
index 9b4a386..cbcbebc 100644
--- a/macros/residued.sci
+++ b/macros/residued.sci
@@ -87,7 +87,7 @@ function [r, p, f, m] = residued(b, a, toler)
   //
 [nargout,nargin]=argn();
 
-  if nargin<3,
+  if nargin==3,
     warning("tolerance ignored");
   end
   NUM = b(:)';
diff --git a/macros/residuez.sci b/macros/residuez.sci
index f3a5172..cee301f 100644
--- a/macros/residuez.sci
+++ b/macros/residuez.sci
@@ -47,10 +47,11 @@
 
 
  [nargout,nargin]=argn();
- if nargin<3
+ if nargin==3
      warning("tolerance ignored");
  end
- NUM = B(:)'; DEN = A(:)';
+ NUM = B(:)';
+ DEN = A(:)';
  // Matlab's residue does not return m (since it is implied by p):
  [r,p,f,m]=residue(conj(mtlb_fliplr(NUM)),conj(mtlb_fliplr(DEN)));
  p = 1 ./ p;
-- 
cgit