DataMuseum.dk

top - download

    Length: 823 (0x337)
    Types: TextFile
    Names: »max.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/graph/max.c« 

TextFile

/*
 * Copyright (C) 1986   Alan Kent
 *
 * Permission is granted to freely distribute part or
 * all of this code as long as it is not for profit
 * and this message is retained in the code.
 *
 * No resposibility is taken for any damage or incorect
 * results this program generates.
 * 
 */


#include <stdio.h>
#include "graph.h"


double
max_fun ( table , from , to )
table_st *table;
int from , to;
{
    int i;
    double val;

    if ( table == NULL )
	abort ( "MAX requires at least a single column table" );
    if ( table->size < 1 ) {
	warn ( "MAX requires at least one value in table " );
	return ( 0.0 );
    }
    if ( to >= table->size )
	to = table->size - 1;
    val = table->data[from];
    for ( i = from + 1; i <= to; i++ )
	if ( table->data[i] > val )
	    val = table->data[i];
    return ( val );
}