Commit 7c8e83d7 authored by Turnhout, M.C. van's avatar Turnhout, M.C. van
Browse files

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!
Please register or to comment