Sponsored links: Algebra eBooks
 

Related

gramschmidt-load-map-matrix

load (eigen);

x: matrix ([1, 2, 3]...

y: gramschmidt (x);

Calculate

gramschmidt-matrix

v1:[3,-8.5];

v2:[-4,3];

v3:[-2,3];

Calculate

gramschmidt

y : gramschmidt ([1,-...

Calculate

gramschmidt-matrix

x: matrix ([1, 1, 1, ...

y: gramschmidt (x);

Calculate

gramschmidt-load-matrix

load (eigen);

x: matrix ([-10, -8,...

y: gramschmidt (x);

Calculate

gramschmidt-load-matrix

load (eigen);

v1: vector(1, 2);

v2: vector(1, -2);

Calculate

gramschmidt-load-matrix

load (eigen);

x: matrix ([1, 2, 3]...

y: gramschmidt (x);

Calculate

gramschmidt-matrix-print

x: matrix ([-1, 0, 0,...

y: gramschmidt (x);

print(y);

Calculate

gramschmidt-matrix

x: matrix ([2,0,3], [...

y: gramschmidt(x);

Calculate

gramschmidt-load-matrix

load (eigen);

x: matrix ([-9, 1, -...

y: gramschmidt (x);

Calculate

gramschmidt

Run Example
(%i1)load (eigen);
(%o1)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i2)  x: matrix ([1, 2, 2, -1], [1, 1, -5, 3], [3, 2, 8, -7]);
                              [ 1  2   2   - 1 ]
                              [                ]
(%o2)                         [ 1  1  - 5   3  ]
                              [                ]
                              [ 3  2   8   - 7 ]
(%i3)  y: gramschmidt (x);
(%o3)        [[1, 2, 2, - 1], [2, 3, - 3, 2], [2, - 1, - 1, - 2]]
(%i4)  map (innerproduct, [y[1], y[2], y[3]], [y[2], y[3], y[1]]);
(%o4)                              [0, 0, 0]
(%i5)  load (eigen);
(%o5)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i6)  ip (f, g) := integrate (f * g, u, a, b);
(%o6)                 ip(f, g) := integrate(f g, u, a, b)
(%i7)  y : gramschmidt ([1, sin(u), cos(u)], ip), a= -%pi/2, b=%pi/2;
                                      %pi cos(u) - 2
(%o7)                     [1, sin(u), --------------]
                                           %pi
(%i8)  map (ip, [y[1], y[2], y[3]], [y[2], y[3], y[1]]), a= -%pi/2, b=%pi/2;
(%o8)                              [0, 0, 0]
(%i9) 
Run Example
load (eigen);
(%o1)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i2)  x: matrix ([2,1,1,1], [1,0,1,1], [-2,-1,0,-1]);
                             [  2    1   1   1  ]
                             [                  ]
(%o2)                        [  1    0   1   1  ]
                             [                  ]
                             [ - 2  - 1  0  - 1 ]
(%i3)  y: gramschmidt (x);
                                      2
                                1    2   3  3      1  1  3    2
(%o3)         [[2, 1, 1, 1], [- -, - --, -, -], [- -, -, -, - -]]
                                7    7   7  7      5  5  5    5
(%i4)  map (innerproduct, [y[1], y[2], y[3]], [y[2], y[3], y[1]]);
(%o4)                              [0, 0, 0]
(%i5)  load (eigen);
(%o5)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i6)  ip (f, g) := integrate (f * g, u, a, b);
(%o6)                 ip(f, g) := integrate(f g, u, a, b)
(%i7)  y : gramschmidt ([1, sin(u), cos(u)], ip), a= -%pi/2, b=%pi/2;
                                      %pi cos(u) - 2
(%o7)                     [1, sin(u), --------------]
                                           %pi
(%i8)  map (ip, [y[1], y[2], y[3]], [y[2], y[3], y[1]]), a= -%pi/2, b=%pi/2;
(%o8)                              [0, 0, 0]
(%i9) 
Run Example
load (eigen);
(%o1)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i2)  x: matrix ([1, 4, 8], [2,0,2], [0,5,1],[3,8,6]);
                                  [ 1  4  8 ]
                                  [         ]
                                  [ 2  0  2 ]
(%o2)                             [         ]
                                  [ 0  5  1 ]
                                  [         ]
                                  [ 3  8  6 ]
(%i3)  y: gramschmidt (x);
                      4     3         2              2
                     2     2   2     2  31  7 31    2  31
(%o3)   [[1, 4, 8], [--, - --, --], [-----, ----, - -----], [0, 0, 0]]
                      2     2   2      4      4       4
                     3     3   3      3      3       3
(%i4)  map (innerproduct, [y[1], y[2], y[3]], [y[2], y[3], y[1]]);
(%o4)                              [0, 0, 0]
(%i5)  load (eigen);
(%o5)           /usr/share/maxima/5.21.1/share/matrix/eigen.mac
(%i6)  ip (f, g) := integrate (f * g, u, a, b);
(%o6)                 ip(f, g) := integrate(f g, u, a, b)
(%i7)  y : gramschmidt ([1, sin(u), cos(u)], ip), a= -%pi/2, b=%pi/2;
                                      %pi cos(u) - 2
(%o7)                     [1, sin(u), --------------]
                                           %pi
(%i8)  map (ip, [y[1], y[2], y[3]], [y[2], y[3], y[1]]), a= -%pi/2, b=%pi/2;
(%o8)                              [0, 0, 0]
(%i9) 

Related Help

Help for Gramschmidt