13 lines
355 B
Scilab
13 lines
355 B
Scilab
|
function [y]=fx_(x)
|
||
|
y=[];
|
||
|
// Copyright (C) 2001 Michel Juillard
|
||
|
//
|
||
|
global('ys_','ykmin_','ykmax_','it_','iy_','xkmin_','ex_');
|
||
|
|
||
|
//!! Unknown function repmat ,the original calling sequence is used
|
||
|
y = repmat(ys_,ykmin_+ykmax_+1,1);
|
||
|
iyr0 = matrix(find(matrix(iy_',size(iy_,1)*size(iy_,2),1)),1,-1);
|
||
|
y = y(iyr0);
|
||
|
ex_(it_+xkmin_-ykmin_,:) = x';
|
||
|
y = ff_(y);
|