|
| #define | ANSI |
| |
| #define | D(x, y) printf(" "#x":%"#y, x) |
| |
| #define | Diag(x, y) if(diagon=='y') {fprintf(diag,"\n" #x"\t%"#y"\t", x); fflush(diag);} |
| |
| #define | Diag_Maple(x, y) fprintf(diag,"\n\# "#x" = %"#y";", x); |
| |
| #define | For(x, y, z) for((x)=(y);(x)<=(z);(x)++) |
| |
| #define | Write(x, y, z) fprintf(out,"\n" #x" %"#z" ",y) |
| |
| #define | print(y, z) Write( ,y,z) |
| |
| #define | nl(x) fprintf((x),"\n") |
| |
| #define | Heading(x, y) fprintf((x),"\n\n" #y "\n") |
| |
| #define | Asterisks(x) For(i,0,72)fprintf(x,"*") |
| |
| #define | c(i) putchar(i) |
| |
| #define | w(x) fprintf(results,#x) |
| |
| #define | pf(x) printf("%8.5g",x) |
| |
| #define | pd(x) printf("%ld",x) |
| |
| #define | Readtext(stream, x) fgets(x,400,stream); x[strlen(x)-1] = '\0' |
| |
| #define | Readtab(x) fscanf(in,"%[^\t]%*c",x); |
| |
| #define | Skip(stream) fgets(dummy,400,stream) |
| |
| #define | Read(stream, x, y) {fscanf(stream,"%"#y, &x);Skip(stream);} |
| |
| #define | endfile(x) if(feof(x)) break |
| |
| #define | pause(x) {printf("\nPaused: " x); fgetchar();} |
| |
| #define | IN fscanf(in, |
| |
| #define | OUT fprintf(out, |
| |
| #define | DIAG fprintf(diag, |
| |
| #define | SCREEN fprintf(stdout, |
| |
| #define | RESULTS fprintf(results, |
| |
| #define | END ); |
| |
| #define | sign(x, y) (fabs(x) * fabs(y)/y) |
| |
| #define | Sign(x) (x > 0. ? 1. : -1.) |
| |
| #define | iff(x, y) if(strcmp(x,#y)==0) |
| |
| #define | Screenfull(x, y) if((x) % ((y)+1) == (y)) pause |
| |
| #define | pi 3.14159265358979324 |
| |
| #define | twopi 6.2831853071795864769 |
| |
| #define | max(a, b) (((a) > (b)) ? (a) : (b)) |
| |
| #define | min(a, b) (((a) < (b)) ? (a) : (b)) |
| |
|
| int * | ivector (long, long) |
| |
| int ** | imatrix (long, long, long, long) |
| |
| char * | cvector (long, long) |
| |
| char ** | cmatrix (long, long, long, long) |
| |
| float * | vector (long, long) |
| |
| float ** | matrix (long, long, long, long) |
| |
| unsigned long * | lvector (long, long) |
| |
| double * | dvector (long, long) |
| |
| double ** | dmatrix (long, long, long, long) |
| |
| void | free_ivector (int *, long, long) |
| |
| void | free_dvector (double *, long, long) |
| |
| void | free_lvector (unsigned long *, long, long) |
| |
| void | free_dmatrix (double **, long, long, long, long) |
| |
