File: TESFO.BA of Tape: Various/ETH/ba1

(Source file text) 

---

100 DIM B$(15)
110 DIM X(1024)
120 B$="DSK:TESFU.BT"
130 FILEV #1: B$
140 PRINT "HOW MANY POINTS"
150 INPUT P2
160 FOR I=0 TO P2-1
170 X(I)=0
180 NEXT I
190 PRINT "HOW MANY PEAKS"
200 INPUT F1
210 FOR F=1 TO F1
220 PRINT "PEAK #";F
230 PRINT "INDICATE FREQ,PHASE,AMPL,TAU"
240 INPUT N1,P1,A1,T1
250 P9=3.141593
260 T2=T1*P9/P2
270 N2=N1*P9/512
280 P3=P1*P9/180
290 FOR I=0 TO P2-1
300 X(I)=X(I)+A1*EXP(-I*T2)*COS(I*N2-P3)
310 NEXT I
320 NEXT F
330 PRINT "NOISE";
340 INPUT B$
350 IF B$<>"YES" THEN 410
360 PRINT "HOW MUCH";\INPUT N9
370 RANDOMIZE
380 FOR I=0 TO P2-1
390 X(I)=X(I)+2*N9*(RND(Y)-.5)
400 NEXT I
410 PRINT #1:"D   0"
420 PRINT #1:STR$(P2)
430 FOR I=0 TO P2-1
440 IF X(I)>=0 THEN 460
450 PRINT #1:"-";
460 PRINT #1:STR$(X(I))
470 NEXT I
480 PRINT #1:" 1"
490 PRINT "AV. TAU";
500 INPUT T9
510 PRINT #1:STR$(T9)
520 CLOSE #1
530 CHAIN "DSK:FORBA.BA"
540 END

---