Directory of image this file is from
This file as a plain text file
C-PS/8 FOCAL, 1970 1.01 T "*",!!!!,"BETR.: POS. RANDEINSP. N. DIN 1045";E 1.02 T " SEITE",!!!!;G 1.05 1.03 E 1.04 S J=-100 1.05 T "STUETZEN:",!,"OBEN :";A BO DO HO ;T !,"UNTEN:";A BU DU HU 1.06 T !;A "RIEGEL:", B D B0 D0 L ,!! 1.07 A "LASTF. 1",T,!;I (T-1)1.12 1.08 S T=T-1;I (T)1.12 1.09 A A C G Q ;D 1.81 1.10 S A1=A+C/2;S B1=L-A1;S H=A1*B1^2-C*C*(B1-A1/2)/6 1.11 S M=M+G*C*H/L*L;S N=N+Q*C*H/L*L;G 1.08 1.12 A "LASTF. 2",T,!;I (T-1)1.15 1.13 S T=T-1;I (T)1.15;D 1.09;S A1=(L*L-A*A*(2-A/L))/12 1.14 S M=M+G*A1;S N=N+Q*A1;G 1.13 1.15 A "LASTF. 3",T,!;I (T-1)1.21 1.16 S T=T-1;I (T) 1.21;D 1.09;S B1=(L-A-C)/L;S A1=A/L;S C1=C/L 1.17 S H1=B1*(10-5*C1*C1-10*B1*C1-10*B1*B1) 1.18 S H2=A1*(5-7.5*C1^2-10*A1*C1-5*A1^2)-C1^3 1.19 S M=M+G*L*L*C1*(H1-H2)/30;S N=N+Q*L*L*C1*(H1-H2)/30;G 1.16 1.20 S M=M+G(V)*L*L*C3(V)*(H3(V)-H4(C))/30 1.21 A "LASTF. 4",T,!;I (T-1)1.30 1.22 S T=T-1 ;I (T) 1.30;D 1.09;S A1=A/L;S B1=(L-A-C)/L;S C1=C/L 1.24 S H1=B1*(2-3*C1^2-4*B1*C1-2*B1^2);S H2=-A1*(1-A1*C1-C1^2/2-A1^2) 1.26 S M=M+G*L*L*C1*(H1+H2-0.7*C1^3+C1)/6 1.27 S N=N+Q*L*L*C1*(H1-H2-0.7*C1^3+C1)/6;G 1.22 1.30 D 1.81;D 1.81 1.31 S IO=BO*(DO/10)^3/120;S IU=BU*(DU/10)^3/120 1.32 S DS=D0-D;S TP=B*D/100;S TS=DS*B0/100 1.33 S S=TP*(D0-D/2)/10+TS*DS/20;S E=S/(TP+TS)*10 1.34 S EO=D0/100-E;S I=TP*D*D/1200+TP*(EO*10-D/20)^2 1.35 S I=I+TS*(DS/10)^2/12+TS*(10*E-DS/20)^2;I (0.1-HO)1.36;S HO=0.1 1.36 S CO=L*IO/HO*I 1.37 S CU=L*IU/HU*I;S MR=-M*(CO+CU)/(1+CO+CU) 1.38 S NR=-N*(CO+CU)/(1+CO+CU);S MO=-MR*CO/(CO+CU) 1.39 S MU=MR*CU/(CO+CU);S NO=-NR*CO/(CO+CU) 1.40 S NU=NR*CU/(CO+CU);S RO=3*(2*HO/3-EO)/2*HO 1.41 S RU=3*(2*HU/3-E)/2*HU;S GO=MO*RO;S GU=MU*RU 1.42 S QO=NO*RO;S QU=NU*RU;T %7.04,"IR=",I," IO=",IO," IU=",IU,! 1.43 T %7.04,"CO=",CO," CU=",CU," M2G=",M," M2Q=",N;D 1.81;T !!! 1.44 T "ENDMOMENTE: OBEN RIEGEL UNTEN",!!;D 1.81 1.45 T "AUS G :",MO,MR,MU,! 1.46 T "ABGEMIND. :",GO," ",GU,!! 1.47 T "AUS Q :",NO,NR ,NU,! 1.48 T "ABGEMIND. :",QO," ",QU,!;D 1.81 1.49 I (J)1.8 1.50 S J=J+30 1.70 F N=1,(70-J);T ! 1.72 T "ING. - BUERO B R A S S ALFONSSTR.9 8000 MUENCHEN 19 1.73 T " RUF *181081"!! 1.80 Q 1.81 S J=J+1;T !