octave_packages/secs2d-0.0.8/METLINES/METLINESdefinepermittivity.m

   1 function epsilon = METLINESdefinepermittivity(omesh,basevalue,varargin);
   2
   3 ##
   4 ##
   5 ## epsilon = METLINESdefinepermittivity(omesh,basevalue,[regions1, value1,...]);
   6 ##
   7 ##
   8
   9 load (file_in_path(path,'constants.mat'));
  10 epsilon = e0*basevalue*ones(size(omesh.t(1,:)))';
  11
  12 for ii=1:floor(length(varargin)/2)
  13   [ignore1,ignore2,elements]=Usubmesh(omesh,[],varargin{2*ii-1},1);
  14   epsilon(elements) = varargin{2*ii}*e0;
  15 end