Return to gen_ord_list.c CVS log | Up to [local] / OpenXM / src / asir-contrib / packages / src |
File: [local] / OpenXM / src / asir-contrib / packages / src / gen_ord_list.c (download)
Revision 1.1, Mon Jan 31 13:48:20 2000 UTC (24 years, 5 months ago) by takayama
a, ..., z, x0, ..., x20, y0, ..., y20, z0, ..., z20 can be used as variables for ring of differential operators. |
/* $OpenXM: OpenXM/src/asir-contrib/packages/src/gen_ord_list.c,v 1.1 2000/01/31 13:48:20 takayama Exp $ */ #include <stdio.h> /* This program generates Sm1_ord_list for sm1 */ #define NUMBERMAX 20 main() { int i; printf("Sm1_ord_list = [ "); /* d variables. */ for (i=NUMBERMAX; i>=0; i--) { printf("dz%d, ",i); } for (i=NUMBERMAX; i>=0; i--) { printf("dy%d, ",i); } for (i=NUMBERMAX; i>=0; i--) { printf("dx%d, ",i); } printf("\n"); for (i='z'; i>='a'; i--) { if (i != 'o' && i != 'd') { /* You cannot use do and dd as a variable name. */ printf("d%c, ",i); } } printf("\n"); /* x variables. This must be compatible with the phrase above. */ for (i=NUMBERMAX; i>=0; i--) { printf("z%d, ",i); } for (i=NUMBERMAX; i>=0; i--) { printf("y%d, ",i); } for (i=NUMBERMAX; i>=0; i--) { printf("x%d, ",i); } printf("\n"); for (i='z'; i>='a'; i--) { if (i != 'o' && i != 'd') { /* You cannot use do and dd as a variable name. */ printf("%c, ",i); } } printf("\n"); /* trailer */ printf(" hoge ]$\n"); }