Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.01 E
 1.02 S K=1;T !"KN. MIT 2 0D. 3 STAEBEN: S=1, GELENKIG: S=0, VOLLEINGESP.: S=-1
 1.03 T !"ABLIEGENDE STABENDEN: VOLLEINGESP.: LG=1, GELENKIG: LG=0.75"!!
 1.05 T "*"!!"BETR.:":15"POS.":60"SEITE"!!!!!
 1.06 T :4"1) KONSTR.: ST.-B. STABWERK";S =7
 1.09 D 9;T "KNOTEN"%2,K,:25"S ";A S(K);I (S(K))1.18,1.18
 1.10 D 8;T "OBERER 
 1.12 A " STAB:":15,
 B D H 
 ,:35,
 LG 

 1.13 S W=1;I (H-.1)1.14;S W=H
 1.14 S  KN=LG*B*(D/10)^3/120*W
 1.15 D 8;T "UNTERER";S KO(K)=KN;S OE(K)=LG;S HO(K)=H;D 1.12;S W=1;I (H-.1)1.17;S W=H
 1.17 D 1.14;S D(K)=D;S KU(K)=KN;S UE(K)=LG;S HU(K)=H
 1.18 I (1-K)1.24;D 9;A "RIEGEL ",
 B0 D0 B D L 
