230 PRINT "Идут измерения..."
240 FOR G=0 TO 639
250 GOSUB 100
260 PRINT #1,D,,TIME$
270 FOR T=0 TO 2000: NEXT T
280 NEXT G
290 CLOSE #1
300 REM (c)1997 Patrick GUEULLE
Понятно, что для полной обработки такого файла потребуются специальные программы. Можно использовать как большие ком­мерческие пакеты, статистические или графические, так и простые программы TCGA.BAS и TVGA.BAS.
500 REM----ТСGА----
510 OPEN "dat.dat" FOR INPUT AS #1 520 INPUT #l,Y:Y=199-INT(Y*199/5)
Страница 88К оглавлениюСтраница 90