clc;funcprot(0);//EXAMPLE 5.3
// Initialisation of Variables
s=(-17415.7);.........//Slope value
R1=8.314;........//Gas constan value in Joules/K-mol
R2=1.987;........//Gas constan value in cal/K-mol
Q1=(-1)*(s)*R1;......//The value of activation energy in KJ/mol
Q2=(-1)*(s)*R2;......//The value of activation energy in Kcal/mol
disp(Q1*10^-3,"The value of activation energy in KJ/mol")
disp(Q2*10^-3,"The value of activation energy in Kcal/mol")