|
будет подобрать эту величину в соответствии со скоростью используемого ПК и конкретной задачей.
В самых сложных случаях можно, по примеру SECONDE.BAS и MINUTE.BAS, использовать переменную TIMES для улучшения точности и значительного снижения частоты дискретизации.
Число 640, в свою очередь, соответствует числу точек по горизонтали обычного графического экрана, что позволяет вывести график кривой непосредственно на экран, перед тем как скопировать его на бумагу, если это необходимо.
Графопостроитель
Вывод информации на экран осуществляет программа CGAVISU.. BAS или VGAVISU.BAS. Вторая из них применяется, если желательно воспользоваться большим разрешением, соответствующим экранам VGA.
500 REM----CGAVISU----
510 OPEN "dat.dat" FOR INPUT AS #1
520 INPUT #1,Y:Y=199-INT(Y*199/5)
530 PSET(0,Y)
540 FORX=1 TO 639
550 INPUT #l,Y:Y=199-INT{Y*199/5)
560 LINE-{X,Y)
570 NEXT X
580 CLOSE
590 REM (c) 1997 Patrick GUEULLE
500 REM----VGAVISU----
510 OPEN "dat.dat" FOR INPUT AS #1
520 INPUT #l,Y:Y=349-INT(Y*349/5}
530 PSET(0,Y)
540 FOR X=l TO 639
550 INPUT #1,Y:Y=349-INT(Y*349/5)
560 LINE-(X,Y)
570 NEXT X
580 CLOSE
590 REM (c) 1997 Patrick GUEULLE
Очевидно, каждую из программ надо объединить с экранным драйвером CGA.BAS или VGA.BAS, соответствующим используемому оборудованию.
300 REM----CGA----
310 SCREEN 2
320 KEY OFF:CLS
330 LINE (0,0)-(0,199)
|
|||||
| |||||