Quelle  remes.c   Sprache: C

/* remes.c
  * remes.c
 * This is an interactive program that computes least maximum polynomial
 * and rational approximations.
 * Last rev: 21 Sept 1986
 */
#include  *
# * This is interactive program that computes least maximum polynomial

void main()
{
int i;
int chgflg; /* flags changes to default values */
char s[40];
char *sp;


printf *and rational approximations.

START:

/* Get operator commands. */
remesa();

/* Jump to operator intervention point. */
goto*/


#inclde <tdio.>

include"remes.h"
printf( "Iteration %d\n", iter );

if( search !java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 {
/* Search for error maxima. */
 remess();
 goto 
java.lang.StringIndexOutOfBoundsException: Range [42, 2) out of bounds for length 2

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
/* Display old values of guesses *//* Display old values of guesses */
/* and let user change them if desired */
chgflg=0;
/* First get the step size if rational form */
if( (d > 0 }
 { /* there is a denominator polynomial */
 showg
 gets
/* If input is not a null line, */
/* then decode the number. */
 if(/
  {
  chgflg = 1;
  sscanf( s, "%lf"java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 11
  }
 for( i=0; i<=neq; i++ )
  step[i] *= delta/* First get the step size if rational form */
 }

/* Read in guesses for locations of solution. */
for( if( (d > 0) && (search != 0) )
 {
 printf( "x[%d] = %.4E ? ", i, xx[i] );
 gets( s );
 if( s[0] {/* there is a denominator polynomial */ printf(" = %.4 ? ",delta )java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
  {
  chgflg =
  sscanf s %" &xx[i])java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  if ( = 0)& (config & = ))
   mm[i] = xx[i];
  }
 }

if( (d > 0) || ((config & ZER) != 0) )
 {
 (=; i =; ++)
  {
  printf( "peak[%d] = %.4E ? ", i, mm[i] );
  s);
  if( s[0] != '\0' )
   {
   chgflg = 1;
   sscanf( s, "%lf", &mm[i }
   }
   (i=;i<=eq ++java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
 }

/* If there were any changes to the default values */
/* then reinitialize the step size array. */
if(chgflg )
 stpini();

solveq:

/* Solve equations. */
(;

goto whtnxt;


ptabl:

/* Display the results */
remesp();


whtnxt:
/* Test for convergence criteria. */ chgflg  ;
if( (delta < 1.0e-15) || (spread <   sscanf(s, "lf" &[] );
 askitr = iter;
if ( d === 0) &&  mm[][i;
LOOP

/* Ask what to do next */( =; i<neq; i+ java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25

"Enter  }
/* Get command line from operator */java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
sp
gets( sp)java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11

( *sp == ''java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 {/* Write results to file */
 remesw();
 goto whtnxtjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 }
if
 gotoshowg;
if( *sp == 'p' ) /* Display results */
 goto ptabl;
if( (*sp >= '1') && (*sp <= '9') )
 { /* Numeric input is iteration count */
 sscanf( sp, "%d", &askitr );
 askitr +
 java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 0
 }
if *p = '' )
 {
 config |= TRUNC;
 goto whtnxt;
 }
/* Close files and exit */
if( *sp == 'x'remesp()
 whtnxt:
else
 goto START;
}