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

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

---

C-OS/8 FOCAL, 1972

01.01 C EXPONENTIALES HORN
01.10 S A=.04;S R0=5
01.20 F X=0,5,120;S R=R0*FEXP(.02*X);D 1.4
01.30 Q
01.40 T "X=",%3.0,X,:15,"R=",%4.02,R,:30,"U=",R*2*PI,!

02.10 F R=5,1,50;S X=2*FLOG(R/R0)/A;D 2.4
02.30 Q
02.40 T %4.02,"X=",X,:15,"R=",R,:30,"U=",R*2*PI,!

---