33 lines
875 B
Matlab
33 lines
875 B
Matlab
% Square:
|
|
% flatpak run org.octave.Octave <filename>
|
|
% or
|
|
% octave --no-window-system --no-gui -qf <filename>
|
|
|
|
clear all
|
|
clc
|
|
|
|
[ g ] = generate_rectangle_subdomains( 8, 8 )
|
|
|
|
[p,e,t] = initmesh(g,'hmax',0.1);
|
|
pdemesh(p,e,t)
|
|
axis equal
|
|
box off
|
|
|
|
%% 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
|
|
|
|
ascii_write_mesh( p, t, e, mfilename);
|
|
|
|
ascii_write_subdomains( p, t, e, mfilename);
|
|
|
|
|
|
% tmp=t(1:3,:)
|
|
|