task8

ex3/seq/generate_mesh/L_shape.m

@@ -0,0 +1,26 @@
+% Copyright: Reza Mokhtari
+clear all
+clc
+%% plot L-shape
+g=[2 0 2 0 0 1 0;
+   2 2 2 0 1 1 0;
+   2 2 1 1 1 1 0;
+   2 1 1 1 2 1 0;
+   2 1 0 2 2 1 0;
+   2 0 0 2 0 1 0]';
+[p,e,t] = initmesh(g,'hmax',0.5); 
+pdemesh(p,e,t)
+
+%% GH
+% output from <https://de.mathworks.com/help/pde/ug/initmesh.html initmesh>
+%
+% coordinates  p: [2][nnode]
+% connectivity t: [4][nelem]   with  t(4,:) are the subdomain numbers
+% edges        e: [7][nedges]  boundary edges
+%                              e([1,2],:) - start/end vertex of edge
+%                              e([3,4],:) - start/end values
+%                              e(5,:)     - segment number
+%                              e([6,7],:) - left/right subdomain
+
+% flatpak run org.octave.Octave <filename>
+ascii_write_mesh( p, t, e, mfilename);