File KBDACH.FC (FOCAL source file)

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

$Q()BTC U/W-FOCAL:KBDACHNO/DA/TE?MV9BAZ ?MT
BFS TG=2*H/L,S=FSQT(L*L/4+H*H),SI=H/S,CO=L/2*S,S1=S*AI,S2=S*BI?M]GBJA !"LAST KEHLB. ",GK;S WD=(1.2*SI-.4)*Q,WS=-.4*Q?MC6BLS A1=L*G/2,K1=G*L*(1+CI)/16*CI*TG,HG=G*L*(1+4*AI+CI)/16*AI*TG?MN<BMS M1=G*L*L*(3*CI-1)/32,N1=A1*SI+HG*CO?MO$BOS NA=A2*SI+H2*CO?MSBQS 
S=A2+B2,KS=2*K2,HS=2*H2,MS=ME+MD,NS=NA+NB?METBVS L3=(1+TG*TG)*(7*CI-1),L4=(1+TG*TG)*(1+CI),HA=WD*L*(L1+KA*L2)/16?MY9BWS HB=WD*L*(L2+KA*L1)/16,DW=WD*L*L*(L3-KA*L4)/64?MM%B S PA=A6*SI+K6*CO,PB=B6*SI+K6*CO?M"TB(D 2,4;T "1. KONSTR.: SYMM. KEHLBALKENDACH?MF/HJ
 !:4;S J=J+1?M[WB-T "STAEND. LAST?MTFJJT !:7;S J=J+1?M[&B/T "SCHNEELAST?MM.B2T " KN/M2DFL?M,B5T "VERKLEIDUNGSLAST?M[IB:T "EINZELLAST IN D?MHACD 5,1.47;T " LINKS":23,A2,B2,K2,H2,H2,NA,NB,MD,ME?MH\CBD 5,1.47;T " VOLL":23,AS,AS,KS,HS,HS,NS,NS,MS,MS?MS!CDD 5;
 "WIND LINKS":23,A4,B4,K4,HA,HB,WA,WB,DW,EW?MICMS AA=L,AB=R?MIVCNS K=K1+KS+K3+K5+K6;I (K4)1.8;S K=K+K4?MI1CPT K;S AH=HG+HS+H3+H5+H6,A=HA,B=HB,L=AH,R=HG;D 3?MI:CRS AH=L,BH=R?MJVCTS AN=N1+N3+NS+N5+PA,BN=N1,A=WA,B=WB,R=N1,L=AN;D 3?MJ
CVS AN=L,BN=R?M ?CXS D=M1+MD+M3+DW+DP,E=M1+ME+M3+EW+EP;T D,E?MZ-D^T "ING.- BUERO B R A S S   ALFONSSTRASSE 9  8000 MUENCHEN 19?MK9FJI (FABS(A)-FABS(B))3.2;I (A)3.3;D 3.8;I (-B)3.5;D 3.9;G 3.5?MLNFTI (B)3.4;D 3.6;I (-A)3.5;D 3.7;G 3.5?ML^F^D 3.7;I (B)3.5;D
3.6;G 3.5?ML+F(D 3.9;I (A)3.5;D 3.8?MS?F2T L,R;R?ML9GFS R=R+A?MMGPS L=L+A?MFZGZS R=R+B?MGYB9I (PD-1)1.6;D 5?MZ$DJT !;S J=J+1;R?MVMNJT " KN/M2GFL?M
0B"F K=J,72;T !?MGLB4I (GU-.1)1.55;D 5?M  CFI (GK-.1)1.72;D 5,1.55;T :23,A5,A5,K5,H5,H5,N5,N5?MH7CKD 2,5;T "MAX. / MIN.":23; S AA=A1+AS+A3+A5+A6,A=A4,B=B4,L=AA,R=A1;D 3?MDLBNS A2=3*SC*L/8,B2=A2/3,K2=SC*L*(1+CI)/32*CI*TG,H2=SC*L*(1+4*AI+CI)/32*AI*TG?MDWBPS
NB=B2*SI+H2*CO,MD=SC*L*L*(7*CI-1)/64,ME=-SC*L*L*(1+CI)/64?MP&BSS H3=GU*L*AI*(AI+4)/16*TG,M3=-AI^3*GU*L*L/32,N3=A3*SI+H3*CO?MQBTS KA=WS/WD,A4=WD*L*(3-TG*TG+KA*(1+TG*TG))/8,B4=WD*L*(1+TG*TG+KA*(3-TG*TG))/8,K4=WD*L*(+CI)*(1+TG*TG)*(1+KA)/32*CI*TG?MD0BUS K4=W
L*(1+CI)*(1+TG*TG)*(1+KA)/32*CI*TG,L2=(1+TG*TG)*(2+(1+CI)/2*AI)/TG?MYRBZS K5=A5/TG,H5=K5,N5=A5*SI+H5*CO?M!9B=D 2,2;T :26"VA    VB    HK    HA    HB    SA    SB    MD    ME?MPEBRI (GU-.1)1.2;S GU=GU/CO,A3=GU*A,K3=AI*GU*L*(3*BI+1)/16*BI*TG?MM:CEI (GU-.1)1.7
D 5,1.53;T :23,A3,A3,K3,H3,H3,N3,N3,M3,M3?ML2F<S L=L+B?MM\LJT :26?MF$B,D 2,2,4;T "2. BELASTUNG:";D 2,5?MUQBHA !!"LASTANN.: "!"ST. LAST (KN/M2DFL) ",G;S G=G/CO;A " SCHNEE (KN/M2GFL) ",SC," WIND LI. Q ",Q?MB9BIA !"VERK. LAST UNT. SPARREN (KN/M2DFL) ",GU," E
NS. E-LAST PD ",PD?MX	PTS S=FSQT(L*L/4+H*H),S1=S*AI,S2=S*BI;G 1.08?MU5PJA !"UNT. HOEHE ",HU;S SI=FSIN(D*PI/180),CO=FCOS(D*PI/180),TG=SI/CO,H=L*TG/2;D 1.04?MXIBBA !!"SYMM. KEHLBALKENDACH: STUETZW. L ",L," DACHNEIGG. IN GRAD ",D;I (1-D)8.1;A !"GES.HOEHE H "
H," UNT. HOEHE HU ",HU?M QR2S Z=300,X=X3;T :40;D 9.4;G 2.2?MBXBDS HO=H-HU,A=HU*L/2*H,BK=L/2-A,AI=HU/H,BI=HO/H,CI=AI*BI?M^RJD 2,5;T "KEHLBALKEN";D 2,5;S MK=GK*4*BK*BK/8,X2=416*BK*MK,X3=626*BK*MK,AK=BK*GK?ME/B^I (PD-.1)1.34;S A6=PD*(2*BK+A)/L,B6=PD-A6,K6=PD
2*TG,DP=CI*L*PD/4,EP=-DP?MRKBXS EW=WD*L*L*(-L4+KA*L3)/64,WA=A4*SI+HA*CO,WB=B4*SI+HB*CO;I (GK-.1)1.3;S A5=GK*BK?MJ7DTF K=J,69;T !?MKXD(T " RUF * 089/181081"!!!!;Q?M^3RD 5;S Z=200,X=X2?M
FB;D 6;T "PD = ",PD," KN?MF9B.D 6;T "G  = ",G/O;D 7,5?M\MB0D 6;T "S  = ",SC/O;D 7,5;T "WINDLAST: DRUCK";D 6;T "WD = ",WD/O;D 1.5,2?MGCB1T :17"SOG";D 6;T "WS = ",WS/O?MMGB8D 6;T "GK = ",GK/O;D 7?M!YC\T "MIN ME = ",E,"  KNM  ZUGEH. SB = ",ZN,"  KN?MCTBKA "S
.ABSTAND A[M] =",O," PROJ.-NR. ",PR," WELCHE ZEILE 
",J;S G=G*O,SC=SC*O,WD=WD*O,WS=WS*O,GU=GU*O,GK=GK*O?M^	RTT "BIEGEMOMENT:":22"MK =",MK," KNM";D 5;T "ANSCHL.KRAEFTE: AK =",AK," KN?MZ>R^T "  HK =",K," KN"?MW7R(T %3"ERF. IX(",Z,") ="%7,X," CM4?MR^B<D 2,2,4;T "3. AUFLAGER - NORMALKRAEFTE - MOMENTE  F. SPARR
NABSTAND A =",O," M?MFBB$T "*"!!"BETR.:",%3,PR,"  POS.",:64"SEITE"!!!!:4"POS.";S J=8?MTJT "  DACHNEIGG. [GR]:",D?MNVCHI (PD-.1)1.75;D 5,1.58;T :23,A6,B6,K6,K6,K6,PA,PB,DP,EP?M\-CZD 2,5;S ZN=N1+NB+N3+WB+N5+PB,ZM=M1+MS+EW+M3+DP?MMRC^D 5;T "MAX S  = ",AN "  
KN  ZUGEH. M  = ",ZM," KNM";G 9.1?MG%B>D 2,5,1.45;T %4.02:23,A1,A1,K1,HG,HG,N1,N1,M1,M1?M"/B*D 2,5;T %3.01"SYSTEM";O (.1-D)10.1;F I=1,17;D 2?MTLB+D 5;T %4.02" L =",L,"  A =",A," LK =",BK*2;D 5;T " S =",S," S1 =",S1," S2 =",S2;D 5;T " H =",H," HU =",HU," H
 =",HO?M$CB6D 6;T "GU = ",GU/O;D 7;I (GK-.1)1.57;D 5?M\
B7D 5;T "KEHLBALKENLAST?MD L S KBDACH?M?MNLAST?;I (GK-.1)1.57;D 5?M;D 5;T " S =",S," S1 =",S1," S2 =",S2;D 5;T " H =",H," HU =",HU," HO =",HO?M,HS,HS,NS,NS,MS,MS?MV2CDD 5;T "WIND LINKS":23,A4,B4,K4,HA,HB,WA,WB,DW,EW?MI:CMS AA=L,AB=R?MJPCNS K=K1+K

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