Sponsored links: Algebra eBooks
 

Related

modulus-solve

modulus:5;

solve([2*y+3*x^2 = 1,...

Calculate

modulus-solve

modulus:5;

solve([3=(3-b)*a,(1-b...

Calculate

modulus-print-solve

/* Число букв в алфав...

/* шифрованные символ...

y2: 1;

Calculate

modulus-solve

modulus:5;

solve([2*y+3*x^2 = 1,...

Calculate

modulus-print-solve

/* Число букв в алфав...

/* шифрованные символ...

y2: 1;

Calculate

modulus

x = 21 ^ 21;

modulus:43;

y = x;

Calculate

modulus-print

modulus: 114573516752...

(x*65537) = 1;

print(x);

Calculate

modulus-solve

modulus:5;

solve([3=(3-b)*a,(1-b...

Calculate

modulus

modulus:5;

Solve([a+3*b-c=0,2*a-...

Calculate

modulus

Run Example
(%i1)modulus : 5;
(%o1)                                  5
(%i2) p : matrix([a, b], [c, d]);
                                   [ a  b ]
(%o2)                              [      ]
                                   [ c  d ]
(%i3) pt : transpose (p);
                                   [ a  c ]
(%o3)                              [      ]
                                   [ b  d ]
(%i4) middle : matrix([2, 0], [0, 3]);
                                   [ 2  0 ]
(%o4)                              [      ]
                                   [ 0  3 ]
(%i5) pt.middle.p-matrix([2, 0], [0, 3]);
                     [    2      2                      ]
                     [ 3 c  + 2 a  - 2   3 c d + 2 a b  ]
(%o5)                [                                  ]
                     [                     2      2     ]
                     [  3 c d + 2 a b   3 d  + 2 b  - 3 ]
(%i6) 
Run Example
modulus:2;
(%o1)                                  2
(%i2)  N:2;
(%o2)                                  2
(%i3)   block( P:0, Vars:[], Sol:zeromatrix(N,N), for i: 1 thru N do ( for j: 1 thru N do ( S:zeromatrix(N+2,N+2), S[i ][j ]:1, S[i ][j+1]:1,  S[i ][j+2]:1, S[i+1][j ]:1, S[i+1][j+2]:1, S[i+2][j ]:1, S[i+2][j+1]:1, S[i+2][j+2]:1, S:submatrix (1,N+2,S,1,N+2), P:P+V[i*N+j]*S, Vars: append(Vars, [V[i*N+j]]), Sol[i][j]:V[i*N+j]) ) );
(%o3)                                done
(%i4)  P;
                        [ V  + V  + V   V  + V  + V  ]
                        [  6    5    4   6    5    3 ]
(%o4)                   [                            ]
                        [ V  + V  + V   V  + V  + V  ]
                        [  6    4    3   5    4    3 ]
(%i5)  Vars;
(%o5)                          [V , V , V , V ]
                                 3   4   5   6
(%i6)  R:zeromatrix(N,N)+1;
                                   [ 1  1 ]
(%o6)                              [      ]
                                   [ 1  1 ]
(%i7)  LGS:xreduce('append ,args(P-R));
(%o7) [V  + V  + V  - 1, V  + V  + V  - 1, V  + V  + V  - 1, V  + V  + V  - 1]
        6    5    4       6    5    3       6    4    3       5    4    3
(%i8)  Res:algsys(LGS, Vars);
(%o8)                 [[V  = 1, V  = 1, V  = 1, V  = 1]]
                         3       4       5       6
(%i9)  append([l=Sol],Res[1]);
                    [ V   V  ]
                    [  3   4 ]
(%o9)          [l = [        ], V  = 1, V  = 1, V  = 1, V  = 1]
                    [ V   V  ]   3       4       5       6
                    [  5   6 ]
(%i10) 
Run Example
modulus:5;
(%o1)                                  5
(%i2) solve([2*a^2+3*c^2=1,2*a*b+3*c*d=0,2*b^2*b+3*d^2=0],[a,b,d]);
                  2                                   2
(%o2) [[a = sqrt(c  - 2), b = 0, d = 0], [a = - sqrt(c  - 2), b = 0, d = 0]]
(%i3) 

Related Help

Help for Modulus