File: KREIS.FC of Tape: Various/ETH/fc1
(.FC,.FO Focal format converted to 'WRITE' listing)
C ACU-FOCAL12,1973 01.01 S RO=0.0157079632 01.02 T %15.10,!!!"KREISBOGENBERECHNUNG"!!!! 01.14 A "RADIUS (M) ", R ,! 01.15 A "WINKEL IN NEUGRAD ? ", W ,!! 01.17 IF (W) 1.19 , 1.21 , 1.29 01.19 T " WARUM NEGATIV ?"!;GOTO 1.15, 01.21 A "WINKEL IN ALTGRAD ? ", G ,! 01.22 IF (G) 1.19 , 1.15 , 1.23 01.23 T "WINKEL IN NEUGRAD", G/0.9,!!! 01.25 S W=G/0.9 01.29 S B=W*0.0157079632; S H=FSIN(B/2); S K=FSIN(B/4); S L=FSIN(B/6) 01.30 S M=FSIN(B/8); S N=FCOS(B/2); S O=FCOS(B/4); S P=FCOS(B/6) 01.31 S Q=FCOS(B/8); S Z=FSIN(B/3); S U=FSIN(B*3/8); S V=FCOS(B/3) 01.32 S X=FCOS(B*3/8) 02.50 T %15.03,"TANGENTENLAENGE", R*H/N,! 02.55 T "BOGENLAENGE ",R*W*RO,! 02.60 T "BOGENABSTAND ",R*(H/N)*(K/O),! 02.65 T "PFEILHOEHE " ,R*(1-N),! 02.70 T "SEHNENLAENGE ",2*R*H,!!! 02.75 T "ABSTECKUNGSELEMENTE"!! 02.76 T " ABSZISSE ORDINATE"! 02.77 T "BOGENACHTEL " ,R*M, R*(1-Q),! 02.78 T "BOGENSECHSTEL",R*L, R*(1-P),! 02.80 T "BOGENVIERTEL ",R*K, R*(1-O),! 02.82 T "BOGENDRITTEL ",R*Z, R*(1-V),! 02.84 T "3BOGENACHTEL ",R*U, R*(1-X),! 02.86 T "BOGENHAELFTE ",R*H, R*(1-N),!!!! 02.90 G 1.14