File r35/xlog/arnum.log artifact 7402abf5c7 part of check-in 955d0a90a7



Codemist Standard Lisp 3.54 for DEC Alpha: May 23 1994
Dump file created: Mon May 23 10:39:11 1994
REDUCE 3.5, 15-Oct-93 ...
Memory allocation: 6023424 bytes

+++ About to read file ndotest.red


% Test of algebraic number package.

defpoly sqrt2**2-2;



1/(sqrt2+1);


sqrt2 - 1


(x**2+2*sqrt2*x+2)/(x+sqrt2);


x + sqrt2


on gcd;



(x**3+(sqrt2-2)*x**2-(2*sqrt2+3)*x-3*sqrt2)/(x**2-2);


  2
 x  - 2*x - 3
--------------
  x - sqrt2


off gcd;



sqrt(x**2-2*sqrt2*x*y+2*y**2);


x - sqrt2*y


off arnum;

  %to start a new algebraic extension.


defpoly cbrt5**3-5;



on rationalize;



1/(x-cbrt5);


  2                  2
 x  + cbrt5*x + cbrt5
-----------------------
         3
        x  - 5


off rationalize;



off arnum;

  %to start a new algebraic extension.


%The following examples are taken from P.S. Wang Math. Comp. 30,
%    134,(1976),p.324.

on factor;



defpoly i**2+1=0;



w0 := x**2+1;


w0 := (x + i)*(x - i)


w1 := x**4-1;


w1 := (x + i)*(x - i)*(x + 1)*(x - 1)


w2 := x**4+(i+2)*x**3+(2*i+5)*x**2+(2*i+6)*x+6;


        2
w2 := (x  + i*x + 3)*(x + (i + 1))*(x - (i - 1))


w3 := (2*i+3)*x**4+(3*i-2)*x**3-2*(i+1)*x**2+i*x-1;


                  2              2     2        3
w3 := (2*i + 3)*(x  + i*x - 1)*(x  - (----*i - ----))
                                       13       13


off arnum;




defpoly a**2-5;



w4 := x**2+x-1;


             1       1           1       1
w4 := (x + (---*a + ---))*(x - (---*a - ---))
             2       2           2       2


off arnum;




defpoly a**2+a+2;



w5 := x**4+3*x**2+4;


w5 := (x + (a + 1))*(x + a)*(x - (a + 1))*(x - a)


off arnum;




defpoly a**3+2=0;



w6:=64*x**6-4;


           2    1         1   2    2    1         1   2        1
w6 := 64*(x  + ---*a*x + ---*a )*(x  - ---*a*x + ---*a )*(x + ---*a)
                2         4             2         4            2

             1
      *(x - ---*a)
             2


off arnum;




defpoly a**4+a**3+a**2+a+1=0;



w7:=16*x**4+8*x**3+4*x**2+2*x+1;


                1   3    1   2    1       1          1   3
w7 := 16*(x + (---*a  + ---*a  + ---*a + ---))*(x - ---*a )
                2        2        2       2          2

             1   2        1
      *(x - ---*a )*(x - ---*a)
             2            2


off arnum, factor;




defpoly sqrt5**2-5,cbrt3**3-3;


*** Defining polynomial for primitive element:

  6        4       3        2
a1  - 15*a1  - 6*a1  + 75*a1  - 90*a1 - 116



cbrt3**3;


3


sqrt5**2;


5


cbrt3;


     120     5     27     4    2000    3    1170    2    6676
 - (------*a1  + ------*a1  - ------*a1  - ------*a1  + ------*a1
     8243         8243         8243         8243         8243

        6825
     - ------)
        8243


sqrt5;


 120     5     27     4    2000    3    1170    2    14919
------*a1  + ------*a1  - ------*a1  - ------*a1  + -------*a1
 8243         8243         8243         8243         8243

    6825
 - ------
    8243


sqrt(x**2+2*(sqrt5-cbrt3)*x+5-2*sqrt5*cbrt3+cbrt3**2);


      240     5     54     4    4000    3    2340    2    21595
x + (------*a1  + ------*a1  - ------*a1  - ------*a1  + -------*a1
      8243         8243         8243         8243         8243

         13650
      - -------)
         8243


on rationalize;



