[BACK]Return to sp CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / lib

Diff for /OpenXM_contrib2/asir2000/lib/sp between version 1.17 and 1.18

version 1.17, 2016/02/04 04:17:21 version 1.18, 2018/04/06 07:40:44
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/lib/sp,v 1.16 2010/07/14 04:48:14 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/lib/sp,v 1.17 2016/02/04 04:17:21 noro Exp $
 */  */
 /*  /*
         sp : functions related to algebraic number fields          sp : functions related to algebraic number fields
Line 1365  def resfctr(F,L,V,N)
Line 1365  def resfctr(F,L,V,N)
         DN = diff(N,V0);          DN = diff(N,V0);
         LC = coef(N,deg(N,V0),V0);          LC = coef(N,deg(N,V0),V0);
         LCD = coef(DN,deg(DN,V0),V0);          LCD = coef(DN,deg(DN,V0),V0);
         for ( I = 0, J = 2, Len = deg(N,V0)+1; I < 5; J++ ) {    J = 2;
                 M = prime(J);    while ( 1 ) {
                 if ( !(LC%M) || !(LCD%M))      Len = deg(N,V0)+1;
                         continue;            for ( I = 0; I < 5; J++ ) {
                 G = gcd(N,DN,M);                    M = prime(J);
                 if ( !deg(G,V0) ) {                    if ( !(LC%M) || !(LCD%M))
                         I++;                            continue;
                         T = nfctr_mod(N,M);                    G = gcd(N,DN,M);
                         if ( T < Len ) {                    if ( !deg(G,V0) ) {
                                 Len = T; M0 = M;                            I++;
                         }                            T = nfctr_mod(N,M);
                 }                            if ( T < Len ) {
         }                                    Len = T; M0 = M;
         S = spm(L,V,M0);                            }
                     }
             }
             S = spm(L,V,M0);
       if ( S ) break;
     }
         T = resfctr_mod(F,S,M0);          T = resfctr_mod(F,S,M0);
         return [T,S,M0];          return [T,S,M0];
 }  }
Line 1408  def spm(L,V,M)
Line 1413  def spm(L,V,M)
                 U = modfctr(car(L),M);                  U = modfctr(car(L),M);
                 for ( T = cdr(U), R = []; T != []; T = cdr(T) ) {                  for ( T = cdr(U), R = []; T != []; T = cdr(T) ) {
                         S = car(T);                          S = car(T);
         if ( S[1] > 1 ) return 0;
                         R = cons([subst(S[0],var(S[0]),a_),[var(S[0]),a_]],R);                          R = cons([subst(S[0],var(S[0]),a_),[var(S[0]),a_]],R);
                 }                  }
                 return R;                  return R;
         }          }
         L1 = spm(cdr(L),cdr(V),M);          L1 = spm(cdr(L),cdr(V),M);
     if ( !L1 ) return 0;
         F0 = car(L); V0 = car(V); VR = cdr(V);          F0 = car(L); V0 = car(V); VR = cdr(V);
         for ( T = L1, R = []; T != []; T = cdr(T) ) {          for ( T = L1, R = []; T != []; T = cdr(T) ) {
                 S = car(T);                  S = car(T);
Line 1420  def spm(L,V,M)
Line 1427  def spm(L,V,M)
                 U = fctr_mod(F1,V0,S[0],M);                  U = fctr_mod(F1,V0,S[0],M);
                 VS = var(S[0]);                  VS = var(S[0]);
                 for ( W = U; W != []; W = cdr(W) ) {                  for ( W = U; W != []; W = cdr(W) ) {
         if ( car(W)[1] > 1 ) return 0;
                         A = car(car(W));                          A = car(car(W));
                         if ( deg(A,V0) == 1 ) {                          if ( deg(A,V0) == 1 ) {
                                 A = monic_mod(A,V0,S[0],M);                                  A = monic_mod(A,V0,S[0],M);
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>