Sponsored links: Algebra eBooks
 

Related

gcdex-ibase-load

load(gcdex);

ibase : 16;

k:0be;

Calculate

gcdex-load

load(gcdex);

igcdex(7,880);

Calculate

gcdex-load

load(gcdex);

igcdex(9,3712560);

Calculate

gcdex-genmatrix-load

load(gcdex);

f[i,j]:=(x^igcdex(i+...

M:genmatrix(f,4,4);

Calculate

gcdex-mod

p: 5939;

q: 6007;

e: 1656167;

Calculate

gcdex-ibase-load

load(gcdex);

ibase : 16;

k:0be;

Calculate

gcdex

98*(-335)-199*(-165);

gcdex(67,33);

gcdex(1,-2);

Calculate

gcdex

gcdex(75,25);

Calculate

gcdex

gcdex(x*x*x+x-1,x*x-3...

Calculate

gcdex

i_gcdex(17,77);

Calculate

gcdex

Run Example
(%i1)load(gcdex);
(%o1)          /usr/share/maxima/5.21.1/share/algebra/gcdex.mac
(%i2) f[i,j]:=x^i+x^j;
                                         i    j
(%o2)                          f     := x  + x
                                i, j
(%i3) M:genmatrix(f,3,3);
                         [          2        3      ]
                         [  2 x    x  + x   x  + x  ]
                         [                          ]
(%o3)                    [  2          2     3    2 ]
                         [ x  + x   2 x     x  + x  ]
                         [                          ]
                         [  3       3    2      3   ]
                         [ x  + x  x  + x    2 x    ]
(%i4) map(factor,M);
                    [                             2      ]
                    [    2 x      x (x + 1)   x (x  + 1) ]
                    [                                    ]
(%o4)               [                   2      2         ]
                    [ x (x + 1)      2 x      x  (x + 1) ]
                    [                                    ]
                    [     2        2                3    ]
                    [ x (x  + 1)  x  (x + 1)     2 x     ]
(%i5) f[i,j]:=x^igcdex(i,j)[3];
                                      igcdex(i, j)
                                                  3
(%o5)                       f     := x
                             i, j
(%i6) M:genmatrix(f,3,3);
                         [          2        3      ]
                         [  2 x    x  + x   x  + x  ]
                         [                          ]
(%o6)                    [  2          2     3    2 ]
                         [ x  + x   2 x     x  + x  ]
                         [                          ]
                         [  3       3    2      3   ]
                         [ x  + x  x  + x    2 x    ]
(%i7) map(factor,M);
                    [                             2      ]
                    [    2 x      x (x + 1)   x (x  + 1) ]
                    [                                    ]
(%o7)               [                   2      2         ]
                    [ x (x + 1)      2 x      x  (x + 1) ]
                    [                                    ]
                    [     2        2                3    ]
                    [ x (x  + 1)  x  (x + 1)     2 x     ]
(%i8) f[i,j]:=(x^igcdex(i+1,j+1)+1)[3];
                                igcdex(i + 1, j + 1)
(%o8)                f     := (x                     + 1)
                      i, j                               3
(%i9) M:genmatrix(f,4,4);
                     [          2        3              ]
                     [  2 x    x  + x   x  + x   x + 1  ]
                     [                                  ]
                     [  2          2     3    2         ]
                     [ x  + x   2 x     x  + x   x + 1  ]
(%o9)                [                                  ]
                     [  3       3    2      3           ]
                     [ x  + x  x  + x    2 x     x + 1  ]
                     [                                  ]
                     [                            5     ]
                     [ x + 1    x + 1    x + 1   x  + 1 ]
(%i10) 
Run Example
igcdex(9292162750094637473537, 13029506445953503759481);
(%o1)       igcdex(9292162750094637473537, 13029506445953503759481)
(%i2) 
Run Example
p: 5939;
(%o1)                                5939
(%i2) q: 6007;
(%o2)                                6007
(%i3) e: 1656167;
(%o3)                               1656167
(%i4) phin: (p-1)*(q-1);
(%o4)                              35663628
(%i5) mod(gcdex(e, phin, 1), phin);
(%o5)                        [27049943, 400007, 1]
(%i6) 

Related Help

Help for Gcdex