projection_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 projection_inter(x,n,motion_in,motion_out)
00005 float x[MAX][MAXRANK];
00006 int n;
00007 float motion_in[MAXRANK], motion_out[MAXRANK];
00008 {
00009     int i,j,en;
00010     REAL dx[MAX][MAXRANK];
00011     REAL dw[MAXRANK][MAXEDGE], dm_in[MAXRANK], dm_out[MAXRANK];
00012 
00013     for(j=0; j<MAXRANK; j++){
00014       dm_in[j] = (double)motion_in[j];
00015     }
00016 
00017     for(i=0; i<n; i++){
00018         for(j=0; j<MAXRANK; j++){
00019             dx[i][j]=(double)x[i][j];
00020             /* Set small coecifients be zero */
00021             if(fabs(dx[i][j])<EPS)
00022                 dx[i][j]=0;
00023         }
00024     }
00025 
00026     projection(dx,n,dm_in,dm_out);
00027 
00028     for(j=0; j<MAXRANK; j++){
00029       if(fabs(dm_out[j])<EPS)
00030           motion_out[j]=(float)0.0;
00031       else
00032           motion_out[j]=(float)dm_out[j];
00033     }
00034     
00035     return;
00036 }
00037 
00038             


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