File: SUBPEK.FC of Tape: Various/ETH/fc2

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-OS/8 FOCAL, 1972

01.01 C SUBTRACT PEAKS
01.10 A ?NU PH AM TA?
01.20 S NU=NU*PI/256
01.30 S PH=PH*PI/180
01.40 S TA=TA*PI/N
01.50 F I=0,255;D 2
01.60 R

02.10 S Z=FCOS(I*NU-PH)*AM*FEXP(-I*TA)
02.20 S Z=FCOM(I,FCOM(I)-Z)
02.30 S Z=FX(0,500)
02.40 R

---