LISTING OF PROGRAM PPCALC

 1 PROGRAM

 2 $DATA

 3 EE = 0, 77.115, 223.157, 6298.850, 15394.370

 4 $

 5 $COMPUTE SLATER AND SO PARAMETERS

 6 F2=(EE(1)+EE(5)-2*EE(2))/15

 7 ZPP=(5*(EE(3)+EE(4)) - 2*(EE(1)+EE(5)) - 6*EE(2))*2/15

 8 PRINT F2, ZPP

 9 $

10 $CHECK SPLITTING

11 MEAS2=EE(4)-EE(3)

12 MEAS0=EE(5)-EE(1)

13 CALC2 = 2*SQRT((3*F2-ZPP/4)**2 + ZPP**2/2)

14 CALC0 = 2*SQRT((15*F2/2+ZPP/2)**2 + 2*ZPP**2)

15 PRINT MEAS2 CALC2

16 PRINT MEAS0 CALC0

17 $

18 $COMPUTE MIXING ANGLES

19 CT2T2=(12*F2-ZPP)/(SQRT(8)*ZPP)

20 CT2T0=(15*F2+ZPP)/(SQRT(8)*ZPP)

21 THETA2=(180/PI)*ACOT(CT2T2)/2

22 THETA0=(180/PI)*ACOT(CT2T0)/2

23 PRINT THETA2,THETA0

24 END

 

:_EXECUTE PPCALC

EXECUTION STARTED

 

F2 =  1016.009   ZPP =  181.1473

MEAS2 =  6075.693   CALC2 =  6010.944

MEAS0 =  15394.37   CALC0 =  15429.8

THETA2 =  1.221317   THETA0 =  .9514571