ffactr.bas

gta sal盲kfdbg 篓fdbbmd bmfd bmfdb fdmgb fdmb fmbg

'  **************************************************************

'  Subroutine:  FFACTR                     Date:  02/22/95

'  **************************************************************

'  Process:

'    For electromagnetic systems, computes the pattern propaga-
'    tion factor in decibels for a specified range.  Positive
'    values indicate a signal level above the free-space field
'    strength.  Negative values indicate a signal level below
'    free-space field strength.

'  **************************************************************

'  Subroutines:                    QuickBASIC functions
'    antpar                                 abs
'    antpat                                 atn
'    dconst                                 cos
'    difint                                 exp
'    dloss                                  log (natural)
'    GetTheta                               sin
'    hgain                                  sqr
'    opconst                                swap
'    opffac                                 tan
'    opticf
'    oplimit
'    r1iter
'    ref
'    ruff
'    sbd
'    skipzone
'    tropo

'  When calling subroutines within FFACTR, convention is to use
'  lower case variable names for the input parameters and upper
'  case variable names for the returned parameters.

'  **************************************************************

'  Input parameters:

'    Electromagnetic system:
'       antyp$ -  Antenna type
'                   OMNI - Omnidirectional
'                   SINX/X - SIN(X)/X
'                   GAUSS - Gaussian beam
'                   CSC-SQ - Cosecant-squared
'                   HT-FINDER - Generic height finder
'       bwidth -  Antenna beam width  GAUSS:(0.5 - 35.0 degs)
'                   SINX/X, CSC-SQ, HT-FINDER: (0.5 - 45 degs)
'       elevat -  Antenna elevation angle  (-10.0 to +10.0 degs)
'                   0