### Related

##### define-plot2d-solve

solve(x=4*x*(1-x));

define (f (x), 4*x*(1...

plot2d ([f(x),x], [x,...

Calculate

##### define-sin

define(f(x),x*sin(x^2...

Calculate

##### define

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

f(-1);

f(-6);

Calculate

##### define-diff

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

a: 4.5;

define(fp(x), diff(f...

Calculate

##### define-plot2d-sin-unit_step

define(k(t),2);

y:(1/(4*k(t)))*(unit_...

plot2d(y,[t,0,45]);

Calculate

##### define-diff-find_root-log-sin

define (f(x), log (x^...

define (fp(x), diff(f...

cv: find_root (fp(x)=...

Calculate

##### define-diff-plot2d-sqrt

define(t(y), 0.25*(6-...

define(tp(y), diff(t(...

plot2d(tp(y),[y, 3, s...

Calculate

##### define-diff-ic1-inf-limit-ode2

ic1(ode2(0.00353*'dif...

define(v(t),%o1);

limit(v(t),t,inf);

Calculate

##### define-float

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

f(2);

f(-1);

Calculate

##### define-plot2d

define(f(x),2*x^5-5*x...

plot2d(f(x), [x,-1000...

Calculate

### [define]

Run Example
```(%i1)kill(all);
(%o0)                                done
(%i1) Ik:16;
(%o1)                                 16
(%i2) U0:92;
(%o2)                                 92
(%i3) a:I/Ik=1-(U/U0)^2;
2
I         U
(%o3)                            -- = 1 - ----
16       8464
(%i4) l:solve(a,U);
(%o4)            [U = - 23 sqrt(16 - I), U = 23 sqrt(16 - I)]
(%i5) m:solve(a,I);
2
U  - 8464
(%o5)                          [I = - ---------]
529
(%i6) define(I(U),rhs(m[1]));
2
U  - 8464
(%o6)                         I(U) := - ---------
529
(%i7) define(U(I),rhs(l[2]));
(%o7)                       U(I) := 23 sqrt(16 - I)
(%i8) P(I,U):=I*U;
(%o8)                           P(I, U) := I U
(%i9) plot2d(I(U),[U,0,92], [xlabel, "U[V]"], [ylabel, "I[A]"]);
plotplot2d(U(I),[I,0,16], [ylabel, "U[V]"], [xlabel, "I[A]"]);
plotplot2d([P(I(U),U)],[U,0,92], [xlabel, "U[V]"], [ylabel, "P[W]"]);
plotplot2d([P(I,U(I))],[I,0,16], [xlabel, "I[A]"], [ylabel, "P[W]"], [grid, 10, 10]);
plotdefine(Iabgeleitet(U),diff(P(I(U),U),U));
2    2
2 U    U  - 8464
(%o13)               Iabgeleitet(U) := - ---- - ---------
529       529
(%i14) define(Uabgeleitet(I),diff(P(U(I),I),I));
23 I
(%o14)        Uabgeleitet(I) := 23 sqrt(16 - I) - --------------
2 sqrt(16 - I)
(%i15) Umax:solve(Iabgeleitet(U),U);
92           92
(%o15)                   [U = - -------, U = -------]
sqrt(3)      sqrt(3)
(%i16) Imax:solve(Uabgeleitet(I),I);
32
(%o16)                             [I = --]
3
(%i17) P[max]=float(Imax[1]*Umax[2]);
(%o17)                 P    = (I U = 566.5730641647529)
max
(%i18) R[L]=float(Umax[2]/Imax[1]);
U
(%o18)                   R  = (- = 4.979646071760522)
L    I
(%i19) ```
Run Example
```define (p(x), 4*x^2 + 7*x -9);
2
(%o1)                       p(x) := 4 x  + 7 x - 9
(%i2) ```
Run Example
```define(g(x), abs((4*x)/%e));
- 1
(%o1)                       g(x) := 4 %e    abs(x)
(%i2) ```

Help for Define