Fourseq
PROGRAM A
1: "A" PRINT "FOURIER ANALYSIS" : PRINT "300 DIVS"
: PRINT "ASSUME A(0)=0" : PRINT "ODD HARM ONLY" 2: C=300, B= pi/150
3: INPUT "DATA ON TAPE? (YES/NO)"; 1$ 4: IF I$="YES" PAUSE "LOAD DATA TAPE" : INPUT #"DATA";A(27) : PAUSE "LOAD PGM TAPE" : CHAIN "C" 5: IF I$="N0" PAUSE "STAND BY"
PROGRAM B
: PAUSE "T/R OFF" 2: " " PAUSE "Y("; USING "####"; A; " )" 3: INPUT A(A+27)
: IF A<151 GOTO 2 6: PRINT "ASSUME Y(X+150)=-Y(X)" 7: INPUT "FILE DATA? "; 1$
: IF I$="N0" GOTO 10 8: IF I$="YES"PAUSE "SET LEVEL" : PRINT # "DATA"; A(27) : GOTO 9 9: GOTO 7
10: PAUSE "LOAD PGM" 11: CHAIN "C"
PROGRAM C
6: IF D<C/2 GOTO 3 7: A((H+19)/2)=2AB/3pi 8: NEXT H 9: BEEP 5
PROGRAM D
4: PRINT USING "###"; H; USING "######.######"; E
PROGRAM E—Same as "C" except:
1: "E" PAUSE "SIN #35 TO 67" : FOR H=35 TO 67 STEP 2
PROGRAM F—Same as "D" except:
1: "F"PRINT"PGM - SIN 35 TO 67" 2: FOR H=35 TO 67 STEP 2 3: E=A((H-15)/2)
7: PRINT "DATA TAPE, SET LEVEL"
: PRINT# "S35-67"; A(10) 8: PRINT "REPEAT - SHFT .F" : PRINT "T/R ON" : CHAIN "G"
PROGRAM G—Same as "C" except:
1: "G" PAUSE "SIN #69-101" : FOR H=69 TO 101 STEP 2
PROGRAM H—Same as "D" except:
1: "H" PRINT "PRINT PGM - SIN 69-101" 2: FOR H=69 TO 101 3: E=A((H-49)/2)
PROGRAM I
2: "I" INPUT "FIND COS TERMS? ";I$ 3: IF I$="YES" PAUSE "T/R ON" : C=100 : B=pi/150 : RADIAN : CHAIN "J" 4: IF I$="N0" GOTO 6 5: GOTO 2
6: INPUT "RE-CONSTRUCT? ";I$ 7: IF I$="YES" PRINT "T/R ON"
: CHAIN "FOURSN" 8: IF I$="N0" PRINT "END OF PROGRAM" : PRINT "BY F., NACHBAUR" : END 9: GOTO 5
Post a comment