Computer code doing the calculation of the differential cross section for 208Pb(p,p') via an isolated isobaric analog resonance in 209Bi

Example of a computer code based on IDL [1] to calculate the differential cross section of a state described by 1p1h configurations excited by 208Pb(p,p') via an isolated isobaric analog resonance in 209Bi. The formula is given by Eq. (4) in [2] and uses a table of the geometrical coefficients calculated for all orbits 50 .le. N .le. 184 shown in [3].基于交互式数据语言（Interactive Data Language，IDL）的计算机代码示例[1]，用于计算由208Pb(p,p')反应通过209Bi中的孤立同量异位类似共振所激发的、由单粒子-单空穴（1p1h）组态描述的态的微分截面。相关公式见文献[2]中的式(4)，计算时使用了文献[3]中给出的、针对所有满足50 ≤ N ≤ 184的核轨道所计算的几何系数表格。