C-PS/8 FOCAL, 1970

01.01 T "*",!!!!,"BETR.:      POS.        RANDEINSP. N. DIN 1045";E
01.02 T "           SEITE",!!!!;G 1.05
01.03 E
01.04 S J=-100
01.05 T "STUETZEN:",!,"OBEN :";A ? BO DO HO ?;T !,"UNTEN:";A ? BU DU HU ?
01.06 T !;A "RIEGEL:",? B D B0 D0 L ?,!!
01.07 A "LASTF. 1",T,!;I (T-1)1.12
01.08 S T=T-1;I (T)1.12
01.09 A ?A  C  G  Q?;D 1.81
01.10 S A1=A+C/2;S B1=L-A1;S H=A1*B1^2-C*C*(B1-A1/2)/6
01.11 S M=M+G*C*H/L*L;S N=N+Q*C*H/L*L;G 1.08
01.12 A "LASTF. 2",T,!;I (T-1)1.15
01.13 S T=T-1;I (T)1.15;D 1.09;S A1=(L*L-A*A*(2-A/L))/12
01.14 S M=M+G*A1;S N=N+Q*A1;G 1.13
01.15 A "LASTF. 3",T,!;I (T-1)1.21
01.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
01.17 S H1=B1*(10-5*C1*C1-10*B1*C1-10*B1*B1)
01.18 S H2=A1*(5-7.5*C1^2-10*A1*C1-5*A1^2)-C1^3
01.19 S M=M+G*L*L*C1*(H1-H2)/30;S N=N+Q*L*L*C1*(H1-H2)/30;G 1.16
01.20 S M=M+G(V)*L*L*C3(V)*(H3(V)-H4(C))/30
01.21 A "LASTF. 4",T,!;I (T-1)1.30
01.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
01.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)
01.26 S M=M+G*L*L*C1*(H1+H2-0.7*C1^3+C1)/6
01.27 S N=N+Q*L*L*C1*(H1-H2-0.7*C1^3+C1)/6;G 1.22
01.30 D 1.81;D 1.81
01.31 S IO=BO*(DO/10)^3/120;S IU=BU*(DU/10)^3/120
01.32 S DS=D0-D;S TP=B*D/100;S TS=DS*B0/100
01.33 S S=TP*(D0-D/2)/10+TS*DS/20;S E=S/(TP+TS)*10
01.34 S EO=D0/100-E;S I=TP*D*D/1200+TP*(EO*10-D/20)^2
01.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
01.36 S CO=L*IO/HO*I
01.37 S CU=L*IU/HU*I;S MR=-M*(CO+CU)/(1+CO+CU)
01.38 S NR=-N*(CO+CU)/(1+CO+CU);S MO=-MR*CO/(CO+CU)
01.39 S MU=MR*CU/(CO+CU);S NO=-NR*CO/(CO+CU)
01.40 S NU=NR*CU/(CO+CU);S RO=3*(2*HO/3-EO)/2*HO
01.41 S RU=3*(2*HU/3-E)/2*HU;S GO=MO*RO;S GU=MU*RU
01.42 S QO=NO*RO;S QU=NU*RU;T %7.04,"IR=",I,"  IO=",IO,"  IU=",IU,!
01.43 T %7.04,"CO=",CO,"  CU=",CU,"  M2G=",M,"  M2Q=",N;D 1.81;T !!!
01.44 T  "ENDMOMENTE:   OBEN     RIEGEL   UNTEN",!!;D 1.81
01.45 T "AUS  G    :",MO,MR,MU,!
01.46 T "ABGEMIND. :",GO,"         ",GU,!!
01.47 T "AUS  Q    :",NO,NR ,NU,!
01.48 T "ABGEMIND. :",QO,"         ",QU,!;D 1.81
01.49 I (J)1.8
01.50 S J=J+30
01.70 F N=1,(70-J);T !
01.72 T "ING. - BUERO   B R A S S  ALFONSSTR.9  8000 MUENCHEN 19
01.73 T "   RUF *181081"!!
01.80 Q
01.81 S J=J+1;T !
*O C