1/(x+sqrt5-cbrt3);


  5     240     5     54     4    4000    3    2340    2    21595
(x  - (------*a1  + ------*a1  - ------*a1  - ------*a1  + -------*a1
        8243         8243         8243         8243         8243

           13650    4     108     5    800     4    1800    3
        - -------)*x  - (------*a1  - ------*a1  - ------*a1
           8243           8243         8243         8243

        15433    2    15900        14465    3      3           2
     + -------*a1  + -------*a1 + -------)*x  - (a1  - 15*a1)*x  - (
        8243          8243         8243

     900     5    3919    4    15000    3    8775    2    148986
    ------*a1  - ------*a1  - -------*a1  - ------*a1  + --------*a1
     8243         8243         8243          8243          8243

        154225         1919    5    1050    4    18245    3
     - --------)*x - (------*a1  + ------*a1  - -------*a1
         8243          8243         8243         8243

        12528    2    236725        73080      6       4      3
     - -------*a1  + --------*a1 - -------))/(x  - 15*x  - 6*x
        8243           8243         8243

          2
    + 75*x  - 90*x - 116)


off arnum, rationalize;




split_field(x**3+2);


*** Splitting field is generated by:

  6
a3  + 108


  1     4    1
{----*a3  + ---*a3,
  36         2

     1     4
  - ----*a3 ,
     18

  1     4    1
 ----*a3  - ---*a3}
  36         2


for each j in ws product (x-j);


 3
x  + 2


split_field(x**3+4*x**2+x-1);


*** Splitting field is generated by:

  3       2
a4  + 4*a4  + a4 - 1


      2                  2
{a4,a4  + 3*a4 - 2, - (a4  + 4*a4 + 2)}


for each j in ws product (x-j);


 3      2
x  + 4*x  + x - 1


split_field(x**3-3*x+7);


*** Splitting field is generated by:

  6        4        2
a6  - 18*a6  + 81*a6  + 1215


   1     4    5     2    1        2
{-----*a6  - ----*a6  + ---*a6 + ---,
  126         42         2        7

      1     4    5     2    4
  - (----*a6  - ----*a6  + ---),
      63         21         7

   1     4    5     2    1        2
 -----*a6  - ----*a6  - ---*a6 + ---}
  126         42         2        7


for each j in ws product (x-j);


 3
x  - 3*x + 7


split_field(x**3+4*x**2+x-1);


*** Splitting field is generated by:

  3       2
a7  + 4*a7  + a7 - 1


      2                  2
{a7,a7  + 3*a7 - 2, - (a7  + 4*a7 + 2)}


for each j in ws product (x-j);


 3      2
x  + 4*x  + x - 1


split_field(x**3-x**2-x-1);


*** Splitting field is generated by:

  6       5       4        3        2
a9  - 6*a9  + 7*a9  + 12*a9  - 17*a9  - 6*a9 + 53


      3     4    3     3    1     2    5         17
{ - (----*a9  - ----*a9  - ----*a9  - ----*a9 + ----),
      76         19         38         38        76

  3     4    6     3    1     2    14        17
 ----*a9  - ----*a9  - ----*a9  + ----*a9 + ----,
  38         19         19         19        38

      3     4    3     3    1     2    33        59
  - (----*a9  - ----*a9  - ----*a9  + ----*a9 - ----)}
      76         19         38         38        76


for each j in ws product (x-j);


 3    2
x  - x  - x - 1


% A longer example.

off arnum;



defpoly a**6+3*a**5+6*a**4+a**3-3*a**2+12*a+16;



factorize(x**3-3);


       1    5    1   4    1   3    5    2    1
{x - (----*a  + ---*a  + ---*a  + ----*a  - ---*a + 1),
       12        4        2        12        4

       1    5    1    4    1   3    7    2    11       4
 x - (----*a  + ----*a  + ---*a  - ----*a  + ----*a + ---),
       12        12        6        12        12       3

       1   5    1   4    2   3    1   2    2       7
 x + (---*a  + ---*a  + ---*a  - ---*a  + ---*a + ---)}
       6        3        3        6        3       3


end;
(TIME:  arnum 21999 22849)


End of Lisp run after 22.03+1.49 seconds


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]