IMPLICITCAST
DOUBLE	INTEGER	(double(a))
END

HELP	readme	README
HELP	changes	CHANGES
HELP	modules	modules/modules.hlp
HELP	functions modules/functions.hlp
HELP	matrix modules/matrix.hlp
HELP    matrix2 modules/matrix2.hlp
HELP	vector modules/vector.hlp
MODULE	generic	modules/generic.hlp

PROCEDURES
help	INTEGER	0
licence INTEGER	showlicence()
quit	INTEGER	quit_program()
exit	INTEGER	quit_program()
clear	INTEGER	system("clear")
variables	INTEGER	showvariables()
functions	INTEGER	showfunctions()
modules		INTEGER	showmodules()
version	STRING	showversion()
configuration	STRING	showconfiguration()
ShowPrecision	INTEGER	showprecision()
END

BINARYFUNCTIONS
add	VALUE	MATRIX	MATRIX	(a.N==b.N&&a.M==b.M)?value(a+b):value()
add	MATRIX	MATRIX	*	a+valuematrix(a.N,a.M,vb,0)
add	MATRIX	*	MATRIX	valuematrix(b.N,b.M,va,0)+b
sub	VALUE	MATRIX	MATRIX	(a.N==b.N&&a.M==b.M)?value(a-b):value()
sub	MATRIX	MATRIX	*	a-valuematrix(a.N,a.M,vb,0)
sub	MATRIX	*	MATRIX	valuematrix(b.N,b.M,va,0)-b
mul	VALUE	MATRIX	MATRIX	(a.M==b.N)?value(a*b):value()
mul	MATRIX	*	MATRIX	va*b
mul	MATRIX	MATRIX	*	vb*a
div	VALUE	MATRIX	MATRIX	(b.N==b.M&&a.M==b.N)?value(a*inv(b)):value()
div	MATRIX	MATRIX	*	(1/vb)*a
div	VALUE	*	MATRIX	(b.N==b.M)?value(va*inv(b)):value()
pow	VALUE	MATRIX	INTEGER	(a.N==a.M)?value(pow(a,b)):value()
cell	VALUE	MATRIX	INTEGER	a.N==1?((b<=a.M&&b>0)?a(0,b-1):value()):((a.M==1&&b<=a.N&&b>0)?a(b-1,0):value(a.row(b-1)))
cell	VALUE	MATRIX	MATRIX	matrixmatrixcell(a,b)
eq	INTEGER	MATRIX	MATRIX	(a==b)
neq	INTEGER	MATRIX	MATRIX	(a!=b)
zeros	MATRIX	INTEGER	INTEGER	valuematrix(a,b,0,0)
ones	MATRIX	INTEGER	INTEGER	valuematrix(a,b,1,1)
rand	MATRIX	INTEGER	INTEGER	randommatrix(a,b)
END

UNARYFUNCTIONS
identity	MATRIX	INTEGER	valuematrix(a,a,1,0)
transpose	MATRIX	MATRIX	(trans(a))
neg	MATRIX	MATRIX	(-a)
output		STRING	MATRIX	(output(a))
inv	MATRIX	MATRIX	(inv(a))
det	VALUE	MATRIX	(det(a))
rows	INTEGER	MATRIX	(a.N)
cols	INTEGER	MATRIX	(a.M)
size	INTEGER	MATRIX	(a.N>a.M?a.N:a.M)
strlen	INTEGER	STRING	int(a.length())
END