read `SlaterValez.txt`:

N1:=10000:
N2:=150000:



print(`The estimated transition probability from state 2 to state 1 using the a-sequence from`, N1, `to `, N2, `is `):

c:=Estc(N1,N2):

lprint(c):

print(``):
gu:=AlDelF(c):
print(``):
print(`This implies, under the heuristic estimates that the slopes of states 1,2,3 are, respectively `):
print(``):
print(op(gu[1])):
print(``):
print(`and their relative frequency is`):
print(``):
print(op(gu[2])):
print(``):

quit: