69 {
70
71
72
73
74
75
76
77
78
79
80
81 double xd = 0.65;
82 double gamma_B = deltam/xd;
83 double IAf, IAfbar, IAbarf, IAbarfbar;
84 EvtComplex rf, rfbar, rbarf, rbarfbar;
85 double rf2, rfbar2, rbarf2, rbarfbar2;
86 double Af2, Afbar2, Abarf2, Abarfbar2;
87
88 rf = EvtComplex(
cos(2.0*beta),
sin(2.0*beta))*Abarf/Af;
89 rfbar = EvtComplex(
cos(2.0*beta),
sin(2.0*beta))*Abarfbar/Afbar;
90 rbarf = EvtComplex(
cos(-2.0*beta),
sin(-2.0*beta))*Af/Abarf;
91 rbarfbar = EvtComplex(
cos(-2.0*beta),
sin(-2.0*beta))*Afbar/Abarfbar;
92
93
98
103
104
105
106
107
108
109 IAf = (Af2/(2*gamma_B))*(1+rf2+(1-rf2)/(1+xd*xd));
110 IAfbar = (Afbar2/(2*gamma_B))*(1+rfbar2+(1-rfbar2)/(1+xd*xd));
111 IAbarf = (Abarf2/(2*gamma_B))*(1+rbarf2+(1-rbarf2)/(1+xd*xd));
112 IAbarfbar = (Abarfbar2/(2*gamma_B))*(1+rbarfbar2+(1-rbarfbar2)/(1+xd*xd));
113
114
115
116 fract = IAbarf/(IAbarf+IAf) + flip*IAbarfbar/(IAfbar+IAbarfbar);
117
118
119 return;
120}