29 lines
672 B
Scilab
29 lines
672 B
Scilab
|
function []=dynare(fname)
|
||
|
// Copyright (C) 2001 Michel Juillard
|
||
|
//
|
||
|
// DYNARE ( 'Filename' )
|
||
|
// This command runs the .MOD file specified in Filename.
|
||
|
// Filename could be enter with or without the .MOD extension.
|
||
|
|
||
|
if ~(type(fname)==10) then
|
||
|
error('The argument in DYNARE must be a text string.');
|
||
|
end
|
||
|
k = strindex(fname,'.')
|
||
|
if k then
|
||
|
fname = part(fname,1:k-1);
|
||
|
end
|
||
|
|
||
|
command = 'e:/dynare/scilab/dynare_s '+fname;
|
||
|
|
||
|
disp(command);
|
||
|
|
||
|
unix_w(command);
|
||
|
|
||
|
exec(fname+'.sci',-1) ;
|
||
|
|
||
|
endfunction
|
||
|
// MJ 2/9/99: replace clear function by clear ff_
|
||
|
// MJ 4/7/00: change the path of dynare_m
|
||
|
// MJ 02/26/01: replaced local variable x by fname
|
||
|
// MJ 09/14/01: Scilab translation
|