| 1038 | } |
| 1039 | |
| 1040 | matrix simplex::mapToMatrix( matrix mm ) |
| 1041 | { |
| 1042 | int i,j; |
| 1043 | // if ( MATROWS( mm ) < LiPM_rows-3 || MATCOLS( m ) < LiPM_cols-2 ) { |
| 1044 | // WarnS(""); |
| 1045 | // return NULL; |
| 1046 | // } |
| 1047 | |
| 1048 | //Print(" %d x %d\n",MATROWS( mm ),MATCOLS( mm )); |
| 1049 | |
| 1050 | number coef; |
| 1051 | gmp_float * bla; |
| 1052 | for ( i= 1; i <= MATROWS( mm ); i++ ) |
| 1053 | { |
| 1054 | for ( j= 1; j <= MATCOLS( mm ); j++ ) |
| 1055 | { |
| 1056 | pDelete( &(MATELEM(mm,i,j)) ); |
| 1057 | MATELEM(mm,i,j)= NULL; |
| 1058 | //Print(" %3.0f ",LiPM[i][j]); |
| 1059 | if ( LiPM[i][j] != 0.0 ) |
| 1060 | { |
| 1061 | bla= new gmp_float(LiPM[i][j]); |
| 1062 | coef= (number)bla; |
| 1063 | MATELEM(mm,i,j)= pOne(); |
| 1064 | pSetCoeff( MATELEM(mm,i,j), coef ); |
| 1065 | } |
| 1066 | } |
| 1067 | //PrintLn(); |
| 1068 | } |
| 1069 | |
| 1070 | return mm; |
| 1071 | } |
| 1072 | |
| 1073 | intvec * simplex::posvToIV() |
| 1074 | { |