>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
s:=[1,4,25,9,16,25];
[seq(i^2, i=1..5)];
nops(s);
6
L:=[seq(rand(0..10)(), i=1..10)];
select(x->x<5, L);
M1:={b,a,c};
M3:=[1,1,2,2,3,3];
M4:=convert(M3, set);
convert(M4, list);
M2:={a,b};
M1 union M2;
M1 intersect M2;
M1 minus M2;
with(LinearAlgebra):
d:=Matrix([[1,2,3], [1,4,9], [1,16,27]]);
h:=(i,j)->1/(i+j-x):
h4:=Matrix(4,4,h);
>>
>>
>>
>>
>>
>> C:=Transpose(d);
d.C;
E:=MatrixInverse(d);
d.E;
Rank(d);
3
Determinant(d);
%typeset_mode True
s =[1 ,4 ,25 ,9 ,16 ,25]
[ i ^2 fo r i in range (1 ,6) ]
[1, 4, 9, 16, 25]
len ( s )
6
def random_between ( j , k) :
a=int (random () *(k - j +1))+j
return a
L=[random_between ( -10 ,10) f o r i in range (1 ,11) ] ; L
[3, 10, 1, 2, −3, −7, −10, 10, −3, 2]
[ j f o r j in L i f j< 5]
[3, 1, 2, −3, −7, −10, −3, 2]
r e s e t ()
var ( 'a , b , c') ;M1={b , a , c}
(a, b, c)
M3=[1 ,1 ,2 ,2 ,3 ,3];M3
[1, 1, 2, 2, 3, 3]
M4=set (M3) ;M4
set([1, 2, 3])
l i s t (M4)
[1, 2, 3]
M2={a , b };M2
set([b, a])
M1. union (M2)
set([c, b, a])
M1. i n t e r s e c t i o n (M2)
set([b, a])
M1. d i f f e r e n c e (M2)
set([c])
1
d=matrix ( [ [ 1 , 2 , 3 ] , [ 1 , 4 , 9 ] , [ 1 , 1 6 , 2 7 ] ] ) ; d


1 2 3
1 4 9
1 16 27


h4=matrix (4 ,4 , lambda i , j : 1/( i+1+j +1-x) ) ; h4




− 1
x−2 − 1
x−3 − 1
x−4 − 1
x−5
− 1
x−3 − 1
x−4 − 1
x−5 − 1
x−6
− 1
x−4 − 1
x−5 − 1
x−6 − 1
x−7
− 1
x−5 − 1
x−6 − 1
x−7 − 1
x−8




c=d . transpose () ; c


1 1 1
2 4 16
3 9 27


d*c


14 36 114
36 98 308
114 308 986


e=d . inverse () ; e


1 1
6 −1
6
1
2 −2
3
1
6
−1
3
7
18 − 1
18


d*e


1 0 0
0 1 0
0 0 1


d . rank ()
3
d . det ()
−36
2