Sponsored links: Algebra eBooks
 

Help Index

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

The Maxima on-line user's manual

Algebra Calculator

Search:

Append

Function: append (<list_1>, ..., <list_n>) Returns a single list of the elements of <list_1> followed by the elements of <list_2>, ... append also works on general expressions, e.g. append (f(a,b), f(c,d,e)); yields f(a,b,c,d,e).

d(n):=divsum(n)-n;
abu(n):=if d(n) > n then true else false;
l : list();
 for i : 0 thru 100 do (if abu(i) then (print(i,d(i)),l:append(l,list(i))));
l;

Do example(append); for an example.

There are also some inexact matches for append. Try ?? append to see them.

(%o1)                                true
(%i2) 

Related Examples

append-ascii-concat-first-second

SEMICOL:ascii(59);

get_number_from_list(...

write_number_from_lis...

Calculate

append

:lisp (setf expr '(* ...

:lisp (setf *print-cy...

:lisp (nodes-deep expr);

Calculate

append-atom-block-delete-flatten-if-lambda-load-map-return

intersperse2(things, ...

intersperse2(0, [-1, ...

intersperse2([0, 0], ...

Calculate

append-do-reverse

:lisp (defun interspe...

:lisp (defun pre2in (...

:lisp (pre2in '(* (+ ...

Calculate

append-block

coeffs(poly):=block([...

coeffs(a*x^2+b*x+c);

Calculate

append

c: makelist[pon,uto,p...

d: makelist[sri,cet,n...

append(d,c);

Calculate

append-bessel_k-numer

v:0;

A(z):=bessel_k(v, z);

a:[];

Calculate

append-build_info-lambda-map-plot2d-rat-resultant-rhs-solve-sqrt
plot2d(append( [-2*x-3, -2*x-5, -2*x-7, 2*x+1, if abs(x+4) <1 then %i else -2*x-7-4/(x+4), [parametric, -t^2-4, t^2+4+2*t, [t,1+2^(1/2), 3], [nticks, 1000]], [parametric, -t^2-4, t^2+4+2*t, [t,-3, 1-2^(1/2)], [nticks, 1000]], [parametric, -t^2-7-t+1/t, t^2+7+2*t-2/t, [t,-3,3], [nticks, 1000]], [parametric, -t-15/2-rt32(t), t+8+2*rt32(t), [t,1/16,16], [nticks, 1000]], [parametric, -t-15/2+rt32(t), t+8-2*rt32(t), [t,1/16,16], [nticks, 1000]], [parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,-2,-1/8], [ nticks, 1000]], [parametric, 4*a-4+1/a, 4*a^2-4*a+5-2/a,[a,1/8,2], [ nticks, 1000]]], map(rhs, solve(rx, B))),    [x,-12.5,4.5],    [color, black,black,green,black,red, red, red, green, green, green, blue,blue,red,red,red,red],    [legend, false],    [y,-24, 30]);

f: x^3-(A+2)*x^2+B*x-A;

g: 2*x^2+B*x-A*(B+2*A...

r:rat(resultant(f,g,x));

Calculate