File: AXBER2.FC of Tape: Various/ETH/fc1
(.FC,.FO Focal format converted to 'WRITE' listing)
C ACU-FOCAL12,1973 01.01 E 01.02 A !!!"ANZAHL GERADEN "AG,!;S RO=.0157079632 01.03 F M=1,1,AG; D 2.00 01.04 S M=0;S DX=0;S DY=0;S DA=0;S QA=0;S A1=0;S A2=0;S TB=0;S DE=0 01.05 S QX=0;S QY=0;S Y1=0;S X1=0;S Y2=0;S X2=0;G 3.05 01.06 S N=M;S M=N+1;T %2.00,! "KREIS NR." M;T %15.60,! 01.07 A "RADIUS ",KR(M),! 01.10 A "PARAMETER ",KA,!; I (KA-330) 1.12,1.12,1.83 01.12 I (KA) 1.10,1.14,1.18 01.14 A "AUSBAUGESCHW. ",V,!; S KA=FITR(.207*FSQT(V^3)) 01.15 T "PARAMETER" KA,!; IF (KA-330) 1.22,1.22,1.06 01.18 S VV=FEXP((1/3)*FLOG((KA/0.207)^2)); S V=10*FITR((VV+5)/10) 01.19 T "AUSBAUGESCHW.",V,! 01.22 S TM=(FABS(RI(M)/2)-((17.68388265*VV)/KR(M)))*RO 01.23 I (TM) 1.24,1.24,1.30 01.24 T "WINKEL ZU KLEIN,ANDERE ANNAHMEN TREFFEN!";S M=M-1;G 1.06 01.30 S KL(M)=(KA^2)/KR(M); T "L",KL(M),! 01.35 S TW=(KL(M)^2)/(2*KA^2) 01.37 I (TM-TW) 1.40,1.45,1.45 01.40 T "KREISBOGEN WIRD ZU KLEIN!";S M=M-1;G 1.06 01.45 S BB=TW^2/10; S BC=TW^3/42; S BD=TW^4/216; 01.49 S BL=TW/3; S BM=FSQT(2*TW) 01.60 S KX(M)=KA*BM*(1-BB+BD); T "X"KX(M),! 01.62 S RW(M)=FABS(RI(M));S AL(M)=RW(M)-(2*TW/RO);S KB(M)=AL(M)*KR(M)*RO 01.70 S KY(M)=KA*BM*(BL-BC); T "Y"KY(M),! 01.72 S KE(M)=KY(M)-(KR(M)*(1-FCOS(TW))); T "E" KE(M),! 01.74 S KT=KX(M)+(KY(M)*FSIN(TW)/FCOS(TW)); T "T" KT,! 01.76 S KM(M)=KT-((KR(M)+KE(M))*FSIN(TW)/FCOS(TW)); T "XM" KM(M),! 01.78 S TK=FABS((KR(M)+KE(M))*(FSIN(RI(M)*0.00785398)/FCOS(RI(M)*0.00785398)));T "TK"TK,! 01.80 S OT(M)=TK+KM(M); T "OT" OT(M),! 01.82 T "S" ,FSQT((KX(M)^2)+(KY(M)^2)),!;G 1.85 01.83 I (KA-1000) 1.06,1.84,1.84 01.84 S OT(M)=FABS(KR(M)*FSIN(RI(M)*RO/2)/FCOS(RI(M)*RO/2)) 01.85 I (AG-1-M) 4.01,4.01,1.06 02.02 T %2.00,! "GERADE NR" M,;T %15.10, ! 02.05 A "ZWANGSPUNKTE " ? Y1 X1 Y2 X2 ?;T !; S DX=X1-X2;S DY=Y1-Y2 02.10 A "ABSTAENDE " ? A1 A2 ? ;T !; S DA=A1-A2;S QA=DA^2;S QX=DX^2;S QY=DY^2 02.13 I (DY) 2.15,2.14,2.15 02.14 S AL=100;S TB=FSQT(QX+QY-QA);G 2.20 02.15 S AL=(FATN(DX/DY))/RO;S TB=FSQT(QX+QY-QA) 02.20 S DE=(FATN(DA/TB))/RO;S WI(M)=AL+DE 02.25 S SM(M)=FSIN(WI(M)*RO)/FCOS(WI(M)*RO) 02.28 S YL(M)=Y1+(A1*FSIN(WI(M)*RO)) 02.29 S XL(M)=X1-(A1*FCOS(WI(M)*RO)) 02.30 T %10.05, "GERADENGLEICHUNG: X ", SM(M),"*Y + ",XL(M)-(SM(M)*YL(M)),; 03.05 T !, "TANGENTENPUNKTE :",! 03.06 T " Y X",! 03.10 S N=0+M;S M=N+1 03.20 S TY(M)=(XL(M+1)-XL(M)-(SM(M+1)*YL(M+1))+(SM(M)*YL(M)))/(SM(M)-SM(M+1)) 03.30 S TX(M)=(SM(M)*TY(M))+XL(M)-(SM(M)*YL(M)) 03.36 T ,TY(M)," ",TX(M),!;S RI(M)=WI(M)-WI(M+1) 03.40 I (AG-1-M) 3.50,3.50,3.10 03.50 A "KOORD.ANFANGSPUNKT" ? PY(1) PX(1) ?,! 03.52 A "KOORDINATEN ENDPUNKT" ?YE XE?,! 03.55 S AT=FSQT((TY(1)-PY(1))^2+(TX(1)-PX(1))^2); I (PY(1)+PX(1)) 3.95,3.60,3.95 03.60 T !;A "ABSTAND BIS TP1"AT,;T %1.00,!"ABSTAND BIS TP",AG-1;A ,TE;T %15.10 03.65 S PY(1)=TY(1)-AT*FSIN(WI(1)*RO);S PX(1)=TX(1)-AT*FCOS(WI(1)*RO) 03.67 S YE=TY(AG-1)+TE*FSIN(WI(AG-1)*RO);S XE=TX(AG-1)+TE*FCOS(WI(AG-1)*RO) 03.95 S N=0;S M=0;G 1.06 04.01 S KA=0;S VV=0;S V=0;S TM=0;S TW=0;S BB=0;S BC=0;S BD=0;S BL=0 04.02 S BM=0;S KT=0;S TK=0;S N=0 04.05 S DT(1)=FSQT((TY(1)-PY(1))^2+(TX(1)-PX(1))^2) 04.10 F M=2,1,(AG-1);D 4.15 04.12 S DT(AG)=FSQT((YE-TY(AG-1))^2+(XE-TX(AG-1))^2);G 4.17 04.13 T " ",KB(M),! 04.15 S DT(M)=FSQT((TY(M)-TY(M-1))^2+(TX(M)-TX(M-1))^2) 04.17 S NZ(1)=DT(1)-OT(1) 04.20 F M=2,1,(AG-1);D 4.25 04.23 S NZ(AG)=DT(AG)-OT(AG-1);G 4.28 04.24 T " ",RI(M),! 04.25 S NZ(M)=DT(M)-OT(M)-OT(M-1) 04.26 T " ",DT(M),! 04.27 T " ",NZ(M),! 04.28 T !!"TANGENTENLAENGEN"!!;F M=1,1,AG;D 4.26 04.29 T !!"ZWISCHENGERADEN"!!;F M=1,1,AG;D 4.27 04.35 T !!"RICHTUNGSWINKEL"!!;F M=1,1,(AG-1);D 4.24 04.40 T !!"BOGENLAENGEN"!!;F M=1,1,(AG-1);D 4.13