Overview
Comment:Initial revision
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 00739ea236d649735271d6de17d208363217116a6f82defdcf1c678145176a7e
User & Date: gawthrop@users.sourceforge.net on 2000-03-29 11:52:56
Other Links: branch diff | manifest | tags
Context
2000-04-04
13:09:51
*** empty log message *** check-in: 42dc72d63a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-03-29
11:52:56
Initial revision check-in: 00739ea236 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:46:22
Tidied up and reverted to \ version check-in: 0b05b630e5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Added mttroot/mtt/bin/trans/m/nozeros.m version [e7ac91823e].

























1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
function v = nozeros (v0,tol)

  ## usage:  v = nozeros (v0,tol)
  ##
  ## Zaps the zeros in a vector with tolerance tol (defaults to zero)

  ## Copyright (C) 2000 by Peter J. Gawthrop

  if nargin<2
    tol=eps;
  endif
  
  
  v = [];
  j=0;
  for i = 1:length(v0)
    if abs(v0(i))>tol
      j=j+1;
      v(1,j) = v0(i);
    end;
  end;
  

endfunction


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]