File RANDEI.FC (FOCAL source file)

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

U.()I:C U/W-FOCAL:RANDEINO/DA/TE?MB/BJS A1=A+C/2;S B1=L-A1;S H=A1*B1^2-C*C*(B1-A1/2)/6?MRMBKS M=M+G*C*H/L*L;S N=N+Q*C*H/L*L;G 1.08?MR-BNS M=M+G*A1;S N=N+Q*A1;G 1.13?MC,BQS H1=B1*(10-5*C1*C1-10*B1*C1-10*B1*B1)?MDDBRS H2=A1*(5-7.5*C1^2-10*A1*C1-5*A1^2)-C1^3
MD$BSS M=M+G*L*L*C1*(H1-H2)/30;S N=N+Q*L*L*C1*(H1-H2)/30;G 1.16?MSLBTS M=M+G(V)*L*L*C3(V)*(H3(V)-H4(C))/30?ME]BXS H1=B1*(2-3*C1^2-4*B1*C1-2*B1^2);S H2=-A1*(1-A1*C1-C1^2/2-A1^2)?ME2BZS M=M+G*L*L*C1*(H1+H2-0.7*C1^3+C1)/6?MKMB[S N=N+Q*L*L*C1*(H1-H2-0.7*C1^3+
1)/6;G 1.22?MF$B
S IO=BO*(DO/10)^3/120;S IU=BU*(DU/10)^3/120?MF:B S DS=D0-D;S TP=B*D/100;S TS=DS*B0/100?MGSB!S S=TP*(D0-D/2)/10+TS*DS/20;S E=S/(TP+TS)*10?MG.B"S EO=D0/100-E;S I=TP*D*D/1200+TP*(EO*10-D/20)^2?MHQBS I=I+TS*(DS/10)^2/12+TS*(10*E-DS/20)^2;I (0.1-HO)1.36;S HO=0
1?MH[B$S CO=L*IO/HO*I?MH2B%S CU=L*IU/HU*I;S MR=-M*(CO+CU)/(1+CO+CU)?MILB&S NR=-N*(CO+CU)/(1+CO+CU);S MO=-MR*CO/(CO+CU)?MI"B	S MU=MR*CU/(CO+CU);S NO=-NR*CO/(CO+CU)?MS
B(S NU=NR*CU/(CO+CU);S RO=3*(2*HO/3-EO)/2*HO?MJOBAA !"WELCHE ZEILE 
 ",Z;F I=Z,72;T !?MJSBBZ?MJ3BCA "*"!!!"BETR.: ",C,:12"POS. ",D,:60"SEITE ",E,!!!!;S J=7?MNCBDD 7;A "POS. ",C;G 2.1?MTABHS T=T-1;I (T)1.12?MFKB^D 9,9?MK6PJD 9;T :9?ML,B<G 9.2?MLRTF N=J,68;T !?MR(G 1.02?MKSNJD 9;T :6?MK RJS J=J+1;T !;R?MK)R^T "ING. - BUERO 
 B R A S S   ALFONSSTR. 9  8000 MUENCHEN 19   RUF *089/181081"!!!?MK/DJD 9,7;T "1. KONSTR.: ST.B.-RANDSTUETZE UNTER POS. ";A C;D 9;G 1.05?MQ	BFD 8;A "STUETZE UNTEN:",BU,:30,DU,:35,HU;D 8;A "RIEGEL:":23,B,:30,D,:35,L,"B0 =",B0,"  D0 = ",D0?MMPBED 9;T :24 "
     D     H/L";D 9;T :25"[CM]       [M]";D 9,8;A "STUETZE OBEN: ",BO,:30,DO,:35,HO?MCEBMS T=T-1;I (T)1.15;D 8,1.09;S A1=(L*L-A*A*(2-A/L))/12?MCVBPS T=T-1;I (T) 1.21;D 8,1.09;S B1=(L-A-C)/L;S A1=A/L;S C1=C/L?MD:BVS T=T-1 ;I (T) 1.30;D 8,1.09;S A1=A/L;S B1
(L-A-C)/L;S C1=C/L?MP	B-T "AUS  G    :",MO,MR,MU;D 8?MP>B.T "ABGEMIND. :",GO,"         ",GU;D 9,8?MQPB/T "AUS  Q    :",NO,NR ,NU;D 8?MKZB0T "ABGEMIND. :",QO,"         ",QU;D 9,8?MKABGD 9,7;T "2. BELASTUNG:";D 9,8;A "LASTF. 1 BLOCKLASTEN:",T;I (T-1)1.12?MN
BLD 9,8;A "LASTF. 2 DREIECKSLASTEN STEIGEND:",T;I (T-1)1.15?MOSBOD 9,8;A "LASTF. 3 DREIECKSLASTEN FALLEND:",T;I (T-1)1.21?MO4BUD 9,8;A "LASTF. 4",T;I (T-1)1.30?MUFB)S RU=3*(2*HU/3-E)/2*HU;S GO=MO*RO;S GU=MU*RU,QO=NO*RO,QU=NU*RU?MBTBID 8;A 
A  C  G  Q
;?MPVB,T  "ENDMOMENTE:   OBEN     RIEGEL   UNTEN";D 9,8?MTNB+T "CO=",CO,"  CU= ",CU,"  MR0G=",M,"  MR0Q=",N;D 9,8?MT)B*D 9,7;T "3. BEMESSUNG:";D 9,8;T %7.04,"IR=",I,"  ISO=",IO,"  ISU =",IU;D 8?M13L S RANDEI?M?M. BEMESSUNG:";D 9,8;

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