www.gusucode.com > 基于lingo求所以解,对潮流计算求出所有解 > matpower4.1/set_reorder.m
function A = set_reorder(A, B, idx, dim) %SET_REORDER Assigns B to A with one of the dimensions of A indexed. % % A = SET_REORDER(A, B, IDX, DIM) % % Returns A after doing A(:, ..., :, IDX, :, ..., :) = B % where DIM determines in which dimension to place the IDX. % % See also GET_REORDER. % MATPOWER % $Id: set_reorder.m,v 1.5 2010/04/26 19:45:25 ray Exp $ % by Ray Zimmerman, PSERC Cornell % Copyright (c) 2009-2010 by Power System Engineering Research Center (PSERC) % % This file is part of MATPOWER. % See http://www.pserc.cornell.edu/matpower/ for more info. % % MATPOWER is free software: you can redistribute it and/or modify % it under the terms of the GNU General Public License as published % by the Free Software Foundation, either version 3 of the License, % or (at your option) any later version. % % MATPOWER is distributed in the hope that it will be useful, % but WITHOUT ANY WARRANTY; without even the implied warranty of % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the % GNU General Public License for more details. % % You should have received a copy of the GNU General Public License % along with MATPOWER. If not, see <http://www.gnu.org/licenses/>. % % Additional permission under GNU GPL version 3 section 7 % % If you modify MATPOWER, or any covered work, to interface with % other modules (such as MATLAB code and MEX-files) available in a % MATLAB(R) or comparable environment containing parts covered % under other licensing terms, the licensors of MATPOWER grant % you additional permission to convey the resulting work. ndim = ndims(A); s.type = '()'; s.subs = cell(1, ndim); for k = 1:ndim if k == dim s.subs{k} = idx; else s.subs{k} = ':'; end end A = subsasgn(A, s, B);