w_to_param.m

来自「介绍如何用较复杂的方法去优化对负载具有感知特性的“黑匣子”模型的神经网络控制。」· M 代码 · 共 28 行

function P=W_to_param(W,N_in);
%P=W_to_param(W,N_in);
%encodes W in parameter vector

%    Copyright Travis Wiens 2008
%
%    This program 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.
%
%    This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
%
%    If you would like to request a commerical (or other) license, please
%    feel free to contact [e-mail]

if nargin<2
	P=reshape(W,1,[]);
else
	P=reshape(W((N_in+1):end,:),1,[]);
end