### Related

##### obase-plot2d

obase:10;

K(x):= 0.0003*x^3-0.5...

K_s(x):=K(x)/x;

Calculate

obase:16;

195+23;

Calculate

n:9;

obase:2;

n;

Calculate

obase:12;

2018;

Calculate

##### obase-plot2d

obase:10;

K(x):= 0.0003*x^3-0.5...

K_s(x):=K(x)/x;

Calculate

n:9;

obase:2;

n;

Calculate

obase : 2;

2^8 - 1;

obase : 8;

Calculate

obase:16.;

10;

Calculate

obase:16;

Calculate

obase:16.;

14;

Calculate

### obase

Run Example
```(%i1)base(n,d):=block([q:0, r:n, obase:d], while((n>
=d)) do (q:q+1, r:r-d, concat(q,r)));
(%o1) base(n, d) := block([q : 0, r : n, obase : d],
while n >= d do (q : q + 1, r : r - d, concat(q, r)))
(%i2) ```
Run Example
```obase:10;
(%o1)                                 10
(%i2) K(x):= 0.0003*x^3-0.58*x^2+5.91*x+124.5;
3         2
(%o2)     K(x) := 2.9999999999999997E-4 x  - 0.58 x  + 5.91 x + 124.5
(%i3) K_s(x):=K(x)/x;
K(x)
(%o3)                           K_s(x) := ----
x
(%i4) plot2d(K_s(x), [x,-100,200], [y, -100, 1000]);
plot```
Run Example
```kill(base,n,d,r,q);
(%o1)                                done
(%i2) base(n,d):=block([q:1, r:n, obase:d],while(r>
=d) do(q:q+1,r:r-d, return(concat(q,r))));
(%o2) base(n, d) := block([q : 1, r : n, obase : d],
while r >= d do (q : q + 1, r : r - d, return(concat(q, r))))
(%i3) makelist(base(n,10), n, 1, 10);
(%o3)     [done, done, done, done, done, done, done, done, done, 20]
(%i4) makelist(base(n,2), n, 1, 10);
(%o4)  [done, 100, 101, 1010, 1011, 10100, 10101, 10110, 10111, 101000]
(%i5) ```

Help for Obase