@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E A
C-FOCAL , 8/68

01.02 T "FOURIER SYNTHESIS OF A SQUARE WAVE"!
01.03 T "RECURSIVE TO THE NUMBER OF TERMS SPECIFIED"!!
01.04 S PI=3.14159; A "AMPLITUDE",A,"TERMS IN FOURIER SERIES",L,!
01.06 S N=0;S Y1=0;A "PLOT EVERY [?] DEGREES",DG,!
01.07 T "NEW COMPONENT PLOTS *, SUMMARY WAVEFORM PLOTS O"!!!!!!
01.08 F Q=1,L;S N=N+1;D 1.10;D 10.1
01.09 T !!"VARY THE PARAMETERS AND I'LL PLOT ANOTHER"!!!!!!!!!!!!;Q
01.10 T !!"WAVEFORM DISPLAY IF FOURIER SERIES TERMS",N,!;S Z=0

02.01 C [D 2] WILL DISPLAY N TERMS WITH PARAMETERS OF RECORD
02.02 A "GIVE N FOR THE SEPARATE DISPLAY OF N TERMS",N;D 1.1;D 2.06
02.04 T !!!!!!!!!!!!;G 2.02
02.06 F T=0,DG*PI/180,2*PI;D 12;T "X",#;D 10.14

10.10 F T=0,DG*PI/180,2*PI;D 11;T "*",#;D 12;T "O",#;D 10.14
10.14 S Z=Z+1;T %3,Z,%2,Y1,!

11.02 S Y=(1/[2*N-1])*A*FSIN(<2*N-1>*T)
11.06 I (Y)11.08,11.10,11.10
11.08 F YP=0,35+Y;T " "
11.09 R
11.10 F YP=0,34+Y;T " "
11.11 R;C PLOTS THE NEW COMPONENT (TERM) ALONE

12.01 S Y1=0
12.03 F D=1,N;S Y1=Y1+[<1/(2*D-1)>*A*FSIN(<2*D-1>*T)]
12.06 I (Y1)12.08,12.10,12.10
12.08 F YP=O,35+Y1;T " "
12.09 R
12.10 F YP=O,34+Y1;T " "
12.11 R;C PLOTS THE SUM OF THE COMPONENTS (TERMS) AVAILABLE
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?