File SIFUDI.FC (FOCAL source file)

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

-	() AC U/W-FOCAL:SIFUDINO/DA/TE?M ]HOI (T-2)4.2;S T=2?MN0HI (T-2)4.38;S T=2?M!7IPI (T-2)4.9;S T=2?MCBJJI (.5-T)5.2;S T=.5?MCUJTI (1.5-T)5.5;I (.5-B)5.3;S B=.5?MC J^I (B-2)5.4;S B=2?MJ?J(S SZ=.3+2*B+1.4*T;R?MC8J<I (B-2)5.7;S B=2?MOCKFS SZ=.6+2*B+1.2*T?MDU
HS DK=.2,KG=6.4;I (KG-K)7.15?MD(NJD 7.9;S K1=49+DK,K2=41+DK,Z=85;R?MD9NOS DK=.4,KG=6.8;I (KG-K)7.25?MELNTD 7.9;S K1=48+DK,K2=40+DK,Z=87;R?ME]NYS DK=.5,KG=7.3;I (KG-K)7.35?ME/N^D 7.9;S K1=47+DK,K2=40,Z=88;R?MFNS DK=.9,KG=8.2;I (KG-K)7.45?MFTN(D 7.9;S K1=46
DK,K2=38+2*DK,Z=91;R?MF%N-S DK=1.8,KG=10;I (KG-K)7.55?MF7N2D 7.9;S K1=45+DK,K2=38,Z=93;R?MSHN7S DK=3.4,KG=13.4;I (KG-K)7.65?MGZOAS DK=9.4,KG=22.8;I (KG-K)7.7?MG-ODD 7.9;S K1=43+DK,K2=36+DK,Z=97;R?MQ"OFS K1=43,K2=36,Z=97;R?MKJOJS DK=.4,KG=8.7;I (K-KG)7.2;S
DK=.8,KG=9.5;I (K-KG)7.3;S DK=1.1?MH7ONI (K-KG)7.6;S DK=12.1,KG=29.4;I (K-KG)7.68;G 7.7?MIWOPI (K-5.3)7.9,7.05;I (K-5.4)7.05;S DK=.2,KG=5.6;I (K-KG)7.1?MI5ORS DK=.3,KG=5.9;I (K-KG)7.2;S DK=.5,KG=6.4;I (K-KG)7.3?MJSOTS DK=.8,KG=7.2;I (K-KG)7.4;S DK=1.5,KG=
.7;I (K-KG)7.5?MOGOVS DK=3,KG=11.7;I (K-KG)7.6;S DK=8.2,KG=19.9;I (K-KG)7.68;G 7.7?ML:OZS DK=(KG-K)/DK?MC-J2I (T-2)5.6;S T=2?MH\OLS KG=10.6;I (K-KG)7.4;S DK=2.2,KG=12.8;I (K-KG)7.5;S DK=4.5,KG=17.3?MWIR^T "ING.- BUERO  B R A S S   ALFONSSTR. 9  ?M\1BBZ?M,
JA !"GRUNDW. VORH. 
 ",X?MYB I (X)1.34;D 10;A "ABST. OK-FUND. -- WASSERSPIEGEL [M]: ",W?MS4PJT !!:4;S J=J+2?M+WLYS G=(DR+U/2)/H*(DR+U),M1=G*E1,M2=G*E2?M*KF^S RW=R1?MOOB+T "EMPFINDL. BAUWERKE";D 10;T "FAKTOR F. DIN-WERTE:"%3.02,RB?MO?B(D 9,9;T "3) BODENPRESSUNG:";D 10;T "N. D
N 1054 F. SETZGS.-?M!BH(I (.5-T)4.45;S T=.5?MNH&S SZ=3.6-.4*B-.4*T*B+1.2*T;G 5.8?M$AKPR?MJ5OXS IB=-1;R?MO,B,S D1=.2,H=15.5;I (A2)1.46;I (D/A-1.5)1.45;S D2=1.5*A?M DB-S DS=1.13*FSQT(D2*A)?M(IC"G 9.2?MM!B*I (-L)1.43;T "UN?MLZB
A !:4"ABST. OK-FUSSB./GEL. -- OK-FUND. [M]: ",ST?MPJB^A !:4"VERHAELTNIS D. FUND.-SEITEN: AX : AY = 1 : ",V?MMDLTS U=KL-2*DR;S M1=E1/H,M2=E2/H;I (U)6.3?MRB=D 10;T "AUSF. ?MG:OHI (K-7.8)7.88,7.05;I (K-8)7.05;S IB=,DK=.3,KG=8.3;I (K-KG)7.1?MV(CXD 1.68,1.86?M
*B?T "SCHUBBEW.?M-ECTZ I;D 1.61,1.62,1.63?MRMB>T "MIT  ?MR0CG 1.66?M];CAT "OHNE ?M
,CFD 1.66?MR7CDD 1.61,1.65,1.63?MGIN<D 7.9;S K1=44+DK,K2=37+DK,Z=95;R?M\QVS RE=A/AX;I (RE-D/AY)11.4;S RE=D/AY?M[ZMPR?M,8RJS J=J+1;T !;R?MV TJT !:4;S J=J+1?MZB4Z IS;N I;I (2-I)1.6;S AX(I)=AX,AY(I)=AY,D1(I)=D1,S(I)=S,RW(I)=RW?MT<B8S Z2(I)=Z2,QR(I)=QR,TR(I)=
R?M]PB:S IL=-1,IS=,IT=,IB=;G 1.47?MQBLJS E1=K1*M/H,E2=K2*M/H,KL=AX;I (.99-V)6.2;S KL=AY?MS[V^S R=.785*DU^2/AX*AY*10000,QR=Q-R*Q?M
IBTS PS=PS+1,RW=1,IZ=,IT=,IB=;T %3!"*"!!"BETR.:",PN,:60"SEITE",PS,!!!!?M	VJI (IZ)11.3?M&LCZD 9,8;T "GEWAEHLT: AX / AY / D =      /       /        [CM]?M,QR(T "8000 MUENCHEN 19   RUF *181081"!!?MZ5EKD 2.07,11,7,6;Z IZ;R?M^*BES U1=1.053,U2=1.134?M(BGS U1=.7
2,U2=.756?MX&BXA !:4"STUETZENQUERSCHNITT:[CM] CX = ",A,"/ CY = ",D;I (1-A)1.3?MP%BZS DS=A,A=D,A2=-1;T "  RUNDST.[CM] DS = CY =",D?MY"B"A !!"2) BELASTUNG:"!:4"STUETZENLAST POS. ",Q,"    Q [KN] = ",Q?MNBB$D 10;A "BODENPL. U. NUTZLAST: P [KN/M2] = ",P1;S D2=
?MT+B6S SZ(I)=S1,E1(I)=E1,E2(I)=E2,M(I)=M,M1(I)=M1,M2(I)=M2,Z1(I)=Z1?M$3DJI (S-S1*RB*RW)2.2;S IS=-1;G 2.05?M[DEPD 11.2,11.3,11.35,11.4;R?M)6EZS S1=SZ*100?MO9C!T :33"D =":58"[CM2]?M$KMZS U1=.5915,U2=.637;I (NB)6.8;S U1=.845,U2=.91?MU	VTS D1=D1+.05,H=H+5,P=
1+D1*25,DR=DS+H,DU=DR+H,T=ST+D1?MV(S M=Q*(1-RE)/41,K=H/FSQT(M/10),TR=3.18*QR/DR*H,S=P+Q/AX*AY?MW+BDA !"PROJ.-NR. ",PN," SEITE ",PS,"  WIEVIELE FUND. 
 ",NF?MQXB<Z I;D 8;T "ABMESSUNGEN:":27"AX   AY    D  VORH. S  RB  * RW  * SZ = ZUL. S";D 9?MR=CBN I;T %3,AX(I)*100,AY(I)*100,D1(I)*100,%6,S(I),%3.02,RB,RW(I),%3,SZ(I),%5,RB*RW(I)*SZ(I)?MW8BFA !"BETONG. B ",BN;S PS=PS-1,NB=1;I (20-BN)1.08;S NB=-1?MXDBVA "P
S. ",A;T !!"1) KONSTR.: STAHLBETON-EINZELFUNDAMENT B"%2,BN?M%(CPZ I;D 9,9;T %2"4) BEMESSUNG:  B ",BN?MLGB?M	7B.S A=A/100,I=,D=D/100,IS=1?M"HJI (1.5-T)4.2?M"4HTS SZ=1.8+.8*B+2.4*T-1.2*B*T;R?MB
H^I (1.5-T)4.35;S SZ=4.5-B+.6*T;R?M!SH*S SZ=3.3-.4*B-.4*B*T+1.4*T;R?MHH-I (1.5-T)4.5;S SZ=3.3-.4*B-.4*B*T+1.4*T;R?MWH<S SZ=4.8-B+.4*T;R?M"DIZS SZ=3.8-.6*B+.4*T;R?MB6I
D 5;R?M THFI (.5-T)4.1;S T=.5,SZ=.9+1.4*B+3*T-1.6*B*T;R?MBTHLS SZ=.9+1.4*B+3*T-1.6*B*T;R?M /HYI (.5-T)4.3;S T=.5,SZ=4.5-B+.6*T;R?M!+H2I (T-2)4.6;S T=2;D 4.6;R?MB+IFI (.5-T)4.8;S T=.5;D 4.9;R?M[4VOS AX=AX+.05,AY=.05*FITR(20*AX*V+.6);I (IS)11.3?MULLEZ IT;O 
IL)6.9?M$&NBZ IB;I (NB)7.72;I (K-6.1)7.88,7.05;I (6.2-K)7.08?MDDNES K1=50,K2=42,Z=83;R?M%QDTI (IZ)2.5;Z IB,IT;D 7,6;I (IB)2.3;I (IT)2.3;S IL=-1;R?M-AD^D 2.8,7,6;I (IB)2.3;I (IT)2.3;S IL=-1;R?MRVCRD 9;T :27"M X,Y    QR       AS1     AS2   T0    ZUL. TAU 1,
";D 9?M&2C\D 8;T :14"AS1X,Y:":32",T1 =":45"CM":58"[CM2/M]";D 9;T :33"T2 =":45"CM?M	GC^D 8;T :14"AS2X,Y:":33"/":58"[CM2/M]?M[MC D 9,8;T "ERF. SCHUBBEWEHRUNG  AST ="%4.01,.0312*QR(1)," CM2";D 8;T :14"GEW. AST:?M+B0D 2?M	2B/I (1-I)1.6;S AX=FITR(25*A)/10?M)VD
D 11?M"JHDI (B-2.5)4.4;I (B-3)4.7;S B=3;G 4.7?M)KBHS L1=5;A "  BAUWERK SETZGS.EMPFINDL. 
 ",L,!"FAKTOR F. DIN-1054-WERT: ",RB?MLKBII (L)1.1;S L1=4?MZ"DGS B=AX,IS=;D 3,L1;S B=AY,S1=SZ*100;D 3,L1;O (S1-SZ*100)2.9?M*OFJI (X)3.4;S U=W-D1,RW=.6;I (U)3.4,3.4?M**F(R?MMZFTS R1=.6+.4*U/B;I (R1-RW)3.;I (R1-1)3.3;S RW=1;R?M(NHBI (B-1)4.95;I (B-1.5)4.06;
 (B-2)4.25?MTHB2D 11.4,2.07;I (S-S1*RB*RW)1.52,1.52,1.48?M+;L^S Z1=U1*FSQT(M1),Z2=U2*FSQT(M2),IT=;I (Z1-TR)6.7;I (TR-Z2)6.8,6.8?MS0MFS IT=-1?MS>R<D 1.05;O (NB)1.07;G 1.2?M,BR2S NF=NF-1,J=,IL=;I (-NF)9.6;Q?MU;BOA !"WELCHE ZEILE 
 ",Z;F I=Z,71;T !?MK/RTF I=J,54;T !?MW^D2R?MRDCVN I;T %5.01,M(I)*10,QR(I),E1(I),E2(I),%4.03,TR(I),Z1(I),Z2(I)?MN L S SIFUDI?M?M*10,QR(I),E1(I),E2(I),%4.03,TR(I),

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