Physics Research: Summer 1998: E895 - Heavy Ion Physics: Pi naughts

---

Qt code

real function qtmom(p11,p12,p13,p1,p2,p3)

ptot2 = sqrt(p1**2+p2**2+p3**2)
ptot1 = sqrt(p11**2+p12**2+p13**2)

psum1 = p1+p11
psum2 = p2+p12
psum3 = p3+p13

a = p2*P13-p3*p12
b = p3*p11-p1*p13
c = p1*p12-p11p2

qtmom =2*(sqrt(a**2+b**2+c**2))/(sqrt(psum1**2+psum2**2+psum3**2))

return

end

Pe-e+ Code

real function pmom(p11,p12,p13,p1,p2,p3)
px = p1+p11
py = p2+p12
pz = p3+p13

pmom = sqrt(px**2+py**2+pz**2)

return
end

Previous Page