1 |
% GRIDINFO - display info about fem_grid_struct |
---|
2 |
% |
---|
3 |
% GRIDINFO(fem_grid_struct) displays information |
---|
4 |
% about the grid structure pointed to by the |
---|
5 |
% input argument fem_grid_struct. GRIDINFO lists |
---|
6 |
% each field and the size of its contents. This function |
---|
7 |
% amounts to typing WHOS on a valid structure. |
---|
8 |
% |
---|
9 |
% GRIDINFO, with no input argument, checks to see |
---|
10 |
% if the global DOMAIN has been set. If so, it |
---|
11 |
% describes the fem_grid_struct pointed to by DOMAIN. |
---|
12 |
% |
---|
13 |
% CALL - GRIDINFO(fem_grid_struct) |
---|
14 |
% GRIDINFO |
---|
15 |
% |
---|
16 |
% SEE ALSO - FEM_GRID_STRUCT |
---|
17 |
% |
---|
18 |
% |
---|
19 |
% Written by : Brian O. Blanton |
---|
20 |
% Summer 1997 |
---|
21 |
% |
---|
22 |
function gridinfo(fem_grid_struct) |
---|
23 |
|
---|
24 |
|
---|
25 |
% make sure this is atleast MATLAB version 5.0.0 |
---|
26 |
% |
---|
27 |
vers=version; |
---|
28 |
if vers(1)<5 |
---|
29 |
disp('??? Error using ==>> GRIDINFO '); |
---|
30 |
disp('GRIDINFO REQUIRES!! MATLAB version 5.0.0 or later.'); |
---|
31 |
disp('Sorry, but this is terminal.'); |
---|
32 |
return |
---|
33 |
end |
---|
34 |
|
---|
35 |
fem_grid_struct |
---|
36 |
|
---|
37 |
disp(['Min,Max x= ' num2str(min(fem_grid_struct.x)) ' ' num2str(max(fem_grid_struct.x))]) |
---|
38 |
disp(['Min,Max y = ' num2str(min(fem_grid_struct.y)) ' ' num2str(max(fem_grid_struct.y))]) |
---|
39 |
disp(['Min,Max z = ' num2str(min(fem_grid_struct.z)) ' ' num2str(max(fem_grid_struct.z))]) |
---|
40 |
|
---|
41 |
% |
---|
42 |
% Brian O. Blanton |
---|
43 |
% Curriculum in Marine Sciences |
---|
44 |
% 15-1A Venable Hall |
---|
45 |
% CB# 3300 |
---|
46 |
% University of North Carolina |
---|
47 |
% Chapel Hill, NC |
---|
48 |
% 27599-3300 |
---|
49 |
% |
---|
50 |
% 919-962-4466 |
---|
51 |
% blanton@marine.unc.edu |
---|
52 |
% |
---|
53 |
% Summer 1997 |
---|
54 |
% |
---|
55 |
|
---|