Changeset 7e6bfe in git


Ignore:
Timestamp:
Sep 8, 2011, 9:06:08 PM (13 years ago)
Author:
Oleksandr Motsak <motsak@…>
Branches:
(u'spielwiese', 'd28bb9fd81d9b3c28434941de2792173765710d2')
Children:
38fc1817a82ba6eed7f9f6355cfa06e1e00e1872
Parents:
1a20e55502c0dfa3a9f2bef770f1555129241ab4
git-author:
Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-08 21:06:08+02:00
git-committer:
Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:12:36+01:00
Message:
CHG: cleanup for id_GCD
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • kernel/ideals.cc

    r1a20e5 r7e6bfe  
    24622462
    24632463#ifdef HAVE_FACTORY
     2464#if 0
    24642465poly id_GCD(poly f, poly g, const ring r)
    24652466{
     
    24772478  return gcd_p;
    24782479}
     2480#else
     2481poly id_GCD(poly f, poly g, const ring r)
     2482{
     2483  ideal I=idInit(2,1); I->m[0]=f; I->m[1]=g;
     2484  intvec *w = NULL;
     2485
     2486  ring save_r = currRing; rChangeCurrRing(r); ideal S=idSyzygies(I,testHomog,&w); rChangeCurrRing(save_r);   
     2487   
     2488  if (w!=NULL) delete w;
     2489  poly gg=p_TakeOutComp(&(S->m[0]), 2, r);
     2490  id_Delete(&S, r);
     2491  poly gcd_p=singclap_pdivide(f,gg, r);
     2492  p_Delete(&gg, r);
     2493   
     2494  return gcd_p;
     2495}
     2496#endif
    24792497#endif
    24802498
  • libpolys/polys/simpleideals.cc

    r1a20e5 r7e6bfe  
    16951695// #include <kernel/clapsing.h>
    16961696
    1697 #ifdef HAVE_FACTORY
    1698 #if 0
    1699 poly id_GCD(poly f, poly g, const ring r)
    1700 {
    1701   ring save_r=r;
    1702   rChangeCurrRing(r);
    1703   ideal I=idInit(2,1); I->m[0]=f; I->m[1]=g;
    1704   intvec *w = NULL;
    1705 
    1706   ideal S=idSyzygies(I,testHomog,&w);
    1707 
    1708   if (w!=NULL) delete w;
    1709   poly gg=pTakeOutComp(&(S->m[0]),2);
    1710   id_Delete(&S, r);
    1711   poly gcd_p=singclap_pdivide(f,gg);
    1712   pDelete(&gg);
    1713   rChangeCurrRing(save_r);
    1714   return gcd_p;
    1715 }
    1716 #endif
    1717 #endif
    1718 
    1719 
    17201697/*2
    17211698* transpose a module
Note: See TracChangeset for help on using the changeset viewer.