params_to_w.m

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

function W=params_to_W(P,N_in);
%W=params_to_W(P,N_in);
%decodes square W matrix from 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
	W=reshape(P,sqrt(numel(P)),[]);
else
	N=round(max(roots([1 -N_in -numel(P)])));
	W=zeros(N);
	W((N_in+1):end,:)=reshape(P,N-N_in,N);
end