Mercurial > hg > octave-nkf

diff scripts/audio/lin2mu.m @ 2325:b5568c31ee2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-15 22:20:21 by jwe]
author jwe
date Mon, 15 Jul 1996 22:20:21 +0000
parents 5ca126254d15
children 8b262e771614
line wrap: on
line diff
--- a/scripts/audio/lin2mu.m
+++ b/scripts/audio/lin2mu.m
@@ -27,7 +27,7 @@
 ## Adapted-By: jwe
 
 function y = lin2mu (x)
-  
+
   if (nargin != 1)
     usage ("y = lin2mu (x)");
   endif
@@ -35,7 +35,7 @@
   if (! is_vector (x))
     error ("lin2mu: x must be a vector");
   endif
-  
+
   ## transform 8-bit format to 16-bit
   if (max (abs (x)) <= 128)
     x = 256 .* x;
@@ -45,7 +45,7 @@
   sig = sign(x) + (x == 0);
 
   ## take absolute value of x, but force it to be smaller than 32636;
-  ## add bias 
+  ## add bias
   x = min (abs (x), 32635 * ones (size (x))) + 132;
 
   ## find exponent and fraction of bineary representation