main.c
Go to the documentation of this file.
00001 #include "arith.h"
00002 
00003 main()
00004 {
00005     static double c[15][6]={
00006         { 0.000000,0.000000,1.000000,-1.500000,-1.000000,0.000000},
00007         { -1.000000,0.000000,0.000000,0.000000,5.000000,1.500000},
00008         { 0.000000,-1.000000,0.000000,-5.000000,0.000000,-1.000000},
00009         { 0.000000,0.000000,1.000000,1.500000,-1.000000,0.000000},
00010         { 1.000000,0.000000,0.000000,0.000000,-5.000000,-1.500000},
00011         { 0.000000,-1.000000,0.000000,-5.000000,0.000000,1.000000},
00012         { 0.000000,0.000000,1.000000,1.500000,1.000000,0.000000},
00013         { 1.000000,0.000000,0.000000,0.000000,-2.000000,1.500000},
00014         { 0.000000,1.000000,0.000000,2.000000,0.000000,-1.000000},
00015         { -1.000000,0.000000,0.000000,0.000000,2.000000,-1.500000},
00016         { 0.000000,1.000000,0.000000,2.000000,0.000000,1.000000},
00017         { -1.000000,0.000000,0.000000,0.000000,2.000000,1.500000},
00018         { 0.000000,-1.000000,0.000000,-2.000000,0.000000,-1.000000},
00019         { 1.000000,0.000000,0.000000,0.000000,-2.000000,-1.500000},
00020         { 0.000000,-1.000000,0.000000,-2.000000,0.000000,1.000000}};
00021 
00022     MATRIX x;
00023     int n,p,job,info;
00024 
00025     int i,j,en;
00026     REAL w[MAXRANK][MAXEDGE];
00027 
00028     for(i=0; i<15; i++)
00029         for(j=0; j<6; j++)
00030             x[i][j]=c[i][j];
00031 
00032     n=15;
00033     p=6;
00034     job=11;
00035 
00036     en=cone(x,n,p,w);
00037 
00038     printf("cone edge\n");
00039     for(i=0; i<en; i++){
00040         printf("w[%d]= ",i);
00041         for(j=0; j<MAXRANK; j++){
00042             printf("%f ",w[j][i]);
00043         }
00044         printf("\n");
00045     }
00046 
00047 }


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 6 2019 18:05:53