### Related

##### define-expand-integrate-solve

define(f(x), a*x^2+b*...

solve([expand(integra...

Calculate

##### define-expand

define (f(x), (x^3+ 2...

a:-1;

b:1;

Calculate

##### define-expand-integrate

define(f(x),expand(((...

define(g(x),integrate...

Calculate

a: 0 ;

b: 1;

h: b-a ;

Calculate

##### define-expand-float

define(n(x), x^3 + 3*...

define(d(x), x^3 + 13);

define(r(x), n(x)/d(x));

Calculate

q:[[0,1.7969],[0.0333...

define(p(x),expand(la...

Calculate

##### define-expand

define (f(x), x^3 + 3...

define (g(x), x^3 + 13);

define (r(x), f(x)/g(...

Calculate

##### define-expand-float

define(f(x), (x^3 + 2...

a:4.5;

b:6;

Calculate

##### define-expand-float

define(n(x), x^3+3*x^...

define(d(x), x^3 +13);

define(r(x), n(x)/d(x));

Calculate

##### define-expand-float-plot2d

define(f(x), (x^3 + 2...

a: 4.5;

b: 6;

Calculate

### [define,expand]

Run Example
```(%i1)define (T113(t1), (1-t1)^3+3*t1*(1-t1)^2);
2              3
(%o1)               T113(t1) := 3 (1 - t1)  t1 + (1 - t1)
(%i2) define (T131(t1), t1^3+3*t1^2*(1-t1));
3                2
(%o2)                  T131(t1) := t1  + 3 (1 - t1) t1
(%i3) define (T121(t1), 3*t1*(1-t1)^2);
2
(%o3)                     T121(t1) := 3 (1 - t1)  t1
(%i4) define (T112(t1), 3*t1^2*(1-t1));
2
(%o4)                     T112(t1) := 3 (1 - t1) t1
(%i5) expand (-K3*T113(t1)*y3+K3*y1-K3*T131(t1)*y0+L3*T131(t1)*x3-L3*x1+L3*T131(t1)*x0) ;
3             2                     3             2
(%o5) - 2 t1  x3 L3 + 3 t1  x3 L3 - x1 L3 - 2 t1  x0 L3 + 3 t1  x0 L3
3             2                             3             2
- 2 t1  y3 K3 + 3 t1  y3 K3 - y3 K3 + y1 K3 + 2 t1  y0 K3 - 3 t1  y0 K3
(%i6) ```
Run Example
```define(f(x),3*x^4+9*x^3+3*x^2-9*x-6);
4      3      2
(%o1)                f(x) := 3 x  + 9 x  + 3 x  - 9 x - 6
(%i2) a:-1.5;
(%o2)                                - 1.5
(%i3) b:-0.5;
(%o3)                                - 0.5
(%i4) h:b-a;
(%o4)                                 1.0
(%i5) dq:(f(a+h)-f(a))/h;
(%o5)                               - 0.75
(%i6) define(z(x),expand(f(a)+dq*(x-a)));
(%o6)                      z(x) := - 0.75 x - 2.0625
(%i7) ```
Run Example
```define(f(x),x^3-2*x^2+x);
3      2
(%o1)                        f(x) := x  - 2 x  + x
(%i2) expand(f(x+1));
3    2
(%o2)                               x  + x
(%i3) ```

Help for Define

Help for Expand