subsasgn.m

来自「一些制作正交曲线网格的matlab源程序」· M 代码 · 共 35 行

function theResult = subsasgn(self, theStruct, theValue)

% ps/subsasgn -- Process subscripted references.
%  subsasgn(self, theStruct, theValue) processes
%   assignments on behalf of self, a "ps" object.
 
% Copyright (C) 1999 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without explicit written consent from the
%    copyright owner does not constitute publication.
 
% Version of 09-Dec-1999 01:19:01.
% Updated    09-Dec-1999 01:19:01.

if nargin < 2, help(mfilename), return, end

theType = theStruct(1).type;
theSubs = theStruct(1).subs;
if ~iscell(theSubs), theSubs = {theSubs}; end
theStruct(1) = [];

switch theType
case '.'
	if length(theStruct) < 1
		result = psset(self, theSubs{1}, theValue);
	else
		temp = psget(self, theSubs{1});
		temp = subsasgn(temp, theStruct, theValue);
		result = psset(self, theSubs{1}, temp);
	end
otherwise
end

theResult = result;