Go to the documentation of this file.00001
00002 #include "arith.h"
00003
00004 cone_inter(x,n,w)
00005 float x[MAX][MAXRANK];
00006 int n;
00007 float w[MAXEDGE][MAXRANK];
00008 {
00009 int i,j,en;
00010 MATRIX dx;
00011 REAL dw[MAXRANK][MAXEDGE];
00012
00013 for(i=0; i<n; i++){
00014 for(j=0; j<MAXRANK; j++){
00015 dx[i][j]=(double)x[i][j];
00016
00017 if(fabs(dx[i][j])<EPS)
00018 dx[i][j]=0;
00019 }
00020 }
00021
00022 en=cone(dx,n,MAXRANK,dw);
00023
00024 for(i=0; i<en; i++){
00025 for(j=0; j<MAXRANK; j++){
00026 if(fabs(dw[j][i])<0.000001)
00027 w[i][j]=(float)0.0;
00028 else
00029 w[i][j]=(float)dw[j][i];
00030 }
00031 }
00032
00033 return(en);
00034 }
00035
00036