Add a useful package (from Source forge) for octave

[CreaPhase.git] / octave_packages / secs2d-0.0.8 / Utilities / Umshcreatemesh.m

diff --git a/octave_packages/secs2d-0.0.8/Utilities/Umshcreatemesh.m b/octave_packages/secs2d-0.0.8/Utilities/Umshcreatemesh.m
new file mode 100644 (file)
index 0000000..a00986a
--- /dev/null
+++ b/octave_packages/secs2d-0.0.8/Utilities/Umshcreatemesh.m
@@ -0,0 +1,17 @@
+function omesh=Umshcreatemesh(geometry,scalefactor,refine);
+
+##
+##
+## omesh=Umshcreatemesh(geometry,scalefactor);
+##
+##
+
+if nargin==2
+  refine =1;
+end
+
+system(["gmsh -format msh1 -2 -scale " num2str(scalefactor) " -clscale ",...
+       num2str(refine) " " geometry ".geo"]);
+
+omesh= Umsh2pdetool(geometry);
+omesh = Umeshproperties(omesh);