/* 2002-03-18 N.OTUKA : 10 POINTS CHECK */ /* 2002-03-18 N.OTUKA : Two tables in Data,2 are combined. */ /* 2006-02-26 N.OTUKA : FDTHK-TGT -> THK-TGT in EXP,1,2 */ \\BIB,1[8; D#=D257; TITLE=/ELASTIC SCATTERING OF 100 MEV PROTONS AND SYSTEMATIC OPTICAL MODEL ANALYSIS/; ATH=(K.KWIATKOWSKI'1',N.S.WALL'1'); INST-ATH=(1USAMRY'1'); REF=NP/A; VLP=301(1978)349; RCTS=(58NI(P,P)58NI,90ZR(P,P)90ZR,120SN(P,P)120SN,208PB(P,P)208PB); \\EXP,1[8; ACC=(CYC); INST-ACC=1USAMRY; INC-ENGY-RANGE=(100MEV); DELTA-INC-ENGY=XKEV; ERS-PRJ=XKEV; BEAM-INTNSTY=XUA; POL-PRJ=NO; DET-PARTCL=(P); DET-SYS=(,GE); SOLID-ANGL=0.11MSR; ERS-DET=<300KEV; ANL=(OPT-MODEL); PHQ=(ANGL-DSTRN,DSIGMA/DOMEGA,OPT-POTL-PARA); \\EXP,1,2; RCT=58NI(P,P)58NI; ENR=<97.6%; CHM=ELM; THK-TGT=1.6MG/CM**2; POL-TGT=NO; ALGN-TGT=NO; \\DATA,1; INC-ENGY=100.4MEV; EXC-ENGY=0.0MEV; J-PI=0+; /*FIG.1*/ /* D257 FIG 1 */ /* SER#= 1 */ /* XSCALE=LINEAR YSCALE=LOG */ /* XMAX= 1.800E+02 YMAX= 1.000E+01 */ /* XMIN= 0.000E+00 YMIN= 1.000E-04 */ /* FOLLOWING DATA ARE TAKEN FROM GRAPH */ \DATA; THTC DSIGMA/DOMEGA/(DSIGMA/DOMEGA-RUTH)'2' DELTA-DATA'2' (DEG) (NODIM) (NODIM) 8.04 1.32E+00 XXXXXXXX 9.71 2.34E+00 XXXXXXXX 10.54 2.70E+00 XXXXXXXX 12.48 2.96E+00 XXXXXXXX 13.87 2.65E+00 XXXXXXXX 14.98 2.34E+00 XXXXXXXX 15.53 1.97E+00 XXXXXXXX 18.03 9.66E-01 XXXXXXXX 18.03 8.65E-01 XXXXXXXX 18.86 5.30E-01 XXXXXXXX 19.69 3.25E-01 XXXXXXXX 19.69 2.73E-01 XXXXXXXX 19.97 2.48E-01 XXXXXXXX 20.80 2.60E-01 XXXXXXXX 21.91 4.18E-01 XXXXXXXX 23.30 8.38E-01 XXXXXXXX 23.85 9.81E-01 XXXXXXXX 25.52 1.65E+00 XXXXXXXX 26.07 2.00E+00 XXXXXXXX 27.46 2.09E+00 XXXXXXXX 29.40 1.94E+00 XXXXXXXX 31.62 1.43E+00 XXXXXXXX 33.28 1.01E+00 XXXXXXXX 33.56 9.21E-01 XXXXXXXX 35.50 6.51E-01 XXXXXXXX 36.61 6.11E-01 XXXXXXXX 37.16 5.56E-01 XXXXXXXX 40.22 6.01E-01 XXXXXXXX 41.88 6.61E-01 XXXXXXXX 43.82 6.41E-01 XXXXXXXX 45.21 5.74E-01 XXXXXXXX 47.43 4.32E-01 XXXXXXXX 49.65 3.52E-01 XXXXXXXX 51.86 2.77E-01 XXXXXXXX 53.81 2.95E-01 XXXXXXXX 56.02 2.95E-01 XXXXXXXX 57.97 2.95E-01 XXXXXXXX 60.18 2.44E-01 XXXXXXXX 61.85 1.96E-01 XXXXXXXX 63.51 1.32E-01 XXXXXXXX 65.73 7.84E-02 XXXXXXXX 67.67 4.96E-02 XXXXXXXX 69.61 4.30E-02 XXXXXXXX 72.67 4.58E-02 XXXXXXXX 74.88 5.99E-02 XXXXXXXX 80.15 5.12E-02 XXXXXXXX 82.10 3.98E-02 XXXXXXXX 84.87 1.95E-02 XXXXXXXX 87.09 8.33E-03 XXXXXXXX 87.92 4.57E-03 3.75E-04 90.42 4.87E-03 XXXXXXXX 92.36 6.27E-03 XXXXXXXX 95.41 6.89E-03 XXXXXXXX 97.35 8.07E-03 XXXXXXXX 99.85 6.27E-03 7.32E-04 102.34 4.29E-03 XXXXXXXX 107.89 1.33E-03 XXXXXXXX 117.04 7.92E-04 1.20E-04 123.42 8.57E-04 1.15E-04 128.41 8.57E-04 1.00E-04 \END; /*@2@*/ \\DATA,2; PRJ=P; TGT=58NI; INC-ENGY=100MEV; POTL-FORM=/-(V*F(XR)+I*(WV*F(XIV)-4*WS*DIF(1!XIS)F(XIS)+WG*G(XIG)))+ (GBAR/(MPI*C))**2*1/R*(VSO*DIF(1/R)F(XRSO)+I*WSO*DIF(1!R) F(XISO))*SIGMA*L+UC(R): F(XI)=1/(1+EXP(-XI)): G(XG)=EXP(-XG**2): XI=(R-RI*A**(1/3))/AI: UNIFORM CHARGE OF RAIDUS RC*A**(1/3): /; \DATA; INC-ENGY V DELTA-V RR DELTA-RR AR DELTA-AR WV DELTA-WV RIV DELTA-RIV AIV DELTA-AIV VSO DELTA-VSO RRSO DELTA-RRSO ARSO DELTA-ARSO WSO DELTA-WSO RISO DELTA-RISO AISO DELTA-AISO DATA1'3' DELTA-DATA1'3' DATA2'4' DATA3'5' DATA4'6' DATA5'7' DELTA-DATA5'7' DATA6'8' (MEV) (MVE) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV*FM**3) (MEV*FM**3) (MEV*FM**3) (FM) (FM) (NODIM) (NODIM) (NODIM) 100'A' 26.2 +-0.85 1.228 +-0.006 0.764 +-0.001 7.29 +-0.10 1.465 +-0.005 0.505 +-0.013 4.46 +-0.18 1.052 +-0.002 0.611 0.013 -1.59 0.06 1.052 0.002 0.611 0.013 253 6 103 4.650 4.777 771 +-22 14.5 100'B' 33.12 X 1.133 X 0.798 X 8.76 X 1.41 X 0.498 X 4.98 X 1.013 X 0.600 X -1.15 X 1.013 X 0.600 X 266 X 111 4.510 4.615 771 X 15.4 \END; /*@3@*/ \\EXP,3,4; RCT=90ZR(P,P)90ZR; ENR=[<97.6%; THK-TGT=30[80MG/CM**2; POL-TGT=NO; ALGN-TGT=NO; \\DATA,3; INC-ENGY=100MEV; EXC-ENGY=0.0MEV; J-PI=0+; /*FIG.2-(1)*/ /* D257 FIG 2-(1) */ /* SER#= 2 */ /* XSCALE=LINEAR YSCALE=LOG */ /* XMAX= 8.000E+01 YMAX= 1.000E+01 */ /* XMIN= 1.000E+01 YMIN= 1.000E-04 */ /* FOLLOWING DATA ARE TAKEN FROM GRAPH */ \DATA; THTC DSIGMA/DOMEGA/(DSIGMA/DOMEGA-RUTH)'2' (DEG) (NODIM) 15.47 5.27E-01 16.35 2.42E-01 17.23 1.07E-01 18.32 1.15E-01 19.42 2.78E-01 20.58 6.04E-01 21.24 8.49E-01 22.41 1.16E+00 24.53 1.41E+00 26.35 1.21E+00 27.45 1.06E+00 28.47 7.72E-01 29.49 5.72E-01 30.73 3.36E-01 32.55 2.70E-01 34.45 3.96E-01 34.67 4.30E-01 36.57 6.12E-01 40.44 5.96E-01 42.63 4.12E-01 43.58 3.36E-01 46.50 2.23E-01 48.61 2.53E-01 50.80 2.86E-01 52.63 2.70E-01 56.72 1.57E-01 58.47 1.12E-01 60.66 8.85E-02 62.70 9.86E-02 64.67 1.06E-01 66.72 1.12E-01 68.47 9.60E-02 70.73 6.55E-02 72.63 3.96E-02 74.53 2.60E-02 76.57 1.85E-02 \END; /*@2@*/ \\DATA,4; PRJ=P; TGT=90ZR; INC-ENGY=100MEV; POTL-FORM=/*(V*F(XR)+I*(WV*F(XIV)-4*WS*DIF(1!XIS)F(XIS)+WG*G(XIG)))+ (GBAR/(MPI*C))**2*1/R*(VSO*DIF(1!R)F(XRSO)+I*WSO*DIF(1!R) F(XISO))*SIGMA*L+UC(R): F(XI)=1/(1+EXP(-XI)): G(XG)=EXP(-XG**2); XI=(R-RI*A**(1/3))/AI: UNIFORM CHARGE OF RAIDUS RC*A**(1/3): /; \DATA; INC-ENGY V DELTA-V RR DELTA-RR AR DELTA-AR WV DELTA-WV RIV DELTA-RIV AIV DELTA-AIV VSO DELTA-VSO RRSO DELTA-RRSO ARSO DELTA-ARSO WSO DELTA-WSO RISO DELTA-RISO AISO DELTA-AISO DATA1'3' DELTA-DATA1'3' DATA2'4' DATA3 '5' DATA4'6' DATA5'7' DELTA-DATA5'7' DATA6'8' (MEV) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV.FM**3) (MEV.FM**3) (MEV.FM**3) (FM) (FM) (NODIM) (NODIM) (NODIM) 100'A' 28.6 1.9 1.212 0.013 0.780 0.02 7.42 0.44 1.488 0.015 0.450 0.03 3.82 0.14 1.101 0.004 0.573 0.024 -2.08 0.02 1.104 0.004 0.573 0.024 2 56 13 107 5.109 5.429 1077 30 0.8 100'B' 32.38 X 1.151 X 0.777 X 7.95 X 1.460 X 0.413 X 4.32 X 1.074 X 0. 580 X -2.07 X 1.074 X 0.580 X 251 X 108 4.930 5.295 1085 X 1.0 \END; /*@3@*/ \\EXP,5,6; RCT=120SN(P,P)120SN; ENR=[<97.6%; THK-TGT=30[80MG/CM**2; POL-TGT=NO; ALGN-TGT=NO; \\DATA,5; INC-ENGY=100MEV; EXC-ENGY=0.0MEV; J-PI=0+; /*FIG.2-(2)*/ /* D257 FIG 2-(2) */ /* SER#= 3 */ /* XSCALE=LINEAR YSCALE=LOG */ /* XMAX= 8.000E+01 YMAX= 1.000E+01 */ /* XMIN= 1.000E+01 YMIN= 1.000E-04 */ /* FOLLOWING DATA ARE TAKEN FROM GRAPH */ \DATA; THTC DSIGMA/DOMEGA/(DSIGMA/DOMEGA-RUTH)'9' (DEG) (NODIM) 22.92 1.03E-01 23.94 8.90E-02 24.96 6.42E-02 25.91 4.63E-02 26.93 3.21E-02 27.88 1.76E-02 28.91 1.48E-02 29.49 1.58E-02 30.95 2.58E-02 31.82 3.77E-02 33.07 4.76E-02 34.01 5.23E-02 34.96 5.45E-02 35.99 5.02E-02 37.01 4.27E-02 38.10 3.67E-02 39.05 2.72E-02 40.15 1.89E-02 40.95 1.69E-02 41.02 1.56E-02 41.97 1.58E-02 42.99 1.62E-02 45.11 2.25E-02 47.08 2.48E-02 49.05 2.07E-02 51.02 1.42E-02 52.99 9.29E-03 54.96 7.89E-03 \END; /*@4@*/ \\DATA,6; PRJ=P; TGT=120SN; INC-ENGY=100MEV; POTL-FORM=/-(V*F(XR)+I*(WV*F(XIV)-4*WS*DIF(1!XIS)F(XIS)+WG*G(XIG)))+ (HBAR/(MPI*C))**2*1/R*(VSO*DIF(1!R)F(XRSO)+I*WSO*DIF(1!R) F(XISO))*SIGMA*L+UC(R): F(XI)=1/(1+EXP(-XI)): G(XG)=EXP(-XG**2): XI=(R-RI*A**(1/3))/AI: UNIFORM CHARGE OF RAIDUS RC*A**(1/3): /; \DATA; INC-ENGY V DELTA-V RR DELTA-RR AR DELTA-AR WV DELTA-WV RIV DELTA-RIV AIV DELTA-AIV VSO DELTA-VSO RRSO DELTA-RRSO ARSO DELTA-ARSO WSO DELTA-WSO RISO DELTA-RISO AISO DELTA-AISO DATA1'3' DELTA-DATA1'3' DATA2'4' DATA3'5' DATA4'6' DATA5'7' DELTA-DATA5'7' DATA6'8' (MEV) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV.FM**3) (MEV.FM**3) (MEV.FM**3) (FM) (FM) (NODIM) (NODIM) (NODIM) 100'A' 28.1 1.5 1.240 0.008 0.817 0.001 7.445 0.15 1.457 0.012 0.460 0.016 2.89 0.45 1.110 0.017 0.533 0.035 -1.95 0.42 1.110 0.017 0.533 0.035 262 9 100 5.627 5.823 1292 36 1.0 100'B' 34.15 X 1.154 X 0.848 X 8.91 X 1.440 X 0.400 X 2.97 X 1.054 X 0.494 X -2.66 X 1.054 X 0.494 X 266 X 115 5.420 5.699 1296 X 1.0 \END; /*@3@*/ \\EXP,7,8; RCT=208PB(P,P)208PB; ENR=<97.6%; THK-TGT=30[80MG/CM**2; POL-TGT=NO; ALGN-TGT=NO; \\DATA,7; INC-ENGY=100MEV; EXC-ENGY=0.0MEV; J-PI=0+; /*FIG.2-(3)*/ /* D257 FIG 2-(3) */ /* SER#= 4 */ /* XSCALE=LINEAR YSCALE=LOG */ /* XMAX= 8.000E+01 YMAX= 1.000E+01 */ /* XMIN= 1.000E+01 YMIN= 1.000E-04 */ /* FOLLOWING DATA ARE TAKEN FROM GRAPH */ \DATA; THTC DSIGMA/DOMEGA/(DSIGMA/DOMEGA-RUTH)'10' (DEG) (NODIM) 18.83 7.37E-03 21.90 3.54E-03 22.34 2.62E-03 22.85 2.05E-03 23.94 9.07E-04 25.04 7.10E-04 25.84 1.29E-03 26.79 2.11E-03 27.88 3.30E-03 28.91 4.00E-03 30.22 4.05E-03 30.95 3.54E-03 31.90 2.88E-03 33.07 1.97E-03 34.01 1.29E-03 35.04 7.70E-04 36.06 7.70E-04 36.93 1.04E-03 37.96 1.58E-03 39.05 1.92E-03 40.22 2.20E-03 40.95 2.29E-03 42.04 2.02E-03 42.85 1.56E-03 44.16 1.11E-03 45.11 7.91E-04 45.91 5.87E-04 46.93 5.55E-04 49.12 8.47E-04 49.93 1.05E-03 50.88 1.07E-03 53.14 9.71E-04 54.01 8.47E-04 54.82 5.71E-04 55.91 4.17E-04 57.08 3.09E-04 58.98 3.31E-04 60.95 5.12E-04 62.99 5.48E-04 65.04 4.35E-04 66.93 2.42E-04 68.83 1.24E-04 70.95 1.31E-04 75.04 2.20E-04 77.01 1.87E-04 79.05 1.06E-04 \END; /*@5@*/ \\DATA,8; PRJ=P; TGT=208PB; INC-ENGY=100MEV; POTL-FORM=/-(V*F(XR)+I*(WV*F(XIV)-4*WS*DIF(1!XIS)F(XIS)+WG*G(XIG)))+ (HBAR/(MPI*C))**2*1/R*(VSO*DIF(1!R)F(XRSO)+I*WSO*DIF(1!R) F(XISO))*SIGMA*L+UC(R): F(XI)=1/(1+EXP(-XI)): G(XG)=EXP(-XG**2): XI=(R-RI*A**(1/3))/AI: UNIFORM CHARGE OF RAIDUS RC*A**(1/3):/; \DATA; INC-ENGY V DELTA-V RR DELTA-RR AR DELTA-AR WV DELTA-WV RIV DELTA-RIV AIV DELTA-AIV VSO DELTA-VSO RRSO DELTA-RRSO ARSO DELTA-ARSO WSO DELTA-WSO RISO DELTA-RISO AISO DELTA-AISO DATA1'3' DELTA-DATA1'3' DATA2'4' DATA3'5' DATA4'6' DATA5'7' DELTA-DATA5'7' DATA6'8' (MEV) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV) (MEV) (FM) (FM) (FM) (FM) (MEV*FM**3) (MEV*FM**3) (MEV*FM**3) (FM) (FM) (NODIM) (NODIM) (NODIM) 100'A' 32.6 3.1 1.220 0.004 0.795 0.016 6.02 0.21 1.469 0.008 0.500 0.021 4.25 0.28 1.105 0.020 0.757 0.046 -0.83 0.45 1.105 0.020 0.757 0.046 276 17 83 6.330 6.944 1831 51 2.9 100'B' 36.47 X 1.178 X 0.778 X 6.30 X 1.430 X 0.451 X 4.24 X 1.054 X 0.735 X -0.12 X 1.054 X 0.735 X 279 X 79 6.112 6.818 1832 X 3.3 \END; /*@3@*/ \\END; @@2; '2' RATIO TO RUTHERFORD CROSS SECTION @@3; THE ERRORS IN THE OPTICAL PARAMETERS ARE DERIVED BY CHANGING THE ABSOLUTO NORMALIZATION BY 8% AND THE BEAM ENERGY BY +-0.5 MEV, AND RE-MINIMIZING KAI-SQUARE/N. 'A' NON-RELATIVISTIC CALCULATION 'B' RELATIVISTIC CALCULATION '3' VOLUME INTEGRALS J(REL PART)/A '4' VOLUME INTEGRALS J(IMAG.PART)/A '5' REAL PART ROOT MEAN SQUARE RADIUS '6' IMAG.PART ROOT MEAN SQUARE RADIUS '7' REACTION CROSS SECTION RATIO EXPERIMENT/CALCULATION' (NON- RELATIVISTIC) '8' KAI-SQUARE/N @@4; '9' DIFFERENTIAL CROSS SECTION RATIO TO RUTHERFORD VALUE*10. @@5; '10' DIFFERENTIAL CROSS SECTION RATIO TO RUTHERFORD VALUE*100. @@;