remove some redundant files

parent 5820eb4c
 % FEM Toolbox miscellaneous utilities. % % count - Unique elements in a matrix and their frequency % iscolumn - Checks if a matrix is a column vector % lump - Lumps a matrix (row sum of a matrix) % reverse - Has comparable effect as FLIPUD and FLIPLR % unblank - Searches in a string for blanks and deletes them % unique - Returns all different values in a matrix % Copyright (c) Philips Electronics N.V. 1994 % part of mlfem_nac: https://gitlab.tue.nl/STEM/mlfem_nac
 function [aa,freq] = count(a); if isempty(a) aa = []; freq = []; return end if nargin<2 choice = 0; end [m,n] = size(a); if max([m,n]) > 1 a = reshape(a,m*n,1); end aa = sort(a); ii = find(diff(aa)); if iscolumn(ii) ii = [ 1 ; ii+ones(size(ii))]; freq = diff([ii ; n*m+1]); else ii = [ 1 ii+ones(size(ii))]; freq = diff([ii n*m+1]); end %keyboard aa = aa(ii); % part of mlfem_nac: https://gitlab.tue.nl/STEM/mlfem_nac
 function iscol = iscolumn(mat) [m,n] = size(mat); if n==1 iscol = 1; else iscol = 0; end; % part of mlfem_nac: https://gitlab.tue.nl/STEM/mlfem_nac
 function integer = isinteger(number); % integer = isinteger(number); % returns 1 if NUMBER is integer-valued integer = ( (number - round(number)) == 0 ); % part of mlfem_nac: https://gitlab.tue.nl/STEM/mlfem_nac
 Contents.m count.m iscolumn.m lump.m reverse.m unblank.m unique.m
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!