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
:_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