File: QUATSC.FC of Tape: Various/ETH/fc1

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

---

C-OS/8 FOCAL, 1972

01.01 A "A",A,"B",B
01.02 S A=A^2;S B=B^2;S C=B/A
01.10 F I=1,90;S PH=I*PI/180;D 1.2; D 1.3;T !,%6.02,I,X,%6.05,Y*PI*60.53/X^2
01.20 S X=PI*A*FSQT(FCOS(PH)^2+C*FSIN(PH)^2)
01.30 S Y=PI*FSIN(2*PH)*(B-A)/2

---