Pensieve header: Global testing notebook for Scatter and Glow in ZeroCo.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\OneCo-1604\\Zero"];
<< ZeroGlobal.m

R3 for tails

{a[f,1,∞] // R[1,2] // R[1,3] // R[2,3],
a[f,1,∞] // R[2,3] // R[1,3] // R[1,2]}

{a[f,2,∞] // R[1,2] // R[1,3] // R[2,3],
a[f,2,∞] // R[2,3] // R[1,3] // R[1,2]}

{a[f,3,∞] // R[1,2] // R[1,3] // R[2,3],
a[f,3,∞] // R[2,3] // R[1,3] // R[1,2]} // Column

Head Scattering

a[f,t∞,1] // R[1,2]

a[f,t∞,2] // R[1,2]

a[f,t∞,3] // R[1,2]

Table[a[f,j,k] // R[1,2], {j,2},{k,2}]

R3 for heads

{a[f,t∞,1] // R[1,2] // R[1,3] // R[2,3],
a[f,t∞,1] // R[2,3] // R[1,3] // R[1,2]}

{a[f,t∞,2] // R[1,2] // R[1,3] // R[2,3],
a[f,t∞,2] // R[2,3] // R[1,3] // R[1,2]}

{a[f,t∞,3] // R[1,2] // R[1,3] // R[2,3],
a[f,t∞,3] // R[2,3] // R[1,3] // R[1,2]}

R3 for arrows

Table[Plus[
a[f,j,k] // R[1,2] // R[1,3] // R[2,3],
a[-f,j,k] // R[2,3] // R[1,3] // R[1,2]
], {j,3},{k,3}]