(%i1) load(draw);

Result

Otázka: Jak se změní lineární obal množiny vektorů, pokud
přidáme / odebereme jeden vektor. Na čem výsledek závisí?

(%i2) v1:[4,-1,3]; v2:[1,0,2]; v3:[-2,1,1]; v4:[1,3,2];

Result

(%i6) wxdraw3d(line_width = 4,
        color = green,vector([0,0,0],v1),
        color = red,vector([0,0,0],v2),
        color = blue,vector([0,0,0],v3),
        color = pink,vector([0,0,0],v4));

Result

(%i7) M1:matrix(v1,v2,v3); triangularize(M1);

Result

(%i9) M2:matrix(v1,v2,v3,v4); triangularize(M2);

Result

(%i11) u1:[4,-1,3]; u2:[1,-2,2]; u3:[-2,1,1]; u4:[1,3,2];

Result

(%i15) wxdraw3d(line_width = 4,
        color = green,vector([0,0,0],u1),
        color = red,vector([0,0,0],u2),
        color = blue,vector([0,0,0],u3),
        color = pink,vector([0,0,0],u4));

Result

(%i16) M1:matrix(u1,u2,u3); triangularize(M1);

Result

(%i18) M2:matrix(u1,u2,u3,u4); triangularize(M2);

Result


Created with wxMaxima.