Add a useful package (from Source forge) for octave

[CreaPhase.git] / octave_packages / secs2d-0.0.8 / METLINES / METLINESdefinepermittivity.m

diff --git a/octave_packages/secs2d-0.0.8/METLINES/METLINESdefinepermittivity.m b/octave_packages/secs2d-0.0.8/METLINES/METLINESdefinepermittivity.m
new file mode 100644 (file)
index 0000000..f240744
--- /dev/null
+++ b/octave_packages/secs2d-0.0.8/METLINES/METLINESdefinepermittivity.m
@@ -0,0 +1,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