### Related

##### xthru

a: 1/(c-d)-c/(c^2-d^2...

xthru(a);

Calculate

##### xthru

((x*2)^20 - 2*y)/(x*y...

xthru (((x*2)^20 - 2...

Calculate

##### xthru

((x*2)^20 - 2*y)/(x*y...

xthru (%);

Calculate

##### xthru

eq1: (e1+e2+2*(e3+e4)...

xthru(eq1);

Calculate

##### xthru

xthru((2+a) / (6 * a ...

Calculate

##### xthru

((x+2)^20 - 2*y)/(x+y...

xthru (%);

Calculate

##### xthru

f:24*Dwi_x[t+1]*V[t+1...

K:1/((13+11*Dwi_x[t+1...

NR1_NET:K*Dwi_x[t+1]/...

Calculate

##### xthru

xthru((2+a) / (6 * a ...

xthru((8*r - 8*s)/(...

Calculate

##### xthru

xthru((2+a) / (6 * a ...

Calculate

eq1:x*4+y-2=y;

xthru(eq1);

Calculate

### xthru

Run Example
```(%i1)f(x):= 4*x+18*x/(1+x)+30-6*x;
18 x
(%o1)                 f(x) := 4 x + ----- + 30 + (- 6) x
1 + x
(%i2) xthru(f(x));
(30 - 2 x) (x + 1) + 18 x
(%o2)                      -------------------------
x + 1
(%i3) diff(f(x),x);
18       18 x
(%o3)                        ----- - -------- - 2
x + 1          2
(x + 1)
(%i4) solve(diff(f(x),x),x);
(%o4)                          [x = - 4, x = 2]
(%i5) xthru(diff(f(x),x));
2
- 2 (x + 1)  + 18 (x + 1) - 18 x
(%o5)                  --------------------------------
2
(x + 1)
(%i6) plot2d(f(x),[x,0,5]);
plot```
Run Example
```a: 1/(c-d)-c/(c^2-d^2)+1/(2*c+2*d);
c          1         1
(%o1)                    - ------- + --------- + -----
2    2   2 d + 2 c   c - d
c  - d
(%i2) xthru(a);
2    2
(d + 3 c) (c  - d ) - c (c - d) (2 d + 2 c)
(%o2)             -------------------------------------------
2    2
(c - d) (2 d + 2 c) (c  - d )
(%i3) b:ratsimp(a);
1
(%o3)                             - ---------
2 d - 2 c
(%i4) fullratsimp(a);
1
(%o4)                             - ---------
2 d - 2 c
(%i5) outative(2*c+2*d);
(%o5)                         outative(2 d + 2 c)
(%i6) ```
Run Example
```a: 1/(c-d)-c/(c^2-d^2)+1/(2*c+2*d);
c          1         1
(%o1)                    - ------- + --------- + -----
2    2   2 d + 2 c   c - d
c  - d
(%i2) xthru(a);
2    2
(d + 3 c) (c  - d ) - c (c - d) (2 d + 2 c)
(%o2)             -------------------------------------------
2    2
(c - d) (2 d + 2 c) (c  - d )
(%i3) b:ratsimp(a);
1
(%o3)                             - ---------
2 d - 2 c
(%i4) ev(2*(c+d));
(%o4)                              2 (d + c)
(%i5) fullratsimp(2*c+2*d);
(%o5)                              2 d + 2 c
(%i6) p: x/(x^2-y^2)-y/(x^2+2*x*y+y^2);
x             y
(%o6)                      ------- - ---------------
2    2    2            2
x  - y    y  + 2 x y + x
(%i7) q:ratsimp(p);
2    2
y  + x
(%o7)                       - ---------------------
3      2    2      3
y  + x y  - x  y - x
(%i8) ```

Help for Xthru