26 lines
678 B
Scilab
26 lines
678 B
Scilab
function [y]=ff2_(x)
|
|
y=[];
|
|
// Copyright (C) 2001 Michel Juillard
|
|
//
|
|
global('np_','endo_nbr','nf_','ex_','it_','ykmin_','xkmin_','exo_nbr','jp_','jf_','kf_','exe_');
|
|
y = zeros(np_+endo_nbr+nf_,1);
|
|
%v = x(1:np_)
|
|
y(1:np_,1) = %v(:);
|
|
ex_(it_-ykmin_+xkmin_,:) = x(np_+1:np_+exo_nbr)';
|
|
|
|
//!! Unknown function h1_ ,the original calling sequence is used
|
|
%v = h1_(y(1:np_),ex_(it_-ykmin_+xkmin_,:)')
|
|
y(np_+jp_,1) = %v(:);
|
|
|
|
//!! Unknown function g1_ ,the original calling sequence is used
|
|
%v = g1_(y(1:np_),ex_(it_-ykmin_+xkmin_,:)')
|
|
y(np_+jf_,1) = %v(:);
|
|
|
|
//!! Unknown function g1_ ,the original calling sequence is used
|
|
%v = g1_(y(np_+jp_),exe_)
|
|
y(kf_,1) = %v(:);
|
|
y = ff_(y);
|
|
|
|
|
|
|