/usr/share/octave/packages/secs2d-0.0.8/METLINES/METLINESdefinepermittivity.m is in octave-secs2d 0.0.8-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | function epsilon = METLINESdefinepermittivity(omesh,basevalue,varargin);
##
##
## epsilon = METLINESdefinepermittivity(omesh,basevalue,[regions1, value1,...]);
##
##
load (file_in_path(path,'constants.mat'));
epsilon = e0*basevalue*ones(size(omesh.t(1,:)))';
for ii=1:floor(length(varargin)/2)
[ignore1,ignore2,elements]=Usubmesh(omesh,[],varargin{2*ii-1},1);
epsilon(elements) = varargin{2*ii}*e0;
end
|