cone_inter.c
Go to the documentation of this file.
00001 /* Jan.17,1992. Bug fix.        Set small coeficient be zero.   */
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 /* Set small coecifients be zero */
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             


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Mar 9 2017 04:57:49