File RAUVUW.FC (FOCAL source file)

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

(J()Y)C U/W-FOCAL:RAUVUWNO/DA/TE?M
0BBS K=1;T !"KN. MIT 2 0D. 3 STAEBEN: S=1, GELENKIG: S=0, VOLLEINGESP.: S=-1?MCYBID 9;T "KNOTEN"%2,K,:25"S ";A S(K);I (S(K))1.18,1.18?MCBJD 8;T "OBERER ?MC8BLA " STAB:":15,
 B D H 
 ,:35,
 LG 
?MDGBMS W=1;I (H-.1)1.14;S W=H?MDWBNS  KN=LG*B*(D/10)^3/120*W?MEBBOD 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?ME]BQD 1.14;S D(K)=D;S KU(K)=KN;S UE(K)=LG;S HU(K)=H?ME?BRI (1-K)1.24;D 9;A "RIEGEL ",
 B0 D0 B D L 
;I (B-1)1.19;G 1.2?MFQBSS KR=B0*(D0/10)^3/120*L;G 1.24?MF1BTS H=D0-D;S P=B*D/100;S A=H*B0/100;S R=P*(D0-D/2)/10+A*H/20?MGTBVS C=R/(P+A)*10;S O=D0/100-C;S KR=(P*D*D/1200+P*(10*O-D/20)^2)/L?MG,BWS KR=KR+(A*(H/10)^2/12+A*(10*C-H/20)^2)/L?MHNBXS R(K)=;I (S(K)
1.26,1.28;S R=-KU(K)-KO(K)-KR;S O(K)=KO(K)/2*R?MH BYS U(K)=KU(K)/2*R;S R(K)=KR/2*R?MH/BZI (1-K)1.3;S K=2;G 1.09?MH;B\S R(K)=-.5;G 1.26?MIVB^S K=1;D 9;T %4.03"VERT.-ZAHLEN: ";D 8;T "LINKS :?M%)B T "UO=",O(K)," UU=",U(K),"  UR=",R(K)?MJMB$D 7;T "2) BELASTUN
:";D 9;A "LF BLOCKLAST":36"ANZAHL"T;S S=L?MJ!B&S T=T-1;I (T)1.5;S N=N+1;S TG(N)=?MJ:B(D 8;A A(N),C(N),G(N),Q(N);S E(N)=S-A(N)-C(N)?MKJB)S A=A(N);S C=C(N);S E=E(N)?MK+B*S L=C*(10*(3*E+C)^2*(3*A+2*C)-15*C*C*(3*E-S)-17*C^3)/540*S*S?MLLB+S R=C*(10*(3*E+C)*(3*
+2*C)^2-15*C*C*(3*A-S)-28*C^3)/540*S*S?MLVB,S L1=L;S R1=R?ML)B-S E=A(N);S A=E(N);D 1.42;D 1.43?MMIB.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?MM*B/S GA=GA+G*G(N);S QA=QA+G*Q(N);S GB=GB+Q*G(N);S QB=QB+Q*Q(N)?MNKB0S GL=GL-L*G(N);S QL=QL-L*Q(
);S GR=GR+R*G(N);S QR=QR+R*Q(N)?MNQB1G 1.38?MN)B2D 9;A "LF DREIECKSLAST STEIGEND   ANZAHL"T?MN8B3S T=T-1;I (T)1.6;S N=N+1?MOQB4D 1.4;D 1.41;D 1.42;D 1.43;S TG(N)=Q(N)/C(N)?MO	B6S G=C*(E+C/3)/2*S;S Q=C*(A+2*C/3)/2*S?MO1B8D 1.47;D 1.48?MO7B:G 1.51?MPOB<D 9;
 "LF DREIECKSLAST FALLEND    ANZAHL"T?MP^B=S T=T-1;I (T)1.7;S N=N+1?MP8B>D 1.4;D 1.45;S R1=L;S L1=R;S TG(N)=-Q(N)/C(N)?MQECD 1.54;S G1=Q;S Q1=G?MQ]CBS R=R1;S L=L1;S G=G1;S Q=Q1;D 1.56;G 1.61?MRCCFD 9;T %9.02"VOLLEINSP.-MOM.:":35"LINKS":45"RECHTS";D 9;T "G
":29,GL,GR?MR%CGD 8;T "Q:":29,QL,QR;S N(1)=GL;S N(2)=GR;S U=;S V(2)=N(2)*R(2)?MR.CHS K=2;S Z=-1?MSMCIS K=K+Z;S Z=-1*Z;S T=N(K)+V(K+Z);S D=V(K);S V(K)=T*R(K)?MS4CJD 1.73;D 1.73;I (.003-FABS(D-V(K)))1.72;D 1.73;I (.003-FABS(D-V(K)))1.72?MTHCKS KO(K)=T*2*O(K
;S KU(K)=T*2*U(K)?MTVCLD 1.73;D 1.75;I (U)1.8?MT4CMS L(K)=N(K)+2*V(K)+V(K+Z);S LO(K)=KO(K);S LU(K)=KU(K)?MT>CND 1.73;D 1.77?MUYCOS N(1)=QL;S N(2)=QR;S U=-1;S V(2)=QR*R(2);G 1.72?MU7CPS R(K)=N(K)+2*V(K)+V(K+Z);S RO(K)=KO(K);S RU(K)=KU(K)?MVRCQD 1.73;D 1.8;
 E=(R(2)+R(1))/S;S D=(L(2)+L(1))/S?MV6CRS GA=GA-D;S GB=GB+D;S QA=QA-E;S QB=QB+E;D 7;T %9.02"3) KNOTEN- U.?MW*CST " RIEGELMOMENTE, QUERKRAEFTE, MOM.-NULLPKTE.";D 9;T "KN.-MOMENTE:":36"KN 1":56"KN 2";D 9;T "G :?MW6CTT :4"OBERER STAB:?MXFCUT :29,LO(1),:49,LO
