1208 lines
40 KiB
C++
1208 lines
40 KiB
C++
/*
|
|
* Copyright (C) 2007-2008 Dynare Team
|
|
*
|
|
* This file is part of Dynare.
|
|
*
|
|
* Dynare is free software: you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* Dynare is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with Dynare. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include "Interpreter.hh"
|
|
|
|
Interpreter::Interpreter(double *params_arg, double *y_arg, double *ya_arg, double *x_arg, double *direction_arg, int y_size_arg,
|
|
int nb_row_x_arg, int nb_row_xd_arg, int periods_arg, int y_kmin_arg, int y_kmax_arg,
|
|
int maxit_arg_, double solve_tolf_arg, int size_of_direction_arg, double slowc_arg, int y_decal_arg, double markowitz_c_arg,
|
|
string &filename_arg)
|
|
{
|
|
params=params_arg;
|
|
y=y_arg;
|
|
ya=ya_arg;
|
|
x=x_arg;
|
|
direction=direction_arg;
|
|
y_size=y_size_arg;
|
|
nb_row_x=nb_row_x_arg;
|
|
nb_row_xd=nb_row_xd_arg;
|
|
periods=periods_arg;
|
|
y_kmax=y_kmax_arg;
|
|
y_kmin=y_kmin_arg;
|
|
maxit_=maxit_arg_;
|
|
solve_tolf=solve_tolf_arg;
|
|
size_of_direction=size_of_direction_arg;
|
|
slowc=slowc_arg;
|
|
y_decal=y_decal_arg;
|
|
markowitz_c=markowitz_c_arg;
|
|
filename=filename_arg;
|
|
//GaussSeidel=true;
|
|
}
|
|
|
|
double
|
|
Interpreter::pow1(double a, double b)
|
|
{
|
|
double r=pow_(a,b);
|
|
if (isnan(r) || isinf(r))
|
|
{
|
|
max_res=res1=res2=r;
|
|
return(r);
|
|
}
|
|
else
|
|
return r;
|
|
}
|
|
|
|
|
|
void
|
|
Interpreter::compute_block_time() /*throw(EvalException)*/
|
|
{
|
|
int var, lag, op;
|
|
double v1, v2;
|
|
char cc;
|
|
bool go_on=true;
|
|
double *ll;
|
|
while (go_on)
|
|
{
|
|
//mexPrintf("it_=%d",it_);
|
|
switch (cc=get_code_char)
|
|
{
|
|
case FLDV :
|
|
//load a variable in the processor
|
|
#ifdef DEBUGC
|
|
mexPrintf("FLDV");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
switch (get_code_char)
|
|
{
|
|
case eParameter :
|
|
var=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf(" params[%d]=%f\n",var,params[var]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(params[var]);
|
|
break;
|
|
case eEndogenous :
|
|
var=get_code_int
|
|
lag=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf(" y[%d]=%f\n",(it_+lag)*y_size+var,y[(it_+lag)*y_size+var]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(y[(it_+lag)*y_size+var]);
|
|
break;
|
|
case eExogenous :
|
|
var=get_code_int
|
|
lag=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf(" x[%d]=%f\n",it_+lag+var*nb_row_x,x[it_+lag+var*nb_row_x]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(x[it_+lag+var*nb_row_x]);
|
|
break;
|
|
case eExogenousDet :
|
|
var=get_code_int
|
|
lag=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf(" x(det)[%d]=%f\n",it_+lag+var*nb_row_xd,x[it_+lag+var*nb_row_xd]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(x[it_+lag+var*nb_row_xd]);
|
|
break;
|
|
}
|
|
break;
|
|
case FLDT :
|
|
//load a temporary variable in the processor
|
|
var=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("FLDT %d\n",var);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(T[var*(periods+y_kmin+y_kmax)+it_]);
|
|
break;
|
|
case FLDU :
|
|
//load u variable in the processor
|
|
#ifdef DEBUGC
|
|
mexPrintf("FLDU\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
var=get_code_int
|
|
var+=Per_u_;
|
|
Stack.push(u[var]);
|
|
break;
|
|
case FLDR :
|
|
//load u variable in the processor
|
|
#ifdef DEBUGC
|
|
mexPrintf("FLDR\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
var=get_code_int
|
|
Stack.push(r[var]);
|
|
break;
|
|
case FLDZ :
|
|
//load 0 in the processor
|
|
#ifdef DEBUGC
|
|
mexPrintf("FLDZ\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(0);
|
|
break;
|
|
case FLDC :
|
|
//load a numerical constant in the processor
|
|
/*asm("fld\n\t"
|
|
"fstp %%st" : "=t" (ll) : "0" ((double)(*Code)));*/
|
|
ll=get_code_pdouble
|
|
#ifdef DEBUGC
|
|
mexPrintf("FLDC %f\n",*ll);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.push(*ll);
|
|
break;
|
|
case FSTPV :
|
|
//load a variable in the processor
|
|
#ifdef DEBUGC
|
|
mexPrintf("FSTPV\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
switch (get_code_char)
|
|
{
|
|
case eParameter :
|
|
var=get_code_int
|
|
params[var] = Stack.top();
|
|
Stack.pop();
|
|
break;
|
|
case eEndogenous :
|
|
var=get_code_int
|
|
lag=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("y[%d(it_=%d, lag=%d, y_size=%d, var=%d)](%d)=",(it_+lag)*y_size+var,it_, lag, y_size, var, Stack.size());
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
y[(it_+lag)*y_size+var] = Stack.top();
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f\n",y[(it_+lag)*y_size+var]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.pop();
|
|
break;
|
|
case eExogenous :
|
|
var=get_code_int
|
|
lag=get_code_int
|
|
x[it_+lag+var*nb_row_x] = Stack.top();
|
|
Stack.pop();
|
|
break;
|
|
case eExogenousDet :
|
|
var=get_code_int
|
|
lag=get_code_int
|
|
x[it_+lag+var*nb_row_xd] = Stack.top();
|
|
Stack.pop();
|
|
break;
|
|
}
|
|
break;
|
|
case FSTPT :
|
|
//load a temporary variable in the processor
|
|
var=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("FSTPT T[(var=%d, it_=%d, periods=%d, y_kmin=%d, y_kmax=%d)%d]=", var, it_, periods, y_kmin, y_kmax, var*(periods+y_kmin+y_kmax)+it_);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
T[var*(periods+y_kmin+y_kmax)+it_] = Stack.top();
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f\n",T[var*(periods+y_kmin+y_kmax)+it_]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.pop();
|
|
break;
|
|
case FSTPU :
|
|
//load u variable in the processor
|
|
var=get_code_int
|
|
var+=Per_u_;
|
|
#ifdef DEBUGC
|
|
mexPrintf("FSTPU u[%d]",var);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
u[var] = Stack.top();
|
|
#ifdef DEBUGC
|
|
mexPrintf("=%f\n",u[var]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.pop();
|
|
break;
|
|
case FSTPR :
|
|
//load u variable in the processor
|
|
var=get_code_int
|
|
r[var] = Stack.top();
|
|
#ifdef DEBUGC
|
|
mexPrintf("FSTPR residual[%d]=%f\n",var,r[var]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.pop();
|
|
break;
|
|
case FSTPG :
|
|
//load u variable in the processor
|
|
var=get_code_int
|
|
g1[var] = Stack.top();
|
|
#ifdef DEBUGC
|
|
mexPrintf("FSTPG g1[%d)=%f\n",var,g1[var]);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Stack.pop();
|
|
break;
|
|
case FBINARY :
|
|
#ifdef DEBUGC
|
|
mexPrintf("FBINARY\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
op=get_code_int
|
|
v2=Stack.top();
|
|
Stack.pop();
|
|
v1=Stack.top();
|
|
Stack.pop();
|
|
switch (op)
|
|
{
|
|
case oPlus:
|
|
Stack.push(v1 + v2);
|
|
#ifdef DEBUGC
|
|
mexPrintf("+\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oMinus:
|
|
Stack.push(v1 - v2);
|
|
#ifdef DEBUGC
|
|
mexPrintf("-\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oTimes:
|
|
Stack.push(v1 * v2);
|
|
#ifdef DEBUGC
|
|
mexPrintf("*\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oDivide:
|
|
Stack.push(v1 / v2);
|
|
#ifdef DEBUGC
|
|
mexPrintf("/\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oLess:
|
|
Stack.push(double(v1<v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f < %f\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oGreater:
|
|
Stack.push(double(v1>v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f > %f\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oLessEqual:
|
|
Stack.push(double(v1<=v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f <= %f\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oGreaterEqual:
|
|
Stack.push(double(v1>=v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f >= %f\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oEqualEqual:
|
|
Stack.push(double(v1==v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f == %f\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oDifferent:
|
|
Stack.push(double(v1!=v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("%f > %f\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oPower:
|
|
Stack.push(pow1(v1, v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("pow(%f, %f)\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oMax:
|
|
Stack.push(max(v1, v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("max(%f, %f)\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oMin:
|
|
Stack.push(min(v1, v2));
|
|
#ifdef DEBUGC
|
|
mexPrintf("min(%f, %f)\n",v1,v2);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oEqual:
|
|
default:
|
|
/*throw EvalException();*/
|
|
;
|
|
}
|
|
break;
|
|
case FUNARY :
|
|
#ifdef DEBUGC
|
|
mexPrintf("FUNARY\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
op=get_code_int
|
|
v1=Stack.top();
|
|
Stack.pop();
|
|
switch (op)
|
|
{
|
|
case oUminus:
|
|
Stack.push(-v1);
|
|
#ifdef DEBUGC
|
|
mexPrintf("-\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oExp:
|
|
Stack.push(exp(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("exp\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oLog:
|
|
Stack.push(log(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("log\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oLog10:
|
|
Stack.push(log10(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("log10\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oCos:
|
|
Stack.push(cos(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("cos\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oSin:
|
|
Stack.push(sin(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("sin\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oTan:
|
|
Stack.push(tan(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("tan\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oAcos:
|
|
Stack.push(acos(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("acos\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oAsin:
|
|
Stack.push(asin(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("asin\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oAtan:
|
|
Stack.push(atan(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("atan\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oCosh:
|
|
Stack.push(cosh(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("cosh\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oSinh:
|
|
Stack.push(sinh(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("sinh\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oTanh:
|
|
Stack.push(tanh(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("tanh\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oAcosh:
|
|
Stack.push(acosh(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("acosh\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oAsinh:
|
|
Stack.push(asinh(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("asinh\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oAtanh:
|
|
Stack.push(atanh(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("atanh\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
case oSqrt:
|
|
Stack.push(sqrt(v1));
|
|
#ifdef DEBUGC
|
|
mexPrintf("sqrt\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
break;
|
|
default:
|
|
/*throw EvalException();*/
|
|
;
|
|
}
|
|
break;
|
|
case FCUML :
|
|
#ifdef DEBUGC
|
|
mexPrintf("FCUML\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
v1=Stack.top();
|
|
Stack.pop();
|
|
v2=Stack.top();
|
|
Stack.pop();
|
|
Stack.push(v1+v2);
|
|
break;
|
|
case FENDBLOCK :
|
|
//it's the block end
|
|
#ifdef DEBUGC
|
|
mexPrintf("FENDBLOCK\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
//Block[Block_Count].end=get_code_pos;
|
|
go_on=false;
|
|
break;
|
|
case FENDEQU :
|
|
#ifdef DEBUGC
|
|
mexPrintf("FENDEQU\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
/*if (GaussSeidel)
|
|
return;*/
|
|
break;
|
|
case FOK :
|
|
#ifdef DEBUGC
|
|
mexPrintf("FOK\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
op=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("var=%d\n",op);
|
|
#endif
|
|
if (Stack.size()>0)
|
|
{
|
|
mexPrintf("error: Stack not empty!\n");
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
break;
|
|
default :
|
|
mexPrintf("Unknow opcode %d!! FENDEQU=%d\n",cc,FENDEQU);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
void
|
|
Interpreter::simulate_a_block(int size,int type, string file_name, string bin_basename, bool Gaussian_Elimination)
|
|
{
|
|
/*mexPrintf("simulate_a_block\n");
|
|
mexEvalString("drawnow;");*/
|
|
|
|
char *begining;
|
|
int i;
|
|
bool is_linear, cvg;
|
|
int max_lag_plus_max_lead_plus_1;
|
|
int symbol_table_endo_nbr;
|
|
int Block_List_Max_Lag;
|
|
int Block_List_Max_Lead;
|
|
int giter;
|
|
int u_count_int;
|
|
double *y_save;
|
|
LinBCG linbcg;
|
|
Mat_DP a;
|
|
Vec_INT indx;
|
|
//SparseMatrix sparse_matrix;
|
|
|
|
int nb_endo, u_count_init;
|
|
|
|
|
|
//mexPrintf("simulate_a_block\n");
|
|
//mexEvalString("drawnow;");
|
|
//mexPrintf("%d\n",debile);
|
|
|
|
//GaussSeidel=false;
|
|
//slowc_save=slowc/2;
|
|
//mexPrintf("simulate_a_block size=%d type=%d\n",size,type);
|
|
switch (type)
|
|
{
|
|
case EVALUATE_FOREWARD :
|
|
case EVALUATE_FOREWARD_R :
|
|
#ifdef DEBUGC
|
|
mexPrintf("EVALUATE_FOREWARD\n");
|
|
#endif
|
|
begining=get_code_pointer;
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
#ifdef PRINT_OUT
|
|
for (j = 0; j<size; j++)
|
|
mexPrintf("y[%d, %d] = %f\n", Block_Contain[j].Variable, it_, y[Per_y_ + Block_Contain[j].Variable]);
|
|
#endif
|
|
}
|
|
break;
|
|
case EVALUATE_BACKWARD :
|
|
case EVALUATE_BACKWARD_R :
|
|
#ifdef DEBUGC
|
|
mexPrintf("EVALUATE_BACKWARD\n");
|
|
#endif
|
|
begining=get_code_pointer;
|
|
for (it_=periods+y_kmin;it_>y_kmin;it_--)
|
|
{
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
#ifdef PRINT_OUT
|
|
for (j = 0; j<size; j++)
|
|
mexPrintf("y[%d, %d] = %f\n", Block_Contain[j].Variable, it_, y[Per_y_ + Block_Contain[j].Variable]);
|
|
#endif
|
|
}
|
|
break;
|
|
case SOLVE_FOREWARD_SIMPLE :
|
|
#ifdef DEBUGC
|
|
mexPrintf("SOLVE_FOREWARD_SIMPLE\n");
|
|
#endif
|
|
g1=(double*)mxMalloc(size*size*sizeof(double));
|
|
r=(double*)mxMalloc(size*sizeof(double));
|
|
begining=get_code_pointer;
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
cvg=false;
|
|
iter=0;
|
|
Per_y_=it_*y_size;
|
|
while (!(cvg||(iter>maxit_)))
|
|
{
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
y[Per_y_+Block_Contain[0].Variable] += -r[0]/g1[0];
|
|
//mexPrintf("y[%d] += -r[0] (%f) / g1[0] (%f) = %f\n",Per_y_+Block_Contain[0].Variable,r[0],g1[0],y[Per_y_+Block_Contain[0].Variable]);
|
|
double rr;
|
|
rr=r[0]/(1+y[Per_y_+Block_Contain[0].Variable]);
|
|
cvg=((rr*rr)<solve_tolf);
|
|
iter++;
|
|
}
|
|
if (!cvg)
|
|
{
|
|
mexPrintf("Convergence not achieved in block %d, at time %d after %d iterations\n",Block_Count,it_,iter);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
#ifdef PRINT_OUT
|
|
mexPrintf("y[%d, %d]=%f \n",it_, Block_Contain[0].Variable ,y[Per_y_ + Block_Contain[0].Variable]);
|
|
#endif
|
|
}
|
|
mxFree(g1);
|
|
mxFree(r);
|
|
break;
|
|
case SOLVE_BACKWARD_SIMPLE :
|
|
#ifdef DEBUGC
|
|
mexPrintf("SOLVE_BACKWARD_SIMPLE\n");
|
|
#endif
|
|
g1=(double*)mxMalloc(size*size*sizeof(double));
|
|
r=(double*)mxMalloc(size*sizeof(double));
|
|
begining=get_code_pointer;
|
|
for (it_=periods+y_kmin;it_>y_kmin;it_--)
|
|
{
|
|
cvg=false;
|
|
iter=0;
|
|
Per_y_=it_*y_size;
|
|
while (!(cvg||(iter>maxit_)))
|
|
{
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
y[Per_y_+Block_Contain[0].Variable] += -r[0]/g1[0];
|
|
double rr;
|
|
rr=r[0]/(1+y[Per_y_+Block_Contain[0].Variable]);
|
|
cvg=((rr*rr)<solve_tolf);
|
|
iter++;
|
|
}
|
|
if (!cvg)
|
|
{
|
|
mexPrintf("Convergence not achieved in block %d, at time %d after %d iterations\n",Block_Count,it_,iter);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
#ifdef PRINT_OUT
|
|
mexPrintf("y[%d, %d]=%f \n",it_, Block_Contain[0].Variable ,y[Per_y_ + Block_Contain[0].Variable]);
|
|
#endif
|
|
}
|
|
mxFree(g1);
|
|
mxFree(r);
|
|
break;
|
|
case SOLVE_TWO_BOUNDARIES_SIMPLE :
|
|
#ifdef DEBUGC
|
|
mexPrintf("SOLVE_TWO_BOUNDARIES_SIMPLE\n");
|
|
#endif
|
|
is_linear=get_code_bool;
|
|
max_lag_plus_max_lead_plus_1=get_code_int;
|
|
symbol_table_endo_nbr=get_code_int;
|
|
Block_List_Max_Lag=get_code_int;
|
|
Block_List_Max_Lead=get_code_int;
|
|
Read_file(file_name, periods, max_lag_plus_max_lead_plus_1, symbol_table_endo_nbr, Block_List_Max_Lag, Block_List_Max_Lead, nb_endo, u_count, u_count_init, u);
|
|
//sparse_matrix.initialize(periods, nb_endo, y_kmin, y_kmax, y_size, u_count, u_count_init, u, y, ya, slowc, y_decal, markowitz_c, res1, res2, max_res);
|
|
g1=(double*)mxMalloc(size*size*sizeof(double));
|
|
r=(double*)mxMalloc(size*sizeof(double));
|
|
begining=get_code_pointer;
|
|
if (!is_linear)
|
|
{
|
|
cvg=false;
|
|
iter=0;
|
|
while (!(cvg||(iter>maxit_)))
|
|
{
|
|
res2=0;
|
|
res1=0;
|
|
max_res=0;
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
Per_u_=(it_-y_kmin)*max_lag_plus_max_lead_plus_1;
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
for (i=0; i<size; i++)
|
|
{
|
|
double rr;
|
|
rr=r[i]/(1+y[Per_y_+Block_Contain[i].Variable]);
|
|
if (max_res<fabs(rr))
|
|
max_res=fabs(rr);
|
|
res2+=rr*rr;
|
|
res1+=fabs(rr);
|
|
}
|
|
}
|
|
iter++;
|
|
cvg=(max_res<solve_tolf);
|
|
Direct_Simulate(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax,size, periods, true, iter);
|
|
}
|
|
if (!cvg)
|
|
{
|
|
mexPrintf("Convergence not achieved in block %d, after %d iterations\n",Block_Count,iter);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
Per_u_=(it_-y_kmin)*max_lag_plus_max_lead_plus_1;
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
for (i=0; i<size; i++)
|
|
{
|
|
double rr;
|
|
rr=r[i]/(1+y[Per_y_+Block_Contain[i].Variable]);
|
|
if (max_res<fabs(rr))
|
|
max_res=fabs(rr);
|
|
res2+=rr*rr;
|
|
res1+=fabs(rr);
|
|
}
|
|
}
|
|
iter++;
|
|
cvg=(max_res<solve_tolf);
|
|
Direct_Simulate(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax,size, periods, true, iter);
|
|
}
|
|
break;
|
|
case SOLVE_FOREWARD_COMPLETE :
|
|
#ifdef DEBUGC
|
|
mexPrintf("SOLVE_FOREWARD_COMPLETE\n");
|
|
#endif
|
|
is_linear=get_code_bool;
|
|
max_lag_plus_max_lead_plus_1=get_code_int;
|
|
symbol_table_endo_nbr=get_code_int;
|
|
Block_List_Max_Lag=get_code_int;
|
|
Block_List_Max_Lead=get_code_int;
|
|
Read_file(file_name, periods, 0, symbol_table_endo_nbr, Block_List_Max_Lag, Block_List_Max_Lead, nb_endo, u_count, u_count_init, u);
|
|
//sparse_matrix.initialize(periods, nb_endo, y_kmin, y_kmax, y_size, u_count, u_count_init, u, y, ya, slowc, y_decal, markowitz_c, res1, res2, max_res);
|
|
g1=(double*)mxMalloc(size*size*sizeof(double));
|
|
r=(double*)mxMalloc(size*sizeof(double));
|
|
begining=get_code_pointer;
|
|
if (!is_linear)
|
|
{
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
cvg=false;
|
|
iter=0;
|
|
Per_y_=it_*y_size;
|
|
while (!(cvg||(iter>maxit_)))
|
|
{
|
|
set_code_pointer(begining);
|
|
compute_block_time();
|
|
Direct_Simulate(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax, size, 0, false, iter);
|
|
res2=0;
|
|
res1=0;
|
|
max_res=0;
|
|
for (i=0; i<size ;i++)
|
|
{
|
|
double rr;
|
|
rr=r[i]/(1+y[Per_y_+Block_Contain[i].Variable]);
|
|
if (max_res<fabs(rr))
|
|
max_res=fabs(rr);
|
|
res2+=rr*rr;
|
|
res1+=fabs(rr);
|
|
}
|
|
cvg=(max_res<solve_tolf);
|
|
iter++;
|
|
}
|
|
if (!cvg)
|
|
{
|
|
mexPrintf("Convergence not achieved in block %d, at time %d after %d iterations\n", Block_Count, it_, iter);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
Direct_Simulate(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax, size, 0, false, iter);
|
|
}
|
|
}
|
|
mxFree(g1);
|
|
mxFree(r);
|
|
mxFree(u);
|
|
break;
|
|
case SOLVE_BACKWARD_COMPLETE :
|
|
#ifdef DEBUGC
|
|
mexPrintf("SOLVE_BACKWARD_COMPLETE\n");
|
|
#endif
|
|
is_linear=get_code_bool;
|
|
max_lag_plus_max_lead_plus_1=get_code_int;
|
|
symbol_table_endo_nbr=get_code_int;
|
|
Block_List_Max_Lag=get_code_int;
|
|
Block_List_Max_Lead=get_code_int;
|
|
Read_file(file_name, periods, 0, symbol_table_endo_nbr, Block_List_Max_Lag, Block_List_Max_Lead, nb_endo, u_count, u_count_init, u);
|
|
//sparse_matrix.initialize(periods, nb_endo, y_kmin, y_kmax, y_size, u_count, u_count_init, u, y, ya, slowc, y_decal, markowitz_c, res1, res2, max_res);
|
|
g1=(double*)mxMalloc(size*size*sizeof(double));
|
|
r=(double*)mxMalloc(size*sizeof(double));
|
|
begining=get_code_pointer;
|
|
if (!is_linear)
|
|
{
|
|
for (it_=periods+y_kmin;it_>y_kmin;it_--)
|
|
{
|
|
cvg=false;
|
|
iter=0;
|
|
Per_y_=it_*y_size;
|
|
while (!(cvg||(iter>maxit_)))
|
|
{
|
|
set_code_pointer(begining);
|
|
compute_block_time();
|
|
Direct_Simulate(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax, size, 0, false, iter);
|
|
res2=0;
|
|
res1=0;
|
|
max_res=0;
|
|
for (i=0; i<size ;i++)
|
|
{
|
|
double rr;
|
|
rr=r[i]/(1+y[Per_y_+Block_Contain[i].Variable]);
|
|
if (max_res<fabs(rr))
|
|
max_res=fabs(rr);
|
|
res2+=rr*rr;
|
|
res1+=fabs(rr);
|
|
}
|
|
cvg=(max_res<solve_tolf);
|
|
iter++;
|
|
}
|
|
if (!cvg)
|
|
{
|
|
mexPrintf("Convergence not achieved in block %d, at time %d after %d iterations\n", Block_Count, it_, iter);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (it_=periods+y_kmin;it_>y_kmin;it_--)
|
|
{
|
|
set_code_pointer(begining);
|
|
Per_y_=it_*y_size;
|
|
compute_block_time();
|
|
Direct_Simulate(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax, size, 0, false, iter);
|
|
}
|
|
}
|
|
mxFree(g1);
|
|
mxFree(r);
|
|
mxFree(u);
|
|
break;
|
|
case SOLVE_TWO_BOUNDARIES_COMPLETE:
|
|
#ifdef DEBUGC
|
|
mexPrintf("SOLVE_TWO_BOUNDARIES_COMPLETE\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
is_linear=get_code_bool;
|
|
#ifdef DEBUGC
|
|
mexPrintf("is_linear=%d\n",is_linear);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
max_lag_plus_max_lead_plus_1=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("max_lag_plus_max_lead_plus_1=%d\n",max_lag_plus_max_lead_plus_1);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
symbol_table_endo_nbr=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("symbol_table_endo_nbr=%d\n",symbol_table_endo_nbr);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Block_List_Max_Lag=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block_List_Max_Lag=%d\n",Block_List_Max_Lag);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Block_List_Max_Lead=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block_List_Max_Lead=%d\n",Block_List_Max_Lead);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
u_count_int=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("u_count_int=%d\n",u_count_int);
|
|
mexPrintf("periods=%d\n",periods);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
|
|
//sparse_matrix.initialize(periods, nb_endo, y_kmin, y_kmax, y_size, u_count, u_count_init, u, y, ya, slowc, y_decal, markowitz_c, res1, res2, max_res);
|
|
|
|
fixe_u(&u, u_count_int, max_lag_plus_max_lead_plus_1);
|
|
#ifdef DEBUGC
|
|
mexPrintf("u=%x\n",u);
|
|
#endif
|
|
Read_SparseMatrix(bin_basename, size, periods, y_kmin, y_kmax);
|
|
|
|
//mexPrintf("aft reading_sparse_matrix\n");
|
|
//mexEvalString("drawnow;");
|
|
u_count=u_count_int*(periods+y_kmax+y_kmin);
|
|
g1=(double*)mxMalloc(size*size*sizeof(double));
|
|
r=(double*)mxMalloc(size*sizeof(double));
|
|
y_save=(double*)mxMalloc(y_size*sizeof(double)*(periods+y_kmax+y_kmin));
|
|
#ifdef DEBUGC
|
|
mexPrintf("u_count=%d\n",u_count);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
begining=get_code_pointer;
|
|
if(!Gaussian_Elimination)
|
|
{
|
|
it_=y_kmin;
|
|
Per_u_=0;
|
|
Per_y_=it_*y_size;
|
|
set_code_pointer(begining);
|
|
compute_block_time();
|
|
linbcg.Initialize(filename, res1, res2, max_res, slowc, ya, direction, iter);
|
|
linbcg.Preconditioner(periods, y_kmin, y_kmax, size, IM_i, index_vara, index_equa, y_size, y, true, 0, a, indx);
|
|
}
|
|
//GaussSeidel=false;
|
|
giter=0;
|
|
iter=0;
|
|
//mexPrintf("2 boudaries problem\n");
|
|
//mexEvalString("drawnow;");
|
|
//mexPrintf("GaussSeidel=%d\n",GaussSeidel);
|
|
if (!is_linear)
|
|
{
|
|
//double res1a=0;
|
|
cvg=false;
|
|
int u_count_saved=u_count;
|
|
while (!(cvg||(iter>maxit_)))
|
|
{
|
|
res2=0;
|
|
res1=0;
|
|
max_res=0;
|
|
memcpy(y_save, y, y_size*sizeof(double)*(periods+y_kmax+y_kmin));
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
Per_u_=(it_-y_kmin)*max_lag_plus_max_lead_plus_1;
|
|
//mexPrintf("Per_u_=%d\n",Per_u_);
|
|
Per_y_=it_*y_size;
|
|
//mexPrintf("ok\n");
|
|
set_code_pointer(begining);
|
|
compute_block_time();
|
|
/*if(Gaussian_Elimination)
|
|
initialize(periods, nb_endo, y_kmin, y_kmax, y_size, u_count, u_count_init, u, y, ya, slowc, y_decal, markowitz_c, res1, res2, max_res);*/
|
|
//mexPrintf("ok1\n");
|
|
//mexEvalString("drawnow;");
|
|
if (isnan(res1)||isinf(res1))
|
|
{
|
|
memcpy(y, y_save, y_size*sizeof(double)*(periods+y_kmax+y_kmin));
|
|
//GaussSeidel=false;
|
|
break;
|
|
}
|
|
for (i=0; i< size; i++)
|
|
{
|
|
double rr;
|
|
/*if(fabs(y[Per_y_+Block_Contain[i].Variable])>solve_tolf)*/
|
|
rr=r[i]/(1+y[Per_y_+Block_Contain[i].Variable]);
|
|
/*else
|
|
rr=r[i];*/
|
|
if (max_res<fabs(rr))
|
|
max_res=fabs(rr);
|
|
res2+=rr*rr;
|
|
res1+=fabs(rr);
|
|
/*if (GaussSeidel && giter)
|
|
{
|
|
//mexPrintf("y[%d]-=r[%d]/u[%d]\n",Block_Contain[i].Variable,i,Block_Contain[i].Own_Derivative,);
|
|
y[Per_y_+Block_Contain[i].Variable]-=r[i]/u[Per_u_+Block_Contain[i].Own_Derivative];
|
|
//mexPrintf("y[%d]-=r[%d](%f)/u[%d](%f)=%f\n",Block_Contain[i].Variable,i,r[i],Block_Contain[i].Own_Derivative,u[Per_u_+Block_Contain[i].Own_Derivative], y[Per_y_+Block_Contain[i].Variable]);
|
|
}*/
|
|
/*mexPrintf("r[%d] (i=%d)",i+size*(it_-y_kmin),i);
|
|
mexPrintf("=%f\n",r[i]);*/
|
|
}
|
|
}
|
|
cvg=(max_res<solve_tolf);
|
|
if(Gaussian_Elimination)
|
|
{
|
|
/*mexPrintf("bef simulate_NG1\n");
|
|
mexEvalString("drawnow;");*/
|
|
u_count=u_count_saved;
|
|
/*mexPrintf("u_count=%d &u_count=%x\n",u_count,&u_count);
|
|
mexEvalString("drawnow;");*/
|
|
simulate_NG1(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax, size, periods, true, cvg, iter);
|
|
/*mexPrintf("aft simulate_NG1\n");
|
|
mexEvalString("drawnow;");*/
|
|
}
|
|
else
|
|
{
|
|
linbcg.Initialize(filename, res1, res2, max_res, slowc, ya, direction, iter);
|
|
linbcg.SolveLinear(periods, y_kmin, y_kmax, size, IM_i, index_vara, index_equa,y_size,y, true, cvg, a, indx);
|
|
}
|
|
iter++;
|
|
}
|
|
if (!cvg)
|
|
{
|
|
mexPrintf("Convergence not achieved in block %d, after %d iterations\n",Block_Count, iter);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
}
|
|
else
|
|
{
|
|
for (it_=y_kmin;it_<periods+y_kmin;it_++)
|
|
{
|
|
Per_u_=(it_-y_kmin)*max_lag_plus_max_lead_plus_1;
|
|
Per_y_=it_*y_size;
|
|
set_code_pointer(begining);
|
|
compute_block_time();
|
|
#ifdef PRINT_OUT
|
|
for (j=0; j<max_lag_plus_max_lead_plus_1; j++)
|
|
{
|
|
mexPrintf(" %f",u[Per_u_+j]);
|
|
}
|
|
mexPrintf("\n");
|
|
#endif
|
|
}
|
|
res1=res2=max_res=0;
|
|
if(Gaussian_Elimination)
|
|
simulate_NG1(Block_Count, symbol_table_endo_nbr, it_, y_kmin, y_kmax, size, periods, true, cvg, iter);
|
|
else
|
|
{
|
|
linbcg.Initialize(filename, res1, res2, max_res, slowc, ya, direction, iter);
|
|
linbcg.SolveLinear(periods, y_kmin, y_kmax, size, IM_i, index_vara, index_equa, y_size, y, true, cvg, a, indx);
|
|
}
|
|
}
|
|
#ifdef DEBUGC
|
|
//mexErrMsgTxt("End of simulate");
|
|
#endif
|
|
|
|
mxFree(g1);
|
|
mxFree(r);
|
|
mxFree(u);
|
|
mxFree(index_vara);
|
|
memset(direction,0,size_of_direction);
|
|
//GaussSeidel=false;
|
|
break;
|
|
default:
|
|
mexPrintf("Unknow type =%d\n",type);
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexEvalString("drawnow;");
|
|
mexErrMsgTxt("End of simulate");
|
|
}
|
|
}
|
|
|
|
void
|
|
Interpreter::compute_blocks(string file_name, string bin_basename)
|
|
{
|
|
ifstream CompiledCode;
|
|
int Code_Size, var;
|
|
/*mexPrintf("compute_blocks %s\n",file_name.c_str());
|
|
mexEvalString("drawnow;");*/
|
|
//First read and store inn memory the code
|
|
CompiledCode.open((file_name + ".cod").c_str(),std::ios::in | std::ios::binary| std::ios::ate);
|
|
if (!CompiledCode.is_open())
|
|
{
|
|
mexPrintf("%s.cod Cannot be opened\n",file_name.c_str());
|
|
mexEvalString("drawnow;");
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
filename+=" stopped";
|
|
mexEvalString("drawnow;");
|
|
mexErrMsgTxt(filename.c_str());
|
|
}
|
|
Code_Size=CompiledCode.tellg();
|
|
#ifdef DEBUGC
|
|
mexPrintf("Code_Size=%d\n",Code_Size);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
CompiledCode.seekg(std::ios::beg);
|
|
/*Code_Size=CompiledCode.tellg();
|
|
mexPrintf("Code_Size=%d\n",Code_Size);*/
|
|
Code=(char*)mxMalloc(Code_Size);
|
|
CompiledCode.seekg(0);
|
|
CompiledCode.read(reinterpret_cast<char *>(Code), Code_Size);
|
|
CompiledCode.close();
|
|
char *Init_Code=Code;
|
|
|
|
//The big loop on intructions
|
|
Block_Count=-1;
|
|
bool go_on=true;
|
|
while (go_on)
|
|
{
|
|
#ifdef DEBUGC
|
|
mexPrintf("pos=%d\n",int(get_code_pos)-int(Init_Code));
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
char code=get_code_char;
|
|
#ifdef DEBUGC
|
|
int icode=(int)code;
|
|
mexPrintf("code=%d\n",icode);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
switch (code)
|
|
{
|
|
case FBEGINBLOCK :
|
|
//it's a new block
|
|
Block_Count++;
|
|
Block_type lBlock;
|
|
Block.clear();
|
|
Block_Contain.clear();
|
|
Block_contain_type lBlock_Contain;
|
|
#ifdef DEBUGC
|
|
mexPrintf("FBEGINBLOCK\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
lBlock.begin=get_code_pos-int(Init_Code);
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block[Block_Count].begin=%d\n",lBlock.begin);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
lBlock.size=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block[Block_Count].size=%d\n",lBlock.size);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
lBlock.type=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block[Block_Count].type=%d\n",lBlock.type);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
Block.push_back(lBlock);
|
|
for (int i=0;i</*Block[Block_Count].size*/lBlock.size;i++)
|
|
{
|
|
lBlock_Contain.Variable=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block_Contain[%d].Variable=%d\n",i,lBlock_Contain.Variable);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
lBlock_Contain.Equation=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("Block_Contain[%d].Equation=%d\n",i,lBlock_Contain.Equation);
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
lBlock_Contain.Own_Derivative=get_code_int
|
|
//mexPrintf("Block_Contain[%d].Own_Derivative=%d\n",i,lBlock_Contain.Own_Derivative);
|
|
Block_Contain.push_back(lBlock_Contain);
|
|
}
|
|
/*mexPrintf("Block Completed\n");
|
|
mexEvalString("drawnow;");*/
|
|
simulate_a_block(lBlock.size,lBlock.type, file_name, bin_basename,true);
|
|
//simulate_a_block(lBlock.size,lBlock.type, file_name, bin_basename,false);
|
|
break;
|
|
case FEND :
|
|
#ifdef DEBUGC
|
|
mexPrintf("FEND\n");
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
go_on=false;
|
|
break;
|
|
case FDIMT :
|
|
var=get_code_int
|
|
#ifdef DEBUGC
|
|
mexPrintf("FDIMT var=%d mxMalloc(%d)\n",var,var*(periods+y_kmin+y_kmax)*sizeof(double));
|
|
mexEvalString("drawnow;");
|
|
#endif
|
|
T=(double*)mxMalloc(var*(periods+y_kmin+y_kmax)*sizeof(double));
|
|
break;
|
|
default :
|
|
mexPrintf("Unknow command : %d at pos %d !!\n",int(code),int(get_code_pos)-int(Init_Code));
|
|
mexEvalString("st=fclose('all');clear all;");
|
|
mexEvalString("drawnow;");
|
|
mexErrMsgTxt("End of simulate");
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|