[BACK]Return to gen_ord_list.c CVS log [TXT][DIR] 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, 4 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9 

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");
}