Sponsored links: Algebra eBooks
 

Related

obase

obase:16.;

14;

Calculate

obase

obase:16;

195;

Calculate

obase

obase:16.;

14;

Calculate

obase

obase:16;

195+23;

Calculate

obase-plot2d
plot2d(K_s(x), [x,-100,200], [y, -100, 1000]);

obase:10;

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

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

Calculate

obase

obase:2;

195;

Calculate

obase

obase : 2;

2^8 - 1;

obase : 8;

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]);
plotplot2d(K_s(x), [x,-100,200], [y, -100, 1000]);
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) 

Related Help

Help for Obase