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

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

---

C-MTREG .FC NOV-77

01.10 T !"                   ";A ?T?
01.20 D 2
01.30 S P=4.62025-6.399/T+2.541*FLOG(T)+.00612*T^2/2+CO
01.40 T :30,%6.04,FEXP(P)
01.50 G 1.1

02.10 S BE=14.14;S AL=7
02.20 S CO=-.5197*(AL*BE/(BE^2+1)-1/T)*FATN(AL*T-BE)
02.30 S CO=CO-AL*.5197*FLOG(T^2/(1+(AL*T-BE)^2))/(2*(BE^2+1))

---