100 REM ***** TMFCEV ***** ENGINEERING PROGRAM ***** 110 REM VERSION A1 EDITED 8/72 120 REM EVALUATES TIME FUNCTIONS 121 PRINT TAB(5);"HAVE YOU INPUT YOUR DATA?";:INPUT F$ 122 IF F$="YES" THEN 130 ELSE 640 124 PRINT TAB(5);"ENTER DATA IN LINES 620-630 AND 'RUN'" 130 DIM X(200) 140 READ N1,N2,N,T1,T2,C1 150 M=2*N1+4*N2 160 FOR J=1 TO M 170 READ X(J) 180 NEXT J 190 PRINT " T I M E F U N C T I O N" 200 PRINT 210 PRINT 220 PRINT "NOISE SIGMA =";C1 230 IF N1=0 THEN 320 240 PRINT 250 PRINT"TERMS OF FORM C*EXP(-S*T) ARE:" 260 PRINT 270 PRINT " "," C"," S" 280 PRINT 290 FOR J=1 TO N1 300 PRINT " ",X(J),X(N1+J) 310 NEXT J 320 IF N2=0 THEN 410 330 PRINT 340 PRINT "TERMS OF FORM (A*COS(W*T)+B*SIN(W*T))*EXP(-G*T) ARE:" 350 PRINT 360 PRINT " "," A"," B"," W"," G" 370 PRINT 380 FOR J=(2*N1+1) TO (2*N1+N2) 390 PRINT " ",X(J),X(N2+J),X(2*N2+J),X(3*N2+J) 400 NEXT J 410 PRINT 420 PRINT "FIRST POINT AT T=";T1, "SPACING DELTA -T";T2 430 PRINT 440 PRINT "DATA POINTS ARE:" 450