octave_packages/secs2d-0.0.8/Utilities/Umshcreatemesh.m

   1 function omesh=Umshcreatemesh(geometry,scalefactor,refine);
   2
   3 ##
   4 ##
   5 ## omesh=Umshcreatemesh(geometry,scalefactor);
   6 ##
   7 ##
   8
   9 if nargin==2
  10   refine =1;
  11 end
  12
  13 system(["gmsh -format msh1 -2 -scale " num2str(scalefactor) " -clscale ",...
  14         num2str(refine) " " geometry ".geo"]);
  15
  16 omesh= Umsh2pdetool(geometry);
  17 omesh = Umeshproperties(omesh);