(%i1) load("/home_zam/plch/vyuka/maxima/rref.mac");

Result

(%i2) A: matrix([1,0,2,1,0,0], [2,-1,3,0,1,0], [4,1,8,0,0,1]);
u:rref(A);

Result

1)ukol

a)

(%i4) B: matrix([1,0,2], [2,-1,3], [4,1,8]);

Result

(%i5) C:invert(B);

Result

b)

(%i6) D:transpose(B);

Result

(%i7) D.B;

Result

c)

(%i8) determinant(B);

Result

d)

(%i9) C.B;

Result

(%i10) kill(all);

Result

2)ukol

1.množina

(%i2) u:create_list(2^i-1,i,1,20);

Result

(%i3) v:setify(u);

Result

2. množina

(%i4) pom:create_list(next_prime(i),i,1,30);

Result

(%i5) m:unique(pom);

Result

(%i6) length(m);

Result

(%i7) n:rest(m,-1);

Result

(%i8) length(n);

Result

(%i9) l:setify(n);

Result

a)

(%i10) union(l,v);

Result

b)

(%i11) intersect(l,v);

Result

(%i12) kill(all);

Result

3)ukol

(%i1) random(11);

Result

(%i2) u:create_list(random(11),i,1,100);

Result

a)Result

(%i12) v:unique(u);

Result

b)

(%i4) f(x):=is(x>4);

Result

(%i5) sublist(v, f);

Result

c)

(%i6) m:sublist(v, evenp);

Result

(%i14) g(x):=x/3;

Result

(%i16) l:map(g, v);

Result

(%i20) d:sublist(l, integerp)*3;

Result

(%i23) p:append(d,m);

Result

(%i24) unique(p);

Result

(%i25) kill(all);

Result


Created with wxMaxima.