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: |
00739ea236d649735271d6de17d20836 |
| 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
|