2005-02-18 20:54:39 +01:00
|
|
|
% Copyright (C) 2001 Michel Juillard
|
|
|
|
%
|
|
|
|
% function used for dr_algo == 1
|
|
|
|
function ghs2=dr2(ys,dr)
|
|
|
|
global M_
|
|
|
|
|
|
|
|
dr.ys = ys;
|
|
|
|
fh = str2func([M_.fname '_static']);
|
|
|
|
dr.fbias = 2*feval(fh,dr.ys);
|
2006-01-18 17:50:33 +01:00
|
|
|
dr=dr1(dr,0);
|
2005-02-18 20:54:39 +01:00
|
|
|
ghs2 = dr.ghs2;
|