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

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

---

C-OPTIM .FC SEP-75

01.05 A ?NAME,     SPD     ?;T !!
01.10 A ?Z,      RA,     EX,     AL,     BE?;T !!
01.12 S RL=2
01.15 S EP=EX/Z^2
01.20 S RX=RL;D 2
01.30 D 3
01.40 I (FABS(RX-RL),<,1E-6)1.2
01.50 T !,%6.04,"EF=",Z^2*EF,"     RL=",RL,"      AL=",A,"       DAOE=",-AL*BE*FEXP((BE-1)*FLOG(EF))
01.60 T !;Q

02.10 S DE=3*(1-(RL/(RA*2))^2)/(2*Z*RA)
02.20 S EF=-EP+DE

03.10 S A=Z^2*AL*FEXP(BE*FLOG(EF))
03.20 S RL=Z/A

---