2     = -(2*T*fCos./fExp - fSqrtA*T*fSin./ fExp)/2;
0076     A13     = -(2*T*fCos./fExp + fSqrtS*T*fSin./ fExp)/2;
0077     A14     = -(2*T*fCos./fExp - fSqrtS*T*fSin./ fExp)/2;
0078 
0079     fSqrtA  = sqrt(3 + 2^(3/2));
0080     fSqrtS  = sqrt(3 - 2^(3/2));
0081     fArg    = i*f_c*pi*T;
0082     
0083     afGain    = <span class="keyword">...</span>
0084     abs((-2*exp(4*fArg)*T+2*exp(-(B*T)+2*fArg).*T.*(fCos-fSqrtS*fSin)).* <span class="keyword">...</span>
0085         (-2*exp(4*fArg)*T+2*exp(-(B*T)+2*