version 1.362, 2024/06/28 08:00:31
|
version 1.363, 2024/06/28 09:31:55
|
Line 1
|
Line 1
|
/* $Id$ |
/* $Id$ |
$State$ |
$State$ |
$Log$ |
$Log$ |
|
Revision 1.363 2024/06/28 09:31:55 brouard |
|
Summary: Adding log lines too |
|
|
Revision 1.362 2024/06/28 08:00:31 brouard |
Revision 1.362 2024/06/28 08:00:31 brouard |
Summary: 0.99s6 |
Summary: 0.99s6 |
|
|
Line 3018 static void print2() /* print a line of
|
Line 3021 static void print2() /* print a line of
|
/* printf("... after %u function calls ...\n", nf); */ |
/* printf("... after %u function calls ...\n", nf); */ |
/* printf("... including %u linear searches ...\n", nl); */ |
/* printf("... including %u linear searches ...\n", nl); */ |
/* printf("%10d %10d%14.7g",nl, nf, fx); */ |
/* printf("%10d %10d%14.7g",nl, nf, fx); */ |
printf ( "\n" ); |
/* printf ( "\n" ); */ |
printf ( " Linear searches %d", nl ); |
printf ( " Linear searches %d", nl ); |
/* printf ( " Linear searches %d\n", nl ); */ |
/* printf ( " Linear searches %d\n", nl ); */ |
/* printf ( " Function evaluations %d\n", nf ); */ |
/* printf ( " Function evaluations %d\n", nf ); */ |
/* printf ( " Function value FX = %g\n", fx ); */ |
/* printf ( " Function value FX = %g\n", fx ); */ |
printf ( " Function evaluations %d", nf ); |
printf ( " Function evaluations %d", nf ); |
printf ( " Function value FX = %.12lf\n", fx ); |
printf ( " Function value FX = %.12lf\n", fx ); |
|
fprintf (ficlog, " Function evaluations %d", nf ); |
|
fprintf (ficlog, " Function value FX = %.12lf\n", fx ); |
#ifdef DEBUGPRAX |
#ifdef DEBUGPRAX |
printf("n=%d prin=%d\n",n,prin); |
printf("n=%d prin=%d\n",n,prin); |
#endif |
#endif |
if(fx <= fmin) printf(" UNDEFINED "); else printf("%14.7g",log(fx-fmin)); |
/* if(fx <= fmin) printf(" UNDEFINED "); else printf("%14.7g",log(fx-fmin)); */ |
if ( n <= 4 || 2 < prin ) |
if ( n <= 4 || 2 < prin ) |
{ |
{ |
/* for(i=1;i<=n;i++)printf("%14.7g",x[i-1]); */ |
/* for(i=1;i<=n;i++)printf("%14.7g",x[i-1]); */ |
for(i=1;i<=n;i++)printf("%14.7g",x[i]); |
for(i=1;i<=n;i++){ |
|
printf("%14.7g",x[i]); |
|
fprintf(ficlog,"%14.7g",x[i]); |
|
} |
/* r8vec_print ( n, x, " X:" ); */ |
/* r8vec_print ( n, x, " X:" ); */ |
} |
} |
printf("\n"); |
printf("\n"); |
|
fprintf(ficlog,"\n"); |
} |
} |
|
|
|
|