THIS PROGRAM DOES THE FRIIS POWER TRANSMISSION FORMULA "ANTENNA DESIGN USING PERSONAL COMPUTERS" (PII2 LOG10(X)\^(X)<F ,bP "THIS PROGRAM COMPUTES THE FRIIS POWER TRANSMISSION FORMULA"lZ ,rdn "WHAT IS THE GAIN OF THE TRANSMIT ANTENNA(dB)";GTDBx "WHAT IS THE VSWR OF THE TRANSMIT ANTENNA";TVS TVS x. "WHAT IS THE GAIN OF THE RECEIVE ANTENNA(dB)";GRDBb "WHAT IS THE VSWR OF THE RECEIVE ANTENNA";RVSv RVS  "WHAT IS THE FREQUENCY(MHz)";FMC "WHAT IS THE INPUT POWER(dBm)";PIDB "WHAT IS THE RANGE(meters)";R R < "DO YOU WISH TO COMPUTE POLARIZATION MISMATCH(Y,N)";IP$S IP$"N"  "WHAT POLARIZATION MISMATCH DO YOU WISH TO USE(dB)";PMDB PMDB  ,WV,FMCRT(TVS)(TVS)"RR(RVS)(RVS) ,GT (GTDB )6GR (GRDB )1@PM (PMDB )eJPR(RTRT)(RRRR)(WV(PIR))GTGRPMTPRDB LOG10(PR)PIDB^ "THE RECEIVED POWER IS ####.##dBm";PRDBhr ,| "CONTINUE(Y,N)";IP$ IP$"N" < , . COMPUTE POLARIZATION MISMATCHo "WHAT IS THE AXIAL RATIO OF THE TRANSMIT ANTENNA(dB)";ATDB "WHAT IS THE AXIAL RATIO OF THE RECEIVE ANTENNA(dB)";ARDB "WHAT IS THE ANGULAR MISMATCH BETWEEN REC. AND TRANS.(degrees)";AMD6 "ARE THE POL. SENSES THE SAME(BOTH RH OR LH)(Y,N)";IS$GTHAMDPI[AT (ATDB)oAR (ARDB) IS$"N" ATATPMPMMXPMMN& AT AR 0 AT : AR DRT(AT)(AT)NRR(AR)(AR)7XPM(RTRTRRRRRTRR(TH))WbPMPM((RTRT)(RRRR))lPMMX(RTRR)((RTRT)(RRRR))vPMMN(RTRR)((RTRT)(RRRR)) RR(AR)(AR)PMRRRR(RRRR)PMMXPMPMMNPM RT(AT)(AT)1PMRTRT(RTRT)=PMMXPMIPMMNPM`PMDB LOG10(PM){PMMXDB LOG10(PMMX)PMMNDB LOG10(PMMN)  , "THE POLARIZATION MISMATCH IS ###.##dB";PMDB  "THE MAX. POLARIZATION MISMATCH IS ###.##dB";PMMXDBT* "THE MIN. POLARIZATION MISMATCH IS ###.##dB";PMMNDB^4 ,d>jH