92 short m, n, mmax, nmax;
99 Rs = sqrt(
M_PI * *f * *murc *
MU0 / *sigma );
101 mmax = (int) floor( *f /
fc( 1, 0 ) );
107 for( n = 0; n <= nmax; n++ )
109 for( m = 1; m <= mmax; m++ )
118 ac += ( Rs / ( *
b *
ZF0 * sqrt( 1.0 - pow( ( f_c / *f ), 2.0 ) ) ) )
119 * ( 1.0 + ( ( 2 * *
b / *
a ) * pow( ( f_c / *f ), 2.0 ) ) );
123 ac += ( ( 2. * Rs ) / ( *
b *
ZF0 * sqrt( 1.0 - pow( ( f_c / *f ), 2.0 ) ) ) )
124 * ( ( ( 1. + ( *
b / *
a ) ) * pow( ( f_c / *f ), 2.0 ) )
125 + ( ( 1. - pow( ( f_c / *f ), 2.0 ) )
127 * ( ( ( *
b / *
a ) * pow( m, 2. ) )
129 / ( pow( ( *
b * m / *
a ), 2.0 )
130 + pow( n, 2.0 ) ) ) ) );
138 for( n = 1; n <= nmax; n++ )
140 for( m = 1; m <= mmax; m++ )
146 ac += ( ( 2. * Rs ) / ( *
b *
ZF0 * sqrt( 1.0 - pow( ( f_c / *f ), 2.0 ) ) ) )
147 * ( ( ( pow( m, 2.0 ) * pow( ( *
b / *
a ), 3.0 ) ) + pow( n, 2. ) )
148 / ( ( pow( ( m * *
b / *
a ), 2. ) ) + pow( n, 2.0 ) ) );
153 ac = ac * 20.0 * log10( exp( 1. ) );