Metropoli BBS
VIEWER: sam097.c MODE: TEXT (ASCII)
#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Dyadic; Dblmax; Dblmaxp; Endoper;
     Idyadic; Imax; Imaxp; Litvect; Quadout;
     double left,rite,ret;
     int ileft,irite,iret;
     #include "aplinit.h"

     endoper(quadout(dyadic(dblmax,
          litvect("1.1 2.3 5"),
          litvect("3.1 2.1 1.1"))));
     endoper(quadout(idyadic(imax,
          litvect("1 2 5"),
          litvect("3 2 1"))));
	left=1.0;
	rite=2.0;
     dblmaxp(&left,&rite,&ret);
     printf("dblmaxp returned %f\n",ret);
     ileft=1;
     irite=2;
     imaxp(&ileft,&irite,&iret);
     printf("imaxp returned %d\n",iret);
}

[ RETURN TO DIRECTORY ]