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

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

---

C-PDELIP.FC JUL-77

01.01 A "A1",A1,"A2",A2
01.02 S A=A1/PI;S B=(A2/PI)^2/A;S C=B/A
01.05 F I=0,90; T !,%6.02,I;S PH=I-54.74;D 1.1;S PH=I-125.26;D 1.1;S PH=PI*I/180;D 1.08;D 1.1
01.08 S PH=180*FATN(FSQT(1-FCOS(PH)^2/3)*FSQT(3)/FCOS(PH))/PI
01.10 S PH=PH*PI/180;D 1.2; D 1.3;T X,%6.05,Y*PI*A/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

---