#LAPLACE 2
#STARTLINE
include("Init.lh");
#ENDLINE
#STARTLINE
sqrt(x^2)
#ENDLINE
#STARTLINE
alpha ^sigma + sigma^alpha
#ENDLINE
#STARTLINE
sqrt(x^2)
#ENDLINE
#STARTLINE
b = 0;
for ( a = 1 ; a < 500 ; a = a + 1 ) { 
    b = b + a;
  } 
b
#ENDLINE
#STARTLINE
tan(atan(3))
#ENDLINE
#STARTLINE
(a*b/c)^2
#ENDLINE
#STARTLINE
dmode(1)
#ENDLINE
#STARTLINE
sqrt(a+b+c+d/2)
#ENDLINE
#STARTLINE
sqrt((e^(x+7/2)+1)/(a^2+7/2))
#ENDLINE
#STARTLINE
sqrt((e^x+1)/(a^2+7/2))
#ENDLINE
#STARTLINE
procedure f(x,y) { 
    x^2 - y^2;
  }
#ENDLINE
#STARTLINE
f(4,2+4)
#ENDLINE
#STARTLINE
f(4,6)
#ENDLINE
#STARTLINE
test(1+2)
#ENDLINE
#STARTLINE
B=array(A+1,1,1,2/3*e^4,[1,5,8,2,5])
#ENDLINE
#STARTLINE
$usefloat=FALSE
#ENDLINE
#STARTLINE
B = sin(B)
#ENDLINE
#STARTLINE
A = array(3,7) union array(8,12)
#ENDLINE
#STARTLINE
array(1,2) + 2
#ENDLINE
#STARTLINE
irandom(3)
#ENDLINE
#STARTLINE
dmode(0)
#ENDLINE
#STARTLINE
random (10+10)
#ENDLINE
#STARTLINE
A[irandom(4) + 1]
#ENDLINE
#STARTLINE
array(1,2,3)
#ENDLINE
#STARTLINE
B[1+C]+7
#ENDLINE
#STARTLINE
E = x^2 - 5 =? 3
#ENDLINE
#STARTLINE
E = E + 5
#ENDLINE
#STARTLINE
sqrt(E)
#ENDLINE
#STARTLINE
E + 2
#ENDLINE
#STARTLINE
1+a+d+2+g
#ENDLINE
#STARTLINE
1/a
#ENDLINE
#STARTLINE
A=[1;,1;,,1;1,,,1,3]~
#ENDLINE
#STARTLINE
B=[1,2,3;4,5,6;7,8,9]!
#ENDLINE
#STARTLINE
C=[1,2,3,4;5,6,7,8]!
#ENDLINE
#STARTLINE
A*B*C
#ENDLINE
#STARTLINE
x+2/(x+2)
#ENDLINE
#STARTLINE
$expand=FALSE;$simplify=FALSE;$display=FALSE
#ENDLINE
#STARTLINE
x+2/(x+2) * y
#ENDLINE
#STARTLINE
1+x
#ENDLINE
#STARTLINE
1-x
#ENDLINE
#STARTLINE
(x+3)*(x+2)
#ENDLINE
#STARTLINE
A setminus B
#ENDLINE
#STARTLINE
A union B
#ENDLINE
#STARTLINE
A intersect B
#ENDLINE
#STARTLINE
A=[2,256,3;5,6,7;9,10,11]
#ENDLINE
#STARTLINE
B=[b_1,b_2,b_3]
#ENDLINE
#STARTLINE
B[1]
#ENDLINE
#STARTLINE
A*B
#ENDLINE
#STARTLINE
C=[c_1,c_2,c_3]
#ENDLINE
#STARTLINE
BC
#ENDLINE
#STARTLINE
A = [,2,3,4,4;5,,7,8,8;9,10,,12,12;13,14,15,,16;17,18,19,20,]
#ENDLINE
#STARTLINE
det(A)
#ENDLINE
#STARTLINE
A[3,..]
#ENDLINE
#STARTLINE
2*x + x - 4 * x
#ENDLINE
#STARTLINE
2*x*a+a*x*b
#ENDLINE
#STARTLINE
diff x
#ENDLINE
#STARTLINE
( (x^2 + 1)) /  x
#ENDLINE
#STARTLINE
 (x+y)
#ENDLINE
#STARTLINE
sin(x)^2 + cos(x)^2
#ENDLINE
#STARTLINE
writeobj("ram:a", a+"st"+2)
#ENDLINE
#STARTLINE
readobj("ram:a")
#ENDLINE
#STARTLINE

#ENDLINE
#ENDPROJECT
