35 lines
541 B
Scilab
35 lines
541 B
Scilab
function []=steady_()
|
|
// Copyright (C) 2001 Michel Juillard
|
|
//
|
|
|
|
global ys_
|
|
|
|
x = ys_;
|
|
xlen = xkmin_+xkmax_+1;
|
|
nn = size(iy_,2);
|
|
it_ = ykmin_+1;
|
|
temp = ex_;
|
|
ex_ = ones(xlen,1)*exe_';
|
|
|
|
|
|
[ys_,%check] = solve(fname_+'_fff',x);
|
|
|
|
if %check==0 then
|
|
dyn_disp(' ');
|
|
dyn_disp('STEADY: Stationary state reached.');
|
|
else
|
|
dyn_disp('STEADY: convergence problems');
|
|
end
|
|
|
|
ex_ = temp;
|
|
|
|
// 06/24/01 MJ: steady_ no results printer; steady with printed results
|
|
// 09/26/01 MJ: translated to Scilab, changed function to <logname_>_fff
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|