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