0001 function varargout = setgolden(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034 Family = '';
0035 FileName = '';
0036
0037 if nargin == 0
0038 DirName = getfamilydata('Directory','BPMData');
0039 [FileName, DirName] = uigetfile([DirName,filesep,'BPMGolden*.mat'], 'Select a data file:');
0040
0041 if FileName == 0
0042 return;
0043 end
0044
0045 FileName = [DirName, FileName];
0046 end
0047
0048
0049 if nargin >= 1
0050 if iscell(varargin{1})
0051 Family = varargin{1};
0052 elseif isstruct(varargin{1})
0053 Family = {varargin{1}.FamilyName};
0054 varargout{1} = varargin{1};
0055 elseif isfamily(varargin{1})
0056 Family{1} = {varargin{1}};
0057 varargout{1}.FamilyName = varargin{1};
0058 elseif isstr(varargin{1})
0059 FileName = varargin{1};
0060 else
0061 error('Input #1 unknown type: Family or Filename expected.');
0062 end
0063 end
0064
0065 if nargin >= 2
0066 if isstruct(varargin{2})
0067 Family = [Family; {varargin{2}.FamilyName}];
0068 varargout{2} = varargin{2};
0069 elseif isstr(varargin{2})
0070 FileName = varargin{2};
0071 elseif isnumeric(varargin{2})
0072 varargout{1}.Data = varargin{2};
0073 elseif isempty(varargin{2})
0074
0075 DirName = getfamilydata('Directory','DataRoot');
0076 [FileName, DirName] = uigetfile([DirName,filesep,'*.mat'], 'Select data file:');
0077 if FileName == 0
0078 return;
0079 end
0080 FileName = [DirName, FileName];
0081 else
0082 error('Input #2 unknown type: Data or Filename expected.');
0083 end
0084 end
0085
0086
0087 DeviceListFlag = 0;
0088 if nargin >= 3
0089 if isstruct(varargin{3})
0090 Family = [Family; {varargin{3}.FamilyName}];
0091 varargout{3} = varargin{3};
0092 elseif isnumeric(varargin{3})
0093 DeviceList = varargin{3};
0094 if ~isfield(varargin{1}, 'DeviceList')
0095
0096
0097
0098 varargout{1}.DeviceList = varargin{3};
0099 end
0100 DeviceListFlag = 1;
0101 else
0102 error('Input #3 unknown type: DeviceList expected.');
0103 end
0104 end
0105
0106
0107
0108 for i = 4:nargin
0109 if isstruct(varargin{i})
0110 Family = [Family; {varargin{i}.FamilyName}];
0111 varargout{i} = varargin{i};
0112 end
0113 end
0114
0115
0116 if ~isempty(FileName)
0117 if isempty(Family)
0118 Family = findmemberof('BPM');
0119 if isempty(Family)
0120 Family = {gethbpmfamily; getvbpmfamily};
0121 end
0122 end
0123 end
0124
0125
0126 for i = 1:length(Family)
0127 if ~isempty(FileName)
0128 if DeviceListFlag
0129 varargout{i} = getdata(Family{i}, DeviceList, 'Struct', FileName);
0130 else
0131 varargout{i} = getdata(Family{i}, 'Struct', FileName);
0132 end
0133 end
0134
0135 if DeviceListFlag
0136 [iFound, iNotFound] = findrowindex(DeviceList, varargout{i}.DeviceList);
0137 if ~isempty(iNotFound)
0138 error('Not all the devices are in the data set.');
0139 end
0140 varargout{i}.Data = varargout{i}.Data(iFound,:);
0141 varargout{i}.DeviceList = varargout{i}.DeviceList(iFound,:);
0142 end
0143
0144 if size(varargout{i}.Data,1) ~= size(varargout{i}.DeviceList,1)
0145 error('The size of the data does not equal the number of devices.');
0146 end
0147
0148 setfamilydata(varargout{i}.Data, varargout{i}.FamilyName, 'Golden', varargout{i}.DeviceList);
0149 end