produce consistent output
parent
762e703692
commit
aa625cc046
|
@ -10,8 +10,10 @@
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
int constant_seed;
|
int constant_seed;
|
||||||
|
|
||||||
|
/*
|
||||||
int
|
int
|
||||||
swz_fprintf_stdout(char *msg, ...)
|
swz_printf(char *msg, ...)
|
||||||
{
|
{
|
||||||
int ret;
|
int ret;
|
||||||
va_list ap;
|
va_list ap;
|
||||||
|
@ -30,6 +32,28 @@ swz_fprintf_stdout(char *msg, ...)
|
||||||
return ret;
|
return ret;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
swz_fprintf_stdout(char *msg, ...)
|
||||||
|
{
|
||||||
|
int ret;
|
||||||
|
va_list ap;
|
||||||
|
va_start(ap, msg);
|
||||||
|
|
||||||
|
#if defined(MATLAB_MEX_FILE)
|
||||||
|
ret = mexPrintf(msg, ap);
|
||||||
|
mexEvalString("pause(.001);");
|
||||||
|
// mexEvalString("drawnow;");
|
||||||
|
#elif defined(OCTAVE_MEX_FILE)
|
||||||
|
mexPrintf(msg, ap);
|
||||||
|
ret = 1;
|
||||||
|
#else
|
||||||
|
ret = vprintf(msg, ap);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
va_end(ap);
|
||||||
|
return ret;
|
||||||
|
}
|
||||||
|
*/
|
||||||
void
|
void
|
||||||
swz_fprintf_err(char *str, ...)
|
swz_fprintf_err(char *str, ...)
|
||||||
{
|
{
|
||||||
|
@ -42,6 +66,7 @@ swz_fprintf_err(char *str, ...)
|
||||||
|
|
||||||
#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
|
#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
|
||||||
mexPrintf(str, ap);
|
mexPrintf(str, ap);
|
||||||
|
/* mexEvalString("drawnow;");*/
|
||||||
#else
|
#else
|
||||||
vfprintf(stderr, str, ap);
|
vfprintf(stderr, str, ap);
|
||||||
#endif
|
#endif
|
||||||
|
|
|
@ -2,14 +2,16 @@
|
||||||
#define _MEXMOD
|
#define _MEXMOD
|
||||||
void swz_exit(int status);
|
void swz_exit(int status);
|
||||||
void swz_fprintf_err(const char * str, ...);
|
void swz_fprintf_err(const char * str, ...);
|
||||||
int swz_fprintf_stdout(char *msg, ...);
|
/*int swz_fprintf_stdout(char *msg, ...);*/
|
||||||
|
/*int swz_printf(char *msg, ...);*/
|
||||||
extern int constant_seed;
|
extern int constant_seed;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
||||||
#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
|
#if defined(MATLAB_MEX_FILE) || defined(OCTAVE_MEX_FILE)
|
||||||
#include "matrix.h"
|
/*#include "matrix.h"*/
|
||||||
#include <dynmex.h>
|
#include <dynmex.h>
|
||||||
|
#include <dynblas.h>
|
||||||
|
#include <dynlapack.h>
|
||||||
|
|
||||||
/* //#undef printf ansi-c*/
|
/* //#undef printf ansi-c*/
|
||||||
/* //#define printf swz_printf ansi-c*/
|
/* //#define printf swz_printf ansi-c*/
|
||||||
|
@ -21,6 +23,8 @@ extern int constant_seed;
|
||||||
#define printf mexPrintf
|
#define printf mexPrintf
|
||||||
#define exit swz_exit
|
#define exit swz_exit
|
||||||
|
|
||||||
|
#define swz_fprintf_stdout mexPrintf
|
||||||
|
|
||||||
#undef malloc
|
#undef malloc
|
||||||
#undef calloc
|
#undef calloc
|
||||||
#undef realloc
|
#undef realloc
|
||||||
|
@ -30,4 +34,8 @@ extern int constant_seed;
|
||||||
#define calloc mxCalloc
|
#define calloc mxCalloc
|
||||||
#define realloc mxRealloc
|
#define realloc mxRealloc
|
||||||
#define free mxFree
|
#define free mxFree
|
||||||
|
|
||||||
|
|
||||||
|
#else
|
||||||
|
#define swz_fprintf_stdout printf
|
||||||
#endif
|
#endif
|
||||||
|
|
|
@ -22,7 +22,7 @@ mhm_spec_path=[swz_root '/mhm_specification'];
|
||||||
%== Processing control
|
%== Processing control
|
||||||
%==========================================================================
|
%==========================================================================
|
||||||
% 1 to use standalone, 0 to use mex
|
% 1 to use standalone, 0 to use mex
|
||||||
options_.ms.standalone = 0;
|
options_.ms.standalone = 1;
|
||||||
|
|
||||||
%==========================================================================
|
%==========================================================================
|
||||||
%== Output control
|
%== Output control
|
||||||
|
@ -507,14 +507,14 @@ end
|
||||||
if options_.ms.estimate_msmodel == 1
|
if options_.ms.estimate_msmodel == 1
|
||||||
if options_.ms.standalone == 1
|
if options_.ms.standalone == 1
|
||||||
if use_linux == 1
|
if use_linux == 1
|
||||||
perform_estimation=[c_path,'/sbvar_estimation -ft ',options_.ms.output_file_tag];
|
perform_estimation=[c_path,'/sbvar_estimation -cseed 5 -ft ',options_.ms.output_file_tag];
|
||||||
system(perform_estimation);
|
system(perform_estimation);
|
||||||
else
|
else
|
||||||
perform_estimation=[c_path,'\sbvar_estimation.exe -ft ',options_.ms.output_file_tag];
|
perform_estimation=[c_path,'\sbvar_estimation.exe -cseed 5 -ft ',options_.ms.output_file_tag];
|
||||||
dos(perform_estimation)
|
dos(perform_estimation)
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
perform_estimation=['-ft ',options_.ms.output_file_tag];
|
perform_estimation=['-cseed 5 -ft ',options_.ms.output_file_tag];
|
||||||
mex_sbvar_estimation(perform_estimation);
|
mex_sbvar_estimation(perform_estimation);
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -528,20 +528,20 @@ if options_.ms.compute_mdd == 1
|
||||||
swz_write_mhm_input(mhm_file,options_.ms);
|
swz_write_mhm_input(mhm_file,options_.ms);
|
||||||
if options_.ms.standalone == 1
|
if options_.ms.standalone == 1
|
||||||
if use_linux == 1
|
if use_linux == 1
|
||||||
compute_mdd1=[c_path,'/sbvar_mhm_1 -ft ',options_.ms.output_file_tag,' -fi ',mhm_file];
|
compute_mdd1=[c_path,'/sbvar_mhm_1 -cseed 5 -ft ',options_.ms.output_file_tag,' -fi ',mhm_file];
|
||||||
system(compute_mdd1);
|
system(compute_mdd1);
|
||||||
compute_mdd2=[c_path,'/sbvar_mhm_2 -ft ',options_.ms.output_file_tag,' -d ',int2str(options_.ms.proposal_draws),' -t 3'];
|
compute_mdd2=[c_path,'/sbvar_mhm_2 -cseed 5 -ft ',options_.ms.output_file_tag,' -d ',int2str(options_.ms.proposal_draws),' -t 3'];
|
||||||
system(compute_mdd2);
|
system(compute_mdd2);
|
||||||
else
|
else
|
||||||
compute_mdd1=[c_path,'\sbvar_mhm_1.exe -ft ',options_.ms.output_file_tag,' -fi ',mhm_file];
|
compute_mdd1=[c_path,'\sbvar_mhm_1.exe -cseed 5 -ft ',options_.ms.output_file_tag,' -fi ',mhm_file];
|
||||||
system(compute_mdd1);
|
system(compute_mdd1);
|
||||||
compute_mdd2=[c_path,'\sbvar_mhm_2.exe -ft ',options_.ms.output_file_tag,' -d ',int2str(options_.ms.proposal_draws),' -t 3'];
|
compute_mdd2=[c_path,'\sbvar_mhm_2.exe -cseed 5 -ft ',options_.ms.output_file_tag,' -d ',int2str(options_.ms.proposal_draws),' -t 3'];
|
||||||
system(compute_mdd2);
|
system(compute_mdd2);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
compute_mdd1=['-ft ',options_.ms.output_file_tag,' -fi ',mhm_file];
|
compute_mdd1=['-cseed 5 -ft ',options_.ms.output_file_tag,' -fi ',mhm_file];
|
||||||
mex_sbvar_mhm_1(compute_mdd1);
|
mex_sbvar_mhm_1(compute_mdd1);
|
||||||
compute_mdd2=['-ft ',options_.ms.output_file_tag,' -d ',int2str(options_.ms.proposal_draws),' -t 3'];
|
compute_mdd2=['-cseed 5 -ft ',options_.ms.output_file_tag,' -d ',int2str(options_.ms.proposal_draws),' -t 3'];
|
||||||
mex_sbvar_mhm_2(compute_mdd2);
|
mex_sbvar_mhm_2(compute_mdd2);
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -571,14 +571,14 @@ end
|
||||||
if options_.ms.print_draws == 1 %error here as well
|
if options_.ms.print_draws == 1 %error here as well
|
||||||
if options_.ms.standalone == 1
|
if options_.ms.standalone == 1
|
||||||
if use_linux == 1
|
if use_linux == 1
|
||||||
print_draws=[c_path,'/sbvar_draws -ft ',options_.ms.output_file_tag,' -i ',int2str(options_.ms.n_draws),' -t ',int2str(options_.ms.thinning_factor)];
|
print_draws=[c_path,'/sbvar_draws -cseed 5 -ft ',options_.ms.output_file_tag,' -i ',int2str(options_.ms.n_draws),' -t ',int2str(options_.ms.thinning_factor)];
|
||||||
system(print_draws);
|
system(print_draws);
|
||||||
else
|
else
|
||||||
print_draws=[c_path,'\sbvar_draws -ft ',options_.ms.output_file_tag,' -i ',int2str(options_.ms.n_draws),' -t ',int2str(options_.ms.thinning_factor)];
|
print_draws=[c_path,'\sbvar_draws -cseed 5 -ft ',options_.ms.output_file_tag,' -i ',int2str(options_.ms.n_draws),' -t ',int2str(options_.ms.thinning_factor)];
|
||||||
system(print_draws);
|
system(print_draws);
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
print_draws=['-ft ',options_.ms.output_file_tag,' -i ',int2str(options_.ms.n_draws),' -t ',int2str(options_.ms.thinning_factor)];
|
print_draws=['-cseed 5 -ft ',options_.ms.output_file_tag,' -i ',int2str(options_.ms.n_draws),' -t ',int2str(options_.ms.thinning_factor)];
|
||||||
mex_sbvar_draws(print_draws);
|
mex_sbvar_draws(print_draws);
|
||||||
end
|
end
|
||||||
end
|
end
|
Loading…
Reference in New Issue