home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / SER_PAR.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  162 b   |  8 lines
  1. 101.100    REM ***********SER/PAR***********
  2.     A=TEMP.REAL : B=TEMP.IMAG
  3.     Q=B/A
  4.     IF Q<1E-12 THEN Q=1E-12
  5.     TEMP.REAL=A*(1+Q*Q)
  6.     TEMP.IMAG=B*(1+1/(Q*Q))
  7.     RETURN
  8.