home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / MTXMPY.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  555 b   |  15 lines
  1. 111.100    REM ***********MTXMPY***********
  2.     A1=A11.REAL : B1=A11.IMAG : C1=A12.REAL : D1=A12.IMAG
  3.     E1=A21.REAL : F1=A21.IMAG : G1=A22.REAL : H1=A22.IMAG
  4.     A2=B11.REAL : B2=B11.IMAG : C2=B12.REAL : D2=B12.IMAG
  5.     E2=B21.REAL : F2=B21.IMAG : G2=B22.REAL : H2=B22.IMAG
  6.     C11.REAL=A1*A2-B1*B2+C1*E2-D1*F2
  7.     C11.IMAG=B1*A2+A1*B2+C1*F2+D1*E2
  8.     C12.REAL=A1*C2-B1*D2+C1*G2-D1*H2
  9.     C12.IMAG=B1*C2+A1*D2+D1*G2+C1*H2
  10.     C21.REAL=A2*E1-B2*F1+E2*G1-F2*H1
  11.     C21.IMAG=A2*F1+B2*E1+E2*H1+F2*G1
  12.     C22.REAL=C2*E1-D2*F1+G1*G2-H1*H2
  13.     C22.IMAG=C2*F1+D2*E1+H1*G2+G1*H2
  14.     RETURN
  15.