Mercurial > forge

annotate extra/ncArray/inst/ncData/ncData.m @ 10482:c81dbbe85a49 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(none)
author abarth93
date Fri, 22 Jun 2012 15:13:45 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10482
abarth93
parents:
diff changeset
1 % data = ncData(filename,varname)
abarth93
parents:
diff changeset
2 % data = ncData(var,dims,coord)
abarth93
parents:
diff changeset
3 % data with coordinate values
abarth93
parents:
diff changeset
4
abarth93
parents:
diff changeset
5 function retval = ncData(varargin)
abarth93
parents:
diff changeset
6
abarth93
parents:
diff changeset
7 if ischar(varargin{1})
abarth93
parents:
diff changeset
8 filename = varargin{1};
abarth93
parents:
diff changeset
9 varname = varargin{2};
abarth93
parents:
diff changeset
10 var = ncBaseArray(filename,varname);
abarth93
parents:
diff changeset
11 [dims,coord] = nccoord(cached_decompress(filename),varname);
abarth93
parents:
diff changeset
12
abarth93
parents:
diff changeset
13 for i=1:length(coord)
abarth93
parents:
diff changeset
14 coord(i).val = ncBaseArray(filename,coord(i).name);
abarth93
parents:
diff changeset
15 end
abarth93
parents:
diff changeset
16 else
abarth93
parents:
diff changeset
17 var = varargin{1};
abarth93
parents:
diff changeset
18 dims = varargin{2};
abarth93
parents:
diff changeset
19 coord = varargin{3};
abarth93
parents:
diff changeset
20 end
abarth93
parents:
diff changeset
21
abarth93
parents:
diff changeset
22 self.var = var;
abarth93
parents:
diff changeset
23 self.dims = dims;
abarth93
parents:
diff changeset
24 self.nd = length(self.dims);
abarth93
parents:
diff changeset
25 self.coord = coord;
abarth93
parents:
diff changeset
26
abarth93
parents:
diff changeset
27 retval = class(self,'ncData',BaseArray(size(self.var)));
abarth93
parents:
diff changeset
28
abarth93
parents:
diff changeset
29
abarth93
parents:
diff changeset
30