File GAUSS.FC (FOCAL source file)
Directory of image this file is from
This file as a plain text file
C-PS/8 FOCAL, 1971
1.01 C BERECHNUNG DES GAUSS SCHEN FEHLERINTEGRALS
1.10 F I=1,300;D 2
1.20 Q
2.05 S A=0.01*I
2.10 S X=A/1.414213562;S P=0;S A=1;T %5.02,I*0.01
2.20 F I=1,10*(FITR(X)+1);S A=A*I;S P=P+X^(I+I+1)/A*(I+I+1)*(-1)^I
2.30 S P=1.12838*(X+P);T %6.05,
P
,!
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