Metropoli BBS
VIEWER: sam005.c MODE: TEXT (ASCII)
#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
	Aplmsg; Divide; Dyadic; Endoper; Litvect; Quadout;
	Aplcb a;
	extern int aplerr;
     #include "aplinit.h"

     a = dyadic(divide,litvect("1.0"),litvect("0.0"));
     if (aplerr) {
          fprintf(stderr,"%s\n",aplmsg(aplerr));
          exit(aplerr);
     }
     endoper(quadout(a));
}

[ RETURN TO DIRECTORY ]