home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / REC_POL.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  151 b   |  5 lines
  1. 100.100    REM ***********REC/POL***********
  2.     TEMP.MAG=SQR(TEMP.REAL*TEMP.REAL+TEMP.IMAG*TEMP.IMAG)
  3.     TEMP.PHA=57.296*ATN(TEMP.IMAG/TEMP.REAL)
  4.     RETURN
  5.