Changeset 688504 in git for factory

Timestamp:

Nov 15, 2012, 2:23:42 PM (11 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

885e7651730fe89cf8a58ca22e1b1d7138c20994

Parents:

1fa5f530f21cf131d9b12de91e97b266f26a08ff

git-author:

Martin Lee <martinlee84@web.de>2012-11-15 14:23:42+01:00

git-committer:

Martin Lee <martinlee84@web.de>2012-11-16 13:13:24+01:00

Message:

chg: deleted unused mypsr

File:

• factory/libfac/charset/alg_factor.cc (modified) (1 diff)

factory/libfac/charset/alg_factor.cc

@@ -76 +76 @@
 {
     current++;
-}
-
-// replacement for factory's broken psr
-static CanonicalForm
-mypsr ( const CanonicalForm &rr, const CanonicalForm &vv, const Variable & x )
-{
-  CanonicalForm r=rr, v=vv, l, test, lu, lv, t, retvalue;
-  int dr, dv, d,n=0;
-
-
-  dr = degree( r, x );
-  dv = degree( v, x );
-  if (dv <= dr) {l=LC(v,x); v = v -l*power(x,dv);}
-  else { l = 1; }
-  d= dr-dv+1;
-  while ( ( dv <= dr  ) && ( r != r.genZero()) ){
-    test = power(x,dr-dv)*v*LC(r,x);
-    if ( dr == 0 ) { r= CanonicalForm(0); }
-    else { r= r - LC(r,x)*power(x,dr); }
-    r= l*r -test;
-    dr= degree(r,x);
-    n+=1;
-  }
-  r= power(l, d-n)*r;
-  return r;
 }