Sponsored links: Algebra eBooks
 

Related

substpart

a: x*(x^2-x_0^2);

substpart (x_0, a, 2,...

Calculate

substpart

a: 1/(x^2 + 2);

substpart (x, a, 2, 1...

Calculate

substpart

f1: 9/x;

f2: 4*%e^(3*x);

f3: 4*x^6;

Calculate

substpart

a: 1/(x^2 + 2);

substpart (x, a, 2);

Calculate

substpart

substpart ("[", 9/x, 2);

Calculate

substpart

a: x*(x^2-x_0^2);

substpart (x_0, a, 2,...

Calculate

substpart

substpart ("[", 9/x, 1);

Calculate

substpart

a: x*(x^2-x_0^2);

substpart (x, a, 2, 1...

Calculate

substpart

a: 1/(x^2 + 2);

substpart (x, a, 2, 1...

Calculate

substpart

a: 1/(x^2 + 2);

substpart (x, a, 2, 1...

Calculate

substpart

Run Example
(%i1)sq:[[1,0],[2,0],[2,2],[1,2],[1,0]];
(%o1)              [[1, 0], [2, 0], [2, 2], [1, 2], [1, 0]]
(%i2) sq1:[[0,2,2,0,0],[0,0,2,2,0]];
(%o2)                 [[0, 2, 2, 0, 0], [0, 0, 2, 2, 0]]
(%i3) rm:matrix([.707,-.707],[.707,.707]);
                              [ 0.707  - 0.707 ]
(%o3)                         [                ]
                              [ 0.707   0.707  ]
(%i4) sqm:substpart(matrix, sq1, 0);
                               [ 0  2  2  0  0 ]
(%o4)                          [               ]
                               [ 0  0  2  2  0 ]
(%i5) out:rm.sqm;
                      [ 0.0  1.414   0.0   - 1.414  0.0 ]
(%o5)                 [                                 ]
                      [ 0.0  1.414  2.828   1.414   0.0 ]
(%i6) outL:args(out);
(%o6) [[0.0, 1.414, 0.0, - 1.414, 0.0], [0.0, 1.414, 2.828, 1.414, 0.0]]
(%i7) plot2d([discrete,sq1],[x,-3,3],[y,-3,3]);
plotplot2d([discrete,sq1],[x,-3,3],[y,-3,3]);
Run Example
L: sqrt((x-x1)^2+(y-y1)^2) + sqrt((x-x2)^2+(y-y2)^2) ;
                        2           2                 2           2
(%o1)      sqrt((y - y2)  + (x - x2) ) + sqrt((y - y1)  + (x - x1) )
(%i2) R: k * sqrt((x2-x1)^2+(y2-y1)^2) ;
                                        2            2
(%o2)                   k sqrt((y2 - y1)  + (x2 - x1) )
(%i3) R2: R^2;
                          2           2            2
(%o3)                    k  ((y2 - y1)  + (x2 - x1) )
(%i4) L2: expand(L^2);
               2             2     2             2
(%o4) 2 sqrt(y1  - 2 y y1 + y  + x1  - 2 x x1 + x )
        2             2     2             2      2              2
 sqrt(y2  - 2 y y2 + y  + x2  - 2 x x2 + x ) + y2  - 2 y y2 + y1  - 2 y y1
      2     2              2               2
 + 2 y  + x2  - 2 x x2 + x1  - 2 x x1 + 2 x
(%i5) L2u: substpart(u,L2,1,2);
                 2             2     2             2      2              2
(%o5) 2 u sqrt(y2  - 2 y y2 + y  + x2  - 2 x x2 + x ) + y2  - 2 y y2 + y1
                                         2     2              2               2
                           - 2 y y1 + 2 y  + x2  - 2 x x2 + x1  - 2 x x1 + 2 x
(%i6) u_val:piece;
                         2             2     2             2
(%o6)             sqrt(y1  - 2 y y1 + y  + x1  - 2 x x1 + x )
(%i7) L2uv: substpart(v,L2u,1,3);
        2              2               2     2              2               2
(%o7) y2  - 2 y y2 + y1  - 2 y y1 + 2 y  + x2  - 2 x x2 + x1  - 2 x x1 + 2 x
                                                                        + 2 u v
(%i8) v_val:piece;
                         2             2     2             2
(%o8)             sqrt(y2  - 2 y y2 + y  + x2  - 2 x x2 + x )
(%i9) L3: L2uv - 2*u*v;
        2              2               2     2              2               2
(%o9) y2  - 2 y y2 + y1  - 2 y y1 + 2 y  + x2  - 2 x x2 + x1  - 2 x x1 + 2 x
(%i10) R3: R2 - 2*u*v;
                      2           2            2
(%o10)               k  ((y2 - y1)  + (x2 - x1) ) - 2 u v
(%i11) 
Run Example
substpart ("[", 9/x, 2);
                                       9
(%o1)                                  -
                                       [
(%i2) 

Related Help

Help for Substpart