31 lines
648 B
Matlab
31 lines
648 B
Matlab
|
|
clear all
|
|
clc
|
|
|
|
g=[2 -53 53 0.00 0.00 1 0; % #vertices,v_1x, v_2x, v_1y, v_2y, subdomain_left, subdomain_right
|
|
2 53 83 0 105 1 0;
|
|
2 83 80 105 105 1 0;
|
|
2 80 67.1429 105 66 1 3;
|
|
2 67.1429 50 66 6 1 2;
|
|
2 50 -50 6 6 1 2;
|
|
2 -50 -67.1429 6 66 1 2;
|
|
2 -67.1429 -80 66 105 1 3;
|
|
2 -80 -83 105 105 1 0;
|
|
2 -83 -53 105 0 1 0;
|
|
|
|
% surface between fluid and air
|
|
2 -67.1429 67.1429 66 66 3 2;
|
|
|
|
% top surface
|
|
2 -80 80 105 105 0 3
|
|
]';
|
|
|
|
|
|
[p,e,t] = initmesh(g,'hmax',10);
|
|
pdemesh(p,e,t)
|
|
|
|
|
|
ascii_write_mesh( p, t, e, mfilename);
|
|
|
|
ascii_write_subdomains( p, t, e, mfilename);
|
|
|