;I (B-1)1.19;G 1.2
 1.19 S KR=B0*(D0/10)^3/120*L;G 1.24
 1.20 S H=D0-D;S P=B*D/100;S A=H*B0/100;S R=P*(D0-D/2)/10+A*H/20
 1.22 S C=R/(P+A)*10;S O=D0/100-C;S KR=(P*D*D/1200+P*(10*O-D/20)^2)/L
 1.23 S KR=KR+(A*(H/10)^2/12+A*(10*C-H/20)^2)/L
 1.24 S R(K)=;I (S(K))1.26,1.28;S R=-KU(K)-KO(K)-KR;S O(K)=KO(K)/2*R
 1.25 S U(K)=KU(K)/2*R;S R(K)=KR/2*R
 1.26 I (1-K)1.3;S K=2;G 1.09
 1.28 S R(K)=-.5;G 1.26
 1.30 S K=1;D 9;T %4.03"VERT.-ZAHLEN: ";D 8;T "LINKS :
 1.32 T "UO=",O(K)," UU=",U(K),"  UR=",R(K)
 1.34 S K=2;D 8;T "RECHTS:";D 1.32;D 9;T "I-RIEGEL:"%6.03,KR*L," DM^4
 1.36 D 7;T "2) BELASTUNG:";D 9;A "LF BLOCKLAST":36"ANZAHL"T;S S=L
 1.38 S T=T-1;I (T)1.5;S N=N+1;S TG(N)=
 1.40 D 8;A A(N),C(N),G(N),Q(N);S E(N)=S-A(N)-C(N)
 1.41 S A=A(N);S C=C(N);S E=E(N)
 1.42 S L=C*(10*(3*E+C)^2*(3*A+2*C)-15*C*C*(3*E-S)-17*C^3)/540*S*S
 1.43 S R=C*(10*(3*E+C)*(3*A+2*C)^2-15*C*C*(3*A-S)-28*C^3)/540*S*S
 1.44 S L1=L;S R1=R
 1.45 S E=A(N);S A=E(N);D 1.42;D 1.43
 1.46 S Q=C*(E+C/2)/S;S G=C*(A+C/2)/S;S LG=L;S L=L1+R;S R=R1+LG
 1.47 S GA=GA+G*G(N);S QA=QA+G*Q(N);S GB=GB+Q*G(N);S QB=QB+Q*Q(N)
 1.48 S GL=GL-L*G(N);S QL=QL-L*Q(N);S GR=GR+R*G(N);S QR=QR+R*Q(N)
 1.49 G 1.38
 1.50 D 9;A "LF DREIECKSLAST STEIGEND   ANZAHL"T
 1.51 S T=T-1;I (T)1.6;S N=N+1
 1.52 D 1.4;D 1.41;D 1.42;D 1.43;S TG(N)=Q(N)/C(N)
 1.54 S G=C*(E+C/3)/2*S;S Q=C*(A+2*C/3)/2*S
 1.56 D 1.47;D 1.48
 1.58 G 1.51
 1.60 D 9;A "LF DREIECKSLAST FALLEND    ANZAHL"T
 1.61 S T=T-1;I (T)1.7;S N=N+1
 1.62 D 1.4;D 1.45;S R1=L;S L1=R;S TG(N)=-Q(N)/C(N)
 1.64 D 1.54;S G1=Q;S Q1=G
 1.66 S R=R1;S L=L1;S G=G1;S Q=Q1;D 1.56;G 1.61
 1.70 D 9;T %9.02"VOLLEINSP.-MOM.:":35"LINKS":45"RECHTS";D 9;T "G:":29,GL,GR
 1.71 D 8;T "Q:":29,QL,QR;S N(1)=GL;S N(2)=GR;S U=;S V(2)=N(2)*R(2)
 1.72 S K=2;S Z=-1
 1.73 S K=K+Z;S Z=-1*Z;S T=N(K)+V(K+Z);S D=V(K);S V(K)=T*R(K)
 1.74 D 1.73;D 1.73;I (.003-FABS(D-V(K)))1.72;D 1.73;I (.003-FABS(D-V(K)))1.72
 1.75 S KO(K)=T*2*O(K);S KU(K)=T*2*U(K)
 1.76 D 1.73;D 1.75;I (U)1.8
 1.77 S L(K)=N(K)+2*V(K)+V(K+Z);S LO(K)=KO(K);S LU(K)=KU(K)
 1.78 D 1.73;D 1.77
 1.79 S N(1)=QL;S N(2)=QR;S U=-1;S V(2)=QR*R(2);G 1.72
 1.80 S R(K)=N(K)+2*V(K)+V(K+Z);S RO(K)=KO(K);S RU(K)=KU(K)
 1.81 D 1.73;D 1.8;S E=(R(2)+R(1))/S;S D=(L(2)+L(1))/S
 1.82 S GA=GA-D;S GB=GB+D;S QA=QA-E;S QB=QB+E;D 7;T %9.02"3) KNOTEN- U.
 1.83 T " RIEGELMOMENTE, QUERKRAEFTE, MOM.-NULLPKTE.";D 9;T "KN.-MOMENTE:":36"KN 1":56"KN 2";D 9;T "G :
 1.84 T :4"OBERER STAB:
 1.85 T :29,LO(1),:49,LO(2);D 9
 1.86 T "   RIEGEL:":34,L(1),L(2)
 1.87 D 9;T "   UNTERER STAB:
 1.88 T :29,LU(1),:49,LU(2);D 9;T "Q :";D 1.84;T :29,RO(1),:49,RO(2)
 1.89 D 9;T "   RIEGEL:":34,R(1),R(2);D 1.87;T :29,RU(1),:49,RU(2)
 1.90 D 9;T "QUERKRAEFTE:  G:":29,GA,:49,GB;D 9;T :23,"Q:",:29,QA,:49,QB;S K=
 1.91 S K=;D 9;T "NORM.KRAFT IM RIEGEL:
 1.92 S D=;S E=;S K=K+1;I (2-K)1.97;I (O(K))1.93,1.94
 1.93 S D=KO(K)/HO(K);I (OE(K)-1)1.94;S D=1.5*D
 1.94 I (U(K))1.95,1.92
 1.95 S E=KU(K)/HU(K);I (UE(K)-1)1.96;S E=1.5*E
 1.96 S N(K)=E+D;G 1.92
 1.97 T N(1),N(2)," MP";D 8;T "FESTHALTEKR.:":30,N(1)+N(2)
 1.98 S M=R(1);S Q=QA;S D=.05;S Z=1
 2.05 D 9;T "MOM.-NULLPKTE. / FELDMOM.:";D 9;T :9"M1":20,"X0L",:31,"XMF",:40,"MAX M
 2.06 T :53"X0R",:64"M2";T !!%9.02,M;I (.02-FABS(M))2.08;D 2.1;S Z1=-1
 2.08 S =+2;I (T(N))2.15,2.11,2.15
 2.10 T "    K.N.ST.
 2.11 I (1-N)2.15;I (D-A(1))2.15;I (C(1)-S)2.15;S T=QA;S Q=Q(1)
 2.12 S X=T/Q-FSQT(T*T+2*Q*M)/Q
 2.13 T X;S X=T/Q;T X,X*T-X*X*Q/2+M;S T=QB;S M=-R(2);D 2.12;T S-X;G 2.22
 2.15 S Z1=1;S Z=1;S X=
 2.20 S X=X+D;G 4.1
 2.22 T -R(2)
 3.10 F I=,67;T !
 3.20 T "ING. - BUERO  B R A S S   8 MUENCHEN 19
 3.30 T "   KRATZERSTRASSE 9   RUF *153092"!!
 3.40 Q
 4.10 S MD=;S QD=;S I=;S MX=M
 4.20 S I=I+1;I (N-I)4.3;G 5.05
 4.30 S M=M+MD+Q*D;S Q=Q-QD
 4.40 I (-MX*M)4.5;I (Z)4.8;T X;S Z1=-1;G 2.2
 4.50 I (MX-M)2.2;I (Z1)4.6;D 2.1
 4.60 T X-D,MX;I (FABS(R(2))-.02)4.7,4.7;S X=;S M=-R(2);S Q=QB;S Z=-1;G 2.2
 4.70 D 2.1;G 2.22
 4.80 T S-X;G 2.22
 5.05 I (Z)5.08;S A=A(I);G 5.1
 5.08 S A=S-A(I)-C(I)
 5.10 S C=C(I);I (X-A)4.2;I (A+C-X)4.2;S T=TG(I)*Z;S DQ=T*D
 5.15 I (T)5.3,5.2;S QX=(X-A)*T;G 5.4
 5.20 S QX=Q(I);G 5.4
 5.30 S QX=-(C-X+A)*T
 5.40 S MD=MD+D*D*DQ/3-D*D*QX/2;S QD=D*QX-DQ*D/2+QD;G 4.2
 7.10 T !!;S =+2;I (62-)7.2;G 7.3
 7.20 D 8.2
 7.30 T :4;R
 8.10 T !;S =+1;I (62-)8.2;G 8.3
 8.20 D 3.1;D 3.2;D 3.3;S =7;D 1.05
 8.30 T :9;R
 9.10 T !;S =+1;D 8