fcn.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 38 行

function [err,area,leng]=fcn(Npara,xpassin,currf,form_tar,area,leng)
%cost function evaluation

global main_h main1_h;
art_set(currf,1) = xpassin(1);
art_set(currf,2) = xpassin(2);
art_set(currf,3) = xpassin(3);
art_set(currf,4) = xpassin(4);
art_set(currf,5) = xpassin(5);
art_set(currf,6) = xpassin(6);
art_set(currf,7) = xpassin(7);
art_set(currf,9) = xpassin(8);

if Npara==8 
	art_set(currf,8)=0;
 	wh=1.34651;
        g1k=0.82081;
        hk1=1.3431;
elseif Npara==9
	art_set(currf,8) = xpassin(9);
 	wh=1.34651;
        g1k=0.82081;
        hk1=1.3431;
elseif Npara==11
	art_set(currf,8)=0;
	wh = 1.04651+0.0006*xpassin(9);
	hk1 = 1.2431+0.0002*xpassin(10);
	g1k = 0.72+0.0002*xpassin(11);
elseif Npara==12
	art_set(currf,8) = xpassin(9);
	wh = 1.04651+0.0006*xpassin(10);
	hk1 = 1.2431+0.0002*xpassin(11);
	g1k = 0.72+0.0002*xpassin(12);
end
velum_set = 0;
[err,area(currf,:),leng(currf,:)] = erg5(art_set,wh,hk1,g1k,currf,form_tar);