File: METLINESdefinepermittivity.m

package info (click to toggle)
octave-secs2d 0.0.8-5
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 696 kB
  • ctags: 93
  • sloc: cpp: 275; makefile: 78; sh: 4
file content (15 lines) | stat: -rw-r--r-- 410 bytes parent folder | download | duplicates (7) 
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