File SOB3.FC (FOCAL source file)

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

X
()N-C U/W-FOCAL:SOB3NO/DA/TE?MB!HJS Z=Z1(D)-1;S D=D+1?MB,JJS Z=Z-1;S E=E+1?MWQNAS D=3*(I-1)+1;S E=1;I (I-1.5)7.02;F C=1,D-1;S E=E+Z1(C)?MC NDI (-B-.02)7.05;S Y=-1;S YY=Y;G 7.06?MC-NES Y=1;S YY=Y;S R=-.5?MC7NFS X=;S H=;D 4?MDWNGI (Z)7.19;I (P-A1(E))7.08;I 
A1(E)+C1(E)-P)7.08;S H=H+Q(E)?MDNHD 5;S X=X+1;G 7.07?MD(NSD 4?MECNTI (Z)7.29;I (P-A1(E))7.28;I (A1(E)+C1(E)-P)7.28?MEWNUS H=H+Q(E)*(.01483+P-A1(E))/C1(E)?MEN\D 5;S X=X+1;G 7.2?ME(N]D 4?MFCN^I (Z)7.39;I (P-A1(E))7.38;I (A1(E)+C1(E)-P)7.38?MFYN
S H=H+Q(E)*(1-(.01483+P-A1(E))/C1(E))?MM^N&D 5;S X=X+1;G 7.3?MGN(I (JJ)7.51;I (O(I)-P-.05)7.49;I (B*Y)7.41;G 7.43?MGFN)S Y=-Y?MM7N*T P+.04;I (-R)7.5?MNJN,T "  K.NST?MG*N/S P=P+.05;S D=D-3;S E=E-X?MN!N0G 7.06?MG4N2R?MHEN3I (VV)7.6;I (B*Y)7.52;G 7.53?MHXN4S
R=R+.6;S Y=-Y;I (R)7.53;D 7.42?MH$N5I (L-P)7.54;G 7.47?MH0N6I (-R)7.55;D 7.44?MH=N7I (-VV)7.56;S VV=B;R?MIJN8I (VV+B)7.57;S B=-VV?MIUN9S M=B;T M;D 8;R?MI!N<I (L-P)7.61;G 7.63?MI.N=I (VV-B)7.62;S VV=B?MI>N>S M=VV;T M;D 8;S L=L+O(I)?MJTN?I (B*Y)7.64;I (O(I)
P-.11)7.65;G 7.47?MJ[OD 7.42;R?MJ"OAD 7.44;R?MLXPJI (2-AA)8.3,8.2;S MF(1)=M;R?MKFXJI (57-J1)12.2;T !!;S J1=J1+2;R ?MKPXTF C=J1,67;T !?MK:X^T "ING. - BUERO  B R A S S   ALFONSSTRASSE 9  8000 MUENCHEN 19   RUF 181081"!!?ML)X(S J1=6;T "*"!!"BETR.:        POS
:";T :60,"SEITE"!!!!?ML!PTS CL(1)=M;R?MJ3P^S CL(2)=M?MM*JS V(I-1)=V(I-1)+G(E)*X,V(I)=V(I)+G(E)*Y?M*TS W(I-1)=W(I-1)+Q(E)*X,W(I)=W(I)+Q(E)*Y?MBTFJT !;N J1?MF%N	S H=.05*H,XR=(A-XL-.5*H)*.05,XL=XL+H,B=B+XR?MGRN+I (XR*R)7.47;S R=1;I (Y*YY)7.45?MGZN-S M=B-XR;T
P-.01,M;D 8;I (-B)7.47;D 7.44?MG0N1I (B-XR)7.5;D 7.44?MN>BES D=1,E=1,I=2,L=O(1),K=L;D 4?MORBJI (Z)1.2;S C=C1(E),A=A1(E),B=L-A-C?MO*BOS X=C*(B+C/2)/L,Y=C*(A+C/2)/L;D 21,5;G 1.1?MO/BTD 4?MPCB^I (Z)1.4;S C=C1(E),A=A1(E),B=L-A-C?MP^BS X=C*(B+C/3)/2*L,Y=C*(A+2
C/3)/2*L;D 21,5;G 1.3?MPB(D 4?MP7B2I (Z)1.6;S C=C1(E),A=A1(E),B=L-A-C?MQRB7S X=C*(B+2*C/3)/2*L,Y=C*(A+C/3)/2*L;D 21,5;G 1.5?MV&B<D 12;T "G-AUFL.";D 3;S X=(T+T(3))/L?MRACT V+V(1)+(U(3)+T)/L,V(2)+V(3)-(U+T(3))/L;D 12?MRMDET "FELDMOMENT";D 3?MR!DJT "  I    X
L    XMF    MF     X0R?MR2DOS JJ=1,I=1,B=-T,M2=T(3),AA=1?MWCDTS A=W(1)-(B-M2)/K;D 7?MSRDWS B=-U,JJ=-1;I (DL(1)-.01)2.33?MS&DYD 3;T "    X0L   MRED    X0R";D 3?MTJD[T "  K.NST";S L=DL(1)-.05,VV=-U+W*DL(1);I (.045-DL(1))2.28;S VV=-U?MTSD\S AA=2;D 2.2?MT0D!S
B=-T,M2=U(3);I (DL(2)-.01)2.38;D 3;S L=K-DL(2)-.05?MUPDD 2.25;S VV=-U(3)-W(3)*DL(2);I (.045-DL(2))2.36;S VV=-U(3)?MW,D$S AA=3;D 2.2;T "  K.NST?MU0D(D 12;T "MAXIMALE QUERKRAEFTE?MVFD)D 3;T "  I      QL       QR      AMAX?MXEEKF I=,1;D 3;T %2,I+1,%7.02,W(2*
),W(2*I+1),W(2*I)+W(2*I+1)?MQ	B>T %5.02,V+V(1)+X,V(2)+V(3)-X;D 12;T "MIN-AUFL.";D 3?MSDVD 12;T "STUETZMOMENTE?MCKNBS P=.01;S XL=;S R=-1;I (JJ)7.04;D 3;T %2,I,%5.02?MU
D&S W(2)=W(2)-(U(3)+T)/K,W(1)=W(1)+(U+T(3))/K?MXWEPD 12.2,12.3;I (LM)2.9;L R SOB2?MMWEZT "*",!;Q?M?ML S SOB3?M?M=;S R=-1;I (JJ)7.04;D 3;T %2,I,%5.02?MFETL       TAU0R   TAUR   FETR?MY!B0S G(3)=G(4)*L/2,K=G(4);D 7;S G(2)=G(4)^2/G?MY5B1I (.4*G(4)-G(2))1.5;S
G(2)=.4*G(4)?MZCB2S T=G(2)*L/2;D 10;

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