
-- Input for page IntegerPage
)clear all

x := factorial(200)
y := 2**90 - 1
x + y
x - y
x * y
factor(x)
factor(y)

-- Input for page FloatIntroductionPage
)clear all

sqrt(2.0)
numeric %pi
exp(1.0)
exp(sqrt(163.0) * %pi)
sin(%pi/6.)

-- Input for page FractionPage
)clear all

1/4 - 1/5
f := (x**2 + 1)/(x - 1)
g := (x**2 - 3*x + 2)/(x + 2)
f * g

-- Input for page FloatPrecisionAnswerPage
)clear all

numeric(%pi, 500)
digits 500
numeric %pi

-- Input for page FiniteFieldPage
)clear all

F7 := PF 7
F49 := FF(7,2)
definingPolynomial()$F49
e := random()$F49
norm e
trace e
order e
allElts := [index(i)$F49 for i in 1..48]
reduce(+,allElts)
[order e for e in allElts]
u:UP(x, F7) := x**2 + 1
factor u
u2:UP(x, F49) := u
factor u2

-- Input for page IntegerProblemAnswerPage1
)clear all

f: NNI -> INT
f(n) == 2**n - 1
factor f(7)
ints := [n for n in 1..]
primes := [x for x in ints | prime? x]
primes.25
numbers := [f(n) for n in primes]
factors := [factor n for n in numbers]
nums := [x for x in numbers | not prime? x]

-- Input for page IntegerProblemAnswerPage2
)clear all

numbers := [n**2 - n + 41 for n in 0..40]
[factor n for n in numbers]

-- Input for page RomanNumeralPage
)clear all

f := operator 'f
differentiate(f x,x,7)
a := roman(1978 - 1965)
x : UTS(ROMAN,'x,0) := x
recip(1 - x - x**2)
m : MATRIX FRAC ROMAN
m := matrix [[1/(i + j) for i in 1..3] for j in 1..3]
inverse m
y := factorial 20
roman y

-- Input for page IntegerExamplePage
)clear all

f: NNI -> INT
f(n) == 2**(2**n) + 1
factor f(1)
factor f(2)
for n in 1..6 repeat output factor f(n)

-- Input for page FloatPrecisionPage
)clear all

exp(%pi * sqrt(163.0))
digits 40
x := exp(%pi * sqrt(163.0))
numeric(1/3, 5)
numeric(1/3, 60)
numeric(1/3)

-- Input for page RationalNumberPage
)clear all

61657 ** 10 / 999983 ** 12
x := 104348/33215
numeric x
numer(x)
denom(x)
factor(numer x) / factor(denom x)

-- Input for page RepeatingDecimalPage
)clear all

x := 2/7 :: DECIMAL
y := 13/17 :: DECIMAL
x - y
x + y
x * y
