version 1.85, 2003/06/17 13:12:43
|
version 1.95, 2003/07/08 07:54:34
|
Line 1
|
Line 1
|
/* $Id$ |
/* $Id$ |
$State$ |
$State$ |
$Log$ |
$Log$ |
|
Revision 1.95 2003/07/08 07:54:34 brouard |
|
* imach.c (Repository): |
|
(Repository): Using imachwizard code to output a more meaningful covariance |
|
matrix (cov(a12,c31) instead of numbers. |
|
|
|
Revision 1.94 2003/06/27 13:00:02 brouard |
|
Just cleaning |
|
|
|
Revision 1.93 2003/06/25 16:33:55 brouard |
|
(Module): On windows (cygwin) function asctime_r doesn't |
|
exist so I changed back to asctime which exists. |
|
(Module): Version 0.96b |
|
|
|
Revision 1.92 2003/06/25 16:30:45 brouard |
|
(Module): On windows (cygwin) function asctime_r doesn't |
|
exist so I changed back to asctime which exists. |
|
|
|
Revision 1.91 2003/06/25 15:30:29 brouard |
|
* imach.c (Repository): Duplicated warning errors corrected. |
|
(Repository): Elapsed time after each iteration is now output. It |
|
helps to forecast when convergence will be reached. Elapsed time |
|
is stamped in powell. We created a new html file for the graphs |
|
concerning matrix of covariance. It has extension -cov.htm. |
|
|
|
Revision 1.90 2003/06/24 12:34:15 brouard |
|
(Module): Some bugs corrected for windows. Also, when |
|
mle=-1 a template is output in file "or"mypar.txt with the design |
|
of the covariance matrix to be input. |
|
|
|
Revision 1.89 2003/06/24 12:30:52 brouard |
|
(Module): Some bugs corrected for windows. Also, when |
|
mle=-1 a template is output in file "or"mypar.txt with the design |
|
of the covariance matrix to be input. |
|
|
|
Revision 1.88 2003/06/23 17:54:56 brouard |
|
* imach.c (Repository): Create a sub-directory where all the secondary files are. Only imach, htm, gp and r(imach) are on the main directory. Correct time and other things. |
|
|
|
Revision 1.87 2003/06/18 12:26:01 brouard |
|
Version 0.96 |
|
|
|
Revision 1.86 2003/06/17 20:04:08 brouard |
|
(Module): Change position of html and gnuplot routines and added |
|
routine fileappend. |
|
|
Revision 1.85 2003/06/17 13:12:43 brouard |
Revision 1.85 2003/06/17 13:12:43 brouard |
* imach.c (Repository): Check when date of death was earlier that |
* imach.c (Repository): Check when date of death was earlier that |
current date of interview. It may happen when the death was just |
current date of interview. It may happen when the death was just |
Line 19
|
Line 63
|
place. It differs from routine "prevalence" which may be called |
place. It differs from routine "prevalence" which may be called |
many times. Probs is memory consuming and must be used with |
many times. Probs is memory consuming and must be used with |
parcimony. |
parcimony. |
Version 0.95a2 (should output exactly the same maximization than 0.8a2) |
Version 0.95a3 (should output exactly the same maximization than 0.8a2) |
|
|
Revision 1.83 2003/06/10 13:39:11 lievre |
Revision 1.83 2003/06/10 13:39:11 lievre |
*** empty log message *** |
*** empty log message *** |
Line 122
|
Line 166
|
#include <stdlib.h> |
#include <stdlib.h> |
#include <unistd.h> |
#include <unistd.h> |
|
|
|
#include <sys/time.h> |
|
#include <time.h> |
|
#include "timeval.h" |
|
|
|
/* #include <libintl.h> */ |
|
/* #define _(String) gettext (String) */ |
|
|
#define MAXLINE 256 |
#define MAXLINE 256 |
#define GNUPLOTPROGRAM "gnuplot" |
#define GNUPLOTPROGRAM "gnuplot" |
/*#define GNUPLOTPROGRAM "..\\gp37mgw\\wgnuplot"*/ |
/*#define GNUPLOTPROGRAM "..\\gp37mgw\\wgnuplot"*/ |
Line 153
|
Line 204
|
/* $Id$ */ |
/* $Id$ */ |
/* $State$ */ |
/* $State$ */ |
|
|
char version[]="Imach version 0.95a2, June 2003, INED-EUROREVES "; |
char version[]="Imach version 0.96b, June 2003, INED-EUROREVES "; |
char fullversion[]="$Revision$ $Date$"; |
char fullversion[]="$Revision$ $Date$"; |
int erreur; /* Error number */ |
int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings */ |
int nvar; |
int nvar; |
int cptcovn=0, cptcovage=0, cptcoveff=0,cptcov; |
int cptcovn=0, cptcovage=0, cptcoveff=0,cptcov; |
int npar=NPARMAX; |
int npar=NPARMAX; |
Line 167 int popbased=0;
|
Line 218 int popbased=0;
|
int *wav; /* Number of waves for this individuual 0 is possible */ |
int *wav; /* Number of waves for this individuual 0 is possible */ |
int maxwav; /* Maxim number of waves */ |
int maxwav; /* Maxim number of waves */ |
int jmin, jmax; /* min, max spacing between 2 waves */ |
int jmin, jmax; /* min, max spacing between 2 waves */ |
|
int gipmx, gsw; /* Global variables on the number of contributions |
|
to the likelihood and the sum of weights (done by funcone)*/ |
int mle, weightopt; |
int mle, weightopt; |
int **mw; /* mw[mi][i] is number of the mi wave for this individual */ |
int **mw; /* mw[mi][i] is number of the mi wave for this individual */ |
int **dh; /* dh[mi][i] is number of steps between mi,mi+1 for this individual */ |
int **dh; /* dh[mi][i] is number of steps between mi,mi+1 for this individual */ |
Line 185 char fileresilk[FILENAMELENGTH]; /* File
|
Line 238 char fileresilk[FILENAMELENGTH]; /* File
|
FILE *ficresilk; |
FILE *ficresilk; |
FILE *ficgp,*ficresprob,*ficpop, *ficresprobcov, *ficresprobcor; |
FILE *ficgp,*ficresprob,*ficpop, *ficresprobcov, *ficresprobcor; |
FILE *ficresprobmorprev; |
FILE *ficresprobmorprev; |
FILE *fichtm; /* Html File */ |
FILE *fichtm, *fichtmcov; /* Html File */ |
FILE *ficreseij; |
FILE *ficreseij; |
char filerese[FILENAMELENGTH]; |
char filerese[FILENAMELENGTH]; |
FILE *ficresvij; |
FILE *ficresvij; |
Line 195 char fileresvpl[FILENAMELENGTH];
|
Line 248 char fileresvpl[FILENAMELENGTH];
|
char title[MAXLINE]; |
char title[MAXLINE]; |
char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH], filerespl[FILENAMELENGTH]; |
char optionfile[FILENAMELENGTH], datafile[FILENAMELENGTH], filerespl[FILENAMELENGTH]; |
char optionfilext[10], optionfilefiname[FILENAMELENGTH], plotcmd[FILENAMELENGTH]; |
char optionfilext[10], optionfilefiname[FILENAMELENGTH], plotcmd[FILENAMELENGTH]; |
|
char tmpout[FILENAMELENGTH]; |
|
char command[FILENAMELENGTH]; |
|
int outcmd=0; |
|
|
char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH], rfileres[FILENAMELENGTH]; |
char fileres[FILENAMELENGTH], filerespij[FILENAMELENGTH], filereso[FILENAMELENGTH], rfileres[FILENAMELENGTH]; |
|
|
char filelog[FILENAMELENGTH]; /* Log file */ |
char filelog[FILENAMELENGTH]; /* Log file */ |
char filerest[FILENAMELENGTH]; |
char filerest[FILENAMELENGTH]; |
char fileregp[FILENAMELENGTH]; |
char fileregp[FILENAMELENGTH]; |
char popfile[FILENAMELENGTH]; |
char popfile[FILENAMELENGTH]; |
|
|
char optionfilegnuplot[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH]; |
char optionfilegnuplot[FILENAMELENGTH], optionfilehtm[FILENAMELENGTH], optionfilehtmcov[FILENAMELENGTH] ; |
|
|
|
struct timeval start_time, end_time, curr_time, last_time, forecast_time; |
|
struct timezone tzp; |
|
extern int gettimeofday(); |
|
struct tm tmg, tm, tmf, *gmtime(), *localtime(); |
|
long time_value; |
|
extern long time(); |
|
char strcurr[80], strfor[80]; |
|
|
#define NR_END 1 |
#define NR_END 1 |
#define FREE_ARG char* |
#define FREE_ARG char* |
Line 300 static int split( char *path, char *dirc
|
Line 365 static int split( char *path, char *dirc
|
|
|
/******************************************/ |
/******************************************/ |
|
|
void replace(char *s, char*t) |
void replace_back_to_slash(char *s, char*t) |
{ |
{ |
int i; |
int i; |
int lg=20; |
int lg=0; |
i=0; |
i=0; |
lg=strlen(t); |
lg=strlen(t); |
for(i=0; i<= lg; i++) { |
for(i=0; i<= lg; i++) { |
Line 508 void free_ma3x(double ***m, long nrl, lo
|
Line 573 void free_ma3x(double ***m, long nrl, lo
|
free((FREE_ARG)(m+nrl-NR_END)); |
free((FREE_ARG)(m+nrl-NR_END)); |
} |
} |
|
|
|
/*************** function subdirf ***********/ |
|
char *subdirf(char fileres[]) |
|
{ |
|
/* Caution optionfilefiname is hidden */ |
|
strcpy(tmpout,optionfilefiname); |
|
strcat(tmpout,"/"); /* Add to the right */ |
|
strcat(tmpout,fileres); |
|
return tmpout; |
|
} |
|
|
|
/*************** function subdirf2 ***********/ |
|
char *subdirf2(char fileres[], char *preop) |
|
{ |
|
|
|
/* Caution optionfilefiname is hidden */ |
|
strcpy(tmpout,optionfilefiname); |
|
strcat(tmpout,"/"); |
|
strcat(tmpout,preop); |
|
strcat(tmpout,fileres); |
|
return tmpout; |
|
} |
|
|
|
/*************** function subdirf3 ***********/ |
|
char *subdirf3(char fileres[], char *preop, char *preop2) |
|
{ |
|
|
|
/* Caution optionfilefiname is hidden */ |
|
strcpy(tmpout,optionfilefiname); |
|
strcat(tmpout,"/"); |
|
strcat(tmpout,preop); |
|
strcat(tmpout,preop2); |
|
strcat(tmpout,fileres); |
|
return tmpout; |
|
} |
|
|
/***************** f1dim *************************/ |
/***************** f1dim *************************/ |
extern int ncom; |
extern int ncom; |
extern double *pcom,*xicom; |
extern double *pcom,*xicom; |
Line 683 void linmin(double p[], double xi[], int
|
Line 783 void linmin(double p[], double xi[], int
|
free_vector(pcom,1,n); |
free_vector(pcom,1,n); |
} |
} |
|
|
|
char *asc_diff_time(long time_sec, char ascdiff[]) |
|
{ |
|
long sec_left, days, hours, minutes; |
|
days = (time_sec) / (60*60*24); |
|
sec_left = (time_sec) % (60*60*24); |
|
hours = (sec_left) / (60*60) ; |
|
sec_left = (sec_left) %(60*60); |
|
minutes = (sec_left) /60; |
|
sec_left = (sec_left) % (60); |
|
sprintf(ascdiff,"%d day(s) %d hour(s) %d minute(s) %d second(s)",days, hours, minutes, sec_left); |
|
return ascdiff; |
|
} |
|
|
/*************** powell ************************/ |
/*************** powell ************************/ |
void powell(double p[], double **xi, int n, double ftol, int *iter, double *fret, |
void powell(double p[], double **xi, int n, double ftol, int *iter, double *fret, |
double (*func)(double [])) |
double (*func)(double [])) |
Line 693 void powell(double p[], double **xi, int
|
Line 806 void powell(double p[], double **xi, int
|
double del,t,*pt,*ptt,*xit; |
double del,t,*pt,*ptt,*xit; |
double fp,fptt; |
double fp,fptt; |
double *xits; |
double *xits; |
|
int niterf, itmp; |
|
|
pt=vector(1,n); |
pt=vector(1,n); |
ptt=vector(1,n); |
ptt=vector(1,n); |
xit=vector(1,n); |
xit=vector(1,n); |
Line 703 void powell(double p[], double **xi, int
|
Line 818 void powell(double p[], double **xi, int
|
fp=(*fret); |
fp=(*fret); |
ibig=0; |
ibig=0; |
del=0.0; |
del=0.0; |
printf("\nPowell iter=%d -2*LL=%.12f",*iter,*fret); |
last_time=curr_time; |
fprintf(ficlog,"\nPowell iter=%d -2*LL=%.12f",*iter,*fret); |
(void) gettimeofday(&curr_time,&tzp); |
fprintf(ficrespow,"%d %.12f",*iter,*fret); |
printf("\nPowell iter=%d -2*LL=%.12f %ld sec. %ld sec.",*iter,*fret, curr_time.tv_sec-last_time.tv_sec, curr_time.tv_sec-start_time.tv_sec);fflush(stdout); |
|
fprintf(ficlog,"\nPowell iter=%d -2*LL=%.12f %ld sec. %ld sec.",*iter,*fret, curr_time.tv_sec-last_time.tv_sec, curr_time.tv_sec-start_time.tv_sec); |
|
fprintf(ficrespow,"%d %.12f %ld",*iter,*fret,curr_time.tv_sec-start_time.tv_sec); |
for (i=1;i<=n;i++) { |
for (i=1;i<=n;i++) { |
printf(" %d %.12f",i, p[i]); |
printf(" %d %.12f",i, p[i]); |
fprintf(ficlog," %d %.12lf",i, p[i]); |
fprintf(ficlog," %d %.12lf",i, p[i]); |
Line 713 void powell(double p[], double **xi, int
|
Line 830 void powell(double p[], double **xi, int
|
} |
} |
printf("\n"); |
printf("\n"); |
fprintf(ficlog,"\n"); |
fprintf(ficlog,"\n"); |
fprintf(ficrespow,"\n"); |
fprintf(ficrespow,"\n");fflush(ficrespow); |
|
if(*iter <=3){ |
|
tm = *localtime(&curr_time.tv_sec); |
|
strcpy(strcurr,asctime(&tmf)); |
|
/* asctime_r(&tm,strcurr); */ |
|
forecast_time=curr_time; |
|
itmp = strlen(strcurr); |
|
if(strcurr[itmp-1]=='\n') |
|
strcurr[itmp-1]='\0'; |
|
printf("\nConsidering the time needed for this last iteration #%d: %ld seconds,\n",*iter,curr_time.tv_sec-last_time.tv_sec); |
|
fprintf(ficlog,"\nConsidering the time needed for this last iteration #%d: %ld seconds,\n",*iter,curr_time.tv_sec-last_time.tv_sec); |
|
for(niterf=10;niterf<=30;niterf+=10){ |
|
forecast_time.tv_sec=curr_time.tv_sec+(niterf-*iter)*(curr_time.tv_sec-last_time.tv_sec); |
|
tmf = *localtime(&forecast_time.tv_sec); |
|
/* asctime_r(&tmf,strfor); */ |
|
strcpy(strfor,asctime(&tmf)); |
|
itmp = strlen(strfor); |
|
if(strfor[itmp-1]=='\n') |
|
strfor[itmp-1]='\0'; |
|
printf(" - if your program needs %d iterations to converge, convergence will be \n reached in %s or\n on %s (current time is %s);\n",niterf, asc_diff_time(forecast_time.tv_sec-curr_time.tv_sec,tmpout),strfor,strcurr); |
|
fprintf(ficlog," - if your program needs %d iterations to converge, convergence will be \n reached in %s or\n on %s (current time is %s);\n",niterf, asc_diff_time(forecast_time.tv_sec-curr_time.tv_sec,tmpout),strfor,strcurr); |
|
} |
|
} |
for (i=1;i<=n;i++) { |
for (i=1;i<=n;i++) { |
for (j=1;j<=n;j++) xit[j]=xi[j][i]; |
for (j=1;j<=n;j++) xit[j]=xi[j][i]; |
fptt=(*fret); |
fptt=(*fret); |
Line 1126 double func( double *x)
|
Line 1265 double func( double *x)
|
oldm=newm; |
oldm=newm; |
} /* end mult */ |
} /* end mult */ |
|
|
/*lli=log(out[s[mw[mi][i]][i]][s[mw[mi+1][i]][i]]);*/ /* Original formula */ |
|
/* But now since version 0.9 we anticipate for bias and large stepm. |
|
* If stepm is larger than one month (smallest stepm) and if the exact delay |
|
* (in months) between two waves is not a multiple of stepm, we rounded to |
|
* the nearest (and in case of equal distance, to the lowest) interval but now |
|
* we keep into memory the bias bh[mi][i] and also the previous matrix product |
|
* (i.e to dh[mi][i]-1) saved in 'savm'. The we inter(extra)polate the |
|
* probability in order to take into account the bias as a fraction of the way |
|
* from savm to out if bh is neagtive or even beyond if bh is positive. bh varies |
|
* -stepm/2 to stepm/2 . |
|
* For stepm=1 the results are the same as for previous versions of Imach. |
|
* For stepm > 1 the results are less biased than in previous versions. |
|
*/ |
|
s1=s[mw[mi][i]][i]; |
s1=s[mw[mi][i]][i]; |
s2=s[mw[mi+1][i]][i]; |
s2=s[mw[mi+1][i]][i]; |
bbh=(double)bh[mi][i]/(double)stepm; |
bbh=(double)bh[mi][i]/(double)stepm; |
/* bias is positive if real duration |
|
* is higher than the multiple of stepm and negative otherwise. |
|
*/ |
|
lli= (savm[s1][s2]>(double)1.e-8 ?log((1.+bbh)*out[s1][s2]- bbh*(savm[s1][s2])):log((1.+bbh)*out[s1][s2])); /* linear interpolation */ |
lli= (savm[s1][s2]>(double)1.e-8 ?log((1.+bbh)*out[s1][s2]- bbh*(savm[s1][s2])):log((1.+bbh)*out[s1][s2])); /* linear interpolation */ |
/* lli= (savm[s1][s2]>1.e-8 ?(1.+bbh)*log(out[s1][s2])- bbh*log(savm[s1][s2]):log((1.+bbh)*out[s1][s2]));*/ |
|
/*lli= (savm[s1][s2]>1.e-8 ?(1.+bbh)*log(out[s1][s2])- bbh*log(savm[s1][s2]):log((1.-+bh)*out[s1][s2])); */ /* exponential interpolation */ |
|
/*lli=(1.+bbh)*log(out[s1][s2])- bbh*log(savm[s1][s2]);*/ |
|
/*if(lli ==000.0)*/ |
|
/*printf("bbh= %f lli=%f savm=%f out=%f %d\n",bbh,lli,savm[s1][s2], out[s[mw[mi][i]][i]][s[mw[mi+1][i]][i]],i); */ |
|
ipmx +=1; |
ipmx +=1; |
sw += weight[i]; |
sw += weight[i]; |
ll[s[mw[mi][i]][i]] += 2*weight[i]*lli; |
ll[s[mw[mi][i]][i]] += 2*weight[i]*lli; |
Line 1177 double func( double *x)
|
Line 1295 double func( double *x)
|
oldm=newm; |
oldm=newm; |
} /* end mult */ |
} /* end mult */ |
|
|
/*lli=log(out[s[mw[mi][i]][i]][s[mw[mi+1][i]][i]]);*/ /* Original formula */ |
|
/* But now since version 0.9 we anticipate for bias and large stepm. |
|
* If stepm is larger than one month (smallest stepm) and if the exact delay |
|
* (in months) between two waves is not a multiple of stepm, we rounded to |
|
* the nearest (and in case of equal distance, to the lowest) interval but now |
|
* we keep into memory the bias bh[mi][i] and also the previous matrix product |
|
* (i.e to dh[mi][i]-1) saved in 'savm'. The we inter(extra)polate the |
|
* probability in order to take into account the bias as a fraction of the way |
|
* from savm to out if bh is neagtive or even beyond if bh is positive. bh varies |
|
* -stepm/2 to stepm/2 . |
|
* For stepm=1 the results are the same as for previous versions of Imach. |
|
* For stepm > 1 the results are less biased than in previous versions. |
|
*/ |
|
s1=s[mw[mi][i]][i]; |
s1=s[mw[mi][i]][i]; |
s2=s[mw[mi+1][i]][i]; |
s2=s[mw[mi+1][i]][i]; |
bbh=(double)bh[mi][i]/(double)stepm; |
bbh=(double)bh[mi][i]/(double)stepm; |
/* bias is positive if real duration |
|
* is higher than the multiple of stepm and negative otherwise. |
|
*/ |
|
/* lli= (savm[s1][s2]>(double)1.e-8 ?log((1.+bbh)*out[s1][s2]- bbh*(savm[s1][s2])):log((1.+bbh)*out[s1][s2])); */ /* linear interpolation */ |
|
lli= (savm[s1][s2]>1.e-8 ?(1.+bbh)*log(out[s1][s2])- bbh*log(savm[s1][s2]):log((1.+bbh)*out[s1][s2])); /* exponential inter-extrapolation */ |
lli= (savm[s1][s2]>1.e-8 ?(1.+bbh)*log(out[s1][s2])- bbh*log(savm[s1][s2]):log((1.+bbh)*out[s1][s2])); /* exponential inter-extrapolation */ |
/*lli=(1.+bbh)*log(out[s1][s2])- bbh*log(savm[s1][s2]);*/ |
|
/*if(lli ==000.0)*/ |
|
/*printf("bbh= %f lli=%f savm=%f out=%f %d\n",bbh,lli,savm[s1][s2], out[s[mw[mi][i]][i]][s[mw[mi+1][i]][i]],i); */ |
|
ipmx +=1; |
ipmx +=1; |
sw += weight[i]; |
sw += weight[i]; |
ll[s[mw[mi][i]][i]] += 2*weight[i]*lli; |
ll[s[mw[mi][i]][i]] += 2*weight[i]*lli; |
Line 1282 double func( double *x)
|
Line 1380 double func( double *x)
|
/*************** log-likelihood *************/ |
/*************** log-likelihood *************/ |
double funcone( double *x) |
double funcone( double *x) |
{ |
{ |
|
/* Same as likeli but slower because of a lot of printf and if */ |
int i, ii, j, k, mi, d, kk; |
int i, ii, j, k, mi, d, kk; |
double l, ll[NLSTATEMAX], cov[NCOVMAX]; |
double l, ll[NLSTATEMAX], cov[NCOVMAX]; |
double **out; |
double **out; |
double lli; /* Individual log likelihood */ |
double lli; /* Individual log likelihood */ |
|
double llt; |
int s1, s2; |
int s1, s2; |
double bbh, survp; |
double bbh, survp; |
/*extern weight */ |
/*extern weight */ |
Line 1342 double funcone( double *x)
|
Line 1442 double funcone( double *x)
|
ll[s[mw[mi][i]][i]] += 2*weight[i]*lli; |
ll[s[mw[mi][i]][i]] += 2*weight[i]*lli; |
/* printf("i=%6d s1=%1d s2=%1d mi=%1d mw=%1d dh=%3d prob=%10.6f w=%6.4f out=%10.6f sav=%10.6f\n",i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],out[s1][s2],savm[s1][s2]); */ |
/* printf("i=%6d s1=%1d s2=%1d mi=%1d mw=%1d dh=%3d prob=%10.6f w=%6.4f out=%10.6f sav=%10.6f\n",i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],out[s1][s2],savm[s1][s2]); */ |
if(globpr){ |
if(globpr){ |
fprintf(ficresilk,"%6d %1d %1d %1d %1d %3d %10.6f %6.4f %10.6f %10.6f %10.6f ", \ |
fprintf(ficresilk,"%9d %6d %1d %1d %1d %1d %3d %10.6f %6.4f\ |
i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],2*weight[i]*lli,out[s1][s2],savm[s1][s2]); |
%10.6f %10.6f %10.6f ", \ |
for(k=1,l=0.; k<=nlstate; k++) |
num[i],i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i], |
fprintf(ficresilk," %10.6f",ll[k]); |
2*weight[i]*lli,out[s1][s2],savm[s1][s2]); |
fprintf(ficresilk,"\n"); |
for(k=1,llt=0.,l=0.; k<=nlstate; k++){ |
|
llt +=ll[k]*gipmx/gsw; |
|
fprintf(ficresilk," %10.6f",-ll[k]*gipmx/gsw); |
|
} |
|
fprintf(ficresilk," %10.6f\n", -llt); |
} |
} |
} /* end of wave */ |
} /* end of wave */ |
} /* end of individual */ |
} /* end of individual */ |
for(k=1,l=0.; k<=nlstate; k++) l += ll[k]; |
for(k=1,l=0.; k<=nlstate; k++) l += ll[k]; |
/* printf("l1=%f l2=%f ",ll[1],ll[2]); */ |
/* printf("l1=%f l2=%f ",ll[1],ll[2]); */ |
l= l*ipmx/sw; /* To get the same order of magnitude as if weight=1 for every body */ |
l= l*ipmx/sw; /* To get the same order of magnitude as if weight=1 for every body */ |
|
if(globpr==0){ /* First time we count the contributions and weights */ |
|
gipmx=ipmx; |
|
gsw=sw; |
|
} |
return -l; |
return -l; |
} |
} |
|
|
|
|
void likelione(FILE *ficres,double p[], int npar, int nlstate, int *globpr, long *ipmx, double *sw, double *fretone, double (*funcone)(double [])) |
/*************** function likelione ***********/ |
|
void likelione(FILE *ficres,double p[], int npar, int nlstate, int *globpri, long *ipmx, double *sw, double *fretone, double (*funcone)(double [])) |
{ |
{ |
/* This routine should help understanding what is done with the selection of individuals/waves and |
/* This routine should help understanding what is done with |
|
the selection of individuals/waves and |
to check the exact contribution to the likelihood. |
to check the exact contribution to the likelihood. |
Plotting could be done. |
Plotting could be done. |
*/ |
*/ |
int k; |
int k; |
if(globpr !=0){ /* Just counts and sums no printings */ |
|
|
if(*globpri !=0){ /* Just counts and sums, no printings */ |
strcpy(fileresilk,"ilk"); |
strcpy(fileresilk,"ilk"); |
strcat(fileresilk,fileres); |
strcat(fileresilk,fileres); |
if((ficresilk=fopen(fileresilk,"w"))==NULL) { |
if((ficresilk=fopen(fileresilk,"w"))==NULL) { |
printf("Problem with resultfile: %s\n", fileresilk); |
printf("Problem with resultfile: %s\n", fileresilk); |
fprintf(ficlog,"Problem with resultfile: %s\n", fileresilk); |
fprintf(ficlog,"Problem with resultfile: %s\n", fileresilk); |
} |
} |
fprintf(ficresilk, "# individual(line's record) s1 s2 wave# effective_wave# number_of_product_matrix pij weight 2ln(pij)*weight 0pij_x 0pij_(x-stepm) cumulating_loglikeli_by_health_state"); |
fprintf(ficresilk, "#individual(line's_record) s1 s2 wave# effective_wave# number_of_matrices_product pij weight -2ln(pij)*weight 0pij_x 0pij_(x-stepm) cumulating_loglikeli_by_health_state(reweighted=-2ll*weightXnumber_of_contribs/sum_of_weights) and_total\n"); |
fprintf(ficresilk, "# i s1 s2 mi mw dh likeli weight out sav "); |
fprintf(ficresilk, "#num_i i s1 s2 mi mw dh likeli weight 2wlli out sav "); |
/* i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],2*weight[i]*lli,out[s1][s2],savm[s1][s2]); */ |
/* i,s1,s2,mi,mw[mi][i],dh[mi][i],exp(lli),weight[i],2*weight[i]*lli,out[s1][s2],savm[s1][s2]); */ |
for(k=1; k<=nlstate; k++) |
for(k=1; k<=nlstate; k++) |
fprintf(ficresilk," ll[%d]",k); |
fprintf(ficresilk," -2*gipw/gsw*weight*ll[%d]++",k); |
fprintf(ficresilk,"\n"); |
fprintf(ficresilk," -2*gipw/gsw*weight*ll(total)\n"); |
} |
} |
|
|
*fretone=(*funcone)(p); |
*fretone=(*funcone)(p); |
if(globpr !=0) |
if(*globpri !=0){ |
fclose(ficresilk); |
fclose(ficresilk); |
|
fprintf(fichtm,"\n<br>File of contributions to the likelihood: <a href=\"%s\">%s</a><br>\n",subdirf(fileresilk),subdirf(fileresilk)); |
|
fflush(fichtm); |
|
} |
return; |
return; |
} |
} |
|
|
|
|
/*********** Maximum Likelihood Estimation ***************/ |
/*********** Maximum Likelihood Estimation ***************/ |
|
|
void mlikeli(FILE *ficres,double p[], int npar, int ncovmodel, int nlstate, double ftol, double (*func)(double [])) |
void mlikeli(FILE *ficres,double p[], int npar, int ncovmodel, int nlstate, double ftol, double (*func)(double [])) |
Line 1962 void concatwav(int wav[], int **dh, int
|
Line 2077 void concatwav(int wav[], int **dh, int
|
|
|
wav[i]=mi; |
wav[i]=mi; |
if(mi==0){ |
if(mi==0){ |
|
nbwarn++; |
if(first==0){ |
if(first==0){ |
printf("Warning! None valid information for:%ld line=%d (skipped) and may be others, see log file\n",num[i],i); |
printf("Warning! None valid information for:%ld line=%d (skipped) and may be others, see log file\n",num[i],i); |
first=1; |
first=1; |
Line 1982 void concatwav(int wav[], int **dh, int
|
Line 2098 void concatwav(int wav[], int **dh, int
|
j= rint(agedc[i]*12-agev[mw[mi][i]][i]*12); |
j= rint(agedc[i]*12-agev[mw[mi][i]][i]*12); |
if(j==0) j=1; /* Survives at least one month after exam */ |
if(j==0) j=1; /* Survives at least one month after exam */ |
else if(j<0){ |
else if(j<0){ |
|
nberr++; |
printf("Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
printf("Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
j=1; /* Careful Patch */ |
j=1; /* Temporary Dangerous patch */ |
printf(" We assumed that the date of interview was correct (and not the date of death) and postponed the death %d month(s) (one stepm) after the interview.\n You MUST fixe the contradiction between dates.\n",stepm); |
printf(" We assumed that the date of interview was correct (and not the date of death) and postponed the death %d month(s) (one stepm) after the interview.\n You MUST fix the contradiction between dates.\n",stepm); |
printf("Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
fprintf(ficlog,"Error! Negative delay (%d to death) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
fprintf(ficlog," We assumed that the date of interview was correct (and not the date of death) and postponed the death %d month(s) (one stepm) after the interview.\n You MUST fix the contradiction between dates.\n",stepm); |
fprintf(ficlog," We assumed that the date of interview was correct (and not the date of death) and postponed the death %d month(s) (one stepm) after the interview.\n You MUST fix the contradiction between dates.\n",stepm); |
} |
} |
k=k+1; |
k=k+1; |
Line 2005 void concatwav(int wav[], int **dh, int
|
Line 2122 void concatwav(int wav[], int **dh, int
|
/* if (j<10) printf("j=%d jmin=%d num=%d ",j,jmin,i); */ |
/* if (j<10) printf("j=%d jmin=%d num=%d ",j,jmin,i); */ |
/*printf("%d %lf %d %d %d\n", i,agev[mw[mi][i]][i],j,s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);*/ |
/*printf("%d %lf %d %d %d\n", i,agev[mw[mi][i]][i],j,s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]);*/ |
if(j<0){ |
if(j<0){ |
|
nberr++; |
printf("Error! Negative delay (%d) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
printf("Error! Negative delay (%d) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
fprintf(ficlog,"Error! Negative delay (%d) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
fprintf(ficlog,"Error! Negative delay (%d) between waves %d and %d of individual %ld at line %d who is aged %.1f with statuses from %d to %d\n ",j,mw[mi][i],mw[mi+1][i],num[i], i,agev[mw[mi][i]][i],s[mw[mi][i]][i] ,s[mw[mi+1][i]][i]); |
} |
} |
Line 2181 void evsij(char fileres[], double ***eij
|
Line 2299 void evsij(char fileres[], double ***eij
|
|
|
hf=hstepm*stepm/YEARM; /* Duration of hstepm expressed in year unit. */ |
hf=hstepm*stepm/YEARM; /* Duration of hstepm expressed in year unit. */ |
|
|
/* Computing Variances of health expectancies */ |
/* Computing Variances of health expectancies */ |
|
|
for(theta=1; theta <=npar; theta++){ |
for(theta=1; theta <=npar; theta++){ |
for(i=1; i<=npar; i++){ |
for(i=1; i<=npar; i++){ |
Line 2340 void varevsij(char optionfilefiname[], d
|
Line 2458 void varevsij(char optionfilefiname[], d
|
fprintf(ficresprobmorprev," w%1d p%-d%-d",i,i,j); |
fprintf(ficresprobmorprev," w%1d p%-d%-d",i,i,j); |
} |
} |
fprintf(ficresprobmorprev,"\n"); |
fprintf(ficresprobmorprev,"\n"); |
if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) { |
fprintf(ficgp,"\n# Routine varevsij"); |
printf("Problem with gnuplot file: %s\n", optionfilegnuplot); |
fprintf(fichtm,"\n<li><h4> Computing probabilities of dying over estepm months as a weighted average (i.e global mortality independent of initial healh state)</h4></li>\n"); |
fprintf(ficlog,"Problem with gnuplot file: %s\n", optionfilegnuplot); |
fprintf(fichtm,"\n<br>%s <br>\n",digitp); |
exit(0); |
/* } */ |
} |
|
else{ |
|
fprintf(ficgp,"\n# Routine varevsij"); |
|
} |
|
if((fichtm=fopen(optionfilehtm,"a"))==NULL) { |
|
printf("Problem with html file: %s\n", optionfilehtm); |
|
fprintf(ficlog,"Problem with html file: %s\n", optionfilehtm); |
|
exit(0); |
|
} |
|
else{ |
|
fprintf(fichtm,"\n<li><h4> Computing probabilities of dying over estepm months as a weighted average (i.e global mortality independent of initial healh state)</h4></li>\n"); |
|
fprintf(fichtm,"\n<br>%s <br>\n",digitp); |
|
} |
|
varppt = matrix(nlstate+1,nlstate+ndeath,nlstate+1,nlstate+ndeath); |
varppt = matrix(nlstate+1,nlstate+ndeath,nlstate+1,nlstate+ndeath); |
|
|
fprintf(ficresvij,"# Variance and covariance of health expectancies e.j \n# (weighted average of eij where weights are the stable prevalence in health states i\n"); |
fprintf(ficresvij,"# Variance and covariance of health expectancies e.j \n# (weighted average of eij where weights are the stable prevalence in health states i\n"); |
Line 2568 void varevsij(char optionfilefiname[], d
|
Line 2673 void varevsij(char optionfilefiname[], d
|
/* fprintf(ficgp,"\n plot \"%s\" u 1:($3*%6.3f) not w l 1 ",fileresprobmorprev,YEARM/estepm); */ |
/* fprintf(ficgp,"\n plot \"%s\" u 1:($3*%6.3f) not w l 1 ",fileresprobmorprev,YEARM/estepm); */ |
/* fprintf(ficgp,"\n replot \"%s\" u 1:(($3+1.96*$4)*%6.3f) t \"95\%% interval\" w l 2 ",fileresprobmorprev,YEARM/estepm); */ |
/* fprintf(ficgp,"\n replot \"%s\" u 1:(($3+1.96*$4)*%6.3f) t \"95\%% interval\" w l 2 ",fileresprobmorprev,YEARM/estepm); */ |
/* fprintf(ficgp,"\n replot \"%s\" u 1:(($3-1.96*$4)*%6.3f) not w l 2 ",fileresprobmorprev,YEARM/estepm); */ |
/* fprintf(ficgp,"\n replot \"%s\" u 1:(($3-1.96*$4)*%6.3f) not w l 2 ",fileresprobmorprev,YEARM/estepm); */ |
fprintf(ficgp,"\n plot \"%s\" u 1:($3) not w l 1 ",fileresprobmorprev); |
fprintf(ficgp,"\n plot \"%s\" u 1:($3) not w l 1 ",subdirf(fileresprobmorprev)); |
fprintf(ficgp,"\n replot \"%s\" u 1:(($3+1.96*$4)) t \"95\%% interval\" w l 2 ",fileresprobmorprev); |
fprintf(ficgp,"\n replot \"%s\" u 1:(($3+1.96*$4)) t \"95\%% interval\" w l 2 ",subdirf(fileresprobmorprev)); |
fprintf(ficgp,"\n replot \"%s\" u 1:(($3-1.96*$4)) not w l 2 ",fileresprobmorprev); |
fprintf(ficgp,"\n replot \"%s\" u 1:(($3-1.96*$4)) not w l 2 ",subdirf(fileresprobmorprev)); |
fprintf(fichtm,"\n<br> File (multiple files are possible if covariates are present): <A href=\"%s\">%s</a>\n",fileresprobmorprev,fileresprobmorprev); |
fprintf(fichtm,"\n<br> File (multiple files are possible if covariates are present): <A href=\"%s\">%s</a>\n",subdirf(fileresprobmorprev),subdirf(fileresprobmorprev)); |
fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months. <br> <img src=\"varmuptjgr%s%s%s.png\"> <br>\n", estepm,digitp,optionfilefiname,digit); |
fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months. <br> <img src=\"%s%s.png\"> <br>\n", estepm,subdirf3(optionfilefiname,"varmuptjgr",digitp),digit); |
/* fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months and then divided by estepm and multiplied by %.0f in order to have the probability to die over a year <br> <img src=\"varmuptjgr%s%s.png\"> <br>\n", stepm,YEARM,digitp,digit); |
/* fprintf(fichtm,"\n<br> Probability is computed over estepm=%d months and then divided by estepm and multiplied by %.0f in order to have the probability to die over a year <br> <img src=\"varmuptjgr%s%s.png\"> <br>\n", stepm,YEARM,digitp,digit); |
*/ |
*/ |
fprintf(ficgp,"\nset out \"varmuptjgr%s%s%s.png\";replot;",digitp,optionfilefiname,digit); |
/* fprintf(ficgp,"\nset out \"varmuptjgr%s%s%s.png\";replot;",digitp,optionfilefiname,digit); */ |
|
fprintf(ficgp,"\nset out \"%s%s.png\";replot;\n",subdirf3(optionfilefiname,"varmuptjgr",digitp),digit); |
|
|
free_vector(xp,1,npar); |
free_vector(xp,1,npar); |
free_matrix(doldm,1,nlstate,1,nlstate); |
free_matrix(doldm,1,nlstate,1,nlstate); |
Line 2585 void varevsij(char optionfilefiname[], d
|
Line 2691 void varevsij(char optionfilefiname[], d
|
free_matrix(varppt,nlstate+1,nlstate+ndeath,nlstate+1,nlstate+ndeath); |
free_matrix(varppt,nlstate+1,nlstate+ndeath,nlstate+1,nlstate+ndeath); |
if (mobilav!=0) free_ma3x(mobaverage,1, AGESUP,1,NCOVMAX, 1,NCOVMAX); |
if (mobilav!=0) free_ma3x(mobaverage,1, AGESUP,1,NCOVMAX, 1,NCOVMAX); |
fclose(ficresprobmorprev); |
fclose(ficresprobmorprev); |
fclose(ficgp); |
fflush(ficgp); |
fclose(fichtm); |
fflush(fichtm); |
} /* end varevsij */ |
} /* end varevsij */ |
|
|
/************ Variance of prevlim ******************/ |
/************ Variance of prevlim ******************/ |
Line 2743 void varprob(char optionfilefiname[], do
|
Line 2849 void varprob(char optionfilefiname[], do
|
mu=matrix(1,(nlstate)*(nlstate+ndeath), (int) bage, (int)fage); |
mu=matrix(1,(nlstate)*(nlstate+ndeath), (int) bage, (int)fage); |
varpij=ma3x(1,nlstate*(nlstate+ndeath),1,nlstate*(nlstate+ndeath),(int) bage, (int) fage); |
varpij=ma3x(1,nlstate*(nlstate+ndeath),1,nlstate*(nlstate+ndeath),(int) bage, (int) fage); |
first=1; |
first=1; |
if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) { |
fprintf(ficgp,"\n# Routine varprob"); |
printf("Problem with gnuplot file: %s\n", optionfilegnuplot); |
fprintf(fichtm,"\n<li><h4> Computing and drawing one step probabilities with their confidence intervals</h4></li>\n"); |
fprintf(ficlog,"Problem with gnuplot file: %s\n", optionfilegnuplot); |
fprintf(fichtm,"\n"); |
exit(0); |
|
} |
fprintf(fichtm,"\n<li><h4> <a href=\"%s\">Matrix of variance-covariance of pairs of step probabilities (drawings)</a></h4></li>\n",optionfilehtmcov); |
else{ |
fprintf(fichtmcov,"\n<h4>Matrix of variance-covariance of pairs of step probabilities</h4>\n\ |
fprintf(ficgp,"\n# Routine varprob"); |
file %s<br>\n",optionfilehtmcov); |
} |
fprintf(fichtmcov,"\nEllipsoids of confidence centered on point (p<inf>ij</inf>, p<inf>kl</inf>) are estimated\ |
if((fichtm=fopen(optionfilehtm,"a"))==NULL) { |
and drawn. It helps understanding how is the covariance between two incidences.\ |
printf("Problem with html file: %s\n", optionfilehtm); |
They are expressed in year<sup>-1</sup> in order to be less dependent of stepm.<br>\n"); |
fprintf(ficlog,"Problem with html file: %s\n", optionfilehtm); |
fprintf(fichtmcov,"\n<br> Contour plot corresponding to x'cov<sup>-1</sup>x = 4 (where x is the column vector (pij,pkl)) are drawn. \ |
exit(0); |
It can be understood this way: if pij and pkl where uncorrelated the (2x2) matrix of covariance \ |
} |
would have been (1/(var pij), 0 , 0, 1/(var pkl)), and the confidence interval would be 2 \ |
else{ |
standard deviations wide on each axis. <br>\ |
fprintf(fichtm,"\n<li><h4> Computing and drawing one step probabilities with their confidence intervals</h4></li>\n"); |
Now, if both incidences are correlated (usual case) we diagonalised the inverse of the covariance matrix\ |
fprintf(fichtm,"\n"); |
and made the appropriate rotation to look at the uncorrelated principal directions.<br>\ |
|
To be simple, these graphs help to understand the significativity of each parameter in relation to a second other one.<br> \n"); |
fprintf(fichtm,"\n<li><h4> Computing matrix of variance-covariance of step probabilities</h4></li>\n"); |
|
fprintf(fichtm,"\nWe have drawn ellipsoids of confidence around the p<inf>ij</inf>, p<inf>kl</inf> to understand the covariance between two incidences. They are expressed in year<sup>-1</sup> in order to be less dependent of stepm.<br>\n"); |
|
fprintf(fichtm,"\n<br> We have drawn x'cov<sup>-1</sup>x = 4 where x is the column vector (pij,pkl). It means that if pij and pkl where uncorrelated the (2X2) matrix would have been (1/(var pij), 0 , 0, 1/(var pkl)), and the confidence interval would be 2 standard deviations wide on each axis. <br> When both incidences are correlated we diagonalised the inverse of the covariance matrix and made the appropriate rotation.<br> \n"); |
|
|
|
} |
|
|
|
cov[1]=1; |
cov[1]=1; |
tj=cptcoveff; |
tj=cptcoveff; |
Line 2946 void varprob(char optionfilefiname[], do
|
Line 3047 void varprob(char optionfilefiname[], do
|
fprintf(ficgp,"\nset parametric;unset label"); |
fprintf(ficgp,"\nset parametric;unset label"); |
fprintf(ficgp,"\nset log y;set log x; set xlabel \"p%1d%1d (year-1)\";set ylabel \"p%1d%1d (year-1)\"",k1,l1,k2,l2); |
fprintf(ficgp,"\nset log y;set log x; set xlabel \"p%1d%1d (year-1)\";set ylabel \"p%1d%1d (year-1)\"",k1,l1,k2,l2); |
fprintf(ficgp,"\nset ter png small\nset size 0.65,0.65"); |
fprintf(ficgp,"\nset ter png small\nset size 0.65,0.65"); |
fprintf(fichtm,"\n<br>Ellipsoids of confidence cov(p%1d%1d,p%1d%1d) expressed in year<sup>-1</sup> :<a href=\"varpijgr%s%d%1d%1d-%1d%1d.png\">varpijgr%s%d%1d%1d-%1d%1d.png</A>, ",k1,l1,k2,l2,optionfilefiname, j1,k1,l1,k2,l2,optionfilefiname, j1,k1,l1,k2,l2); |
fprintf(fichtmcov,"\n<br>Ellipsoids of confidence cov(p%1d%1d,p%1d%1d) expressed in year<sup>-1</sup>\ |
fprintf(fichtm,"\n<br><img src=\"varpijgr%s%d%1d%1d-%1d%1d.png\"> ",optionfilefiname, j1,k1,l1,k2,l2); |
:<a href=\"%s%d%1d%1d-%1d%1d.png\">\ |
fprintf(fichtm,"\n<br> Correlation at age %d (%.3f),",(int) age, c12); |
%s%d%1d%1d-%1d%1d.png</A>, ",k1,l1,k2,l2,\ |
fprintf(ficgp,"\nset out \"varpijgr%s%d%1d%1d-%1d%1d.png\"",optionfilefiname, j1,k1,l1,k2,l2); |
subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2,\ |
|
subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2); |
|
fprintf(fichtmcov,"\n<br><img src=\"%s%d%1d%1d-%1d%1d.png\"> ",subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2); |
|
fprintf(fichtmcov,"\n<br> Correlation at age %d (%.3f),",(int) age, c12); |
|
fprintf(ficgp,"\nset out \"%s%d%1d%1d-%1d%1d.png\"",subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2); |
fprintf(ficgp,"\nset label \"%d\" at %11.3e,%11.3e center",(int) age, mu1,mu2); |
fprintf(ficgp,"\nset label \"%d\" at %11.3e,%11.3e center",(int) age, mu1,mu2); |
fprintf(ficgp,"\n# Age %d, p%1d%1d - p%1d%1d",(int) age, k1,l1,k2,l2); |
fprintf(ficgp,"\n# Age %d, p%1d%1d - p%1d%1d",(int) age, k1,l1,k2,l2); |
fprintf(ficgp,"\nplot [-pi:pi] %11.3e+ %.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)), %11.3e +%.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)) not",\ |
fprintf(ficgp,"\nplot [-pi:pi] %11.3e+ %.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)), %11.3e +%.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)) not",\ |
Line 2957 void varprob(char optionfilefiname[], do
|
Line 3062 void varprob(char optionfilefiname[], do
|
mu2,std,v21,sqrt(lc1),v22,sqrt(lc2)); |
mu2,std,v21,sqrt(lc1),v22,sqrt(lc2)); |
}else{ |
}else{ |
first=0; |
first=0; |
fprintf(fichtm," %d (%.3f),",(int) age, c12); |
fprintf(fichtmcov," %d (%.3f),",(int) age, c12); |
fprintf(ficgp,"\n# Age %d, p%1d%1d - p%1d%1d",(int) age, k1,l1,k2,l2); |
fprintf(ficgp,"\n# Age %d, p%1d%1d - p%1d%1d",(int) age, k1,l1,k2,l2); |
fprintf(ficgp,"\nset label \"%d\" at %11.3e,%11.3e center",(int) age, mu1,mu2); |
fprintf(ficgp,"\nset label \"%d\" at %11.3e,%11.3e center",(int) age, mu1,mu2); |
fprintf(ficgp,"\nreplot %11.3e+ %.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)), %11.3e +%.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)) not",\ |
fprintf(ficgp,"\nreplot %11.3e+ %.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)), %11.3e +%.3f*(%11.3e*%11.3e*cos(t)+%11.3e*%11.3e*sin(t)) not",\ |
Line 2966 void varprob(char optionfilefiname[], do
|
Line 3071 void varprob(char optionfilefiname[], do
|
}/* if first */ |
}/* if first */ |
} /* age mod 5 */ |
} /* age mod 5 */ |
} /* end loop age */ |
} /* end loop age */ |
fprintf(ficgp,"\nset out \"varpijgr%s%d%1d%1d-%1d%1d.png\";replot;",optionfilefiname, j1,k1,l1,k2,l2); |
fprintf(ficgp,"\nset out \"%s%d%1d%1d-%1d%1d.png\";replot;",subdirf2(optionfilefiname,"varpijgr"), j1,k1,l1,k2,l2); |
first=1; |
first=1; |
} /*l12 */ |
} /*l12 */ |
} /* k12 */ |
} /* k12 */ |
Line 2980 void varprob(char optionfilefiname[], do
|
Line 3085 void varprob(char optionfilefiname[], do
|
fclose(ficresprob); |
fclose(ficresprob); |
fclose(ficresprobcov); |
fclose(ficresprobcov); |
fclose(ficresprobcor); |
fclose(ficresprobcor); |
fclose(ficgp); |
fflush(ficgp); |
fclose(fichtm); |
fflush(fichtmcov); |
} |
} |
|
|
|
|
Line 2994 void printinghtml(char fileres[], char t
|
Line 3099 void printinghtml(char fileres[], char t
|
double jprev2, double mprev2,double anprev2){ |
double jprev2, double mprev2,double anprev2){ |
int jj1, k1, i1, cpt; |
int jj1, k1, i1, cpt; |
/*char optionfilehtm[FILENAMELENGTH];*/ |
/*char optionfilehtm[FILENAMELENGTH];*/ |
if((fichtm=fopen(optionfilehtm,"a"))==NULL) { |
/* if((fichtm=fopen(optionfilehtm,"a"))==NULL) { */ |
printf("Problem with %s \n",optionfilehtm), exit(0); |
/* printf("Problem with %s \n",optionfilehtm), exit(0); */ |
fprintf(ficlog,"Problem with %s \n",optionfilehtm), exit(0); |
/* fprintf(ficlog,"Problem with %s \n",optionfilehtm), exit(0); */ |
} |
/* } */ |
|
|
fprintf(fichtm,"<ul><li><h4>Result files (first order: no variance)</h4>\n \ |
fprintf(fichtm,"<ul><li><h4>Result files (first order: no variance)</h4>\n \ |
- Observed prevalence in each state (during the period defined between %.lf/%.lf/%.lf and %.lf/%.lf/%.lf): <a href=\"p%s\">p%s</a> <br>\n \ |
- Observed prevalence in each state (during the period defined between %.lf/%.lf/%.lf and %.lf/%.lf/%.lf): <a href=\"%s\">%s</a> <br>\n \ |
- Estimated transition probabilities over %d (stepm) months: <a href=\"pij%s\">pij%s</a><br>\n \ |
- Estimated transition probabilities over %d (stepm) months: <a href=\"%s\">%s</a><br>\n \ |
- Stable prevalence in each health state: <a href=\"pl%s\">pl%s</a> <br>\n \ |
- Stable prevalence in each health state: <a href=\"%s\">%s</a> <br>\n \ |
- Life expectancies by age and initial health status (estepm=%2d months): \ |
- Life expectancies by age and initial health status (estepm=%2d months): \ |
<a href=\"e%s\">e%s</a> <br>\n</li>", \ |
<a href=\"%s\">%s</a> <br>\n</li>", \ |
jprev1, mprev1,anprev1,jprev2, mprev2,anprev2,fileres,fileres,stepm,fileres,fileres,fileres,fileres,estepm,fileres,fileres); |
jprev1, mprev1,anprev1,jprev2, mprev2,anprev2,subdirf2(fileres,"p"),subdirf2(fileres,"p"),\ |
|
stepm,subdirf2(fileres,"pij"),subdirf2(fileres,"pij"),\ |
|
subdirf2(fileres,"pl"),subdirf2(fileres,"pl"),\ |
|
estepm,subdirf2(fileres,"e"),subdirf2(fileres,"e")); |
|
|
fprintf(fichtm," \n<ul><li><b>Graphs</b></li><p>"); |
fprintf(fichtm," \n<ul><li><b>Graphs</b></li><p>"); |
|
|
Line 3023 fprintf(fichtm," \n<ul><li><b>Graphs</b>
|
Line 3131 fprintf(fichtm," \n<ul><li><b>Graphs</b>
|
fprintf(fichtm," ************\n<hr size=\"2\" color=\"#EC5E5E\">"); |
fprintf(fichtm," ************\n<hr size=\"2\" color=\"#EC5E5E\">"); |
} |
} |
/* Pij */ |
/* Pij */ |
fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i, %d (stepm) months before: pe%s%d1.png<br> \ |
fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i, %d (stepm) months before: %s%d1.png<br> \ |
<img src=\"pe%s%d1.png\">",stepm,strtok(optionfile, "."),jj1,strtok(optionfile, "."),jj1); |
<img src=\"%s%d1.png\">",stepm,subdirf2(optionfilefiname,"pe"),jj1,subdirf2(optionfilefiname,"pe"),jj1); |
/* Quasi-incidences */ |
/* Quasi-incidences */ |
fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i %d (stepm) months\ |
fprintf(fichtm,"<br>- Pij or Conditional probabilities to be observed in state j being in state i %d (stepm) months\ |
before but expressed in per year i.e. quasi incidences if stepm is small and probabilities too: pe%s%d2.png<br> \ |
before but expressed in per year i.e. quasi incidences if stepm is small and probabilities too: %s%d2.png<br> \ |
<img src=\"pe%s%d2.png\">",stepm,strtok(optionfile, "."),jj1,strtok(optionfile, "."),jj1); |
<img src=\"%s%d2.png\">",stepm,subdirf2(optionfilefiname,"pe"),jj1,subdirf2(optionfilefiname,"pe"),jj1); |
/* Stable prevalence in each health state */ |
/* Stable prevalence in each health state */ |
for(cpt=1; cpt<nlstate;cpt++){ |
for(cpt=1; cpt<nlstate;cpt++){ |
fprintf(fichtm,"<br>- Stable prevalence in each health state : p%s%d%d.png<br> \ |
fprintf(fichtm,"<br>- Stable prevalence in each health state : p%s%d%d.png<br> \ |
<img src=\"p%s%d%d.png\">",strtok(optionfile, "."),cpt,jj1,strtok(optionfile, "."),cpt,jj1); |
<img src=\"%s%d%d.png\">",subdirf2(optionfilefiname,"p"),cpt,jj1,subdirf2(optionfilefiname,"p"),cpt,jj1); |
} |
} |
for(cpt=1; cpt<=nlstate;cpt++) { |
for(cpt=1; cpt<=nlstate;cpt++) { |
fprintf(fichtm,"\n<br>- Health life expectancies by age and initial health state (%d): exp%s%d%d.png <br> \ |
fprintf(fichtm,"\n<br>- Health life expectancies by age and initial health state (%d): %s%d%d.png <br> \ |
<img src=\"exp%s%d%d.png\">",cpt,strtok(optionfile, "."),cpt,jj1,strtok(optionfile, "."),cpt,jj1); |
<img src=\"%s%d%d.png\">",cpt,subdirf2(optionfilefiname,"exp"),cpt,jj1,subdirf2(optionfilefiname,"exp"),cpt,jj1); |
} |
} |
fprintf(fichtm,"\n<br>- Total life expectancy by age and \ |
fprintf(fichtm,"\n<br>- Total life expectancy by age and \ |
health expectancies in states (1) and (2): e%s%d.png<br>\ |
health expectancies in states (1) and (2): %s%d.png<br>\ |
<img src=\"e%s%d.png\">",strtok(optionfile, "."),jj1,strtok(optionfile, "."),jj1); |
<img src=\"%s%d.png\">",subdirf2(optionfilefiname,"e"),jj1,subdirf2(optionfilefiname,"e"),jj1); |
} /* end i1 */ |
} /* end i1 */ |
}/* End k1 */ |
}/* End k1 */ |
fprintf(fichtm,"</ul>"); |
fprintf(fichtm,"</ul>"); |
Line 3048 health expectancies in states (1) and (2
|
Line 3156 health expectancies in states (1) and (2
|
|
|
fprintf(fichtm,"\n<br><li><h4> Result files (second order: variances)</h4>\n\ |
fprintf(fichtm,"\n<br><li><h4> Result files (second order: variances)</h4>\n\ |
- Parameter file with estimated parameters and covariance matrix: <a href=\"%s\">%s</a> <br>\n\ |
- Parameter file with estimated parameters and covariance matrix: <a href=\"%s\">%s</a> <br>\n\ |
- Variance of one-step probabilities: <a href=\"prob%s\">prob%s</a> <br>\n\ |
- Variance of one-step probabilities: <a href=\"%s\">%s</a> <br>\n\ |
- Variance-covariance of one-step probabilities: <a href=\"probcov%s\">probcov%s</a> <br>\n\ |
- Variance-covariance of one-step probabilities: <a href=\"%s\">%s</a> <br>\n\ |
- Correlation matrix of one-step probabilities: <a href=\"probcor%s\">probcor%s</a> <br>\n\ |
- Correlation matrix of one-step probabilities: <a href=\"%s\">%s</a> <br>\n\ |
- Variances and covariances of life expectancies by age and initial health status (estepm=%d months): <a href=\"v%s\">v%s</a><br>\n\ |
- Variances and covariances of life expectancies by age and initial health status (estepm=%d months): <a href=\"%s\">%s</a><br>\n\ |
- Health expectancies with their variances (no covariance): <a href=\"t%s\">t%s</a> <br>\n\ |
- Health expectancies with their variances (no covariance): <a href=\"%s\">%s</a> <br>\n\ |
- Standard deviation of stable prevalences: <a href=\"vpl%s\">vpl%s</a> <br>\n",rfileres,rfileres,fileres,fileres,fileres,fileres,fileres,fileres, estepm, fileres,fileres,fileres,fileres,fileres,fileres); |
- Standard deviation of stable prevalences: <a href=\"%s\">%s</a> <br>\n",\ |
|
rfileres,rfileres,\ |
|
subdirf2(fileres,"prob"),subdirf2(fileres,"prob"),\ |
|
subdirf2(fileres,"probcov"),subdirf2(fileres,"probcov"),\ |
|
subdirf2(fileres,"probcor"),subdirf2(fileres,"probcor"),\ |
|
estepm, subdirf2(fileres,"v"),subdirf2(fileres,"v"),\ |
|
subdirf2(fileres,"t"),subdirf2(fileres,"t"),\ |
|
subdirf2(fileres,"vpl"),subdirf2(fileres,"vpl")); |
|
|
/* if(popforecast==1) fprintf(fichtm,"\n */ |
/* if(popforecast==1) fprintf(fichtm,"\n */ |
/* - Prevalences forecasting: <a href=\"f%s\">f%s</a> <br>\n */ |
/* - Prevalences forecasting: <a href=\"f%s\">f%s</a> <br>\n */ |
Line 3077 fprintf(fichtm," <ul><li><b>Graphs</b></
|
Line 3192 fprintf(fichtm," <ul><li><b>Graphs</b></
|
fprintf(fichtm," ************\n<hr size=\"2\" color=\"#EC5E5E\">"); |
fprintf(fichtm," ************\n<hr size=\"2\" color=\"#EC5E5E\">"); |
} |
} |
for(cpt=1; cpt<=nlstate;cpt++) { |
for(cpt=1; cpt<=nlstate;cpt++) { |
fprintf(fichtm,"<br>- Observed and period prevalence (with confident\ |
fprintf(fichtm,"<br>- Observed (cross-sectional) and period (incidence based) \ |
interval) in state (%d): v%s%d%d.png <br>\ |
prevalence (with 95%% confidence interval) in state (%d): %s%d%d.png <br>\ |
<img src=\"v%s%d%d.png\">",cpt,strtok(optionfile, "."),cpt,jj1,strtok(optionfile, "."),cpt,jj1); |
<img src=\"%s%d%d.png\">",cpt,subdirf2(optionfilefiname,"v"),cpt,jj1,subdirf2(optionfilefiname,"v"),cpt,jj1); |
} |
} |
} /* end i1 */ |
} /* end i1 */ |
}/* End k1 */ |
}/* End k1 */ |
fprintf(fichtm,"</ul>"); |
fprintf(fichtm,"</ul>"); |
fclose(fichtm); |
fflush(fichtm); |
} |
} |
|
|
/******************* Gnuplot file **************/ |
/******************* Gnuplot file **************/ |
void printinggnuplot(char fileres[], double ageminpar, double agemaxpar, double fage , char pathc[], double p[]){ |
void printinggnuplot(char fileres[], char optionfilefiname[], double ageminpar, double agemaxpar, double fage , char pathc[], double p[]){ |
|
|
|
char dirfileres[132],optfileres[132]; |
int m,cpt,k1,i,k,j,jk,k2,k3,ij,l; |
int m,cpt,k1,i,k,j,jk,k2,k3,ij,l; |
int ng; |
int ng; |
if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) { |
/* if((ficgp=fopen(optionfilegnuplot,"a"))==NULL) { */ |
printf("Problem with file %s",optionfilegnuplot); |
/* printf("Problem with file %s",optionfilegnuplot); */ |
fprintf(ficlog,"Problem with file %s",optionfilegnuplot); |
/* fprintf(ficlog,"Problem with file %s",optionfilegnuplot); */ |
} |
/* } */ |
|
|
/*#ifdef windows */ |
/*#ifdef windows */ |
fprintf(ficgp,"cd \"%s\" \n",pathc); |
fprintf(ficgp,"cd \"%s\" \n",pathc); |
/*#endif */ |
/*#endif */ |
m=pow(2,cptcoveff); |
m=pow(2,cptcoveff); |
|
|
|
strcpy(dirfileres,optionfilefiname); |
|
strcpy(optfileres,"vpl"); |
/* 1eme*/ |
/* 1eme*/ |
for (cpt=1; cpt<= nlstate ; cpt ++) { |
for (cpt=1; cpt<= nlstate ; cpt ++) { |
for (k1=1; k1<= m ; k1 ++) { |
for (k1=1; k1<= m ; k1 ++) { |
fprintf(ficgp,"\nset out \"v%s%d%d.png\" \n",strtok(optionfile, "."),cpt,k1); |
fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"v"),cpt,k1); |
fprintf(ficgp,"set xlabel \"Age\" \nset ylabel \"Probability\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] \"vpl%s\" every :::%d::%d u 1:2 \"\%%lf",ageminpar,fage,fileres,k1-1,k1-1); |
fprintf(ficgp,"\n#set out \"v%s%d%d.png\" \n",optionfilefiname,cpt,k1); |
|
fprintf(ficgp,"set xlabel \"Age\" \n\ |
|
set ylabel \"Probability\" \n\ |
|
set ter png small\n\ |
|
set size 0.65,0.65\n\ |
|
plot [%.f:%.f] \"%s\" every :::%d::%d u 1:2 \"\%%lf",ageminpar,fage,subdirf2(fileres,"vpl"),k1-1,k1-1); |
|
|
for (i=1; i<= nlstate ; i ++) { |
for (i=1; i<= nlstate ; i ++) { |
if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)"); |
if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
} |
} |
fprintf(ficgp,"\" t\"Stable prevalence\" w l 0,\"vpl%s\" every :::%d::%d u 1:($2+1.96*$3) \"\%%lf",fileres,k1-1,k1-1); |
fprintf(ficgp,"\" t\"Stable prevalence\" w l 0,\"%s\" every :::%d::%d u 1:($2+1.96*$3) \"\%%lf",subdirf2(fileres,"vpl"),k1-1,k1-1); |
for (i=1; i<= nlstate ; i ++) { |
for (i=1; i<= nlstate ; i ++) { |
if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)"); |
if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
} |
} |
fprintf(ficgp,"\" t\"95\%% CI\" w l 1,\"vpl%s\" every :::%d::%d u 1:($2-1.96*$3) \"\%%lf",fileres,k1-1,k1-1); |
fprintf(ficgp,"\" t\"95\%% CI\" w l 1,\"%s\" every :::%d::%d u 1:($2-1.96*$3) \"\%%lf",subdirf2(fileres,"vpl"),k1-1,k1-1); |
for (i=1; i<= nlstate ; i ++) { |
for (i=1; i<= nlstate ; i ++) { |
if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)"); |
if (i==cpt) fprintf(ficgp," \%%lf (\%%lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
} |
} |
fprintf(ficgp,"\" t\"\" w l 1,\"p%s\" every :::%d::%d u 1:($%d) t\"Observed prevalence \" w l 2",fileres,k1-1,k1-1,2+4*(cpt-1)); |
fprintf(ficgp,"\" t\"\" w l 1,\"%s\" every :::%d::%d u 1:($%d) t\"Observed prevalence \" w l 2",subdirf2(fileres,"p"),k1-1,k1-1,2+4*(cpt-1)); |
} |
} |
} |
} |
/*2 eme*/ |
/*2 eme*/ |
|
|
for (k1=1; k1<= m ; k1 ++) { |
for (k1=1; k1<= m ; k1 ++) { |
fprintf(ficgp,"\nset out \"e%s%d.png\" \n",strtok(optionfile, "."),k1); |
fprintf(ficgp,"\nset out \"%s%d.png\" \n",subdirf2(optionfilefiname,"e"),k1); |
fprintf(ficgp,"set ylabel \"Years\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] ",ageminpar,fage); |
fprintf(ficgp,"set ylabel \"Years\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] ",ageminpar,fage); |
|
|
for (i=1; i<= nlstate+1 ; i ++) { |
for (i=1; i<= nlstate+1 ; i ++) { |
k=2*i; |
k=2*i; |
fprintf(ficgp,"\"t%s\" every :::%d::%d u 1:2 \"\%%lf",fileres,k1-1,k1-1); |
fprintf(ficgp,"\"%s\" every :::%d::%d u 1:2 \"\%%lf",subdirf2(fileres,"t"),k1-1,k1-1); |
for (j=1; j<= nlstate+1 ; j ++) { |
for (j=1; j<= nlstate+1 ; j ++) { |
if (j==i) fprintf(ficgp," \%%lf (\%%lf)"); |
if (j==i) fprintf(ficgp," \%%lf (\%%lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
} |
} |
if (i== 1) fprintf(ficgp,"\" t\"TLE\" w l ,"); |
if (i== 1) fprintf(ficgp,"\" t\"TLE\" w l ,"); |
else fprintf(ficgp,"\" t\"LE in state (%d)\" w l ,",i-1); |
else fprintf(ficgp,"\" t\"LE in state (%d)\" w l ,",i-1); |
fprintf(ficgp,"\"t%s\" every :::%d::%d u 1:($2-$3*2) \"\%%lf",fileres,k1-1,k1-1); |
fprintf(ficgp,"\"%s\" every :::%d::%d u 1:($2-$3*2) \"\%%lf",subdirf2(fileres,"t"),k1-1,k1-1); |
for (j=1; j<= nlstate+1 ; j ++) { |
for (j=1; j<= nlstate+1 ; j ++) { |
if (j==i) fprintf(ficgp," \%%lf (\%%lf)"); |
if (j==i) fprintf(ficgp," \%%lf (\%%lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
} |
} |
fprintf(ficgp,"\" t\"\" w l 0,"); |
fprintf(ficgp,"\" t\"\" w l 0,"); |
fprintf(ficgp,"\"t%s\" every :::%d::%d u 1:($2+$3*2) \"\%%lf",fileres,k1-1,k1-1); |
fprintf(ficgp,"\"%s\" every :::%d::%d u 1:($2+$3*2) \"\%%lf",subdirf2(fileres,"t"),k1-1,k1-1); |
for (j=1; j<= nlstate+1 ; j ++) { |
for (j=1; j<= nlstate+1 ; j ++) { |
if (j==i) fprintf(ficgp," \%%lf (\%%lf)"); |
if (j==i) fprintf(ficgp," \%%lf (\%%lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
else fprintf(ficgp," \%%*lf (\%%*lf)"); |
Line 3161 m=pow(2,cptcoveff);
|
Line 3284 m=pow(2,cptcoveff);
|
for (k1=1; k1<= m ; k1 ++) { |
for (k1=1; k1<= m ; k1 ++) { |
for (cpt=1; cpt<= nlstate ; cpt ++) { |
for (cpt=1; cpt<= nlstate ; cpt ++) { |
k=2+nlstate*(2*cpt-2); |
k=2+nlstate*(2*cpt-2); |
fprintf(ficgp,"\nset out \"exp%s%d%d.png\" \n",strtok(optionfile, "."),cpt,k1); |
fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"exp"),cpt,k1); |
fprintf(ficgp,"set ter png small\nset size 0.65,0.65\nplot [%.f:%.f] \"e%s\" every :::%d::%d u 1:%d t \"e%d1\" w l",ageminpar,fage,fileres,k1-1,k1-1,k,cpt); |
fprintf(ficgp,"set ter png small\n\ |
|
set size 0.65,0.65\n\ |
|
plot [%.f:%.f] \"%s\" every :::%d::%d u 1:%d t \"e%d1\" w l",ageminpar,fage,subdirf2(fileres,"e"),k1-1,k1-1,k,cpt); |
/*fprintf(ficgp,",\"e%s\" every :::%d::%d u 1:($%d-2*$%d) \"\%%lf ",fileres,k1-1,k1-1,k,k+1); |
/*fprintf(ficgp,",\"e%s\" every :::%d::%d u 1:($%d-2*$%d) \"\%%lf ",fileres,k1-1,k1-1,k,k+1); |
for (i=1; i<= nlstate*2 ; i ++) fprintf(ficgp,"\%%lf (\%%lf) "); |
for (i=1; i<= nlstate*2 ; i ++) fprintf(ficgp,"\%%lf (\%%lf) "); |
fprintf(ficgp,"\" t \"e%d1\" w l",cpt); |
fprintf(ficgp,"\" t \"e%d1\" w l",cpt); |
Line 3172 m=pow(2,cptcoveff);
|
Line 3297 m=pow(2,cptcoveff);
|
|
|
*/ |
*/ |
for (i=1; i< nlstate ; i ++) { |
for (i=1; i< nlstate ; i ++) { |
fprintf(ficgp," ,\"e%s\" every :::%d::%d u 1:%d t \"e%d%d\" w l",fileres,k1-1,k1-1,k+2*i,cpt,i+1); |
fprintf(ficgp," ,\"%s\" every :::%d::%d u 1:%d t \"e%d%d\" w l",subdirf2(fileres,"e"),k1-1,k1-1,k+2*i,cpt,i+1); |
|
|
} |
} |
} |
} |
Line 3182 m=pow(2,cptcoveff);
|
Line 3307 m=pow(2,cptcoveff);
|
for (k1=1; k1<= m ; k1 ++) { |
for (k1=1; k1<= m ; k1 ++) { |
for (cpt=1; cpt<=nlstate ; cpt ++) { |
for (cpt=1; cpt<=nlstate ; cpt ++) { |
k=3; |
k=3; |
fprintf(ficgp,"\nset out \"p%s%d%d.png\" \n",strtok(optionfile, "."),cpt,k1); |
fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"p"),cpt,k1); |
fprintf(ficgp,"set xlabel \"Age\" \nset ylabel \"Probability\" \nset ter png small\nset size 0.65,0.65\nplot [%.f:%.f] \"pij%s\" u ($1==%d ? ($3):1/0):($%d/($%d",ageminpar,agemaxpar,fileres,k1,k+cpt+1,k+1); |
fprintf(ficgp,"set xlabel \"Age\" \nset ylabel \"Probability\" \n\ |
|
set ter png small\nset size 0.65,0.65\n\ |
|
unset log y\n\ |
|
plot [%.f:%.f] \"%s\" u ($1==%d ? ($3):1/0):($%d/($%d",ageminpar,agemaxpar,subdirf2(fileres,"pij"),k1,k+cpt+1,k+1); |
|
|
for (i=1; i< nlstate ; i ++) |
for (i=1; i< nlstate ; i ++) |
fprintf(ficgp,"+$%d",k+i+1); |
fprintf(ficgp,"+$%d",k+i+1); |
fprintf(ficgp,")) t\"prev(%d,%d)\" w l",cpt,cpt+1); |
fprintf(ficgp,")) t\"prev(%d,%d)\" w l",cpt,cpt+1); |
|
|
l=3+(nlstate+ndeath)*cpt; |
l=3+(nlstate+ndeath)*cpt; |
fprintf(ficgp,",\"pij%s\" u ($1==%d ? ($3):1/0):($%d/($%d",fileres,k1,l+cpt+1,l+1); |
fprintf(ficgp,",\"%s\" u ($1==%d ? ($3):1/0):($%d/($%d",subdirf2(fileres,"pij"),k1,l+cpt+1,l+1); |
for (i=1; i< nlstate ; i ++) { |
for (i=1; i< nlstate ; i ++) { |
l=3+(nlstate+ndeath)*cpt; |
l=3+(nlstate+ndeath)*cpt; |
fprintf(ficgp,"+$%d",l+i+1); |
fprintf(ficgp,"+$%d",l+i+1); |
Line 3214 m=pow(2,cptcoveff);
|
Line 3342 m=pow(2,cptcoveff);
|
|
|
for(ng=1; ng<=2;ng++){ /* Number of graphics: first is probabilities second is incidence per year*/ |
for(ng=1; ng<=2;ng++){ /* Number of graphics: first is probabilities second is incidence per year*/ |
for(jk=1; jk <=m; jk++) { |
for(jk=1; jk <=m; jk++) { |
fprintf(ficgp,"\nset out \"pe%s%d%d.png\" \n",strtok(optionfile, "."),jk,ng); |
fprintf(ficgp,"\nset out \"%s%d%d.png\" \n",subdirf2(optionfilefiname,"pe"),jk,ng); |
if (ng==2) |
if (ng==2) |
fprintf(ficgp,"\nset ylabel \"Quasi-incidence per year\"\n"); |
fprintf(ficgp,"\nset ylabel \"Quasi-incidence per year\"\n"); |
else |
else |
Line 3261 m=pow(2,cptcoveff);
|
Line 3389 m=pow(2,cptcoveff);
|
} /* end k2 */ |
} /* end k2 */ |
} /* end jk */ |
} /* end jk */ |
} /* end ng */ |
} /* end ng */ |
fclose(ficgp); |
fflush(ficgp); |
} /* end gnuplot */ |
} /* end gnuplot */ |
|
|
|
|
Line 3591 populforecast(char fileres[], double anp
|
Line 3719 populforecast(char fileres[], double anp
|
fclose(ficrespop); |
fclose(ficrespop); |
} /* End of popforecast */ |
} /* End of popforecast */ |
|
|
|
int fileappend(FILE *fichier, char *optionfich) |
|
{ |
|
if((fichier=fopen(optionfich,"a"))==NULL) { |
|
printf("Problem with file: %s\n", optionfich); |
|
fprintf(ficlog,"Problem with file: %s\n", optionfich); |
|
return (0); |
|
} |
|
fflush(fichier); |
|
return (1); |
|
} |
|
|
|
|
|
/**************** function prwizard **********************/ |
|
void prwizard(int ncovmodel, int nlstate, int ndeath, char model[], FILE *ficparo) |
|
{ |
|
|
|
/* Wizard to print covariance matrix template */ |
|
|
|
char ca[32], cb[32], cc[32]; |
|
int i,j, k, l, li, lj, lk, ll, jj, npar, itimes; |
|
int numlinepar; |
|
|
|
printf("# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
|
fprintf(ficparo,"# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
|
for(i=1; i <=nlstate; i++){ |
|
jj=0; |
|
for(j=1; j <=nlstate+ndeath; j++){ |
|
if(j==i) continue; |
|
jj++; |
|
/*ca[0]= k+'a'-1;ca[1]='\0';*/ |
|
printf("%1d%1d",i,j); |
|
fprintf(ficparo,"%1d%1d",i,j); |
|
for(k=1; k<=ncovmodel;k++){ |
|
/* printf(" %lf",param[i][j][k]); */ |
|
/* fprintf(ficparo," %lf",param[i][j][k]); */ |
|
printf(" 0."); |
|
fprintf(ficparo," 0."); |
|
} |
|
printf("\n"); |
|
fprintf(ficparo,"\n"); |
|
} |
|
} |
|
printf("# Scales (for hessian or gradient estimation)\n"); |
|
fprintf(ficparo,"# Scales (for hessian or gradient estimation)\n"); |
|
npar= (nlstate+ndeath-1)*nlstate*ncovmodel; /* Number of parameters*/ |
|
for(i=1; i <=nlstate; i++){ |
|
jj=0; |
|
for(j=1; j <=nlstate+ndeath; j++){ |
|
if(j==i) continue; |
|
jj++; |
|
fprintf(ficparo,"%1d%1d",i,j); |
|
printf("%1d%1d",i,j); |
|
fflush(stdout); |
|
for(k=1; k<=ncovmodel;k++){ |
|
/* printf(" %le",delti3[i][j][k]); */ |
|
/* fprintf(ficparo," %le",delti3[i][j][k]); */ |
|
printf(" 0."); |
|
fprintf(ficparo," 0."); |
|
} |
|
numlinepar++; |
|
printf("\n"); |
|
fprintf(ficparo,"\n"); |
|
} |
|
} |
|
printf("# Covariance matrix\n"); |
|
/* # 121 Var(a12)\n\ */ |
|
/* # 122 Cov(b12,a12) Var(b12)\n\ */ |
|
/* # 131 Cov(a13,a12) Cov(a13,b12, Var(a13)\n\ */ |
|
/* # 132 Cov(b13,a12) Cov(b13,b12, Cov(b13,a13) Var(b13)\n\ */ |
|
/* # 212 Cov(a21,a12) Cov(a21,b12, Cov(a21,a13) Cov(a21,b13) Var(a21)\n\ */ |
|
/* # 212 Cov(b21,a12) Cov(b21,b12, Cov(b21,a13) Cov(b21,b13) Cov(b21,a21) Var(b21)\n\ */ |
|
/* # 232 Cov(a23,a12) Cov(a23,b12, Cov(a23,a13) Cov(a23,b13) Cov(a23,a21) Cov(a23,b21) Var(a23)\n\ */ |
|
/* # 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n" */ |
|
fflush(stdout); |
|
fprintf(ficparo,"# Covariance matrix\n"); |
|
/* # 121 Var(a12)\n\ */ |
|
/* # 122 Cov(b12,a12) Var(b12)\n\ */ |
|
/* # ...\n\ */ |
|
/* # 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n" */ |
|
|
|
for(itimes=1;itimes<=2;itimes++){ |
|
jj=0; |
|
for(i=1; i <=nlstate; i++){ |
|
for(j=1; j <=nlstate+ndeath; j++){ |
|
if(j==i) continue; |
|
for(k=1; k<=ncovmodel;k++){ |
|
jj++; |
|
ca[0]= k+'a'-1;ca[1]='\0'; |
|
if(itimes==1){ |
|
printf("#%1d%1d%d",i,j,k); |
|
fprintf(ficparo,"#%1d%1d%d",i,j,k); |
|
}else{ |
|
printf("%1d%1d%d",i,j,k); |
|
fprintf(ficparo,"%1d%1d%d",i,j,k); |
|
/* printf(" %.5le",matcov[i][j]); */ |
|
} |
|
ll=0; |
|
for(li=1;li <=nlstate; li++){ |
|
for(lj=1;lj <=nlstate+ndeath; lj++){ |
|
if(lj==li) continue; |
|
for(lk=1;lk<=ncovmodel;lk++){ |
|
ll++; |
|
if(ll<=jj){ |
|
cb[0]= lk +'a'-1;cb[1]='\0'; |
|
if(ll<jj){ |
|
if(itimes==1){ |
|
printf(" Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj); |
|
fprintf(ficparo," Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj); |
|
}else{ |
|
printf(" 0."); |
|
fprintf(ficparo," 0."); |
|
} |
|
}else{ |
|
if(itimes==1){ |
|
printf(" Var(%s%1d%1d)",ca,i,j); |
|
fprintf(ficparo," Var(%s%1d%1d)",ca,i,j); |
|
}else{ |
|
printf(" 0."); |
|
fprintf(ficparo," 0."); |
|
} |
|
} |
|
} |
|
} /* end lk */ |
|
} /* end lj */ |
|
} /* end li */ |
|
printf("\n"); |
|
fprintf(ficparo,"\n"); |
|
numlinepar++; |
|
} /* end k*/ |
|
} /*end j */ |
|
} /* end i */ |
|
} /* end itimes */ |
|
|
|
} /* end of prwizard */ |
|
|
|
|
/***********************************************/ |
/***********************************************/ |
/**************** Main Program *****************/ |
/**************** Main Program *****************/ |
/***********************************************/ |
/***********************************************/ |
Line 3599 int main(int argc, char *argv[])
|
Line 3863 int main(int argc, char *argv[])
|
{ |
{ |
int movingaverage(double ***probs, double bage,double fage, double ***mobaverage, int mobilav); |
int movingaverage(double ***probs, double bage,double fage, double ***mobaverage, int mobilav); |
int i,j, k, n=MAXN,iter,m,size=100,cptcode, cptcod; |
int i,j, k, n=MAXN,iter,m,size=100,cptcode, cptcod; |
int jj; |
int jj, ll, li, lj, lk, imk; |
int numlinepar=0; /* Current linenumber of parameter file */ |
int numlinepar=0; /* Current linenumber of parameter file */ |
|
int itimes; |
|
|
|
char ca[32], cb[32], cc[32]; |
|
/* FILE *fichtm; *//* Html File */ |
|
/* FILE *ficgp;*/ /*Gnuplot File */ |
double agedeb, agefin,hf; |
double agedeb, agefin,hf; |
double ageminpar=1.e20,agemin=1.e20, agemaxpar=-1.e20, agemax=-1.e20; |
double ageminpar=1.e20,agemin=1.e20, agemaxpar=-1.e20, agemax=-1.e20; |
|
|
Line 3612 int main(int argc, char *argv[])
|
Line 3881 int main(int argc, char *argv[])
|
double ***mobaverage; |
double ***mobaverage; |
int *indx; |
int *indx; |
char line[MAXLINE], linepar[MAXLINE]; |
char line[MAXLINE], linepar[MAXLINE]; |
char path[132],pathc[132],pathcd[132],pathtot[132],model[132]; |
char path[MAXLINE],pathc[MAXLINE],pathcd[MAXLINE],pathtot[MAXLINE],model[MAXLINE]; |
|
char pathr[MAXLINE]; |
int firstobs=1, lastobs=10; |
int firstobs=1, lastobs=10; |
int sdeb, sfin; /* Status at beginning and end */ |
int sdeb, sfin; /* Status at beginning and end */ |
int c, h , cpt,l; |
int c, h , cpt,l; |
Line 3644 int main(int argc, char *argv[])
|
Line 3914 int main(int argc, char *argv[])
|
|
|
|
|
char z[1]="c", occ; |
char z[1]="c", occ; |
#include <sys/time.h> |
|
#include <time.h> |
|
char stra[80], strb[80], strc[80], strd[80],stre[80],modelsav[80]; |
char stra[80], strb[80], strc[80], strd[80],stre[80],modelsav[80]; |
char *strt, *strtend; |
char strstart[80], *strt, strtend[80]; |
char *stratrunc; |
char *stratrunc; |
int lstra; |
int lstra; |
|
|
long total_usecs; |
long total_usecs; |
struct timeval start_time, end_time, curr_time; |
|
struct timezone tzp; |
|
extern int gettimeofday(); |
|
struct tm tmg, tm, *gmtime(), *localtime(); |
|
long time_value; |
|
extern long time(); |
|
|
|
|
/* setlocale (LC_ALL, ""); */ |
|
/* bindtextdomain (PACKAGE, LOCALEDIR); */ |
|
/* textdomain (PACKAGE); */ |
|
/* setlocale (LC_CTYPE, ""); */ |
|
/* setlocale (LC_MESSAGES, ""); */ |
|
|
/* gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */ |
/* gettimeofday(&start_time, (struct timezone*)0); */ /* at first time */ |
(void) gettimeofday(&start_time,&tzp); |
(void) gettimeofday(&start_time,&tzp); |
|
curr_time=start_time; |
tm = *localtime(&start_time.tv_sec); |
tm = *localtime(&start_time.tv_sec); |
tmg = *gmtime(&start_time.tv_sec); |
tmg = *gmtime(&start_time.tv_sec); |
strt=asctime(&tm); |
strcpy(strstart,asctime(&tm)); |
/* printf("Localtime (at start)=%s",strt); */ |
|
|
/* printf("Localtime (at start)=%s",strstart); */ |
/* tp.tv_sec = tp.tv_sec +86400; */ |
/* tp.tv_sec = tp.tv_sec +86400; */ |
/* tm = *localtime(&start_time.tv_sec); */ |
/* tm = *localtime(&start_time.tv_sec); */ |
/* tmg.tm_year=tmg.tm_year +dsign*dyear; */ |
/* tmg.tm_year=tmg.tm_year +dsign*dyear; */ |
Line 3672 int main(int argc, char *argv[])
|
Line 3943 int main(int argc, char *argv[])
|
/* tmg.tm_hour=tmg.tm_hour + 1; */ |
/* tmg.tm_hour=tmg.tm_hour + 1; */ |
/* tp.tv_sec = mktime(&tmg); */ |
/* tp.tv_sec = mktime(&tmg); */ |
/* strt=asctime(&tmg); */ |
/* strt=asctime(&tmg); */ |
/* printf("Time(after) =%s",strt); */ |
/* printf("Time(after) =%s",strstart); */ |
/* (void) time (&time_value); |
/* (void) time (&time_value); |
* printf("time=%d,t-=%d\n",time_value,time_value-86400); |
* printf("time=%d,t-=%d\n",time_value,time_value-86400); |
* tm = *localtime(&time_value); |
* tm = *localtime(&time_value); |
* strt=asctime(&tm); |
* strstart=asctime(&tm); |
* printf("tim_value=%d,asctime=%s\n",time_value,strt); |
* printf("tim_value=%d,asctime=%s\n",time_value,strstart); |
*/ |
*/ |
|
|
|
nberr=0; /* Number of errors and warnings */ |
|
nbwarn=0; |
getcwd(pathcd, size); |
getcwd(pathcd, size); |
|
|
printf("\n%s\n%s",version,fullversion); |
printf("\n%s\n%s",version,fullversion); |
Line 3690 int main(int argc, char *argv[])
|
Line 3963 int main(int argc, char *argv[])
|
else{ |
else{ |
strcpy(pathtot,argv[1]); |
strcpy(pathtot,argv[1]); |
} |
} |
/*if(getcwd(pathcd, 132)!= NULL)printf ("Error pathcd\n");*/ |
/*if(getcwd(pathcd, MAXLINE)!= NULL)printf ("Error pathcd\n");*/ |
/*cygwin_split_path(pathtot,path,optionfile); |
/*cygwin_split_path(pathtot,path,optionfile); |
printf("pathtot=%s, path=%s, optionfile=%s\n",pathtot,path,optionfile);*/ |
printf("pathtot=%s, path=%s, optionfile=%s\n",pathtot,path,optionfile);*/ |
/* cutv(path,optionfile,pathtot,'\\');*/ |
/* cutv(path,optionfile,pathtot,'\\');*/ |
Line 3698 int main(int argc, char *argv[])
|
Line 3971 int main(int argc, char *argv[])
|
split(pathtot,path,optionfile,optionfilext,optionfilefiname); |
split(pathtot,path,optionfile,optionfilext,optionfilefiname); |
printf("pathtot=%s,\npath=%s,\noptionfile=%s \noptionfilext=%s \noptionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname); |
printf("pathtot=%s,\npath=%s,\noptionfile=%s \noptionfilext=%s \noptionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname); |
chdir(path); |
chdir(path); |
replace(pathc,path); |
strcpy(command,"mkdir "); |
|
strcat(command,optionfilefiname); |
|
if((outcmd=system(command)) != 0){ |
|
printf("Problem creating directory or it already exists %s%s, err=%d\n",path,optionfilefiname,outcmd); |
|
/* fprintf(ficlog,"Problem creating directory %s%s\n",path,optionfilefiname); */ |
|
/* fclose(ficlog); */ |
|
/* exit(1); */ |
|
} |
|
/* if((imk=mkdir(optionfilefiname))<0){ */ |
|
/* perror("mkdir"); */ |
|
/* } */ |
|
|
/*-------- arguments in the command line --------*/ |
/*-------- arguments in the command line --------*/ |
|
|
Line 3712 int main(int argc, char *argv[])
|
Line 3995 int main(int argc, char *argv[])
|
fprintf(ficlog,"Log filename:%s\n",filelog); |
fprintf(ficlog,"Log filename:%s\n",filelog); |
fprintf(ficlog,"\n%s\n%s",version,fullversion); |
fprintf(ficlog,"\n%s\n%s",version,fullversion); |
fprintf(ficlog,"\nEnter the parameter file name: "); |
fprintf(ficlog,"\nEnter the parameter file name: "); |
fprintf(ficlog,"pathtot=%s, path=%s, optionfile=%s optionfilext=%s optionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname); |
fprintf(ficlog,"pathtot=%s\n\ |
printf("Localtime (at start)=%s",strt); |
path=%s \n\ |
fprintf(ficlog,"Localtime (at start)=%s",strt); |
optionfile=%s\n\ |
|
optionfilext=%s\n\ |
|
optionfilefiname=%s\n",pathtot,path,optionfile,optionfilext,optionfilefiname); |
|
|
|
printf("Local time (at start):%s",strstart); |
|
fprintf(ficlog,"Local time (at start): %s",strstart); |
fflush(ficlog); |
fflush(ficlog); |
|
/* (void) gettimeofday(&curr_time,&tzp); */ |
|
/* printf("Elapsed time %d\n", asc_diff_time(curr_time.tv_sec-start_time.tv_sec,tmpout)); */ |
|
|
/* */ |
/* */ |
strcpy(fileres,"r"); |
strcpy(fileres,"r"); |
Line 3731 int main(int argc, char *argv[])
|
Line 4021 int main(int argc, char *argv[])
|
goto end; |
goto end; |
} |
} |
|
|
|
|
|
|
strcpy(filereso,"o"); |
strcpy(filereso,"o"); |
strcat(filereso,fileres); |
strcat(filereso,fileres); |
if((ficparo=fopen(filereso,"w"))==NULL) { |
if((ficparo=fopen(filereso,"w"))==NULL) { /* opened on subdirectory */ |
printf("Problem with Output resultfile: %s\n", filereso); |
printf("Problem with Output resultfile: %s\n", filereso); |
fprintf(ficlog,"Problem with Output resultfile: %s\n", filereso); |
fprintf(ficlog,"Problem with Output resultfile: %s\n", filereso); |
fflush(ficlog); |
fflush(ficlog); |
Line 3775 int main(int argc, char *argv[])
|
Line 4067 int main(int argc, char *argv[])
|
|
|
ncovmodel=2+cptcovn; /*Number of variables = cptcovn + intercept + age */ |
ncovmodel=2+cptcovn; /*Number of variables = cptcovn + intercept + age */ |
nvar=ncovmodel-1; /* Suppressing age as a basic covariate */ |
nvar=ncovmodel-1; /* Suppressing age as a basic covariate */ |
|
|
|
if(mle==-1){ /* Print a wizard for help writing covariance matrix */ |
|
prwizard(ncovmodel, nlstate, ndeath, model, ficparo); |
|
printf(" You choose mle=-1, look at file %s for a template of covariance matrix \n",filereso); |
|
fprintf(ficlog," You choose mle=-1, look at file %s for a template of covariance matrix \n",filereso); |
|
fclose (ficparo); |
|
fclose (ficlog); |
|
exit(0); |
|
} |
/* Read guess parameters */ |
/* Read guess parameters */ |
/* Reads comments: lines beginning with '#' */ |
/* Reads comments: lines beginning with '#' */ |
while((c=getc(ficpar))=='#' && c!= EOF){ |
while((c=getc(ficpar))=='#' && c!= EOF){ |
Line 4097 int main(int argc, char *argv[])
|
Line 4397 int main(int argc, char *argv[])
|
s[m][i]=-1; |
s[m][i]=-1; |
} |
} |
if((int)moisdc[i]==99 && (int)andc[i]==9999 && s[m][i]>nlstate){ |
if((int)moisdc[i]==99 && (int)andc[i]==9999 && s[m][i]>nlstate){ |
|
nberr++; |
printf("Error! Date of death (month %2d and year %4d) of individual %ld on line %d was unknown, you must set an arbitrary year of death or he/she is skipped and results are biased\n",(int)moisdc[i],(int)andc[i],num[i],i); |
printf("Error! Date of death (month %2d and year %4d) of individual %ld on line %d was unknown, you must set an arbitrary year of death or he/she is skipped and results are biased\n",(int)moisdc[i],(int)andc[i],num[i],i); |
fprintf(ficlog,"Error! Date of death (month %2d and year %4d) of individual %ld on line %d was unknown, you must set an arbitrary year of death or he/she is skipped and results are biased\n",(int)moisdc[i],(int)andc[i],num[i],i); |
fprintf(ficlog,"Error! Date of death (month %2d and year %4d) of individual %ld on line %d was unknown, you must set an arbitrary year of death or he/she is skipped and results are biased\n",(int)moisdc[i],(int)andc[i],num[i],i); |
s[m][i]=-1; |
s[m][i]=-1; |
} |
} |
if((int)moisdc[i]==99 && (int)andc[i]!=9999 && s[m][i]>nlstate){ |
if((int)moisdc[i]==99 && (int)andc[i]!=9999 && s[m][i]>nlstate){ |
|
nberr++; |
printf("Error! Month of death of individual %ld on line %d was unknown %2d, you should set it otherwise the information on the death is skipped and results are biased.\n",num[i],i,(int)moisdc[i]); |
printf("Error! Month of death of individual %ld on line %d was unknown %2d, you should set it otherwise the information on the death is skipped and results are biased.\n",num[i],i,(int)moisdc[i]); |
fprintf(ficlog,"Error! Month of death of individual %ld on line %d was unknown %f, you should set it otherwise the information on the death is skipped and results are biased.\n",num[i],i,moisdc[i]); |
fprintf(ficlog,"Error! Month of death of individual %ld on line %d was unknown %f, you should set it otherwise the information on the death is skipped and results are biased.\n",num[i],i,moisdc[i]); |
s[m][i]=-1; /* We prefer to skip it (and to skip it in version 0.8a1 too */ |
s[m][i]=-1; /* We prefer to skip it (and to skip it in version 0.8a1 too */ |
Line 4120 int main(int argc, char *argv[])
|
Line 4422 int main(int argc, char *argv[])
|
/*if(moisdc[i]==99 && andc[i]==9999) s[m][i]=-1;*/ |
/*if(moisdc[i]==99 && andc[i]==9999) s[m][i]=-1;*/ |
else { |
else { |
if ((int)andc[i]!=9999){ |
if ((int)andc[i]!=9999){ |
|
nbwarn++; |
printf("Warning negative age at death: %ld line:%d\n",num[i],i); |
printf("Warning negative age at death: %ld line:%d\n",num[i],i); |
fprintf(ficlog,"Warning negative age at death: %ld line:%d\n",num[i],i); |
fprintf(ficlog,"Warning negative age at death: %ld line:%d\n",num[i],i); |
agev[m][i]=-1; |
agev[m][i]=-1; |
Line 4156 int main(int argc, char *argv[])
|
Line 4459 int main(int argc, char *argv[])
|
for (i=1; i<=imx; i++) { |
for (i=1; i<=imx; i++) { |
for(m=firstpass; (m<=lastpass); m++){ |
for(m=firstpass; (m<=lastpass); m++){ |
if (s[m][i] > (nlstate+ndeath)) { |
if (s[m][i] > (nlstate+ndeath)) { |
|
nberr++; |
printf("Error: on wave %d of individual %d status %d > (nlstate+ndeath)=(%d+%d)=%d\n",m,i,s[m][i],nlstate, ndeath, nlstate+ndeath); |
printf("Error: on wave %d of individual %d status %d > (nlstate+ndeath)=(%d+%d)=%d\n",m,i,s[m][i],nlstate, ndeath, nlstate+ndeath); |
fprintf(ficlog,"Error: on wave %d of individual %d status %d > (nlstate+ndeath)=(%d+%d)=%d\n",m,i,s[m][i],nlstate, ndeath, nlstate+ndeath); |
fprintf(ficlog,"Error: on wave %d of individual %d status %d > (nlstate+ndeath)=(%d+%d)=%d\n",m,i,s[m][i],nlstate, ndeath, nlstate+ndeath); |
goto end; |
goto end; |
Line 4224 int main(int argc, char *argv[])
|
Line 4528 int main(int argc, char *argv[])
|
} |
} |
scanf("%d",i);*/ |
scanf("%d",i);*/ |
|
|
|
/*------------ gnuplot -------------*/ |
|
strcpy(optionfilegnuplot,optionfilefiname); |
|
strcat(optionfilegnuplot,".gp"); |
|
if((ficgp=fopen(optionfilegnuplot,"w"))==NULL) { |
|
printf("Problem with file %s",optionfilegnuplot); |
|
} |
|
else{ |
|
fprintf(ficgp,"\n# %s\n", version); |
|
fprintf(ficgp,"# %s\n", optionfilegnuplot); |
|
fprintf(ficgp,"set missing 'NaNq'\n"); |
|
} |
|
/* fclose(ficgp);*/ |
|
/*--------- index.htm --------*/ |
|
|
|
strcpy(optionfilehtm,optionfilefiname); /* Main html file */ |
|
strcat(optionfilehtm,".htm"); |
|
if((fichtm=fopen(optionfilehtm,"w"))==NULL) { |
|
printf("Problem with %s \n",optionfilehtm), exit(0); |
|
} |
|
|
|
strcpy(optionfilehtmcov,optionfilefiname); /* Only for matrix of covariance */ |
|
strcat(optionfilehtmcov,"-cov.htm"); |
|
if((fichtmcov=fopen(optionfilehtmcov,"w"))==NULL) { |
|
printf("Problem with %s \n",optionfilehtmcov), exit(0); |
|
} |
|
else{ |
|
fprintf(fichtmcov,"<body>\n<title>IMaCh Cov %s</title>\n <font size=\"2\">%s <br> %s</font> \ |
|
<hr size=\"2\" color=\"#EC5E5E\"> \n\ |
|
Title=%s <br>Datafile=%s Firstpass=%d Lastpass=%d Stepm=%d Weight=%d Model=%s<br>\n",\ |
|
fileres,version,fullversion,title,datafile,firstpass,lastpass,stepm, weightopt, model); |
|
} |
|
|
|
fprintf(fichtm,"<body>\n<title>IMaCh %s</title>\n <font size=\"2\">%s <br> %s</font> \ |
|
<hr size=\"2\" color=\"#EC5E5E\"> \n\ |
|
Title=%s <br>Datafile=%s Firstpass=%d Lastpass=%d Stepm=%d Weight=%d Model=%s<br>\n\ |
|
\n\ |
|
<hr size=\"2\" color=\"#EC5E5E\">\ |
|
<ul><li><h4>Parameter files</h4>\n\ |
|
- Copy of the parameter file: <a href=\"o%s\">o%s</a><br>\n\ |
|
- Log file of the run: <a href=\"%s\">%s</a><br>\n\ |
|
- Gnuplot file name: <a href=\"%s\">%s</a><br>\n\ |
|
- Date and time at start: %s</ul>\n",\ |
|
fileres,version,fullversion,title,datafile,firstpass,lastpass,stepm, weightopt, model,\ |
|
fileres,fileres,\ |
|
filelog,filelog,optionfilegnuplot,optionfilegnuplot,strstart); |
|
fflush(fichtm); |
|
|
|
strcpy(pathr,path); |
|
strcat(pathr,optionfilefiname); |
|
chdir(optionfilefiname); /* Move to directory named optionfile */ |
|
|
/* Calculates basic frequencies. Computes observed prevalence at single age |
/* Calculates basic frequencies. Computes observed prevalence at single age |
and prints on file fileres'p'. */ |
and prints on file fileres'p'. */ |
freqsummary(fileres, agemin, agemax, s, agev, nlstate, imx,Tvaraff,nbcode, ncodemax,mint,anint); |
freqsummary(fileres, agemin, agemax, s, agev, nlstate, imx,Tvaraff,nbcode, ncodemax,mint,anint); |
|
|
pmmij= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
fprintf(fichtm,"\n"); |
|
fprintf(fichtm,"<br>Total number of observations=%d <br>\n\ |
|
Youngest age at first (selected) pass %.2f, oldest age %.2f<br>\n\ |
|
Interval (in months) between two waves: Min=%d Max=%d Mean=%.2lf<br>\n",\ |
|
imx,agemin,agemax,jmin,jmax,jmean); |
|
pmmij= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
oldms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
oldms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
newms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
newms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
savms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
savms= matrix(1,nlstate+ndeath,1,nlstate+ndeath); /* creation */ |
Line 4239 int main(int argc, char *argv[])
|
Line 4599 int main(int argc, char *argv[])
|
so we point p on param[1][1] so that p[1] maps on param[1][1][1] */ |
so we point p on param[1][1] so that p[1] maps on param[1][1][1] */ |
p=param[1][1]; /* *(*(*(param +1)+1)+0) */ |
p=param[1][1]; /* *(*(*(param +1)+1)+0) */ |
|
|
globpr=0; /* To get ipmx number of contributions and sum of weights*/ |
globpr=0; /* To get the number ipmx of contributions and the sum of weights*/ |
likelione(ficres, p, npar, nlstate, &globpr, &ipmx, &sw, &fretone, funcone); /* Prints the contributions to the likelihood */ |
likelione(ficres, p, npar, nlstate, &globpr, &ipmx, &sw, &fretone, funcone); /* Prints the contributions to the likelihood */ |
printf("First Likeli=%12.6f ipmx=%ld sw=%12.6f",fretone,ipmx,sw); |
printf("First Likeli=%12.6f ipmx=%ld sw=%12.6f",fretone,ipmx,sw); |
for (k=1; k<=npar;k++) |
for (k=1; k<=npar;k++) |
Line 4259 int main(int argc, char *argv[])
|
Line 4619 int main(int argc, char *argv[])
|
fprintf(ficres,"title=%s datafile=%s lastobs=%d firstpass=%d lastpass=%d\nftol=%e stepm=%d ncovcol=%d nlstate=%d ndeath=%d maxwav=%d mle= 0 weight=%d\nmodel=%s\n", title, datafile, lastobs, firstpass,lastpass,ftol, stepm, ncovcol, nlstate, ndeath, maxwav, weightopt,model); |
fprintf(ficres,"title=%s datafile=%s lastobs=%d firstpass=%d lastpass=%d\nftol=%e stepm=%d ncovcol=%d nlstate=%d ndeath=%d maxwav=%d mle= 0 weight=%d\nmodel=%s\n", title, datafile, lastobs, firstpass,lastpass,ftol, stepm, ncovcol, nlstate, ndeath, maxwav, weightopt,model); |
|
|
|
|
jk=1; |
|
fprintf(ficres,"# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
fprintf(ficres,"# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
printf("# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
printf("# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
fprintf(ficlog,"# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
fprintf(ficlog,"# Parameters nlstate*nlstate*ncov a12*1 + b12 * age + ...\n"); |
for(i=1,jk=1; i <=nlstate; i++){ |
for(i=1,jk=1; i <=nlstate; i++){ |
for(k=1; k <=(nlstate+ndeath); k++){ |
for(k=1; k <=(nlstate+ndeath); k++){ |
if (k != i) |
if (k != i) { |
{ |
printf("%d%d ",i,k); |
printf("%d%d ",i,k); |
fprintf(ficlog,"%d%d ",i,k); |
fprintf(ficlog,"%d%d ",i,k); |
fprintf(ficres,"%1d%1d ",i,k); |
fprintf(ficres,"%1d%1d ",i,k); |
for(j=1; j <=ncovmodel; j++){ |
for(j=1; j <=ncovmodel; j++){ |
printf("%f ",p[jk]); |
printf("%f ",p[jk]); |
fprintf(ficlog,"%f ",p[jk]); |
fprintf(ficlog,"%f ",p[jk]); |
fprintf(ficres,"%f ",p[jk]); |
fprintf(ficres,"%f ",p[jk]); |
jk++; |
jk++; |
|
} |
|
printf("\n"); |
|
fprintf(ficlog,"\n"); |
|
fprintf(ficres,"\n"); |
|
} |
} |
|
printf("\n"); |
|
fprintf(ficlog,"\n"); |
|
fprintf(ficres,"\n"); |
|
} |
} |
} |
} |
} |
if(mle!=0){ |
if(mle!=0){ |
Line 4310 int main(int argc, char *argv[])
|
Line 4668 int main(int argc, char *argv[])
|
} |
} |
|
|
fprintf(ficres,"# Covariance matrix \n# 121 Var(a12)\n# 122 Cov(b12,a12) Var(b12)\n# ...\n# 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n"); |
fprintf(ficres,"# Covariance matrix \n# 121 Var(a12)\n# 122 Cov(b12,a12) Var(b12)\n# ...\n# 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n"); |
if(mle==1) |
if(mle>=1) |
printf("# Covariance matrix \n# 121 Var(a12)\n# 122 Cov(b12,a12) Var(b12)\n# ...\n# 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n"); |
printf("# Covariance matrix \n# 121 Var(a12)\n# 122 Cov(b12,a12) Var(b12)\n# ...\n# 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n"); |
fprintf(ficlog,"# Covariance matrix \n# 121 Var(a12)\n# 122 Cov(b12,a12) Var(b12)\n# ...\n# 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n"); |
fprintf(ficlog,"# Covariance matrix \n# 121 Var(a12)\n# 122 Cov(b12,a12) Var(b12)\n# ...\n# 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n"); |
for(i=1,k=1;i<=npar;i++){ |
/* # 121 Var(a12)\n\ */ |
/* if (k>nlstate) k=1; |
/* # 122 Cov(b12,a12) Var(b12)\n\ */ |
i1=(i-1)/(ncovmodel*nlstate)+1; |
/* # 131 Cov(a13,a12) Cov(a13,b12, Var(a13)\n\ */ |
fprintf(ficres,"%s%d%d",alph[k],i1,tab[i]); |
/* # 132 Cov(b13,a12) Cov(b13,b12, Cov(b13,a13) Var(b13)\n\ */ |
printf("%s%d%d",alph[k],i1,tab[i]); |
/* # 212 Cov(a21,a12) Cov(a21,b12, Cov(a21,a13) Cov(a21,b13) Var(a21)\n\ */ |
*/ |
/* # 212 Cov(b21,a12) Cov(b21,b12, Cov(b21,a13) Cov(b21,b13) Cov(b21,a21) Var(b21)\n\ */ |
fprintf(ficres,"%3d",i); |
/* # 232 Cov(a23,a12) Cov(a23,b12, Cov(a23,a13) Cov(a23,b13) Cov(a23,a21) Cov(a23,b21) Var(a23)\n\ */ |
if(mle==1) |
/* # 232 Cov(b23,a12) Cov(b23,b12) ... Var (b23)\n" */ |
printf("%3d",i); |
|
fprintf(ficlog,"%3d",i); |
|
for(j=1; j<=i;j++){ |
/* Just to have a covariance matrix which will be more understandable |
fprintf(ficres," %.5e",matcov[i][j]); |
even is we still don't want to manage dictionary of variables |
if(mle==1) |
*/ |
printf(" %.5e",matcov[i][j]); |
for(itimes=1;itimes<=2;itimes++){ |
fprintf(ficlog," %.5e",matcov[i][j]); |
jj=0; |
} |
for(i=1; i <=nlstate; i++){ |
fprintf(ficres,"\n"); |
for(j=1; j <=nlstate+ndeath; j++){ |
if(mle==1) |
if(j==i) continue; |
printf("\n"); |
for(k=1; k<=ncovmodel;k++){ |
fprintf(ficlog,"\n"); |
jj++; |
k++; |
ca[0]= k+'a'-1;ca[1]='\0'; |
} |
if(itimes==1){ |
|
if(mle>=1) |
|
printf("#%1d%1d%d",i,j,k); |
|
fprintf(ficlog,"#%1d%1d%d",i,j,k); |
|
fprintf(ficres,"#%1d%1d%d",i,j,k); |
|
}else{ |
|
if(mle>=1) |
|
printf("%1d%1d%d",i,j,k); |
|
fprintf(ficlog,"%1d%1d%d",i,j,k); |
|
fprintf(ficres,"%1d%1d%d",i,j,k); |
|
} |
|
ll=0; |
|
for(li=1;li <=nlstate; li++){ |
|
for(lj=1;lj <=nlstate+ndeath; lj++){ |
|
if(lj==li) continue; |
|
for(lk=1;lk<=ncovmodel;lk++){ |
|
ll++; |
|
if(ll<=jj){ |
|
cb[0]= lk +'a'-1;cb[1]='\0'; |
|
if(ll<jj){ |
|
if(itimes==1){ |
|
if(mle>=1) |
|
printf(" Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj); |
|
fprintf(ficlog," Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj); |
|
fprintf(ficres," Cov(%s%1d%1d,%s%1d%1d)",ca,i,j,cb, li,lj); |
|
}else{ |
|
if(mle>=1) |
|
printf(" %.5e",matcov[jj][ll]); |
|
fprintf(ficlog," %.5e",matcov[jj][ll]); |
|
fprintf(ficres," %.5e",matcov[jj][ll]); |
|
} |
|
}else{ |
|
if(itimes==1){ |
|
if(mle>=1) |
|
printf(" Var(%s%1d%1d)",ca,i,j); |
|
fprintf(ficlog," Var(%s%1d%1d)",ca,i,j); |
|
fprintf(ficres," Var(%s%1d%1d)",ca,i,j); |
|
}else{ |
|
if(mle>=1) |
|
printf(" %.5e",matcov[jj][ll]); |
|
fprintf(ficlog," %.5e",matcov[jj][ll]); |
|
fprintf(ficres," %.5e",matcov[jj][ll]); |
|
} |
|
} |
|
} |
|
} /* end lk */ |
|
} /* end lj */ |
|
} /* end li */ |
|
if(mle>=1) |
|
printf("\n"); |
|
fprintf(ficlog,"\n"); |
|
fprintf(ficres,"\n"); |
|
numlinepar++; |
|
} /* end k*/ |
|
} /*end j */ |
|
} /* end i */ |
|
} /* end itimes */ |
|
|
|
fflush(ficlog); |
|
fflush(ficres); |
|
|
while((c=getc(ficpar))=='#' && c!= EOF){ |
while((c=getc(ficpar))=='#' && c!= EOF){ |
ungetc(c,ficpar); |
ungetc(c,ficpar); |
fgets(line, MAXLINE, ficpar); |
fgets(line, MAXLINE, ficpar); |
Line 4413 int main(int argc, char *argv[])
|
Line 4830 int main(int argc, char *argv[])
|
fprintf(ficparo,"popforecast=%d popfile=%s popfiledate=%.lf/%.lf/%.lf last-popfiledate=%.lf/%.lf/%.lf\n",popforecast,popfile,jpyram,mpyram,anpyram,jpyram1,mpyram1,anpyram1); |
fprintf(ficparo,"popforecast=%d popfile=%s popfiledate=%.lf/%.lf/%.lf last-popfiledate=%.lf/%.lf/%.lf\n",popforecast,popfile,jpyram,mpyram,anpyram,jpyram1,mpyram1,anpyram1); |
fprintf(ficres,"popforecast=%d popfile=%s popfiledate=%.lf/%.lf/%.lf last-popfiledate=%.lf/%.lf/%.lf\n",popforecast,popfile,jpyram,mpyram,anpyram,jpyram1,mpyram1,anpyram1); |
fprintf(ficres,"popforecast=%d popfile=%s popfiledate=%.lf/%.lf/%.lf last-popfiledate=%.lf/%.lf/%.lf\n",popforecast,popfile,jpyram,mpyram,anpyram,jpyram1,mpyram1,anpyram1); |
|
|
freqsummary(fileres, agemin, agemax, s, agev, nlstate, imx,Tvaraff,nbcode, ncodemax,mint,anint); |
/* freqsummary(fileres, agemin, agemax, s, agev, nlstate, imx,Tvaraff,nbcode, ncodemax,mint,anint);*/ |
/*,dateprev1,dateprev2,jprev1, mprev1,anprev1,jprev2, mprev2,anprev2);*/ |
/*,dateprev1,dateprev2,jprev1, mprev1,anprev1,jprev2, mprev2,anprev2);*/ |
|
|
/*------------ gnuplot -------------*/ |
replace_back_to_slash(pathc,path); /* Even gnuplot wants a / */ |
strcpy(optionfilegnuplot,optionfilefiname); |
printinggnuplot(fileres, optionfilefiname,ageminpar,agemaxpar,fage, pathc,p); |
strcat(optionfilegnuplot,".gp"); |
|
if((ficgp=fopen(optionfilegnuplot,"w"))==NULL) { |
|
printf("Problem with file %s",optionfilegnuplot); |
|
} |
|
else{ |
|
fprintf(ficgp,"\n# %s\n", version); |
|
fprintf(ficgp,"# %s\n", optionfilegnuplot); |
|
fprintf(ficgp,"set missing 'NaNq'\n"); |
|
} |
|
fclose(ficgp); |
|
printinggnuplot(fileres, ageminpar,agemaxpar,fage, pathc,p); |
|
/*--------- index.htm --------*/ |
|
|
|
strcpy(optionfilehtm,optionfile); |
|
strcat(optionfilehtm,".htm"); |
|
if((fichtm=fopen(optionfilehtm,"w"))==NULL) { |
|
printf("Problem with %s \n",optionfilehtm), exit(0); |
|
} |
|
|
|
fprintf(fichtm,"<body> <font size=\"2\">%s </font> <hr size=\"2\" color=\"#EC5E5E\"> \n\ |
|
Title=%s <br>Datafile=%s Firstpass=%d Lastpass=%d Stepm=%d Weight=%d Model=%s<br>\n\ |
|
\n\ |
|
Total number of observations=%d <br>\n\ |
|
Youngest age at first (selected) pass %.2f, oldest age %.2f<br>\n\ |
|
Interval (in months) between two waves: Min=%d Max=%d Mean=%.2lf<br>\n\ |
|
<hr size=\"2\" color=\"#EC5E5E\">\ |
|
<ul><li><h4>Parameter files</h4>\n\ |
|
- Copy of the parameter file: <a href=\"o%s\">o%s</a><br>\n\ |
|
- Log file of the run: <a href=\"%s\">%s</a><br>\n\ |
|
- Gnuplot file name: <a href=\"%s\">%s</a></ul>\n",\ |
|
version,title,datafile,firstpass,lastpass,stepm, weightopt,\ |
|
model,imx,agemin,agemax,jmin,jmax,jmean,fileres,fileres,\ |
|
filelog,filelog,optionfilegnuplot,optionfilegnuplot); |
|
fclose(fichtm); |
|
|
|
printinghtml(fileres,title,datafile, firstpass, lastpass, stepm, weightopt,\ |
printinghtml(fileres,title,datafile, firstpass, lastpass, stepm, weightopt,\ |
model,imx,jmin,jmax,jmean,rfileres,popforecast,estepm,\ |
model,imx,jmin,jmax,jmean,rfileres,popforecast,estepm,\ |
jprev1,mprev1,anprev1,jprev2,mprev2,anprev2); |
jprev1,mprev1,anprev1,jprev2,mprev2,anprev2); |
|
|
/*------------ free_vector -------------*/ |
/*------------ free_vector -------------*/ |
chdir(path); |
/* chdir(path); */ |
|
|
free_ivector(wav,1,imx); |
free_ivector(wav,1,imx); |
free_imatrix(dh,1,lastpass-firstpass+1,1,imx); |
free_imatrix(dh,1,lastpass-firstpass+1,1,imx); |
Line 4775 ageminpar, agemax, s[lastpass][imx], age
|
Line 5158 ageminpar, agemax, s[lastpass][imx], age
|
free_ivector(Tage,1,15); |
free_ivector(Tage,1,15); |
free_ivector(Tcode,1,100); |
free_ivector(Tcode,1,100); |
|
|
/* fclose(fichtm);*/ |
fflush(fichtm); |
/* fclose(ficgp);*/ /* ALready done */ |
fflush(ficgp); |
|
|
|
|
if(erreur >0){ |
if((nberr >0) || (nbwarn>0)){ |
printf("End of Imach with error or warning %d\n",erreur); |
printf("End of Imach with %d errors and/or %d warnings\n",nberr,nbwarn); |
fprintf(ficlog,"End of Imach with error or warning %d\n",erreur); |
fprintf(ficlog,"End of Imach with %d errors and/or warnings %d\n",nberr,nbwarn); |
}else{ |
}else{ |
printf("End of Imach\n"); |
printf("End of Imach\n"); |
fprintf(ficlog,"End of Imach\n"); |
fprintf(ficlog,"End of Imach\n"); |
} |
} |
printf("See log file on %s\n",filelog); |
printf("See log file on %s\n",filelog); |
fclose(ficlog); |
|
/* gettimeofday(&end_time, (struct timezone*)0);*/ /* after time */ |
/* gettimeofday(&end_time, (struct timezone*)0);*/ /* after time */ |
(void) gettimeofday(&end_time,&tzp); |
(void) gettimeofday(&end_time,&tzp); |
tm = *localtime(&end_time.tv_sec); |
tm = *localtime(&end_time.tv_sec); |
tmg = *gmtime(&end_time.tv_sec); |
tmg = *gmtime(&end_time.tv_sec); |
strtend=asctime(&tm); |
strcpy(strtend,asctime(&tm)); |
printf("Localtime at start %s and at end=%s",strt, strtend); |
printf("Local time at start %s\nLocaltime at end %s",strstart, strtend); |
fprintf(ficlog,"Localtime at start %s and at end=%s",strt, strtend); |
fprintf(ficlog,"Local time at start %s\nLocal time at end %s\n",strstart, strtend); |
/* printf("Total time used %d Sec\n", asc_time(end_time.tv_sec -start_time.tv_sec);*/ |
printf("Total time used %s\n", asc_diff_time(end_time.tv_sec -start_time.tv_sec,tmpout)); |
|
|
printf("Total time was %d Sec. %d uSec.\n", end_time.tv_sec -start_time.tv_sec, end_time.tv_usec -start_time.tv_usec); |
printf("Total time was %d Sec.\n", end_time.tv_sec -start_time.tv_sec); |
fprintf(ficlog,"Total time was %d Sec. %d uSec.\n", end_time.tv_sec -start_time.tv_sec, end_time.tv_usec -start_time.tv_usec); |
fprintf(ficlog,"Total time used %s\n", asc_diff_time(end_time.tv_sec -start_time.tv_sec,tmpout)); |
|
fprintf(ficlog,"Total time was %d Sec.\n", end_time.tv_sec -start_time.tv_sec); |
/* printf("Total time was %d uSec.\n", total_usecs);*/ |
/* printf("Total time was %d uSec.\n", total_usecs);*/ |
|
/* if(fileappend(fichtm,optionfilehtm)){ */ |
|
fprintf(fichtm,"<br>Local time at start %s<br>Local time at end %s<br>",strstart, strtend); |
|
fclose(fichtm); |
|
fclose(fichtmcov); |
|
fclose(ficgp); |
|
fclose(ficlog); |
/*------ End -----------*/ |
/*------ End -----------*/ |
|
|
end: |
chdir(path); |
#ifdef windows |
|
/* chdir(pathcd);*/ |
|
#endif |
|
/*system("wgnuplot graph.plt");*/ |
|
/*system("../gp37mgw/wgnuplot graph.plt");*/ |
|
/*system("cd ../gp37mgw");*/ |
|
/* system("..\\gp37mgw\\wgnuplot graph.plt");*/ |
|
strcpy(plotcmd,GNUPLOTPROGRAM); |
strcpy(plotcmd,GNUPLOTPROGRAM); |
strcat(plotcmd," "); |
strcat(plotcmd," "); |
strcat(plotcmd,optionfilegnuplot); |
strcat(plotcmd,optionfilegnuplot); |
printf("Starting graphs with: %s",plotcmd);fflush(stdout); |
printf("Starting graphs with: %s",plotcmd);fflush(stdout); |
system(plotcmd); |
if((outcmd=system(plotcmd)) != 0){ |
|
printf(" Problem with gnuplot\n"); |
|
} |
printf(" Wait..."); |
printf(" Wait..."); |
|
|
/*#ifdef windows*/ |
|
while (z[0] != 'q') { |
while (z[0] != 'q') { |
/* chdir(path); */ |
/* chdir(path); */ |
printf("\nType e to edit output files, g to graph again, c to start again, and q for exiting: "); |
printf("\nType e to edit output files, g to graph again and q for exiting: "); |
scanf("%s",z); |
scanf("%s",z); |
if (z[0] == 'c') system("./imach"); |
/* if (z[0] == 'c') system("./imach"); */ |
else if (z[0] == 'e') system(optionfilehtm); |
if (z[0] == 'e') system(optionfilehtm); |
else if (z[0] == 'g') system(plotcmd); |
else if (z[0] == 'g') system(plotcmd); |
else if (z[0] == 'q') exit(0); |
else if (z[0] == 'q') exit(0); |
} |
} |
/*#endif */ |
end: |
|
while (z[0] != 'q') { |
|
printf("\nType q for exiting: "); |
|
scanf("%s",z); |
|
} |
} |
} |
|
|
|
|
|
|