File: SKINKU.BA of Tape: Various/ETH/ba1

(Source file text) 

---

10 PRINT "X","AL","GA"
20 FOR I=0 TO 20 STEP .2
30 Y=2*I/SQR(2)
40 S1=(EXP(Y)-EXP(-Y))/2
50 C1=(EXP(Y)+EXP(-Y))/2
60 A=S1+SIN(Y)
70 B=C1-COS(Y)
80 C=S1-SIN(Y)
90 T1=(6/Y**2)*(B-.5*Y*A)/(B-3*C/Y)
100 A1=ATN(T1)
110 G1=ATN(1/(1-Y/3))
120 PRINT INT(I*10+.5)/10,A1*180/3.1416,G1*180/3.1416
130 NEXT I
140 END

---