Pensieve Header: The two F equations, F given as an S matrix.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\ScatterAndGlow"];
<< ScatterAndGlow.m

F=TS[
Ar[1,0]->Ar[1,0]+Y[1,2,0,AH[f1]],
Ar[2,0]->Ar[2,0]+Y[1,2,0,AH[f2]]
]