File IST11.FC (FOCAL source file)

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

R2()BTC U/W-FOCAL:IST11NO/DA/TE?MB.BCT "*"!!"BETR.:        POS.:";T :60,"SEITE"!!!!?MB2BSE?MCAB^S J1=12;A 
N KL KR 
,!!?MCLB I (KL)1.34;S H=1?MC\B!D 12;A 
L Z 
;F I=1,Z;D 20?MC)B"S E=1;F I=,N-2;D 14?MC9BT !!"DL"!;F I=1,N;A DL(I)?MDMB$I (KR)1.38;S K=2*N-1;S H=-1;D 1.33?MD-B&D 12;T "TRAEGHEITSVERHAELTNISZAHLEN";D 2;F I=1,N-1;A M(I)?MD=B(F I=1,N-1;S M(I)=M(I)/O(I)?MEB*F I=1,N-2;S H=M(I)+M(I+1);S MY(2*I)=-M(I)/2*H;S
MY(2*I+1)=-M(I+1)/2*H?ME5B+S D=1;S E=1;S I=2;S KL=;S KR=?ME:B,D 4?MFMB-S P=2*N-3-I;S L=O(I/2);I (Z)3.1?MF
B2S C=C1(E);S A=A1(E);S B=L-A-C?MF4B4S X=C*(B+C/2)/L;S Y=C*(A+C/2)/L;D 21?MGIB6S A=(A+C/2)/L;S B=(B+C/2)/L;S C=C/L?MG,B8S X=L*L*C*A*(4*(1-A*A)-C*C)/4;S Y=L*L*C*B*(4*(1-B*B)-C*C)/4;D 22?MG<B:I (I-3)1.6;I (P)1.7;G 1.8?MHGB<S KL=KL+Q(E)*X/2?MHMCAG 1.8?MHXCFS
KR=KR-Q(E)*Y/2?MH CPD 5;G 1.45?MH*DJT !;S J1=J1+1?MH/FJD 4?MH6FLI (Z)3.5?MIQFMD 1.5;S X=C*(B+C/3)/2*L;S Y=C*(A+2*C/3)/2*L;D 21?MI,FNS A=(A+2*C/3)/L;S B=(B+C/3)/L;S C=C/L;S H=1;D 23?MI<FOI (I-3)3.2;I (P)3.3;G 3.4?MJEFTD 1.6;G 3.4?MJKF^D 1.7?MJSF(D 5;G 3.12
MJXF2D 4?MJ F<I (Z)3.92?MJ;F=D 1.5;S X=C*(B+2*C/3)/2*L;S Y=C*(A+C/3)/2*L;D 21?MKWF>S A=(A+C/3)/L;S B=(B+2*C/3)/L;S C=C/L;S H=-1;D 23?MK	F?I (I-3)3.7;I (P)3.8;G 3.9?MK0GFD 1.6;G 3.9?MK6GPD 1.7?MK>GZD 5;G 3.6?MLMG\S I=I+2;I (P)3.93;G 1.44?MLTG]L R IST2?ML!H
S Z=Z1(D)-1;S D=D+1?ML,JJS Z=Z-1;S E=E+1?ML?XJI (57-J1)12.2;T !!;S J1=J1+2;R ?MMIXTF C=J1,67;T !?MM!X^T "ING. - BUERO  B R A S S   8 MUENCHEN 19?MM7X(T "   ALFONSSTRASSE  9   RUF 181081"!!?MNAX2D 1.03;S J1=6?MN-\JD 12;T "STW +KZ";D 2;A O(I+1);S M(I+1)=1;S
Z=;F K=1,3;A Z1(I*3+K);S Z=Z+Z1(I*3+K)?MOK\LD 2;T "LF";F K=1,Z;D 2;A A1(E),C1(E),G(E),Q(E);S E=E+1?MO(JD 2;A A,B,X,Y;S C=A+B/2;I (H)20.2;S C=L-C?MO:(TS T(K)=T(K)+H*X*B*C;S U(K)=U(K)+H*Y*B*C?MPM(^S V(K)=V(K)+X*B;S W(K)=W(K)+Y*B?MP%*JS V(I-1)=V(I-1)+G(E)*X;
 V(I)=V(I)+G(E)*Y?MP=*TS W(I-1)=W(I-1)+Q(E)*X;S W(I)=W(I)+Q(E)*Y?MQ],JS T(I-1)=T(I-1)-G(E)*(2*Y-X)/3;S T(I)=T(I)+G(E)*(2*X-Y)/3?MQ=,TS U(I-1)=U(I-1)-Q(E)*(2*Y-X)/3;S U(I)=U(I)+Q(E)*(2*X-Y)/3?MRV.JS X=L*L*C*(270*(A-A^3)-C*C*(45*A-2*H*C))/540?M.TS Y=L*L*C*(
70*(B-B^3)-C*C*(45*B+2*H*C))/540;D 22?M2?L S IST11;SYS?M?G(2)*L/2;D 10;G C?M-*B<F I=1,N-1;S L=O(I);D 6?MBTCZT "*"!;Q?MVJZHI (MA-M)13.7?M6MZ2S MS=1E3*MS/(H-H1)*SE,X=1E3*M/SF*Z+MS;I (X-3*MS)13.6?M* B * :7*8B0. V ..V3. F . B . B * B * :0*0B0. V ..V3* B * :1*
B7* B .1N.*8B * :2*2B0* B1* B0* B0* B .0B.*0B * :2*2B0* B .1N.*7B . F ..^3* B .6Z.*0B *2B *0B *0B . B ..B0* B .6Z.*0B . F ..B0* B * :1*0B0* B .0B.*0B * :6*6B0*-B .1B.*06 . F ..B0* B .7J.*0B *1B 

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