Last change
on this file since 8726 was 8726, checked in by Eric.Larour, 14 years ago |
New exp rotuines.
Fixed loadmodel to include planet class.
|
File size:
753 bytes
|
Line | |
---|
1 | function expsplit(domainoutline)
|
---|
2 | %EXPSPLIT - split exp file into sub-contours
|
---|
3 | %
|
---|
4 | % This routine reads in a domain outline file (Argus format) and plots all the contours
|
---|
5 | % This will create as many files there are contours in the domain, each file will be postfix with _i
|
---|
6 | % where i is the contour name.
|
---|
7 | %
|
---|
8 | % Usage:
|
---|
9 | % expsplit(domainoutline)
|
---|
10 | %
|
---|
11 | % Example:
|
---|
12 | % expsplit('Domain.exp');
|
---|
13 | %
|
---|
14 | % See also EXPMASTER, EXPDOC
|
---|
15 |
|
---|
16 | %check nargin
|
---|
17 | if ~nargin | nargin>1
|
---|
18 | help expsplit
|
---|
19 | error('expsplit error message: bad usage');
|
---|
20 | end
|
---|
21 |
|
---|
22 | [path,root,ext]=fileparts(domainoutline);
|
---|
23 |
|
---|
24 | %Read file:
|
---|
25 | domains=expread(domainoutline,1);
|
---|
26 |
|
---|
27 | %split and write contours:
|
---|
28 | for i=1:length(domains),
|
---|
29 | subdomain=domains(i);
|
---|
30 | expwrite(subdomain,[root '_' num2str(i) ext]);
|
---|
31 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.