2);D 9?MXWCVT "   RIEGEL:":34,L(1),L(2)?MX&CWD 9;T "   UNTERER STAB:?MYHCXT :29,LU(1),:49,LU(2);D 9;T "Q :";D 1.84;T :29,RO(1),:49,RO(2)?M&CYD 9;T "   RIEGEL:":34,R(1),R(2);D 1.87;T :29,RU(1),:49,RU(2)?MBTBAZ?M TC"S M=R(1),Q=QA,D=.05,Z=1?MZGDJT "     K.N.
T.?M"PDKI (1-N)2.15;I (D-A(1))2.15;I (C(1)-S)2.15;S T=QA,Q=Q(1)?M[JDMT X;S X =T/Q;T X,X*T-X*X*Q/2+M;S T=QB,M=-R(2);D 2.12;T S-X;G 2.22?M[TDOS Z1=1,Z=1,X=?M[^DTS X=X+D;G 4.1?MRDVT -R(2)?M$(FTT "ING. - BUERO  B R A S S     8 MUENCHEN 19?M" HJS MD=,QD=,I=,MX
M?M\WH^S M=M+MD+Q*D,Q=Q-QD?M\.H(I (-MX*M)4.5;I (Z)4.8;T X;S Z1=-1;G 2.2?M"0H2I (MX-M)2.2;I (Z1)4.6;D 2.1?M]HIFD 2.1;G 2.22?M]QIPT S-X;G 2.22?M] JEI (Z)5.08;S A=A(I);G 5.1?M]+JHS A=S-A(I)-C(I)?M^HJJS C=C(I);I (X-A)4.2;I (A+C-X)4.2;S T=TG(I)*Z,DQ=T*D?M^[JOI
(T)5.3,5.2;S QX=(X-A)*T;G 5.4?M^&JTS QX=Q(I);G 5.4?M <J^S QX=-(C-X+A)*T?M
CNJT !!;S =+2;I (64-)7.2;G 7.3?M
INTD 8.2?M
NN^T :4?M	]PJT !;S =+1;I (64-)8.2;G 8.3?M
%P^T :9?MRJT !;S =+1;D 8?M%BCT !"ABLIEGENDE STABENDEN: VOLLEINGESP.: LG=1, GELENKIG: LG=0.75"!?M\DED 9;T "MOM.-NULLPKTE. / FELDMOM.:";D 9;T :9"M1":20,"XDL",:31"XMF":40"MAX M?M^1J(S MD=MD+D*D*DQ/3-D*D*QX/2;S QD=D*QX-DQ*D/2+QD;G 4.2?M!1C
S E=RU(K)/HU(K);I (UE(K)-1)1.96;S E=1.5*E?M	IC S N(K)=E-D;G 1.92?MY<DHS =+2;I (TG(N))2.15,2.11,2.15?MZ&DLS X=T/Q-FSQT(T*T+2*Q*M)/Q?M\JHTS I=I+1;I (N-I)4.3;G 5.05?M\?H<T X,MX;I (FABS(R(2))-.02)4.7,4.7;S X=,M=-R(2),Q=QB,Z=-1;G 2.2?M[%FJF I=,69;T ! ?M!=DFT :
3"XOR":64"M2";T !!%9.02,M;I (.02-FABS(M))2.08;S Z1=-1?M$LC\Z D,E;S K=K+1;I (2-K)1.97?M!YC]S D=RO(K)/HO(K);I (OE(K)-1)1.95;S D=1.5*D?M[>F(Q?M$$F^T "     ALFONSSTRASSE 9   RUF *181081"!!!?M	-BDA "ZEILE 
",ZE; F I=ZE,72;T !?MB<BFT :4"1) KONSTR.: ST.-B. STABWERK";S =7?MI,B"S K=2;D 8;T "RECHTS:";D 1.32;D 8;T "I-RIEGEL:"%6.03,KR*L," DM^4?M<C[Z K;D 9;T "NORM.KRAFT RIEGEL/FESTH.KR. :?M&LCZD 9;T "QUERKRAEFTE:  G:":29,GA,:49,GB;D 8;T :23,"Q:":29,QA,:49,QB;Z K?MY
C!T %7.02,N(1),N(2),N(1)+N(2),"  KN?M
 PTD 3.1,3.2,3.3;S =7;D 1.05?M%RBET "*"!!"BETR.:":15"POS.":60"SEITE"!!;A "POS. ",OZ,!!?M,QL S RAUVUW?M?M.:":15"POS.":60"SEITE"!!;A "POS. ",OZ,!!?M,QB;Z K??M)+N(2)?M4?-FABS(M))2.08;S Z1=-1?(2),Q=QB,Z=-1;G 2.2??MTRASSE 9  8000 MUENCHEN 19   RUF 181081"!!?M[
.ES KX=E/(E+C);D 27,15;S Z=H*(1-KA*KX),MA=A*BR*KX*H*B*Z/1E5?M\36BS 

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search