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

     endoper(quadout(dyadic(dblmin,
          litvect("1.1 2.3 -5"),
          litvect("3.1 2.1 1.1"))));
     endoper(quadout(idyadic(imin,
          litvect("1 2 5"),
          litvect("3 2 0"))));
	left=1.0;
	rite=2.0;
     dblminp(&left,&rite,&ret);
     printf("dblminp returned %f\n",ret);
     ileft=1;
     irite=2;
     iminp(&ileft,&irite,&iret);
     printf("iminp returned %d\n",iret);
}

[ RETURN TO DIRECTORY ]