Revision 495
(checked in by cbc, 12 years ago)
|
Initial import of Stark code.
|
Line | |
---|
1 |
function [e,x,y,z,b]=breakstruct(fem_grid_struct) |
---|
2 |
% BREAKSTRUCT - split fem_grid_struct into separate components |
---|
3 |
% |
---|
4 |
% BREAKSTRUCT returns the basic FEM domain arrays |
---|
5 |
% to the calling workspace by breaking down the |
---|
6 |
% input fem_grid_struct. |
---|
7 |
% |
---|
8 |
% All arguments are required. |
---|
9 |
% |
---|
10 |
% INPUT : fem_grid_struct - (from LOADGRID, see FEM_GRID_STRUCT) |
---|
11 |
% |
---|
12 |
% OUTPUT : e - node connectivity list (triangular) |
---|
13 |
% x - x-horizontal node coordinates |
---|
14 |
% y - y-horizontal node coordinates |
---|
15 |
% z - bathymetry list |
---|
16 |
% b - boundary segment list |
---|
17 |
% |
---|
18 |
% CALL : >> [e,x,y,z,b]=breakstruct(fem_grid_struct); |
---|
19 |
% |
---|
20 |
|
---|
21 |
|
---|
22 |
if ~is_valid_struct(fem_grid_struct) |
---|
23 |
error(' Argument to BREAKSTRUCT must be a valid fem_grid_struct.') |
---|
24 |
end |
---|
25 |
|
---|
26 |
e=fem_grid_struct.e; |
---|
27 |
x=fem_grid_struct.x; |
---|
28 |
y=fem_grid_struct.y; |
---|
29 |
z=fem_grid_struct.z; |
---|
30 |
b=fem_grid_struct.bnd; |
---|
31 |
|
---|
32 |
|
---|