INPUT A;"INPUT DATA";"Rate 1:";"Rate 1?";2:
INPUT E;"INPUT DATA";"T 1:";"T at rate "A"?";1:
INPUT B;"INPUT DATA";"Rate 2:";"Rate 2?";5:
INPUT F;"INPUT DATA";"T 2:";"T at rate "B"?";1:
INPUT C;"INPUT DATA";"Rate 3:";"Rate 3?";10:
INPUT G;"INPUT DATA";"T 3:";"T at rate "C"?";1:
INPUT D;"INPUT DATA";"Rate 4:";"Rate 4?";15:
INPUT H;"INPUT DATA";"T 4:";"T at rate "D"?";1:

1/(E+273)=I:
1/(F+273)=J:
1/(G+273)=K:
1/(H+273)=L:

(A/60)/((E+273)^2)=M:
(B/60)/((F+273)^2)=N:
(C/60)/((G+273)^2)=O:
(D/60)/((H+273)^2)=P:

(I+J+K+L)/4=Q:
(LN(M)+LN(N)+LN(O)+LN(P))/4=R:

((I*LN(M)+J*LN(N)+K*LN(O)+L*LN(P))-4*Q*R)/(3*SQRT((1/3)*((I-Q)^2+(J-Q)^2+(K-Q)^2+(L-Q)^2))*SQRT((1/3)*((LN(M)-R)^2+(LN(N)-R)^2+(LN(O)-R)^2+(LN(P)-R)^2)))*(SQRT((1/3)*((LN(M)-R)^2+(LN(N)-R)^2+(LN(O)-R)^2+(LN(P)-R)^2))/SQRT((1/3)*((I-Q)^2+(J-Q)^2+(K-Q)^2+(L-Q)^2)))=S:

ABS(S)*.008314=Z:

M*ABS(S)=T:
N*ABS(S)=U:
O*ABS(S)=V:
P*ABS(S)=W:

R-S*Q=X:

e^X*Z/.008314=Y:

ERASE:

DISP 1;"Results:":
DISP 2;"Ea = "Z" kJ/mol":
DISP 3;"A = "Y" 1/c":
DISP 4;"k1 = "T" 1/c":
DISP 5;"k2 = "U" 1/c":
DISP 6;"k3 = "V" 1/c":
DISP 7;"k4 = "W" 1/c":

FREEZE:
ERASE:

DISP 1;"Equation:":
DISP 2;" ":
DISP 3;"k = "e^X" x":
DISP 4;"e^(-"S"/T)":

FREEZE: