반사도 없을 때 (O)

PP0[PA_] := {L1[D_] := 1 - N[Norm[{x, 0, 1} - D]/Norm[{464, 66}]] ; N[∫_ (-183)^183L1[PA] x] }[[1]]

Table[PP0[{t, -66, 1}], {t, -232, 232, 4}]