File SIFUFE.FC (FOCAL source file)

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

ZZ()OWC U/W-FOCAL:SIFUFENO/DA/TE?MO[BFA "WELCHE  ZEILE",I;F Z=I,72;T !?MO,BJT %4"*"!!"BETR.:",PN,"   POS.";S PS=PS+1;T :60"SEITE",PS,!!!!?MC(BXS DS=B1;S A1=B1;S A2=-1;T "    DS = D =",DS," CM";G 1.3?MC>BZS D=A1;S B=B1;I (D-B)1.3;S D=B1;S B=A1?MDXB^D 9;A "
ERHAELTN. D. FUND.-SEITEN A:B = 1:",V?MQUB S TT=-1;D 9;A "SCHUBBEW. MOEGLICH 
 ",T;I (0NEI-T)1.34;S TT=1?MEVB(D 8;T "3) BODENPRESSUNG:";D 9;T "ABMESSUNGEN: A = ?ME1B+S D1=20;I (A2)1.5;I (B/D-1.5)1.46,1.46;S B=1.5*D?MRVB.S DS=1.13*FSQT(D*B)?MFMB8S B2=A;I (V-1)1.57,1.58?MSLB9S B2=5*FITR(V*A/5)+5?MU+B<S RE=A1/A;I (RE-B1/B2)1.62;S RE=B
/B2?MGGCS E1=K1*M/H;S E2=K2*M/H;S R1=E1;S R2=E2?MGXCBS KL=A;I (.99-V)1.68;S KL=B2?MG0CDS U=KL-2*DR;S M1=E1/H;S M2=E2/H;I (U)1.72?MHHCFS G=(DR+U/2)/H*(DR+U);S M1=E1*G;S M2=E2*G?MS/CHS Z1=U1*FSQT(M1);S Z2=U2*FSQT(M2);I (-TT)2.1?MS:CJI (Z2-TR)1.5;D 2.4;D 2.4
;D 2.45;D 2.46;D 2.48?MTCLD 2.5;D 2.6;S Z=Z1?MIQCPS MV=M1;D 2.68?MI+CRD 2.7;D 2.6;S Z=Z2;D 1.78;S MV=M2;D 2.68;G 2.9?MI4DJI (Z2-TR)1.5?MVBD(T %3,A," CM   B =",B2," CM   D =",D1," CM?MX?D0D 8;D 9;T "BST 42/50:";S E=E1?MW:D>S Z=Z1;S MV=M1?MJ/EBS MV=M1?MKCED
 8;T :4"BEW.-GRAD: VORH. M =",MV?MKXEFD 8;D 9;T "BST 50/55:";S E=E2;D 2.5?MXMEHS Z=Z2;S MV=M2;D 2.6;D 2.64;D 2.68?MZCE\T "ING. - BUERO  B R A S S    ALFONSSTR. 9?MLHE Q?ML]FEI (NB)3.7;I (K-6.4)3.9;I (6.8-K)3.15?ML)FJS K1=49;S K2=41;R?ML3FOI (7.3-K)3.25?ML
FTS K1=48;S K2=40;R?MMIFYI (8.2-K)3.35?MMUF^S K1=47;S K2=40;R?MM^FI (10-K)3.45?MM*F(S K1=46;S K2=38;R?MM4F-I (13.4-K)3.6?MNF2S K1=45;S K2=37;R?MNLF<S K1=44;S K2=37;R?MN"GFI (K-8.3)3.9;I (K-8.7)3.1;I (K-9.5)3.2?MN=GPI (K-10.6)3.3;I (K-12.8)3.4;I (K-17.3)3.
;G 3.6?MT%GZS IR=-1?MOMPJT !!;S J=J+2?MRJT !:4;S J=J+1?MYVBAZ?MB	BHS NB=1;I (20-BN)1.1;S NB=-1?MPQBTA "POS. ",A;S J=4;D 8;T "1) KONSTR.: STB.-EINZELFUNDAMENT  BN"%2,BN?MCIBWD 9;A "STUETZENQUERSCHN.[CM]: B = ",A1,"/ D = ",B1;I (1-A1)1.26?MBTBES PS=PS-1;A "
ETONG. BN ",BN,"  ZUL. BODENPR.[KN/M2]:",ZS,!?MQ:B"D 8;T "2) BELASTUNG:";D 9;A "STUETZENLAST POS. ",A,"    Q [KN] = ",Q?MD:B$D 9;D 6;A "BODENPL. U. NUTZLAST: P [KN/M2] = ",P1?MR4B2S D1=D1+5;S H=D1-4.5;S P=P1+D1*.25;S DR=DS+H;S DU=DR+H?ME>B5S A=100*FSQT(Q/
*(ZS-P));S A=5*FITR(A/5)+5?MFZB:S R=.7854*DU^2/A*B2;S QR=Q-Q*R;S TR=3.18*QR/DR*H?MF0B?I (IR)1.5?MH!CID 1.62;I (IR)1.5?MH;CKD 1.64?MIGCNT " < ZUL. TR1 =",Z," MN/M2";D 8;T "   KEINE SCHUBBEW. ERFORDERL. !?MT>LJI (NB)6.3;I (TT)6.2;S U1=1.053;S U2=1.134;R?MUK
TS U1=.845;S U2=.91;R?MU^L^I (TT)6.4;S U1=.702;S U2=.756;R?MODL(S U1=.5915;S U2=.637?MS	B>S M=Q*(1-RE)/41;S K=H/FSQT(M);S IR=;D 3?MV&D+S S=P+Q*10000/A*B2;D 9;T %3"VORH. S =",S," < ZUL. S =",ZS," KN/M2?MWOD-D 8;T %5.01"4) BEMESSUNG:";D 8;T "   M X,Y =",M*1
," KN*M":38"QR =",QR," KN?MJLD.D 9;T :4"DS =",DS," CM   DR =",DR," CM?MJ^D<D 8;T %4.03:4"SCHUBSPANNG.: TR =",TR?MJ(ET %4.03" < ZUL. TR2 =",Z," MN/M2?MY5EJD 8;D 9;T "ERFORDERL. SCHUBBEWEHRUNG: ERF. FES ="%4.01,.0312*QR," CM2?MLDE
I (NF-1)2.96;G 1.1?MW%D2T " ERF. FEX,Y ="%4.01,E," CM2/M  GEW.:?MP4BCA !"PROJ.-NR. ",PN,"   SEITE ",PS," WIEV. FUND. 
 ",NF,!?MK,EZS NF=NF-1;F I=J,66;T !?MX3E]T "   8  MUENCHEN  19  RUF * 181081"!!!?ME]L S SIFUFE?M?MHEN  19  RUF * 181081"!!!?. FUND. 
 ",NF,!?M,.0312*QR," CM2? KN?)1.5?M5?M?M);S IR=;D 3?M (IR)1.5?M DU=DR+H?M1?[KN] = ",Q?MMS,%5.03,SF/NU*10,KX,KA,M(I)/B0,%3.02,C,E;R?M\PZ<S C=C-.1,NU=2.1-/-1: ",U;I (U)9.5;D 12?MYIVTF I=1,V;A DV(I),LV(I)?M]CNJS S=(-FITR(S(I)))*1000,D=FITR(),L=L(I),Z=S*L,R(D
=R(D)+Z,TA=79;I (27-D)7.3?MV
NTS TA=73;I (24-D)7.3;S TA=19+(D-6)*3?MDCBZN I;T !%2,I;A :6,DV(I);I (DV(I)-1)1.3;A :15,LV(I),:22,Z;I (9-Z)1.28;S V=I;G 

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