home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug083.ark / SMATX.SRT < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.5 KB  |  53 lines
  1. 107.100    REM ***********SMATX***********
  2.     T1R=1+S11.REAL : T1I=S11.IMAG
  3.     T2R=1-S11.REAL : T2I=-S11.IMAG
  4.     T3R=1+S22.REAL : T3I=S22.IMAG
  5.     T4R=1-S22.REAL : T4I=-S22.IMAG
  6.     TEMP.REAL=S12.REAL : TEMP.IMAG=S12.IMAG
  7.     TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
  8.     GOSUB 103.100
  9.     T5R=TEMP.REAL : T5I=TEMP.IMAG
  10.     TEMP.REAL=T1R : TEMP.IMAG=T1I
  11.     TEMP1.REAL=T4R : TEMP1.IMAG=T4I
  12.     GOSUB 103.100
  13.     Q1R=TEMP.REAL : Q1I=TEMP.IMAG
  14.     Q2R=Q1R+T5R : Q2I=Q1I+T5I
  15.     TEMP.REAL=Q2R : TEMP.IMAG=Q2I
  16.     TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
  17.     GOSUB 104.100
  18.     Q3R=TEMP.REAL : Q3I=TEMP.IMAG
  19.     A.REAL=Q3R/2 : A.IMAG=Q3I/2
  20.     TEMP.REAL=T2R : TEMP.IMAG=T2I 
  21.     TEMP1.REAL=T4R : TEMP1.IMAG=T4I
  22.     GOSUB 103.100
  23.     Q4R=TEMP.REAL : Q4I=TEMP.IMAG
  24.     Q5R=Q4R-T5R : Q5I=Q4I-T5I
  25.     TEMP.REAL=Q5R : TEMP.IMAG=Q5I
  26.     TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
  27.     GOSUB 104.100
  28.     Q6R=TEMP.REAL : Q6I=TEMP.IMAG
  29.     C.REAL=Q6R/100 : C.IMAG=Q6I/100
  30.     TEMP.REAL=T2R : TEMP.IMAG=T2I
  31.     TEMP1.REAL=T3R : TEMP1.IMAG=T3I
  32.     GOSUB 103.100
  33.     Q7R=TEMP.REAL : Q7I=TEMP.IMAG
  34.     Q8R=Q7R+T5R : Q8I=Q7I+T5I
  35.     TEMP.REAL=Q8R : TEMP.IMAG=Q8I
  36.     TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
  37.     GOSUB 104.100
  38.     Q9R=TEMP.REAL : Q9I=TEMP.IMAG
  39.     D.REAL=Q9R/2 : D.IMAG=Q9I/2
  40.     TEMP.REAL=Q2R : TEMP.IMAG=Q2I
  41.     TEMP1.REAL=Q8R : TEMP1.IMAG=Q8I
  42.     GOSUB 103.100
  43.     Q10R=TEMP.REAL : Q10I=TEMP.IMAG
  44.     Q11R=Q10R-4*T5R : Q11I=Q10I-4*T5I
  45.     TEMP.REAL=Q11R : TEMP.IMAG=Q11I
  46.     TEMP1.REAL=S21.REAL : TEMP1.IMAG=S21.IMAG
  47.     GOSUB 104.100
  48.     TEMP1.REAL=Q5R : TEMP1.IMAG=Q5I
  49.     GOSUB 104.100
  50.     Q14R=TEMP.REAL : Q14I=TEMP.IMAG
  51.     B.REAL=25*Q14R : B.IMAG=25*Q14I
  52.     RETURN
  53.