### Related

##### substpart

substpart("(",a+b*(a+...

a+c+b+d+e+f+g+h+i+j+k...

["+",a,b];

Calculate

##### substpart

substpart("(",a+b*(a+...

a+c+b^2+d+e+f+g+h+i+j...

["+",a,b];

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

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

substpart (x, a, 2);

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

a(x):=b*x+c;

a(x);

b:2;

Calculate

##### substpart

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

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

Calculate

f1: 9/x;

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

f3: 4*x^6;

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]);
plot```
Run Example
```signs:["+","-","*","/"];
(%o1)                            [+, -, *, /]
(%i2) a1:random(8);
(%o2)                                  4
(%i3) a2:random(5);
(%o3)                                  2
(%i4) a3:signs[2];
(%o4)                                  -
(%i5) simp:false;
(%o5)                                false
(%i6) f1:substpart(a3,x^a1+x^a2,0);
4
(%o6)                                - x
(%i7) ```
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) ```

### Related Help

Help for Substpart