mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
9 lines
648 B
Plaintext
9 lines
648 B
Plaintext
COMMENT PROCEDURE - EVALUATION OF A FOURIER APPROXIMATION, 00000100
|
|
CUBE LIBRARY NUMBER IS E200005. 00000200
|
|
THIS VERSION DATED 2/1/67; 00000300
|
|
PROCEDURE FOURIER(A,B,N,X,Y);VALUE N,X;INTEGER N,X;REAL Y;REAL ARRAY A[000000400
|
|
],B[1];BEGIN REAL ARRAY C[0:N],D[0:N];INTEGER I;C[0]~1;D[0]~0;C[1]~COS(X00000500
|
|
);D[1]~SIN(X);FOR I~2 STEP 1 UNTIL N DO BEGIN C[I]~2|C[I-1]|C[1]-C[I-2];00000600
|
|
D[I]~2|D[I-1]|C[1]-D[I-2]END;Y~A[0];FOR I~1 STEP 1 UNTIL N DO Y~A[I]|C[I00000700
|
|
]+B[I]|D[I]+Y ;END; 00000800
|